15 April 2010

Program Visual Basic: Membuat Operator Perbandingan dan Aritmatika

15 April 2010
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.




2 comments:

Anonim mengatakan...

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

Anonim mengatakan...

maaf Empu Blog :)

sudah ketemu, ternyata saya yang salah ketik.. :d:
makasih

Friedo

Poskan Komentar

sampaikan komentar dengan sopan dan bertanggung jawab :)