Kamis, 03 Maret 2011

Buat Game Perkalian sederhana dengan VB 6


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.
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.




7 komentar:

  1. Kalau yang mau aku buat game selain perkalian gimana caranya ?

    BalasHapus
  2. gan kalo mau ganti soalnya begimana?

    BalasHapus
  3. Buat teman X Sciper'S, terima kasih ya buat kunjungannya.Sebenarnya untuk ganti soalnya sangat mudah, coba perhatikan bagian kode di bawah ini :

    angka2.Caption = Int(Rnd * 10)
    angka1.Caption = Int(Rnd * 10)

    Karena yang aku pakai adalah prinsip random/ acak maka kalau nilai di atas adalah 10 maka angka-angka yang akan ditampilkan dalam game ini secara acak adalah 0 - 9. Jika teman inginkan perkalian yang lebih sederhana berarti ubah angka 10 menjadi angka yang lebih kecil dari 10 begitu juga sebaliknya jika ingin perkalian lebih sulit berarti harus lebih besar dari 10.

    BalasHapus
  4. Buat teman Anonim ... he he he yang ternyata tetanggaku, untuk buat game selain perkalian sebenarnya tidak banyak yang perlu diubah kodenya, hanya operator aritmatikanya saja dik yang diubah seperti ini:

    * untuk perkalian
    - untuk kurang
    / untuk bagi
    ^ untuk pangkat

    Selamat mencoba ya ^_^

    BalasHapus
  5. gan,game nya dah q coba,trus q coba rubah ni ke pengurangan n penjumlahan tapi kok ga bisa ya?apa yg salah ya?
    trus jika hasil pengurangan ada minusnya tu bisa ga?
    makasih sebelumnya...

    BalasHapus
  6. Sblmnya terima kasih ya buat mbak yani yg sdh berkunjung ke blog ini ^_^ ... langsung aja ya ...
    1. Untuk pengurangan
    Coba cari kode sperti di bwh ini :

    If txtHasil.Text = Val(angka2.Caption * angka1.Caption) Then

    Kalau sdh ketemu, ubah kodenya menjadi seperti di bwh ini:

    If txtHasil.Text = Val(angka1.Caption - angka2.Caption) Then

    Yang berubah adlh tanda operatornya & posisi angka1.Caption menjadi di depan. Jika sdh diubah dgn benar maka walaupun nanti ada hasil pengurangan yg minus pasti bisa.

    2. Untuk penjumlahan
    Kode yg dimodifikasi masih sama seperti di atas, yaitu :

    If txtHasil.Text = Val(angka2.Caption * angka1.Caption) Then

    Kita modifikasi kodenya menjadi :

    If txtHasil.Text = Val(angka2.Caption) + Val(angka1.Caption) Then

    Utk posisi angka2.Caption & angka1.Caption tdk berpengaruh pd penjumlahan.

    Baiklah kira-kira itu sdkt penjelasan dr aku, mudah-mudahan bisa bermanfaat ya ^_^

    BalasHapus
  7. terima kasih sangat membantu sayaa sebagai pemula 😊 maaf kak kalau buat pembagian nya gmn ya?

    BalasHapus