Membuat Operasi Penjumlahan Matematika Versi Game di VB6 - Kali ini Saya ingin membuat sebuah aplikasi perhitungan matematika dasar yang di kombinasikan dengan model pembuatan Game dengan beberapa level.
Disini kita diperintahkan untuk menjumlahkan bilangan yang sudah disediakan secara otomatis dengan benar, apabila Anda Salah maka akan muncul pesan "Salah" dan sebaliknya apabila Anda benar maka akan muncul pesan "Benar".Jika Anda sudah merasa cukup pintar untuk mengerjakannya, Anda bisa berpindah ke level berikutnya yang angka penjumlahannya lebih besar.
Aplikasi Game ini sebenarnya di buat untuk pembelajaran bagi Pendidikan Usia Dini (PAUD).
Bagi Anda yang penasaran bagaimana proses pembuatannya ikuti langkah-langkah berikut dibawah ini :
Membuat Operasi Penjumlahan Matematika Versi Game di VB6
1. Buka form VB6 Anda
2. Tanamkan komponen-komponen berikut dibawah ini di Form :
Tiga (3) OptionButton :
OptionButton1 Caption: Level1
OptionButton2 Caption: Level2
OptionButton3 Caption: Level3
Empat (4) Commandbutton :
Commandbutton1 Caption: OK
Commandbutton2 Caption: Star
Commandbutton3 Caption: Next
Commandbutton4 Caption: End
Empat(4) Label :
Label1 Caption: Benar
Label2 Caption: Salah
Label3 Caption: kosongkan
Label4 Caption: TOTAL BENAR
Tiga (3) Textbox :
Text1.Text: kosongkan
Text2.Text: kosongkan
Text3.Text: kosongkan
3. Yang terakhir buatlah garis dengan Kontrol Line sebagai pemisah dan simbol plus (tambah).
4. Desainlah seperti gambar dibawah ini:
 |
| Desain Form |
5. Ketik kode berikut dibawah ini di jendela kode:
Dim num1 As Integer
Dim num2 As Integer
Dim intNumber As Integer
Private Sub score()
intNumber = intNumber + 1
End Sub
Private Sub begin()
intNumber = 0
Label1.Visible = False
Label2.Visible = False
Text3.Text = ""
If Option1.Value = "true" Then
N = 10
ElseIf Option2.Value = "true" Then
N = 100
ElseIf Option3.Value = "true" Then
N = 1000
End If
Randomize Timer
num1 = Int(Rnd * N)
num2 = Int(Rnd * N)
Text1.Text = num1
Text2.Text = num2
Text3.SetFocus
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
Private Sub Form_Load()
Label1.Visible = False
Label2.Visible = False
Command1.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Label3.Caption = ""
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub command2_Click()
begin
Command2.Enabled = False
Command1.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
End Sub
Private Sub Image2_Click()
End Sub
Private Sub text3_keyDown(keyCode As Integer, shift As Integer)
If keyCode = vbKeyNext Or keyCode = vbKeyDown Then
begin
End If
End Sub
Private Sub text3_keypress(keyAscii As Integer)
If (keyAscii = 13) And Val(Text3.Text) = Val(Text1.Text) + Val(Text2.Text) Then
Image1.Visible = True
Image2.Visible = False
Label1.Visible = True
Label2.Visible = False
score
Label3.Caption = Str$(intNumber)
ElseIf (keyAscii = 13) And Val(Text3.Text) <> Val(Text1.Text) + Val(Text2.Text) Then
Image1.Visible = False
Image2.Visible = True
Label1.Visible = False
Label2.Visible = True
Text3.Text = ""
End If
End Sub
Private Sub command3_Click()
Label1.Visible = False
Label2.Visible = False
If Option1.Value = "true" Then
N = 10
ElseIf Option2.Value = "true" Then
N = 100
ElseIf Option3.Value = "true" Then
N = 1000
End If
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Randomize Timer
num1 = Int(Rnd * N)
num2 = Int(Rnd * N)
Text1.Text = num1
Text2.Text = num2
Text3.SetFocus
End Sub
Private Sub command1_Click()
If Val(Text3.Text) = Val(Text1.Text) + Val(Text2.Text) Then
Label1.Visible = True
Label2.Visible = False
score
Label3.Caption = Str$(intNumber)
Else
Label1.Visible = False
Label2.Visible = True
Text3.ForeColor = vbRed
End If
End Sub
Private Sub Option1_Click()
N = 10
End Sub
Private Sub Option2_Click()
N = 100
End Sub
Private Sub Option3_Click()
N = 1000
End Sub
6. Simpan kode hasil pekerjaan Anda lalu jalankan program.
Demkian tip cara Membuat Operasi Penjumlahan Matematika Versi Game di VB6.Selamat mencoba semoga hal ini menyenangkan.
No comments:
Post a Comment