Jumat, 10 Juni 2011

Mengenal IPv6

 IP versi 4 habis! Begitu judul yang menghias banyak kanal berita. Bulan Februari kemarin, IANA (lembaga yang mengatur penggunaan IP di seluruh dunia) memang sudah tidak memegang alamat IPv4 lagi.
Semua slot sudah dibagikan ke seluruh dunia melalui koordinator tiap benua. Jika slot di koordinator tiap benua itu habis juga, berarti IPv4 resmi ludes.
Apakah berarti ini “kiamat” bagi dunia internet? Sebenarnya tidak juga. Sejak tahun 1999, telah terbentuk forum yang bertugas membuat standar baru yang disebut IP versi 6 (IPv6). Ketika IPv4 habis, kita tinggal pindah ke IPv6. Cuma karena yang “pindah” adalah seluruh infrastruktur internet, prosesnya terbilang ribet dan membutuhkan dana yang tidak sedikit. 
Namun untuk masa depan yang lebih baik, kita semua memang harus pindah ke IPv6. Bahkan untuk mendorong gerakan itu, besok akan diadakan hari IPv6. Bagi Anda yang masih belum memahami soal tersebut, inilah sekelumit penjelasan soal Internet Protocol serta kelebihan yang ditawarkan IPv6.

Apa itu Internet Protocol?
Internet Protocol (IP) adalah standar yang mengatur bagaimana dan lewat mana paket informasi dikirim dari jaringan internet maupun intranet. Agar paket data sampai ke tujuan yang benar, tiap perangkat yang terhubung ke internet harus memiliki alamat IP (IP Address) yang unik. Jika ada dua perangkat memiliki IP yang sama, maka akan terjadi yang disebut “IP Conflict” karena paket akan bingung mau mengarah ke mana.

Apa Masalah IPv4?
Ketika dibuat tahun 1981, IP versi 4 mengunakan 32-bit alamat, atau “hanya” sekitar 232 (4,3 milyar) alamat. Dari jumlah itu, sekitar 18 juta alamat digunakan untuk private network dan 270 juta untuk multicast adresses, sehingga tidak bisa digunakan untuk publik. Sebenarnya jumlah yang tersisa masih sangat banyak, namun lebih banyak lagi perangkat yang terhubung ke internet. Alhasil, alokasi alamat yang dimiliki IPv4 sudah tidak mencukupi lagi. Karena itulah kita membutuhkan IP versi 6 yang memiliki lebih banyak alamat.

Kapan Alamat IPv4 akan Habis?
Tergantung area, tapi setidaknya 1 sampai 3 tahun lagi. Ribut-ribut kemarin lebih disebabkan APNIC (organisasi yang mengatur penggunaan IP di Asia Pasifik) telah meminta dua tambahan blok IP Address ke IANA (yang mengatur penggunaan IP sedunia). Permintaan tersebut menyebabkan blok IP Address yang tersisa tinggal 5 (satu blok memiliki 16,8 juta alamat). Sesuai peraturan, jika blok IP yang tersisa tinggal lima, maka harus langsung dibagi ke 5 pengurus IP di tiap benua. 
Seberapa lama IP Address itu akan habis tergantung laju penggunaan internet di benua tersebut. Benua dengan laju penggunaan internet cepat seperti Asia Pasifik atau Amerika Utara mungkin dapat menghabiskan blok yang tersisa dalam tempo 1 tahun. Namun bagi benua yang penetrasi internetnya sudah meluas seperti Eropa, atau yang penetrasi internetnya masih lambat seperti Afrika dan Amerika Latin, waktu yang tersisa bisa tahunan.

Jadi IPv4 benar-benar habis?
Sebenarnya masih ada beberapa blok di luar sana yang tidak terpakai. Bahkan menurut John Heideman, peneliti dari University of Southern California, penggunaan IPv4 sebenarnya hanya 14%. Namun agak sulit menarik kembali IP Address yang sudah terlanjur tersebar. Sumber permasalahannya terjadi awal perkembangan internet, ketika pembelian alamat IPv4 cuma terbagi dalam 3 pilihan blok: /8 (16,7 juta alamat), /16 (65 ribu alamat), dan /24 (256).  Bagi perusahaan atau universitas yang membutuhkan (misalnya) 67 ribu IP Address, mereka mendapatkan satu blok /8 sejumlah 16,7 juta alamat.
Beberapa pihak seperti Universitas Stanford atau Departemen Pertahanan AS telah dengan sukarela mengembalikan IP Address yang tidak mereka gunakan. Namun masih banyak pihak seperti MIT, IBM, Apple, AT&T, atau Ford Motor yang belum menentukan sikapnya. Pihak ARIN bisa saja meminta mereka mengembalikan jatah itu, namun mengingat populasi IPv4 yang kini terbatas, pemilik IPv4 tersebut bisa saja menjadikannya sebagai aset berharga. Bahkan belakangan tersembul kabar beberapa pihak yang masih memiliki blok IPv4 menjualnya dengan harga tinggi.

IPv6 bisa mengatasi keterbatasan alamat tersebut?
Iya, karena kapasitas pengalamatan ini naik dari 32-bit menjadi 128-bit (2128) atau tepatnya 340.282.366.920.938.463.463.374.607.431.768.211.456 alamat IP. Di masa datang alamat sebanyak itu mungkin juga akan habis, namun setidaknya situasi terkendali sampai ratusan tahun dari sekarang. 
Sistem pengalamatannya IPv6 sendiri menggunakan delapan kelompok kuartadesimal yang dipisahkan titik dua. Ini berbeda dengan sistem pengalamatan IPv4 yang menggunakan empat kelompok tridesimal. 
IPv4 192.168.0.1
IPv6 2001: cdba: 0000:0000:0000:0000:3257:9652

Wah, Beda Banget ya?
Iya. Secara nama beda, secara teknologi pun berbeda. Itulah mengapa kedua protokol ini tidak saling kompatibel. Komputer yang ber-IPv4 tidak dapat menemukan mail server ber-IPv6, begitu pula sebaliknya.
Namun bukan berarti internet akan macet. Paket yang dikemas dalam sistem IPv6 bisa dikemas ulang menjadi paket IPv4 sehingga komunikasi data tetap bisa terjadi. Namun cara ini tentu saja merepotkan dan boros sumber daya, sehingga berpotensi menurunkan kecepatan internet secara signifikan. Karena itu, cara terbaik adalah semua orang pindah ke IPv6. 
Oke, saya akan migrasi ke IPv6. Bagaimana caranya?
Untuk mengadopsi IPv6, dibutuhkan dukungan hardware maupun software. Di sisi end-product alias perangkat yang kita gunakan sehari-hari, relatif tidak ada masalah. Mayoritas kartu jaringan di dalam komputer, notebook, maupun smartphone masa kini telah mendukung IPv6. Begitu pula di sisi software. Windows sejak generasi XP Service Pack 1 sudah mendukung IPv6, begitu pula Mac OS X versi 10.2 dan semua distro Linux.
Akan tetapi, masalah mulai rumit ketika menyentuh perangkat akses internet, seperti modem Anda. Mayoritas modem yang diberikan penyedia jasa internet belum mendukung IPv6, sehingga harus diganti atau di-upgrade. Di sisi backbone, permasalahan lebih pelik lagi. Server, router, load-balancer, dan semua node harus diganti agar mendukung IPv6.
Jadi inti permasalahan bukan di sisi pengguna biasa, namun di sisi infrastruktur. Karena besarnya usaha dan investasi yang harus dikeluarkan, proses migrasi ini bisa berlangsung tahunan. 

Jadi, industri belum siap?
Siap tidak siap, kita harus pindah. Beberapa negara seperti Amerika Serikat, Kanada, Perancis, Jepang, China, dan Korea Selatan juga sudah melakukan beberapa kebijakan untuk mendorong percepatan migrasi IPv6. 
Dan pada tanggal 8 Juni 2011 besok, diadakan Hari IPv6 sedunia. Agenda besarnya adalah melakukan uji coba IPv6 selama 24 jam. Perusahaan yang ikut serta antara lain Google, Facebook, Yahoo, Akamai, dan Limelight Networks. Mudah-mudahan, langkah ini bisa mendorong industri untuk bermigrasi ke IPv6.

Situs Mencari Dan Mendownload Buku Gratis Di Internet

Mencari buku gratis di Internet

Mencari buku gratis di Inrternet,

Download gratis, Untuk Tesis, Desertasi atau Skripsi
untuk anda yang membutuhkan buku import yang mahal dan susah ditemui

Dari pada beli buku import yang harga-nya bisa mencapai 250.000,- hingga 500.000,- rupiah perbuku-nya, (biasanya terdapat di Gramedia group). Ada pilihan lain yang lebih murah dan hemat yaitu dengan cara anda mendownload atau mengcopy lembar-lembar buku yang anda ingin kan melalui download gratis buku-buku dalam bentuk PDF, pada situs-situs yang memang menyediakan dan memberikan fasilitas download gratis tersebut.

Seperti situs : Download buku gratis
Situs berbagi buku download gratis Download buku format PDF gratis

Meningkatkan Traffic Blog Dengan Cara Mudah

Ada beberapa Cara Mudah Meningkatkan Traffic Blog secara gratis salah satunya jadilah member di Fweb Traffic, menurut saya sih bagus , paling tidak ini dilihat dari sistem yang diterapkannya karena setiap member baru terpaksa harus berkunjung ke blog para member lama untuk mengambil kode yang diberikan. Sehingga designernya berani mempromosikan cara ini dengan 1 Milion Visitors Free and Real seperti tampak pada banner dibawah ini
Saya angkat 2 jempol untuk perancangnya.. Terbukti cara ini sekarang sedang banyak digandrungi.. dan tak ada salahnya untuk dicoba.. mumpung gratis, kalau dilihat peminatnya yang begitu banyak siapa tahu adminnya berubah pikiran jadi berbayar. .. Yoo .. kita sama-sama mencobanya :

Inilah Cara Mudah Meningkatkan Traffic Blog , langkahnya :

1. Silahkan click situsnya
Click here to get 1 Million Guaranteed Real Visitors, FREE!
2. Scroll terus kebawah sampai pada format Sign Up Now For Free , seperti ini :

3. Klik link yang ada disana secara berurutan dari 1 s/d 6 untuk mendapatkan
code ads nya , kemudian tunggu sebentar sampai kodenya muncul.

4. Jika kodenya sudah muncul, misalnya AD CODE #1: 61484 , nah kode yg 61484 di copy dan simpan di format berikutnya seperti form dibawah ini, awas harus sesuai jika kode untuk no.1 maka simpan juga di kotak code for ad 1, begitu seterusnya .



5. Sebelum diteruskan mumpung masih berada diblog pemberi kode tersebut. ada baiknya kita berkomentar disana sebagai info bahwa kita sudah ikutan sistem ini.
6. Setelah semua kode dimasukan , baru mengisi data yang diminta, seperti Nama, Email, Text untuk Iklan, Website Url dan password. Setelah itu baru klik SUBMIT ..
7. Buka email untuk verifikasi dan klik link yang diberikan.
8. Nanti akan ada kata2 Congratulations! kemudian klik here pada You can login to your new members area here.
9. Buka Email lagi untuk mengambil user id , password dan link url yang bisa digunakan untuk promosi dan login ke member area ( simpan user id dan passwordnya , karena nanti mungkin kita gunakan lagi)
10. Login ke member area lihat linknya sudah ada disana .. disini juga bisa merubah teks iklan , melihat down line serta mengambil kode marketing tools seperti code banner dan text link
11. Selanjutnya terserah anda… tinggal promosi saja , seperti pasang banner atau text link , karena semakin banyak yang daftar melalui link kita tentu semakin banyak pula visitornya kan gitu …
12. Akan lebih baik lagi jika anda juga membuat postingan tentang ini atau copas postingan ini tinggal ganti linknya saja
13. Selain cara ini bisa juga melalui link dahsyat berkualitas

14. Selamat mencoba.. Meningkatkan Traffic Blog Dengan Cara Muda. Semoga ada manfaatnya .. Amin

10 Website Penyedia Layanan Email



Bagi sobat yang sedang mencari website yang menyediakan layanan email gratis, saya memiliki beberapa referensi dan sobat dapat menemukan 10 Populer Website Penyedia Layanan Email Gratis di Blog ini. Gratis memang tidak ada habisnya, apapun bisa jadi gratis kalau sudah menyangkut internet, karena memang gratis itu banyak peminatnya, gratis bukan berarti murahan, karena 10 Populer Website Penyedia Layanan Email Gratis berikut termasuk layanan yang sangat bagus dan sudah terkenal di dunia internet.

10 Populer Website Penyedia Layanan Email Gratis
Berikut 10 Populer Website Penyedia Layanan Email Gratis yang bisa sobat pilih untuk menjadi email pribadi sobat:
  1. Gmail (http://mail.google.com)
  2. Ymail (http://mail.yahoo.com)
  3. Hotmail (http://www.hotmail.com)
  4. Inbox (http://www.inbox.com)
  5. Mail.com (http://www.mail.com)
  6. Gawab.com (http://www.gawab.com)
  7. TelkomNet (http://mail.telkom.net)
  8. Aim Mail (http://mail.aim.com)
  9. Aol Mail (http://mail.aol.com)
  10. MSN Mail (http://mail.msn.com)
Sebenarnya masih banyak lagi yang lainnya, silahkan mencoba-coba yang lainnya, kalau untuk saya, 10 Populer Website Penyedia Layanan Email Gratis diatas sudah sangat mencukupi, karena memang layanan terbaik yang mereka berikan.

Membuat Tampilan Command Prompt Menjadi Kaca / Glass Effect

Biasanya ketika kita membuka jendela command promp atau yang biasa kita sebut cmd jendela akan tampak berwarna hitam, tetapi jika anda ingin mengubah tampilan jendela cmd anda pada Windows Vista atau 7 anda bisa gunakan aplikasi atau alat pihak ketiga untuk mengubahnya menjadi tampilan glass mengikuti warna default dari tema yang anda gunakan.

 


Download Aero Cmd pada link berikut dan install :
http://www.deviantart.com/download/203370300/aerocmd_release_by_solo_dev-d3d2xj0.zip

Jika pada alat yang pertama tidak bekerja anda bisa gunakan alternative yang lain disini :
http://www.deviantart.com/download/203573871/aerocmd_alt_release_by_solo_dev-d3d7alr.zip

Situs Penyedia Wallpaper Lucu Dan Unik

Bila anda bekerja selama berjam-jam di depan komputer, browsing, check email dan pekerjaan lainnya tentunya akan membuat anda merasa lelah. Lelah yang berlebihan merupakan hal yang tidak baik karena akan membuat “bad mood” yang tentunya akan mengurangi efektifitas kerja anda.

Untuk mengembalikan mood anda yang hilang, mungkin anda memerlukan sedikit refreshing untuk menghilangkan penat dari kegiatan aktifitas yang mungkin sudah membosankan. Tetapi, hal tersebut tidak mungkin dilakukan karena jam kerja masih belum selesai. Untuk mengatasinya, anda mungkin bisa mengakalinya dengan sedikit refreshing di depan komputer.

Refreshing di depan komputer? Mungkinkah?
Salah satu cara refreshing di depan komputer yang bisa dilakukan adalah dengan melihat background layar monitor yang lucu dan unik yang akan membuat anda tersenyum dan bisa sedikit mengembalikan mood anda yang hilang.

Lalu, di mana saya bisa mendapatkan Wallpaper unik dan lucu?
Berikut kami berikan daftar website penyedia gambar/wallpaper yang lucu, unik dan menarik.

Funny Wallpaper by Get a Wallpaper

Pada website ini, ada beberapa gambar yang bisa dipilih. Mulai dari hewan, kartun, olahrga unik dan gambar yang lain.

Jika ingin melihat gambar lain, anda juga bisa memilihnya pada bagian kategori. Ada banyak kategori yang bisa dipilih, seperti music, Celebrities, Fantasy dan kategori menarik lainnya.

Website Penyedia Wallpaper, Gambar Lucu, Unik dan Menarik Image

Funny Wallpapers and Backgrounds by Desktop Nexus Entertainment

Pada website ini, ada lebih banyak gambar yagn bisa dipilih. Mulai dari animasi, kartun, tulisan dengan kata-kata unik dan gambar unik dan menarik lainnya.

Website Penyedia Wallpaper, Gambar Lucu, Unik dan Menarik Image

Funny wallpapers by Free desktop wallpapers download

Sama seperti pada situs sebelumnya, anda bisa memilih banyak gambar untuk dijadikan wallpaper. Ukuran resolusi gambar juga bisa dipilih, mulai dari ukuran 1024×768 pixel sampai ukuran 1920×1200 pixel.

Website Penyedia Wallpaper, Gambar Lucu, Unik dan Menarik Image

Funny Wallpapers by True Whisper

Pada situs ini, selain menyediakan gambar lucu dan unik, anda juga bisa memberikan rating dari gambar yang anda download. Anda bisa ikut berpartisipasi dengan memberikan skor antara 1-5 pada setiap gambar.

Website Penyedia Wallpaper, Gambar Lucu, Unik dan Menarik Image

Funny Wallpapers by Wallpaperist

Ada banyak gambar animasi dan hasil kreatifitas seorang designer yang bisa di-downlaod, mulai dari hewan, tulisan tangan sampai dengan keganjalan-keganjalan unik yang mungkin tidak pernah anda bayangkan sebelumnya.

Website Penyedia Wallpaper, Gambar Lucu, Unik dan Menarik Image

Funny Wallpapers by Wallpaper Library

Seperti namanya, website ini menyediakan banyak sekali gambar degan kategori yang berbeda. Mulai dari yang lucu,  fiksi dan beberapa kategori lain.

Website Penyedia Wallpaper, Gambar Lucu, Unik dan Menarik Image

Jika tak ingin direpotkan dengan download manual, menyimpannya di hardisk dan meletakkannya di background, anda dapat melakukan cara cepat dengan klik kanan pada gambar tersebut dan memilih Set As Desktop Background. Secara langsung, gambar tersebut akan menjadi wallpaper pada layar monitor anda.

Funny Desktop Wallpapers Gallery by 3 Gold

Buat pecinta kartun unik dan lucu, website ini dapat menjadi pilihan utama karena hampir semua gambar yang ada berbentuk kartun. Mulai dari donal bebek, duck win duck dan gambar kartun yang lain.

Website Penyedia Wallpaper, Gambar Lucu, Unik dan Menarik Image

Memang benar, wallpaper di layar monitor saja belum cukup untuk menghilangkan “bad mood” yang sedang anda alami. Tetapi, setidaknya anda punya hiburan kecil meskipun harus tetap berada di depan layar monitor dan meneruskan menyelesaikan pekerjaan yang menjadi tanggung jawab anda.



Banting Harga USB Modem di FKI 2011

Buat Anda yang tengah mencari modem jenis stick USB untuk mengaktifkan koneksi Internet lewat jaringan selular maka datang saja ke ajang FKI yang tengah berlangsung 8-12 Juni ini.
 
Berikut beberapa promo modem mungil dan pocket WiFi yang ditawarkan:

 
 
 
1. Setiap pembelian modem dari XL berkesempatan mendapatkan hadiah motor Honda Scoopy, voucher Rp 100.000, dan garansi resmi selama 3 tahun. Info lengkap bisa juga dilihat di http://xl.miodemberry.com
 - Pocket WiFi E5830 untuk sharing hingga 5 pengguna   Rp 949.000 + voucher Grupbon Rp 100.000
 - USB modem E153 kecepatan hingga 3,1Mbps  Rp 349.000
 
 
 
2. Program AHAvaganza menawarkan modem (unlock) EVDO 3,1Mbps + gratis Internet 30 hari (kuota 3GB) + garansi resmi 3 tahun. Info lebih lanjut di http://aha.modemberry.com
 - Modemberry EC1260-2  Rp 499.000
 - Modemberry pocket WiFi AC33  Rp 999.000
 - Modemberry CE210  Rp 488.000
 - Modemberry CE610  Rp 499.000
 
 
 
3. Vendor notebook Advan merilis modem yang terbundel dengan paket Telkomsel dengan tawaran gratis Internet unlimited selama 3 bulan tanpa harus isi ulang. Paket modem seharga Rp 300-ribuan juga mendapatkan kartu memori microSD.
 
 
 
 
4. Untuk pameran kali ini, Smartfren hadir dengan modem CDMA2000 EVDO Rev.A 800/1900MHz (RUIM) dengan feature SMS plus voice dan kompatibel untuk PC serta Mac.

Harga super modem AC682 yang lebih tipis ini Rp 299.000 dengan tawaran Internet unlimited 1 bula tanpa kuota.

Khusus bagi pelajar/mahasiswa/guru bisa mendapatkan modem ini seharga Rp 199.000 dengan menunjukkan kartu idntitas siswa atau guru.
 
 
 
5. Operator GSM 3 juga menampilkan bundling mereka yang cukup memikat:
 - Pocket WiFi Huawei E5830 + Starter Pack 1GB 3 bulan Rp 949.000
 - Modem Huawei E153 + Starter Pack TriMU + voucher Internet 1GB Rp 333.000
 - Modem Movi Max D200 + Starter Pack 1GB 3 bulan  Rp 325.000
 - Modem Nokia + Starter Pack 500MB 3 bulan  Rp 555.000
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Rabu, 08 Juni 2011

Coding Visual Basic Bagan Tempat Duduk Pesawat Terbang

Public Class Tempat duduk pesawat terbang
Dim item As Integer
Public baris As Integer, bangku, kodebangku As Char
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LstTempatDuduk.Items.Add(" A B C" & vbTab & "D E F")
For Me.item = 1 To 15
LstTempatDuduk.Items.Add("" & Space(4) & "." & Space(4) & "." & Space(4) & "." & Space(14) & "." & Space(4) & "." & Space(4) & ".")
Next
lblterisi.Text = "0"
lblkosong.Text = "90"
lblreg.Text = "0"
lblrdkal.Text = "0"
lblveg.Text = "0"
End Sub
Private Sub LstTempatDuduk_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LstTempatDuduk.Click
If LstTempatDuduk.SelectedIndex = 0 Then
TxtBaris.Clear()
TxtA.Clear()
TxtC.Clear()
TxtD.Clear()
TxtE.Clear()
TxtF.Clear()
Exit Sub
End If
baris = LstTempatDuduk.SelectedIndex.ToString
TxtBaris.Text = baris
TxtA.Text = GetChar(LstTempatDuduk.SelectedItem, 5)
TxtB.Text = GetChar(LstTempatDuduk.SelectedItem, 10)
TxtC.Text = GetChar(LstTempatDuduk.SelectedItem, 15)
TxtD.Text = GetChar(LstTempatDuduk.SelectedItem, 30)
TxtE.Text = GetChar(LstTempatDuduk.SelectedItem, 35)
TxtF.Text = GetChar(LstTempatDuduk.SelectedItem, 40)
End Sub
Private Sub TxtA_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtA.Click
If TxtA.Text = "" Then Exit Sub
bangku = "A"
kodebangku = TxtA.Text
Form2.Show()
End Sub


Private Sub TxtB_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtB.Click
If TxtB.Text = "" Then Exit Sub
bangku = "B"
kodebangku = TxtB.Text
Form2.Show()
End Sub

Private Sub TxtC_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtC.Click
If TxtC.Text = "" Then Exit Sub
bangku = "C"
kodebangku = TxtC.Text
Form2.Show()
End Sub
Private Sub TxtD_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtD.Click
If TxtD.Text = "" Then Exit Sub
bangku = "D"
kodebangku = TxtD.Text
Form2.Show()
End Sub
Private Sub TxtE_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtE.Click
If TxtE.Text = "" Then Exit Sub
bangku = "E"
kodebangku = TxtE.Text
Form2.Show()
End Sub
Private Sub TxtF_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtF.Click
If TxtF.Text = "" Then Exit Sub
bangku = "F"
kodebangku = TxtF.Text
Form2.Show()
End Sub
End Class

Public Class Form2
Dim bkntmptduduk, baris As Integer
Dim brstmptduduk As String
Dim terisi, jlhR, jlhL, jlhV As Integer
Dim kosong As Integer = 0
Sub hitung()
Dim no As Integer, huruf As Char, bangku As String
With Form1
For Me.baris = 1 To 15
.LstTempatDuduk.SetSelected(baris, True)
bangku = .LstTempatDuduk.SelectedItem
For no = 1 To 40
huruf = bangku.Substring(no - 1, 1)
Select Case huruf
Case "." : kosong += 1
Case "R" : jlhR += 1
Case "L" : jlhL += 1
Case "V" : jlhV += 1
End Select
Next
Next
.lblkosong.Text = kosong
.lblterisi.Text = 90 - kosong
.lblreg.Text = jlhR
.lblrdkal.Text = jlhL
.lblveg.Text = jlhV
.LstTempatDuduk.SetSelected(0, True)
End With
End Sub

Sub kosongkan()
With Form1
.TxtBaris.Clear()
.TxtA.Clear()
.TxtB.Clear()
.TxtC.Clear()
.TxtD.Clear()
.TxtE.Clear()
.TxtD.Clear()
.TxtF.Clear()
End With
End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = "Posisi Tempat Duduk" & Space(4) & Form1.baris & Form1.bangku
Select Case Form1.bangku
Case "A" : bkntmptduduk = 5
Case "B" : bkntmptduduk = 10
Case "C" : bkntmptduduk = 15
Case "D" : bkntmptduduk = 30
Case "E" : bkntmptduduk = 35
Case "F" : bkntmptduduk = 40
End Select
Select Case Form1.kodebangku
Case "." : RdbBel.Checked = True
Case "R" : RdbReg.Checked = True
Case "L" : RdbRen.Checked = True
Case "V" : RdbVeg.Checked = True
End Select
End Sub

Private Sub RdbReg_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RdbReg.MouseClick
brstmptduduk = Microsoft.VisualBasic.Left(Form1.LstTempatDuduk.SelectedItem, bkntmptduduk - 1) & Replace(Form1.LstTempatDuduk.SelectedItem, Form1.kodebangku, "R", bkntmptduduk, 1) & ""
Form1.LstTempatDuduk.Items.RemoveAt(Form1.baris)
Form1.LstTempatDuduk.Items.Insert(Form1.baris, brstmptduduk)
Call kosongkan()
Me.Close()
Call hitung()
End Sub

Private Sub RdbBel_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RdbBel.MouseClick
brstmptduduk = Microsoft.VisualBasic.Left(Form1.LstTempatDuduk.SelectedItem, bkntmptduduk - 1) & Replace(Form1.LstTempatDuduk.SelectedItem, Form1.kodebangku, ".", bkntmptduduk, 1) & ""
Form1.LstTempatDuduk.Items.RemoveAt(Form1.baris)
Form1.LstTempatDuduk.Items.Insert(Form1.baris, brstmptduduk)
Call kosongkan()
Me.Close()
Call hitung()
End Sub

Private Sub RdbRen_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RdbRen.MouseClick
brstmptduduk = Microsoft.VisualBasic.Left(Form1.LstTempatDuduk.SelectedItem, bkntmptduduk - 1) & Replace(Form1.LstTempatDuduk.SelectedItem, Form1.kodebangku, "L", bkntmptduduk, 1) & ""
Form1.LstTempatDuduk.Items.RemoveAt(Form1.baris)
Form1.LstTempatDuduk.Items.Insert(Form1.baris, brstmptduduk)
Call kosongkan()
Me.Close()
Call hitung()
End Sub

Private Sub RdbVeg_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RdbVeg.CheckedChanged

End Sub
Private Sub RdbVeg_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RdbVeg.MouseClick
brstmptduduk = Microsoft.VisualBasic.Left(Form1.LstTempatDuduk.SelectedItem, bkntmptduduk - 1) & Replace(Form1.LstTempatDuduk.SelectedItem, Form1.kodebangku, "V", bkntmptduduk, 1) & ""
Form1.LstTempatDuduk.Items.RemoveAt(Form1.baris)
Form1.LstTempatDuduk.Items.Insert(Form1.baris, brstmptduduk)
Call kosongkan()
Me.Close()
Call hitung()
End Sub
End Class

Kamus Bahasa Inggris

Saat ini sudah ada software kamus Ingris-Indonesia atau sebaliknya, bahkan kamus Besar Bahasa Indonesia juga sudah ada softwarenya, sehingga bagi pelajar yang sudah terbiasa menggunakan komputer ketika mengalami kesulitan atau tidak memahami arti sebuah kata tidak perlu repot buka-buka kamus, cukup klik icon kamus ketik kata yang tidak dimengerti, klik find/cari beres dah....Bagi yang berminat menggunakan software kamus silahkan Unduh di link dibawah ini


Kamus Bahasa Ingris - Indonesia, Indonesia - Inggris : 
Unduh
Kamus Besar Bahasa Indonesia (KBBI) offline : 
Unduh

Senin, 06 Juni 2011

Fungsi Jari Dalam Pengetikan 10 Jari



Ketika ingin mengetik suatu dokumen yang diharapkan selesai dalam waktu singkat, sementara jari jari kita belum terlatih untuk mengetik, kita akan menemui kesulitan dalam membuat dokumen tersebut. Untuk mengatasi kesulitan tersebut, sebaiknya kita mempelajari ilmu mengatik Sistem 10 Jari yang sangat vital bagi pengguna komputer.

Agar dapat mengetik dengan baik dan benar, sebaiknya sejak dini siswa dikenalkan dengan teknik mengetik 10 jari. Didalam mengetik sistem 10 Jari, kepada siswa juga diberikan latihan mengetik dengan posisi badan yang benar. Oleh karena itu, perlu ditanamkan agar siswa tidak menggunakan jari secara sembaranganm tetapi terarah menurut sistem mengetik 10 jari dan juga program pengenalan Keyboard, Hal ini bertujuan agar siswa tidak bingung dan ragu saat menggunakan jari untuk mengetik suatu naskah atau Dokumen karena mereka telah mengetahui posisi dan cara mengetik suatu karakater atau angka atau huruf besar dengan benar.