Setelah sebelumnya membuat Program Aritmatika dengan Delphi XE kali ini kita akan mengubah koding tersebut ke Gambas3.
Design form seperti gambar dibawah ini
klik dua kali pada tombol kali dan tambahkan script dibawah ini
Dim angka1 As String Dim angka2 As String Dim hasil As String angka1 = TextBox1.Text angka2 = TextBox2.Text hasil = angka1 * angka2 TextBox3.Text = hasil
klik dua kali pada tombol bagi dan tambahkan script dibawah ini
Dim angka1 As String Dim angka2 As String Dim hasil As String angka1 = TextBox1.Text angka2 = TextBox2.Text hasil = angka1 / angka2 TextBox3.Text = hasil
klik dua kali pada tombol tambah dan tambahkan script dibawah ini
Dim angka1 As String Dim angka2 As String Dim hasil As String angka1 = TextBox1.Text angka2 = TextBox2.Text hasil = angka1 + angka2 TextBox3.Text = hasil
klik dua kali pada tombol kurang dan tambahkan script dibawah ini
Dim angka1 As String Dim angka2 As String Dim hasil As String angka1 = TextBox1.Text angka2 = TextBox2.Text hasil = angka1 - angka2 TextBox3.Text = hasil
klik dua kali pada tombol clear dan tambahkan script dibawah ini
TextBox1.Clear TextBox2.Clear TextBox3.clear
jalankan program dengan menekan tombol F5, hasil eksekusi program aritmatika tersebut kurang lebih seperti gambar dibawah ini
Download :
Download “Aritmatika Gambas” Aritmatika-0.0.1.tar.gz – Downloaded 2676 times – 178.00 B