Tutorial Gambas2 & Gambas3, Tutorial Penjumlahan dan Perkalian menggunakan Tiga TextBox Secara Otomatis

Tutorial kali ini Penjumlahan dan Perkalian menggunakan Tiga TextBox Secara Otomatis, cara kerjannya adalah sewaktu anda mengisikan/merubah nilai pada TextBox maka secara otomatis hasilnya akan di tampilkan oleh kontrol label yang posisinya berada paling bawah, penghitungan membutuhkan minimal 2 operand dan jika TextBox ada yang kosong maka tidak akan dianggap sebagai nilai nol.

Berikut ini adalah langkah-langkah untuk mencoba tutorial ini

1. Buat project baru

2. Tambahkan/masukkan kontrol berikut ini kedalam form
  • 6 TextBox
  • 2 Separator (anda bisa mengabaikan/tidak menggunakan komponen ini)
  • 4 Label
     Disain tampilanya seperti gambar di bawah ini
Penjumlahan dan Perkalian menggunakan Tiga TextBox Secara Otomatis

3. Ketikan kode berikut di kode editor
' Gambas class file

'-------------------------------------------------------------------------------------------------------------------------------
'Author  : Zainudin Ahmad
'Site    : GambasPI.blogspot.co.id
'Title  : Tutorial Penjumlahan dan Perkalian menggunakan Tiga TextBox Secara Otomatis
'(for gambas2 & gambas3)
'-------------------------------------------------------------------------------------------------------------------------------

Private $bOpen As Boolean

Public Sub Form_Open()
  $bOpen = True

  Label1.Text = "+"
  Label2.Text = ""
  Label2.Background = Color.White
  Label2.Alignment = Align.Right
  Label3.Text = "x"
  Label4.Text = ""
  Label4.Background = Color.White
  Label4.Alignment = Align.Right
 
  TextBox1.Alignment = Align.Right
  TextBox2.Alignment = Align.Right
  TextBox3.Alignment = Align.Right
  TextBox4.Alignment = Align.Right
  TextBox5.Alignment = Align.Right
  TextBox6.Alignment = Align.Right
 
  TextBox1.Clear()
  TextBox2.Clear()
  TextBox3.Clear()
  TextBox4.Clear()
  TextBox5.Clear()
  TextBox6.Clear()
 
  Me.Center()

  $bOpen = False
End

'Prosedure/Sub ini berfungsi untuk melakukan penjumlahan
'nol dan kosong di anggap berbeda
'penjumlahan dapat di lakukan jika Jumlah operand lebih dari satu
Private Sub HitungPenjumlahan()
 
  Dim sHasil As String
  Dim iJmlOperand As Integer

  If $bOpen Then Return

  If Not IsNull(TextBox1.Text) Then
    sHasil = TextBox1.Text
    Inc iJmlOperand
  Endif
 
  If Not IsNull(TextBox2.Text) Then
    If IsNull(sHasil) Then
      sHasil = TextBox2.Text
    Else
      sHasil += TextBox2.Text
    Endif
    Inc iJmlOperand
  Endif
 
  If Not IsNull(TextBox3.Text) Then
    If IsNull(sHasil) Then
      sHasil = TextBox3.Text
    Else
      sHasil += TextBox3.Text
    Endif
    Inc iJmlOperand
  Endif
 
  If iJmlOperand >= 2 Then
    Label2.Text = sHasil
  Else
    Label2.Text = ""
  Endif
 
End

'Prosedure/Sub ini berfungsi untuk melakukan perkalian
'nol dan kosong di anggap berbeda
'perkalian dapat di lakukan jika Jumlah operand lebih dari satu
Private Sub HitungPerkalian()
 
  Dim sHasil As String
  Dim iJmlOperand As Integer

  If $bOpen Then Return

  If Not IsNull(TextBox4.Text) Then
    sHasil = TextBox4.Text
    Inc iJmlOperand
  Endif
 
  If Not IsNull(TextBox5.Text) Then
    If IsNull(sHasil) Then
      sHasil = TextBox5.Text
    Else
      sHasil *= TextBox5.Text
    Endif
    Inc iJmlOperand
  Endif
 
  If Not IsNull(TextBox6.Text) Then
    If IsNull(sHasil) Then
      sHasil = TextBox6.Text
    Else
      sHasil *= TextBox6.Text
    Endif
    Inc iJmlOperand
  Endif
 
  If iJmlOperand >= 2 Then
    Label4.Text = sHasil
  Else
    Label4.Text = ""
  Endif
 
End

'pada even change semua di bawah ini berfungsi untuk melakukan penghitungan
'sewaktu nilai di masukkan/dirubah

Public Sub TextBox6_Change()
  HitungPerkalian()
End

Public Sub TextBox5_Change()
  HitungPerkalian()
End

Public Sub TextBox4_Change()
  HitungPerkalian()
End

Public Sub TextBox3_Change()
  HitungPenjumlahan()
End

Public Sub TextBox2_Change()
  HitungPenjumlahan()
End

Public Sub TextBox1_Change()
  HitungPenjumlahan()
End

4. Coba anda jalankan/run (tekan F5) , tampilanya akan terlihat seperti di bawah ini.
tutorial gambas2 & gambas3

 SELAMAT MENCOBA

Artikel Terkait :