program penjumlahan dengan Gambas

membuat program kalkulator sederhana dengan gambas

sedikit sharing buat temen2 yang lagi belajar pemograman gambas, saya mau menunjukkan bagaimana membuat program kalkulator sederhana dengan gambas
berikut langkah-langkah nya :

pertama desain form seperti di bawah ini :

lalu ubah propertiesnya
name : textbox1 ubah menjadi name : vba
name : textbox2 ubah menjadi name : vbb
name : combobox1 ubah menjadi name : operator
name : textbox3 ubah menjadi name : hasil




tulis source code berikut pada jendela code :



PUBLIC SUB Button1_Click()

  DIM a AS Integer
  DIM b AS Integer
  DIM c AS Integer
  DIM operan AS String
 
  a = vba.Text
  b = vbb.Text
  operan = operator.Text
 
  IF operan = "+" THEN
  c = a + b
  hasil.Text = c
 
  ELSE IF operan = "-" THEN
  c = a - b
  hasil.Text = c
 
  ELSE IF operan = "*" THEN
  c = a * b
  hasil.Text = c
 
  ELSE IF operan = "/" THEN
  c = a / b
  hasil.Text = c 
  END IF
 
CATCH
Message.Info("data tidak lengkap !!")
vba.SetFocus
END

PUBLIC SUB Form_Open()
operator.Add("+")
operator.Add("-")
operator.Add("*")
operator.Add("/")
ME.Center

END


selamat mencoba...
semoga bemanfaat...
by : dejitu

by Facebook Comment , Mau ?