Program Aritmatika Dan Logika Menggunakan Visual Basic 6.0

Aritmatika merupakan simbol matematika yang digunakan untuk penjumlahan, pengurangan, perkalian, pembagain, persamaan, dan lain – lain. Program ini juga membahas mengenai operator Logika NOT, OR, dan AND . Dengan adanya program ini diharapkan dapat membantu saudara dalam pembalajaran Logika dan Operator Aritmatika. Adapun cara pembuatan program ini dapat saudara ikuti langkah – langkah dibawah ini dengan benar.

- Langkah Pertama : Saudara dapat mendesain tampilan se simpel program untuk latihan seperti gambar dibawah ini.

- Langkah Kedua : Kemudian Sudara Bisa Meniru Coding Program dibawah ini kearea program yang telah  ditentukan.
   

Aritmatika :

Coding Program Option Penjumlahan (+)

 var1 = Text1.Text

 var2 = Text2.Text

 hasil = var1 + var2

 Label3.Caption = hasil

 Text3.Text = Val(Text1.Text) + Val(Text2.Text)

Coding Program Option Pengurangan (-)

 var1 = Text1.Text

 var2 = Text2.Text

 hasil = var1 - var2

 Label3.Caption = hasil

 Text3.Text = Val(Text1.Text) - Val(Text2.Text)

Coding Program Option Penjumlahan (*)

 var1 = Text1.Text

 var2 = Text2.Text

 hasil = var1 * var2

 Label3.Caption = hasil

 Text3.Text = Val(Text1.Text) * Val(Text2.Text)

Coding Program Option Penjumlahan (/)

 var1 = Text1.Text

 var2 = Text2.Text

 hasil = var1 / var2

 Label3.Caption = hasil

 Text3.Text = Val(Text1.Text) / Val(Text2.Text)

Coding Program Option Pembagian Bilangan Bulat. (\)

 var1 = Text1.Text

 var2 = Text2.Text

 hasil = var1 \ var2

 Label3.Caption = hasil

 Text3.Text = Val(Text1.Text) \ Val(Text2.Text)

Coding Program Option Sisa Bagi Mod. (MOD)

 var1 = Text1.Text

 var2 = Text2.Text

 hasil = var1 MOD var2

 Label3.Caption = hasil

 Text3.Text = Val(Text1.Text) MOD Val(Text2.Text)

Coding Program Option Pemangkatan. (^)

 var1 = Text1.Text

 var2 = Text2.Text

 hasil = var1 ^ var2

 Label3.Caption = hasil

 Text3.Text = Val(Text1.Text) ^ Val(Text2.Text)

Coding Program Option Penggabungan. (^)

 var1 = Text1.Text

 var2 = Text2.Text

 hasil = var1 & var2

 Label3.Caption = hasil

 Text3.Text = Val(Text1.Text) & (Text2.Text)

Operasi Perbandingan

Coding Program Option NOT " Lebih Kecil"(<)

var1 = IIf(Text1.Text = "True", -1, 0)

hasil = NOT < (var1)

Label3.Caption = Format(hasil, "True/False")

Text3.Text = Val(Text1.Text) < Val(Text2.Text)

Coding Program Option OR " Lebih Besar"(>)

var1 = IIf(Text1.Text = "True", -1, 0)

var2 = IIf(Text2.Text = "True", -1, 0)

hasil = (var1 > var2)

Label3.Caption = Format(hasil, "True/False")

Text3.Text = Val(Text1.Text) > Val(Text2.Text)

Coding Program Option (==>)

var1 = IIf(Text1.Text = "True", -1, 0)

var2 = IIf(Text2.Text = "True", -1, 0)

hasil = (var1 ==>  var2)

Label3.Caption = Format(hasil, "True/False")

Text3.Text = Val(Text1.Text) ==> Val(Text2.Text)

Coding Program Option ( <==)

var1 = IIf(Text1.Text = "True", -1, 0)

var2 = IIf(Text2.Text = "True", -1, 0)

hasil = (var1 <== var2)

Label3.Caption = Format(hasil, "True/False")

Text3.Text = Val(Text1.Text) <== Val(Text2.Text)

Coding Program Option Sama Dengan( =)

var1 = IIf(Text1.Text = "True", -1, 0)

var2 = IIf(Text2.Text = "True", -1, 0)

hasil = (var1 = var2)

Label3.Caption = Format(hasil, "True/False")

Text3.Text = Val(Text1.Text) = Val(Text2.Text)

Coding Program Option Tidak Sama Dengan( <>)

var1 = IIf(Text1.Text = "True", -1, 0)

var2 = IIf(Text2.Text = "True", -1, 0)

hasil = (var1 <> var2)

Label3.Caption = Format(hasil, "True/False")

Text3.Text = Val(Text1.Text) <> Val(Text2.Text)

Catatan : Pada Componen Option yang kita gunakan masukan Code Program kedalam area kerja dengan  Prosedure yang digunakan Click.

Beginilah Hasil Jika Program Tersebut Di Jalankan

Selamat Mencoba Program Ini Semoga Berhasil Dan Bermanfaat Bagi Anda.