Pembuatan APLIKASI KOPERASI "VAN JAVA" menggunakan GAMBAS (Tugas Akhir)

Assalamu'alaikum teman-teman online ku sekalian, kali ini aku mau share materi perkuliahan aku dulu buat kalian semua, pas lagi ngoprek2 email masih ada jejak-jejak petilasanku mengenyam pendidikan dibangku kuliah dulu, berikut salah satunya yaitu tugas

pembuatan APLIKASI KOPERASI "VAN JAVA"  menggunakan GAMBAS,

semoga bermanfaat ya...

Script Fmain

 

' Gambas class file

PUBLIC a AS Integer = 0

PUBLIC b AS Integer = 0

PUBLIC c AS Integer = 0

PUBLIC d AS Integer = 0

PUBLIC e AS Integer = 0

PUBLIC f AS Integer = 0

PUBLIC g AS Integer = 0

PUBLIC h AS Integer = 0

 

 

PUBLIC SUB _new()

        tbPiz.Text = 0

        tbSpa.Text = 0

        tbBur.Text = 0

        tbSuk.Text = 0

        tbCream.Text = 0

        tbHot.Text = 0

        tbCap.Text = 0

        tbOrange.Text = 0

END

 

PUBLIC SUB Form_Open()

ME.Center

END

PUBLIC SUB cbPiz_Click()

IF cbPiz.Value = TRUE

            tbPiz.Enabled = TRUE

            tbPiz.Text = ""

 

       ELSE

           tbPiz.Enabled = FALSE

           tbPiz.Text = "0"

 

ENDIF

END

 

 

PUBLIC SUB cbBur_Click()

IF cbBur.Value = TRUE

            tbBur.Enabled = TRUE

            tbBur.Text = ""

 

       ELSE

           tbBur.Enabled = FALSE

           tbBur.Text = "0"

 

ENDIF

 

 

END

 

PUBLIC SUB cbSpa_Click()

 

  IF cbSpa.Value = TRUE

            tbSpa.Enabled = TRUE

            tbSpa.Text = ""

 

       ELSE

           tbSpa.Enabled = FALSE

           tbSpa.Text = "0"

 

ENDIF

 

END

 

PUBLIC SUB cbSuk_Click()

 

  IF cbSuk.Value = TRUE

            tbSuk.Enabled = TRUE

            tbSuk.Text = ""

 

       ELSE

           tbSuk.Enabled = FALSE

           tbSuk.Text = "0"

 

ENDIF

END

 

PUBLIC SUB cbCream_Click()

 IF cbCream.Value = TRUE

            tbCream.Enabled = TRUE

            tbCream.Text = ""

 

       ELSE

           tbCream.Enabled = FALSE

           tbCream.Text = "0"

 

ENDIF

 

 

END

 

PUBLIC SUB cbHot_Click()

 

   IF cbHot.Value = TRUE

            tbHot.Enabled = TRUE

            tbHot.Text = ""

 

       ELSE

           tbHot.Enabled = FALSE

           tbHot.Text = "0"

 

ENDIF

 

END

 

PUBLIC SUB cbCap_Click()

 

   IF cbCap.Value = TRUE

            tbCap.Enabled = TRUE

            tbCap.Text = ""

 

       ELSE

           tbCap.Enabled = FALSE

           tbCap.Text = "0"

 

ENDIF

 

END

 

 

PUBLIC SUB cbOrange_Click()

 

   IF cbOrange.Value = TRUE

            tbOrange.Enabled = TRUE

            tbOrange.Text = ""

 

       ELSE

           tbOrange.Enabled = FALSE

           tbOrange.Text = "0"

 

ENDIF

 

 

END

 

PUBLIC SUB ok_Click()

DIM a AS Integer = 0

DIM b AS Integer = 0

DIM c AS Integer = 0

DIM d AS Integer = 0

DIM e AS Integer = 0

DIM f AS Integer = 0

DIM g AS Integer = 0

DIM h AS Integer = 0

 

   a = tbPiz.Text

   b = tbBur.Text

   c = tbSpa.Text

   d = tbSuk.Text

   e = tbCream.Text

   f = tbHot.Text

   g = tbCap.Text

   h = tbOrange.Text

  

lbisi.Caption = (20000 * a) + (15000 * b) + (10000 * c) + (10000 * d) + (8000 * e) + (8000 * f) + (7000 * g) + (7000 * h)

    

 

END SUB

 

 

PUBLIC SUB clear_Click()

 

        tbPiz.Clear

        tbPiz.SetFocus

        tbSpa.Clear

        tbSpa.SetFocus

        tbBur.Clear

        tbSuk.Clear

        tbCream.Clear

        tbHot.Clear

        tbCap.Clear

        tbOrange.Clear

        tbPiz.Enabled = FALSE

        tbSpa.Enabled = FALSE

        tbBur.Enabled = FALSE

        tbSuk.Enabled = FALSE

        tbCream.Enabled = FALSE

        tbHot.Enabled = FALSE

        tbCap.Enabled = FALSE

        tbOrange.Enabled = FALSE

        lbisi.Caption = ""

END

 

 

 

PUBLIC SUB next_Click()

Form1.z = lbisi.Text

 FMain.Visible = FALSE

  Form1.Visible = TRUE

END

script form1

 

' Gambas class file

 

PUBLIC z AS String

 

PUBLIC SUB Form_Open()

 

  ME.Center

      tbtotal.Text = z

      tbbayar.Text = ""

      tbkembali.Text = "0"

 

END

 

 

PUBLIC SUB back_Click()

  Form1.Visible = FALSE

  FMain.Visible = TRUE

 

END

 

PUBLIC SUB exit_Click()

 

  ME.Close

 

END

 

PUBLIC SUB clear_Click()

 

  tbTotal.Clear

  tbBayar.Clear

  tbKembali.Clear

 

 

END

 

PUBLIC SUB kembali_Click()

DIM r AS Integer = 0

DIM s AS Integer = 0

r = tbBayar.Text

s = tbTotal.Text

tbKembali.Text = (r - s)

 

 

 

END