Program Visual Basic: Membuat Operator Perbandingan dan Aritmatika

Diposting pada 1.542 views
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 thoughts on “Program Visual Basic: Membuat Operator Perbandingan dan Aritmatika

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *