PROGRAM ARITMATIKA DAN LOGIKA SEDERHANA MENGGUNAKAN VISUAL BASIC 6.0

Oleh peistar

Thursday, 23 June 2016

Bagikan :

Tweet

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 program untuk latihan seperti gambar dibawah ini.

- Langkah Kedua : Copy dan Pastekan Coding Program dibawah ini kearea program yang telah ditentukan.

Dim var1 As Single, var2 As Single

Dim hasil As Single

Aritmatika :

Coding Program Option Penjumlahan (+)

var1 = Text1.Text

var2 = Text2.Text

hasil = var1 + var2

Label3.Caption = hasil

Coding Program Option Option Penjumlahan (-)

var1 = Text1.Text

var2 = Text2.Text

hasil = var1 - var2

Label3.Caption = hasil

Coding Program Option Option Penjumlahan (x)

var1 = Text1.Text

var2 = Text2.Text

hasil = var1 * var2

Label3.Caption = hasil

Coding Program Option Option Penjumlahan (:)

var1 = Text1.Text

var2 = Text2.Text

hasil = var1 / var2

Label3.Caption = hasil

Coding Program Option Option Penjumlahan (&)

var1 = Text1.Text

var2 = Text2.Text

hasil = var1 & var2

Label3.Caption = hasil

Logika :

Coding Program Option NOT

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

hasil = Not (var1)

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

Coding Program Option OR

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

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

hasil = (var1 Or var2)

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

Coding Program Option AND

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

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

hasil = (var1 And var2)

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

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

Tampilan Akhir Saat di Jalankan

Selamat mencoba semoga program ini bermanfaat bagi kita semua. Wasalllammmmm....

Tag : Pemrograman Visual Basic 6.0