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 HasilInstruksi 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.