VB

Dibuat oleh : Z
Kemarin kita sudah membahas if bersarang atau yang lebih populer if dalam if hari ini kita akan membahasa select case. Select case adalah salah satu bentuk pilihan yang cukup unik, daripada bingung mending buruan deh bikin form seperti dibawah ini

kalau sudah coba klik di form yah lalu isi deh coding sebagai berikut
Private Sub Form_Load()
Randomize 'Acak angka
a = Int(Rnd * 10) 'Isi a dengan angka yang telah diacak maxnya angka 10
End Sub
terus klik deh command butonnya isi dengan koding seperti dibawah ini
Private Sub Command1_Click()
Select Case a
Case 1
MsgBox "Nilai = 1"
Case 2
MsgBox "Nilai = 2"
Case 3
MsgBox "Nilai = 3"
Case 4
MsgBox "Nilai = 4"
Case 5
MsgBox "Nilai = 5"
Case 6
MsgBox "Nilai = 6"
Case 7
MsgBox "Nilai = 7"
Case 8
MsgBox "Nilai = 8"
Case 9
MsgBox "Nilai = 9"
Case 10
MsgBox "Nilai = 10"
End Select
End Sub
minggu depan kita akan melanjutkan dengan hal yang baru. O ya saya dapat masukan dari pemilik blog ini agar tidak terlalu lama mengulang logika perograman. Menurut beliau pembahasan logika membuat kita sangat lambat mencapai tujuan yaitu membuat sesuatu yang bisa dipakai didunia kerja.Maka saya putuskan tidak akan mengajarkan lagi hal-hal yang berbau dengan logika seperti if,for dan lain-lain yang berhubungan dengan logika.Maka minggu depan kita langsung meloncat kepada database sesuai dengan rekomendasi pemilik blog ini.Bagi temen-temen yang ingin melatih logika pemrogramnnya dengan vb dapat membeli buku step by step visual basic 6. Buku ini sudah diterjemahkan kedalam bahasa indonesia tanpa mengurangi isinya.Jadi Selamat Datang Dunia Database Visual Basic 6