membuat game tambah-tambahan dengan gambas

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