Game sederhana pada program visual basic
Maksud dari list program berikut adalah:
Private
Sub Command1_Click()
è
Merupakan
tempat untuk membuat listing sesuai yang diinginkan oleh programmer
a = Int(Rnd
* 10)
è
maksudnya,
variabel a didefinisikan sebagai integer yang kemudian dirandom atau diacak
sebanyak 10 angka
Text1.Text
= a
è
maksudnya
adalah isi dari kolom text1 adalah variabel a
Text2.SetFocus
è
maksudnya,
isi dari text2 tidak diinput, tetapi akan focus pada random dari variable a
If
Text2.Text = Text1.Text Then
Label1.Caption
= "tebakan anda benar"
MsgBox "jackpot", vbOKOnly +
vbInformation, "Hasil"
è
maksudnya,
jika isi dari text2 itu sama dengan text1, maka label1 akan mencetak kalimat
tang sudah ditentukan didalam tanda kutip. Kemudian akan muncul message box
atau kotak pesan dengan titlenya Hasil dan dibawahnya terdapat tulisan jackpot
dan terdapat satu button, yaitu ok.
Else:
Label1.Caption
= "anda salah coba lagi"
MsgBox "try again", vbExclamation,
"hasil"
è
maksudya,
jika isi dari text2 tidaksama dengan text1, maka label 1 juga akan menampilkan
kalimat yang sudah ditentukan didalam tanda kutip. Kemudian muncul message box
atau kotak pesan yang titlenya adalah hasil, terdapat pula tulisan try again
dibawahnya dan ada tombol button.
End If
è
merupakan
program untuk mengakhiri percabangan if. Jika tidak terdapat program ini, sudah
dipastikan program tidak akan berjalanatau eror
End Sub
è
merupakan
akkhir dari listing program command1
Private
Sub Command2_Click()
è
merupakan
isi listing program dari command2
End
è
listing
ini bermaksud untuk mengakhiri program yang sedang berjalan
End Sub
è
merupakan
akkhir dari listing program command2
Private
Sub Command3_Click()
è
merupakan
isi listing program dari command3
Text1.Text
= ""
è
pada
command3, isi dari text1 akan dikosongkan atau dihapus
Text2.Text
= ""
è
pada
command3, isi dari text2 akan dikosongkan atau dihapus
End Sub
è
merupakan
akkhir dari listing program command3
Private
Sub Form_Load()
è
merupakan
isi listing program dari form1
Label2.Caption
= "masukkan angka 0 - 9"
è
pada
label2, captionnya akan diubah menjadi kata yang terdapat dalam tanda kutip
Text1.Text
= ""
è
maksudnya,
isi dari text1 akandikosongkan pada saat program dijalankan
Text2.Text
= ""
è
maksudnya,
isi dari text2 akandikosongkan pada saat program dijalankan
Command1.Caption
= "Enter"
è
command1,
captionnya akan diubah dengan kalimat atau kata yang terdapat didalam tada
kutip dan akan muncul saat program dijalankan
Command2.Caption
= "Exit"
è
command2,
captionnya akan diubah dengan kalimat atau kata yang terdapat didalam tada
kutip dan akan muncul saat program dijalankan
Command3.Caption
= "clear"
è
command3,
captionnya akan diubah dengan kalimat atau kata yang terdapat didalam tada
kutip dan akan muncul saat program dijalankan
End Sub
è
merupakan
akkhir dari listing program pada form1
Private
Sub Timer1_Timer()
è
merupakan
isi listing program dari timer1
Label1.ForeColor
= QBColor((Rnd) * 15)
è
label1
akan diberiwarna atau forecolor yang dirandom sebanyak 15 kali
Label1.BackColor
= QBColor((Rnd) * 15)
è
label1
akan diberiwarna atau backcolor yang dirandom sebanyak 15 kali
End Sub
Hasil / output dari program tersebut adalah:
