membuat game tambah-tambahan dengan gambas

Written By Unknown on Selasa, 07 Juni 2011 | 00.21

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

Share this article :