Contoh Memasukkan Value TextBox ke Value Variable Array Pada Gambas

Bismillahirrahmanirrahim.

Buat Form beserta Toolsnya sebagaimana pada gambar berikut:

' Gambas class file

b As New Integer[3]

Public Sub Form_Open()

End

Public Sub _new()

   TextBox1.text = 0

   TextBox2.text = 0

   TextBox3.text = 0

End

Public Sub TextBox1_Change()

   b[0] = TextBox1.Text

End

Public Sub TextBox2_Change()

   b[1] = TextBox2.Text

End

Public Sub TextBox3_Change()

   b[2] = TextBox3.Text

End

Public Sub Button1_Click()

   TextBox4.text = b[0] & " " & b[1] & " " & b[2]

End

By IGN User