membuat game tambah-tambahan dengan gambas - UNIT F
Headlines News :
English French German Spain Italian Dutch Russian Portuguese Japanese Korean Arabic Chinese Simplified
Home » » membuat game tambah-tambahan dengan gambas

membuat game tambah-tambahan dengan gambas

Written By riza falefi 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 :

1 komentar:

Anonim mengatakan...

bisa di perjelas gak menggunakan editing from aa saja...?????

Poskan Komentar

TEMPAT JUAL BELI TEMPLATE/ SALE YOUR TEMPLATE

melayang


 
Support : Creating Website | UNIT F | unitf blog
Copyright © 2011. UNIT F - All Rights Reserved
Template Modify by M.R.F
Proudly powered by Blogger