Sekedar mengisi waktu luang, saya coba sedikit semi sedikit menulis tutorial Pemrograman Gambas, Dan kali ini saya coba buat Aplikasi sederhana Tambah dan Kurang ...
1. Desain dulu form formnya seperti berikut :
2. Dan berikut isi Source Codenya :
Public a As Integer
Public b As Integer
Public c As Integer
Public Sub _new()
End
Public Sub Form_Open()
End
Public Sub Button3_Click()
Quit
End
Public Sub Button4_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End
Public Sub Button1_Click()
If TextBox1.Text == "" Or TextBox2.Text == "" Then
Label4.Text = "Nilai Haris diisi !!!"
Else
a = TextBox1.Text
b = TextBox2.Text
c = a + b
TextBox3.text = c
Endif
End
Public Sub Button2_Click()
If TextBox1.Text == "" Or TextBox2.Text == "" Then
Label4.Text = "Nilai Haris diisi !!!"
Else
a = TextBox1.Text
b = TextBox2.Text
c = a - b
TextBox3.text = c
Endif
End
3. Untuk yang mau download bisa disini
Semoga Membantu
EmoticonEmoticon