membuat kalkulator menggunakan gambaz

Langsung saja disini akan memberikan bantuan kepada temen-temen semua tentang sebuah aplikasi kalkulator menggunakan gambaz. Dimana aplikasi ini bisa berjalankan di sistem operasi yang berbasis UNIX. Bukan sok pinter tapi cuma membantu saja, mungkin saja ada yg membutuhkannya.


Langkah 1 :

• membuat form seperti Tbutton, Tlabel dan yang lainnya.
• kemudian tempatkan seperti gambar berikut.

•  membuat "Classess" dan beri nama "CContainer"
• masukkan source codennya

            Gambaz Class File
            EXPORT
            INHERITS UserContainer
            PUBLIC SUB_new ()

            

• membuat "Classess" dan beri nama "CControl"
• masukkan source codenya

         

Gambas class file

EXPORT

INHERITS UserControl

PUBLIC SUB _new()

  DIM hLabel AS Label

 

  hLabel = NEW Label(ME) AS "MyLabel"

  hLabel.Text = "Gambas!"

  hLabel.Font = Font["+4,Bold,Italic"]

  hLabel.Border = Border.Plain

 

END

PUBLIC SUB MyLabel_Enter()

  LAST.Text = "Gambas Almost Means BASIC!"

END

PUBLIC SUB MyLabel_Leave()

  LAST.Text = "Gambas!"

END

 

• masukkan source codenya untuk bagian form

               

' Gambas class file

'untuk menampung masukan ke 1 dari textbox

STATIC masuk1 AS Float

'untuk menampung masukan ke 2 dari textbox

STATIC masuk2 AS Float

'Operator

STATIC stambah AS Integer 'untuk status tambah

STATIC skurang AS Integer 'untuk status kurang

STATIC skali AS Integer 'untuk status kali

STATIC sbagi AS Integer 'untuk status bagi

STATIC hasil AS Float 'untuk menampund data hasil proses

PUBLIC SUB Form_Activate()

  Txinput.SetFocus

END

'=== KODE ANGKA INPUT=================================

PUBLIC SUB Bt0_Click()

Txinput.Text = Txinput.Text & "0"

END

PUBLIC SUB Bt1_Click()

    Txinput.Text = Txinput.Text & "1"

END

PUBLIC SUB Bt2_Click()

    Txinput.Text = Txinput.Text & "2"

END

PUBLIC SUB Bt3_Click()

    Txinput.Text = Txinput.Text & "3"

END

PUBLIC SUB Bt4_Click()

    Txinput.Text = Txinput.Text & "4"

END

PUBLIC SUB Bt5_Click()

    Txinput.Text = Txinput.Text & "5"

END

PUBLIC SUB Bt6_Click()

    Txinput.Text = Txinput.Text & "6"

END

PUBLIC SUB Bt7_Click()

Txinput.Text = Txinput.Text & "7"

END

PUBLIC SUB Bt8_Click()

  Txinput.Text = Txinput.Text & "8"

END

PUBLIC SUB Bt9_Click()

  Txinput.Text = Txinput.Text & "9"

END

PUBLIC SUB Btitik_Click()

  IF Txinput.Text LIKE "*.*" THEN

  Txinput.Text = Txinput.Text

  ELSE

  Txinput.Text = Txinput.Text & "."

  ENDIF

END

'===============akhir kode angka===================

'===============Kode Operator===================

PUBLIC SUB BtTambah_Click()

  stambah = 1

  masuk1 = Txinput.Text

  WITH Txinput

  .Text = ""

  .SetFocus

  END WITH

END

PUBLIC SUB BtKurang_Click()

  skurang = 1

  masuk1 = Txinput.Text

  WITH Txinput

  .Text = ""

  .SetFocus

  END WITH

END

PUBLIC SUB BtKali_Click()

  skali = 1

  masuk1 = Txinput.Text

  WITH Txinput

  .Text = ""

  .SetFocus

  END WITH

END

PUBLIC SUB BtBagi_Click()

  sbagi = 1

  masuk1 = Txinput.Text

  WITH Txinput

  .Text = ""

  .SetFocus

  END WITH

END

PUBLIC SUB BtHasil_Click()

  masuk2 = Txinput.Text

  IF stambah = 1 THEN Txinput.Text = masuk1 + masuk2

  IF skurang = 1 THEN Txinput.Text = masuk1 - masuk2

  IF skali = 1 THEN Txinput.Text = masuk1 * masuk2

  IF sbagi = 1 THEN Txinput.Text = masuk1 / masuk2

    CATCH

    Txinput.Text = "Error.."

END

'== == == = akhir kode operator == == == == == == == ==

'code tambahan===================

PUBLIC SUB BtDel_Click()

  Txinput.Text = Left(Txinput.Text, -1)

END

PUBLIC SUB BtOff_Click()

  QUIT

END

PUBLIC SUB BtC_Click()

  Txinput.Clear

END

PUBLIC SUB Form_Open()

                              END

• jalankan aplikasinya kalau berhasil akan muncul tampilan seperti berikut