Setelah sebelumnya membuat Program Aritmatika dengan Delphi XE kali ini kita akan mengubah koding tersebut ke Gambas3.

Design form seperti gambar dibawah ini
design form gambas3

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
hasil eksekusi aritmatika gambas

Download :

Download “Aritmatika Gambas”

Aritmatika-0.0.1.tar.gz – Downloaded 2676 times – 178.00 B

Leave a comment

Your email address will not be published. Required fields are marked *