Kalau postingan aku beberapa waktu lalu adalah tentang kegunaan dari game perkalian sederhana ini, maka saat ini aku akan bagikan sedikit tips tentang bagaimana caranya membuat Game Perkalian sederhana tersebut.
Tentunya dengan program yang anda buat bisa bermanfaat bagi murid-murid SD yang sedang belajar tentang perkalian.
Tentunya dengan program yang anda buat bisa bermanfaat bagi murid-murid SD yang sedang belajar tentang perkalian.
Berikut ini adalah langkah-langkah kerjanya :
1. 1. Buka program VB 6 dan pilih standart.EXE.
2. 2. Atur Form dan kontrol-kontrolnya seperti di bawah ini:
1. 3. Atur kontrolnya sebagai berikut :
Kontrol/Form | Propersties | Setting |
Form1 | Caption Icon MaxButton Picture StartUpPosition | Game Perkalian sederhana (Pilih Icon anda) False (Pilih gambar anda) 2-CenterScreen |
Label1 | Name BackStyle Caption | angka1 0-Transparent 4 |
Label2 | Caption BackStyle | X 0-Transparent |
Label4 | Caption BackStyle | = 0-Transparent |
Label3 | Name BackStyle Caption | angka2 0-Transparent 4 |
Text1 | Name Text | txtHasil - |
Image1 | Name | Gambar1 |
Command1 | Name Caption | cmdPeriksa Periksa |
Caommand2 | Name Caption | cmdBerikut Berikut |
Command3 | Name Caption | cmdKeluar Keluar |
1. 4. Setelah di atur, tampilannya seperti ini :
Untuk gambar background dan icon disesuaikan dengan pilihan anda.
1. 5. Buka jendela kode dan masukkan kode di bawah ini :
Dim n As Integer
Dim t As Integer
Private Sub cmdBerikut_Click()
If CmdBerikut.Caption = "Hasil" Then
MsgBox "nilai anda adalah " & t & " dari " & "10", , "Perkalian"
CmdPeriksa.Enabled = True
CmdPeriksa.Caption = "Ulangi"
Exit Sub
End If
Gambar1.Visible = False
CmdPeriksa.Enabled = True
CmdBerikut.Enabled = False
txtHasil.Text = ""
txtHasil.SetFocus
n = n + 1
angka2.Caption = Int(Rnd * 10)
angka1.Caption = Int(Rnd * 10)
If n = 10 Then
CmdBerikut.Caption = "Hasil"
End If
End Sub
Private Sub cmdPeriksa_Click()
If CmdPeriksa.Caption = "Ulangi" Then
returnq
txtHasil.SetFocus
Exit Sub
End If
If txtHasil.Text = "" Or IsNumeric(txtHasil.Text) = False Then
MsgBox "Jangan lupa masukkan jawabanmu", , "Perkalian"
txtHasil.SetFocus
Exit Sub
End If
Gambar1.Visible = True
CmdBerikut.Enabled = True
CmdPeriksa.Enabled = False
If txtHasil.Text = Val(angka2.Caption * angka1.Caption) Then
Gambar1.Picture = LoadPicture(App.Path & "\benar.gif")
t = t + 1
Else
Gambar1.Picture = LoadPicture(App.Path & "\salah.gif")
End If
End Sub
Private Sub Form_Load()
returnq
End Sub
Private Sub returnq()
txtHasil.Text = ""
CmdBerikut.Caption = "Berikut"
CmdPeriksa.Caption = "Periksa"
CmdPeriksa.Enabled = True
CmdBerikut.Enabled = False
angka2.Caption = Int(Rnd * 10)
angka1.Caption = Int(Rnd * 10)
t = 0
n = 1
Gambar1.Visible = True
End Sub
Private Sub cmdKeluar_Click()
End
End Sub
2. 6. Sampai di sini programnya belum benar-benar selesai karena perlu disiapkan lagi 2 buah gambar berekstensi gif sebagai gambar yang nanti akan ditampilkan jika pilihannya benar atau salah. Coba anda perhatikan kode di atas, di sana ada kode yang dimaksudkan untuk menampilkan gambar benar.gif dan salah.gif yang ada di folder yang sama dengan program yang anda buat. Berikut ini adalah contoh gambar yang aku buat:
7. Nah setelah gambarnya anda siapkan, silahkan beri nama benar.gif dan salah.gif kemudian masukkan di satu folder yang sama dengan program ini. Berikut contohnya kalau di komputerku:
1. 8. Berikut tampilan programnya waktu aku memasukkan jawaban yang benar:
1. 9. Nah sampai di sini program yang kita buat sudah selesai. Aku berharap dengan tutorial sederhana ini dapat bermanfaat untuk anda. Kalau ada saran, masukkan atau pertanyaan dari teman – teman silahkan diberikan tetapi kalau tidak ada karena tidak sempat atau tidak perlu ya tidak mengapa karena tujuan aku membuat blog ini hanya untuk berbagi dan belajar bersama-sama dengan anda. Terima kasih ya mau mampir di blog sederhana ini ya .... ^_^
2. 10. Terakhir buat teman-teman yang tertarik untuk mempelajari source code lengkapnya bisa di download di sini.
