SINAU Neng SMANSA

Kali ini aku postingkan latihan dengan visual basic. kita akan buat suatu permainan dengan menggunakan Visual Basic 6.0 ( yah bisa disebut ni dengan rolet atau pa lah).

Langkah - langkah dalam membuatnya:

1. Yah pertama - tama kita harus punya atau memnginsntall programnya tentunya.( kalo gak punya cari ya ).

2. Selanjutnya kita buka ms. Visual Basic, lalu kita pilih new standart.exe, lalu open.

3. Setelah itu kita gunakan komponennya natara lain timer, label, command dan picture box. Ini dapat ditambahkan atau tidak.

Kalo mau melihat hasilnya atau tampilanya ada disini

4. Untuk labal kita membutuhkan 3 label angka dan 1 label keterangan. Contohnya kita ketikan namanya lnlAngka1, dan untuk keterangannya kita ketikana namanya dengan lblKet. Untuk timernya kita kasih interval 1, kalo kita ingin menambahkan piture kita ketikan picUang, dan yang terakhir kita membutuhkan command button 2, Kita ubah namanya menjadi "cmdPutar" dengan caption "&Putar" dan satunya kita beri nama "cmdKeluar" dengan caption "&Keluar".

5. Setelah itu kita ketikan source koe sebagai berikut :

Private Sub cmdKeluar_Click()
End
End Sub

Private Sub cmdPutar_Click()
picUang.Visible = False
If cmdPutar.Caption = "&Putar" Then
tmrPutar.Enabled = True
cmdPutar.Caption = "&Stop"
ElseIf cmdPutar.Caption = "&Stop" Then
tmrPutar.Enabled = False
If lblAngka1.Caption = 9 Or lblAngka2.Caption = 9 Or lblAngka3.Caption = 9 Then picUang.Visible = True
lblKet.Caption = "Anda Menang"
Else
lblKet.Caption = "Anda Kalah"
End If
cmdPutar.Caption = "&Putar"
End If
End Sub

Private Sub Form_Load()
Randomize
tmrPutar.Enabled = False
End Sub

Private Sub lblAngka3_Click()

End Sub

Private Sub tmrPutar_Timer()
lblAngka1.Caption = Int(Rnd * 10)
lblAngka2.Caption = Int(Rnd * 10)
lblAngka3.Caption = Int(Rnd * 10)
End Sub

6. Setelah itu kita simpan dan dibuat sebagai standart exe.

semoga berhasil