TUTORIAL VISUAL BASIC 6.0 | Game Perkalian Sederhana

Haiii guys.. lama banget ga nulis lagi yah.
Ok!, kali ini saya ingin membuat tutorial Cara Membuat Game Perkalian Sederhana menggunakan Visual Basic 6.0😁😁
yah,, sesuai namanya aplikasi ini sangatlah mudah dibuat untuk pemula.

Sebelum itu, saya akan memberikan sedikit pengertian tentang "Visual Basic 6.0" (ini gua dapat dari blog sebelah heheh)

Visual Basic merupakan sebuah bahasa pemrograman yang menawarkan Integrated Development Environment (IDE) visual untuk membuat program perangkat lunak/ aplikasi berbasis sistem operasi Microsoft Windows yang berbasis GUI (Grapical User Interface).

Beberapa kemampuan atau manfaat dari Visual Basic, diantaranya:

1. Untuk membuat program aplikasi berbasi Windows.
2. Untuk membuat ActiveX, Aplikasi Internet dan lain sebagainya.
3. Menguji program (debungging) dan menghasilkan program akhir berakhiran EXE yang bersifat executable atau dapat langsung dijalankan.

nah itulah pengertiannya, semoga aja dimengerti yah, kalo engga, yah dimenger2in aja^^.

lanjut, ke TUTORIALNYA yahh.. cussssss

TUTORIAL GAME PERKALIAN SEDERHANA || VISUAL BASIC 6.0

Tentunya dengan program game perkalian ini,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:

Kontrol/Form	Properties	Setting
Label1	BackStyle	0-Transparent
Label2	Caption BackStyle	X 0-Transparent
Label4	Caption BackStyle	= 0-Transparent
Label3 Label 5	BackStyle Backstyle	0-Transparent 0-Transparent
Text1	Text	Kosongkan
Command1	Caption	Periksa
Caommand2	Caption	Berikut
Command3	Caption	Keluar

3. Setelah diatur, tampilannya kurang lebih seperti ini :

4. Setelah itu "klik 2x pada Form 1, kemudian hapus semua teks yang ada.

5. Masukkan koding di bawah ini :

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

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. Ini contoh gambar yang saya pakai :

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:

8. Berikut tampilan ketika program telah dijalankan :

9. Untuk membuat aplikasinya, klik File > Make Project

10. Done, semoga berhasil

Untuk lebih jelasnya, KLIK LINK dibawah ini untuk video tutorial Game Perkalian Sederhana | VB 6.0 :

Video Tutorial Game Perkalian Sederhana || Visual Basic 6.0