Program Visual Basic: Membuat Operator Perbandingan dan Aritmatika

Setelah membahas tentang materi type data, variabel dan operator, sekarang saatnya untuk mengimplementasikan materi tersebut dalam bentuk proram sehingga mudah untuk di pahami. Seperti ini program yang akan kita buat:

Program di atas, dimana user akan menginputkan 2 buah data, variabel 1 dan variabel 2 dan Kemudian user akan memilih operasi aritmatika atau perbandingan untuk mengeksekusi varibel yang telah di inputkan dan akan melihat hasilnya di bagian Lbl Hasil

Instruksi Membuatnya:
1. Kita akan membutuhkan 3 Label, 2 TextBox, 2 Frame dan 13 OptionBottom

2. Sudah tau bahan yang di butuhkan sekarang waktunya untuk merakitnya, pasang sesuai dengan gambar di bawah ini:

ingat, taruh frame dulu baru optionBox di pasang di atas framenya.

3. saatnya untuk mengutak ngatik satu-satu properties masing-masing tool

Object	Properties	Value
Label1	Name Alignment Caption	LblVar1 Center Variabel 1
Label2	Name Alignment Caption	LblVar2 Center Variabel 2
Label3	Name Alignment Caption	LblHasil Center Hasil
Text1	Name Alignment	TextSatu Center
Text2	Name Alignment	TextDua Center
Frame1	Caption	Op Aritmatika
Frame2	Caption	Op Perbandingan
OptionBottom1	Name Caption	OptTambah +
OptionBottom2	Name Caption	OptKurang -
OptionBottom3	Name Caption	OptKali *
OptionBottom4	Name Caption	OptBagi /
OptionBottom5	Name Caption	OptDan &&
OptionBottom6	Name Caption	OptBagiBulat \
OptionBottom7	Name Caption	OptMod Mod
OptionBottom8	Name Caption	OptLbhBsr >
OptionBottom9	Name Caption	OptLbhKcl <
OptionBottom10	Name Caption	OptSmDgn =
OptionBottom11	Name Caption	OptTdkSmDgn <>
OptionBottom12	Name Caption	OptLbhBsrSmDgn >=
OptionBottom13	Name Caption	OptLbhKclSmDgn <=

Sekarang kita akan memulai Membuat Coding, sehingga program bisa di jalankan.
Pertam kita tentukan type data dari program ini.
Klik di 2 kali pada form, trus pilih general.



Ketikan Code di bawah ini.

Dim Variabel1 As Integer
Dim Variabel2 As Integer
Dim hasil As Variant
Dim HasilPerbandingan As Boolean

Klik Form 2 kali dan pilih form, Ketikan Code di bawah ini.

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
LblHasil.Caption = 0
End Sub

Kemudian Klik Setiap OptionButtom dua kali dan Ketik Code di Bah ini

Private Sub OpKurang_Click()
Variabel1 = Text1.Text
Variabel2 = Text2.Text
hasil = Variabel1 - Variabel2
LblHasil.Caption = hasil
End Sub

Private Sub OptTambah_Click()
Variabel1 = Text1.Text
Variabel2 = Text2.Text
hasil = Variabel1 + Variabel2
LblHasil.Caption = hasil
End Sub

Private Sub OptKali_Click()
Variabel1 = Text1.Text
Variabel2 = Text2.Text
hasil = Variabel1 * Variabel2
LblHasil.Caption = hasil
End Sub

Private Sub OptBagi_Click()
Variabel1 = Text1.Text
Variabel2 = Text2.Text
hasil = Variabel1 / Variabel2
LblHasil.Caption = hasil
End Sub

Private Sub OptBagiBulat_Click()
Variabel1 = Text1.Text
Variabel2 = Text2.Text
hasil = Variabel1 \ Variabel2
LblHasil.Caption = hasil
End Sub

Private Sub OptDan_Click()
Variabel1 = Text1.Text
Variabel2 = Text2.Text
hasil = Variabel1 & Variabel2
LblHasil.Caption = hasil
End Sub

Private Sub OptMod_Click()
Variabel1 = Text1.Text
Variabel2 = Text2.Text
hasil = Variabel1 Mod Variabel2
LblHasil.Caption = hasil
End Sub


Private Sub OptLbhBesar_Click()
Variabel1 = Text1.Text
Variabel2 = Text2.Text
HasilPerbandingan = (Variabel1 > Variabel2)
LblHasil.Caption = HasilPerbandingan
End Sub

Private Sub OptLbhBsrSmDengan_Click()
Variabel1 = Text1.Text
Variabel2 = Text2.Text
HasilPerbandingan = (Variabel1 >= Variabel2)
LblHasil.Caption = HasilPerbandingan
End Sub

Private Sub OptLbhKclSmDengan_Click()
Variabel1 = Text1.Text
Variabel2 = Text2.Text
HasilPerbandingan = (Variabel1 <= Variabel2)
LblHasil.Caption = HasilPerbandingan
End Sub

Private Sub OptLbhKecil_Click()
Variabel1 = Text1.Text
Variabel2 = Text2.Text
HasilPerbandingan = (Variabel1 < Variabel2)
LblHasil.Caption = HasilPerbandingan
End Sub

Private Sub OptSmDengan_Click()
Variabel1 = Text1.Text
Variabel2 = Text2.Text
HasilPerbandingan = (Variabel1 = Variabel2)
LblHasil.Caption = HasilPerbandingan
End Sub


Private Sub OptTdkSmDengan_Click()
Variabel1 = Text1.Text
Variabel2 = Text2.Text
HasilPerbandingan = (Variabel1 <> Variabel2)
LblHasil.Caption = HasilPerbandingan
End Sub

Hasilnya setelah di run.