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


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

2 comments:
from Friedo Purwokerto
Private Sub OptTambah_Click()
Variabel1 = Text1.Text
Variabel2 = Text2.Text
hasil = Variabel1 + Variabel2
LblHasil.Caption = hasil
End Sub
kok ga bisa ya?hasilnya kok malah & ????http://sites.google.com/site/cumaisenggroup/gambarcoba/m021.gif
maaf Empu Blog :)
sudah ketemu, ternyata saya yang salah ketik.. :d:
makasih
Friedo
Posting Komentar
sampaikan komentar dengan sopan dan bertanggung jawab :)