pada kali ini akan kita coba untuk membuat sebuah game yang sederhana dengan menggunaka gambas.
Game yang akan kita buat adalah game tambah-tambahan , game yang cukup simple tapi dapat mengasah kemampuan kita dalam berhitung... ok langsung aja kita buka gambas nya... dan rancang formnya seperti gambar di bawah ini..
setelah form selesai di buat maka masukkan script yang ada di bawah ini
Gambas class file
PUBLIC SUB Form_Open()
label1.Caption = Int(Rnd * 20) + 10
label3.Caption = Int(Rnd * 20) + 10
Button2.Enabled = FALSE
END
PUBLIC SUB Button1_Click()
Button2.Enabled = TRUE
Button1.Enabled = FALSE
TextBox1.Enabled = FALSE
IF TextBox1.Text = Val(label1.Caption) + Val(label3.Caption) THEN
Message("Selamat! Anda Benar, score anda +1", "Oce")
label6.Caption = Val(label6.Caption) + 1
TextBox2.Text = Val(TextBox2.Text) + 1
ELSE
Message("Maaf! Anda Salah, score anda -1", "Oce")
label7.Caption = Val(label7.Caption) + 1
TextBox2.Text = Val(TextBox2.Text) - 1
ENDIF
END
PUBLIC SUB Button2_Click()
DIM a, b AS Integer
Button1.Enabled = TRUE
Button2.Enabled = FALSE
TextBox1.Enabled = TRUE
TextBox1.SetFocus
FOR a = 1 TO a + 1
label1.Caption = Int(Rnd * 20) + 10
label3.Caption = Int(Rnd * 20) + 10
NEXT
TextBox1.Text = ""
END
PUBLIC SUB Button3_Click()
QUIT
END
PUBLIC SUB Button4_Click()
DIM Pesan AS String
Pesan = Pesan & "Game Tebak Jawaban Versi 1.0.0 Beta" & Chr(13) & Chr(13)
Pesan = Pesan & "Email: rizafalefi50@gmail.com " & Chr(13)
Pesan = Pesan & "website: http://unitf.blogspot.com" & Chr(13)
Pesan = Pesan & " " & Chr(13) & Chr(13)
Pesan = Pesan & "created by : M.RIZA FALEFI" & Chr(13)
Pesan = Pesan & "--------------------------------------------------" & Chr(13)
Pesan = Pesan & "design in gambas" & Chr(13)
Message(Pesan, "okey bos?")
END
PUBLIC SUB Menu3_Click()
QUIT
END
PUBLIC SUB Menu2_Click()
Message("Tinggal masukkan jawabannya di dalam kolom kemudian klik 'cek jawaban' ", "ok")
END
anda masih dapat mengedit kode script tersebut... dan selamat mencoba mencoba
1 komentar:
bisa di perjelas gak menggunakan editing from aa saja...?????
Posting Komentar