Aplikasi sederhana

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: