Cara Membuat Game Tebak Angka Perkalian Matematika dengan Visual Basic 6.0 - Beberapa menit yang lalu Saya baru saja memberikan tip bagaimana cara membuat Stopwatch dan pada malam ini saya akan lanjutkan memberikan tip yang kedua yaitu cara membuat game tebak angka dengan VB6.
Siapa yang kenal yang namanya Game yaitu sebuah permainan yang menamapilkan gambar atau atau teks dan sejenisnya yang berupa tantangan atau tebakan agar dapat di mainkan dengan tujuan mencari kemenangan.Banyak bermacam-macam game terutama dari segi platform yaitu Game PC, Console dam Mobile.
Pada permainan kali ini kita kan membuat Geme jenis PC yang sangat sederhana yaitu berupa game tebak angka yang kita akan buat di program kesayangan kita yaitu visual basic. Game ini cara memainkannya sangat mudah yaitu Anda cukup menebak angka dari hasil perkalian yang di munculkan secara acak oleh komputer dengan cara mengisi kotak kosong lalu tekan tombol Periksa maka komputer akan menjawabnya.Sebenarnya Game ini diperuntukan untuk anak-anak usia dini untuk memhami tentang perkalian matematika.
Bagi Anda yang penasaran cara membuatnya mari kita simak langkah-langkah berikut dibawah ini:
Cara membuat Game Tebak Angka di VB6 :
1. Buka Form Standar VB6 Anda
2. Tanamkan: 5 Label, 1 TextBox, 1 Image dan 3 Commandbutton
3. Atur masing-masing properti dibawah ini:
Label2 Captionnya: X
Label4 Captionnya: "="
Label 1, 3 dan 5 biarkan saja,
Commandbutton1 Captionnya:"Periksa"
Commandbutton2 Captionnya:"Berikut"
Commandbutton3 Captionnya:"Keluar", lihat seperti gambar dibawah ini :
 |
| Desain Form |
3. Lalu buka jendela kode apabila ada kode yang lain di jendela kode hapus saja hingga kosong dan copy-paste kode berikut bagian General-Declaration :
Dim n As Integer
Dim t As Integer
Private Sub Command1_Click()
If Command1.Caption = "Ulangi" Then
returnq
Text1.SetFocus
Image1.Visible = False
Exit Sub
End If
If Text1.Text = "" Or IsNumeric(Text1.Text) = False Then
MsgBox "Priksa Angka inputan Anda", vbOKOnly, "Kesalahan"
Text1.Text = ""
Text1.SetFocus
Exit Sub
End If
Image1.Visible = True
Command2.Enabled = True
Command1.Enabled = False
If Text1.Text = Val(Label1.Caption) * (Label3.Caption) Then
Image1.Picture = LoadPicture(App.Path & "\benar.gif")
t = t + 1
Label5.Caption = t
Label5.Caption = "Jumlah Tebakan yang BENAR: " + Label5 + " dari 10 Kali Perkalian"
Else
Image1.Picture = LoadPicture(App.Path & "\salah.gif")
End If
End Sub
Private Sub Command2_Click()
If Command2.Caption = "Hasil" Then
MsgBox "Nilai Anda adalah " & t & " dari " & "10", vbOKOnly, "Perkalian"
Command1.Enabled = True
Command1.Caption = "Ulangi"
Exit Sub
End If
Image1.Visible = False
Command1.Enabled = True
Command2.Enabled = False
Text1.Text = ""
Text1.SetFocus
n = n + 1
Label1.Caption = Int(Rnd * 10)
Label3.Caption = Int(Rnd * 10)
If n = 10 Then
Command2.Caption = "Hasil"
End If
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
returnq
Label5.Caption = "SELAMAT BERMAIN"
End Sub
Private Sub returnq()
Text1.Text = ""
Command1.Caption = "Periksa"
Command2.Caption = "Berikut"
Command1.Enabled = True
Command2.Enabled = False
Label1.Caption = Int(Rnd * 10)
Label3.Caption = Int(Rnd * 10)
t = 0
n = 1
Image1.Visible = True
End Sub
4.Simpan hasil pekerjaan Anda dan jalan program dengan F5
Catatan :
-Untuk kode yang bercetak tebal tempatkan image Anda satu Folder dengan project ini
-Gunakan Image Anda sendiri buatlah di photoshop sesuai selera Anda
Demikian tip Cara Membuat Game Tebak Angka Perkalian Matematika dengan Visual Basic 6.0. Selamat mencoba, semoga berhasil....!!!
No comments:
Post a Comment