Operasi aritmatika (Perhitungan sederhana) menggunakan Ms. Visual Basic 6.0

Posted by : Unknown Rabu, 22 April 2015

Operasi aritmatika (Perhitungan sederhana) menggunakan Ms. Visual Basic 6.0

Halo sobat IT, pada postingan kali ini Admin mencoba untuk membuat aplikasi sederhana dengan memanfaatkan operasi aritmatika yang terdapat di Ms. Visual Basic 6.0. Operasi Aritmatika yang akan kita buat yaitu penjumlahan (+), pengurangan (-), perkalian (*), pembagian (/) dan hasil bagi (Mod).

Cara membuatnya sangat mudah, dan berikut cara Membuat aplikasi perhitungan sederhana :

1. Buka Aplikasi Ms. Visual Basic terlebih dahulu yang telah terinstall. Dan kemudian pilih File => New Project => Pilih Standard Exe => Klik OK.

2. Kemudian masukkan komponen textbox (3), combobox (1), commandbutton (1), dan 4 Label dan susun seperti gambar di bawah ini :

3. Ubah masing-masing properties pada komponen untuk mempermudah pengoperasian pada saat coding, dan sesuaikan seperti dibawah ini :

- TextBox 1

Name : txtNilai1

Text : Kosongkan

MaxLength : 3

Alignment : Center

- TextBox 2

Name : txtNilai2

Text : Kosongkan

MaxLength : 3

Alignment : Center

- TextBox 3

Name : txtHasil

Text : Kosongkan

MaxLength : 3

Alignment : Center

Enabled : False

- ComboBox

Name : cmboperator

Text : +

List :

· +

· -

· *

· /

· Mod

- CommandButton

Name : btnHitung

Caption : Hitung

4. Setelah design aplikasi selesai, kemudian kita lanjut ke coding. Klik 2 kali tombol btnHitung, Next ketikkan kode dibawah ini :

Private Sub btnHitung_Click()

If txtNilai1.Text = "" Or txtNilai2.Text = "" Then

MsgBox "Masukkan 2 Nilai Untuk di hitung"

Else

If cmboperator.Text = "+" Then

txtHasil.Text = Val(txtNilai1.Text) + Val(txtNilai2.Text)

ElseIf cmboperator.Text = "-" Then

txtHasil.Text = Val(txtNilai1.Text) - Val(txtNilai2.Text)

ElseIf cmboperator.Text = "x" Then

txtHasil.Text = Val(txtNilai1.Text) * Val(txtNilai2.Text)

ElseIf cmboperator.Text = ":" Then

txtHasil.Text = Val(txtNilai1.Text) / Val(txtNilai2.Text)

ElseIf cmboperator.Text = "Mod" Then

txtHasil.Text = Val(txtNilai1.Text) Mod Val(txtNilai2.Text)

End If

End Sub

5. Setelah itu, karena aplikasi yang kita buat merupakan aplikasi operasi aritmatika maka dari itu inputan pada textbox harusnya hanya dapat di isi angka. Caranya yaitu klik 2 kali pada textBox, kemudian ubah procedure yang berada pada sebelah kanan atas form code menjadi KeyPress. Tuliskan code di bawah ini :

Private Sub txtNilai1_KeyPress(KeyAscii As Integer)

If InStr("1234567890", Chr(KeyAscii)) = 0 Then

If vbKeyBack <> KeyAscii Then

KeyAscii = 1

End If

End Sub

6. Setelah itu kemudian jalankan aplikasinya dengan cara pilih Run => Start

Cukup mudah bukan, membuat aplikasi perhitungan aritmatika di Ms. Visual Basic 6.0. anda bisa memodelkan aplikasi anda sesuai keinginan anda berdasarkan dari contoh di atas...

Thanks n see you ^-* ........