Membuat Program Perhitungan Sederhana Menggunakan VB 6.0

Ya, Selamat Pagi / Siang / Sore / Malem..

Buat yang masih baru coba-coba belajar VB nih saya share koding sederhana yang basic banget tapi bakal kepake banget. Belajar VB tuh gak rugi kok, soalnya bikin aplikasi pakai VB tuh gak sesulit pake bahasa pemrograman lain tapi tetep aja sih harus belajar. Belajar mah wajib supaya bisa !

Ya udah yuk langsung aja simak.

Output :

Source Code :

Private Sub Command1_Click()

Dim A, B, C As Double

A = CDbl(Text1.Text)

B = CDbl(Text2.Text)

Call Hitung(A, B)

Text3.Text = C

End Sub

Private Sub Hitung(A, B)

If Option1.Value = True Then C = A + B

If Option2.Value = True Then C = A - B

If Option3.Value = True Then C = A * B

If Option4.Value = True Then C = A / B

End Sub

Penjelasan :

Dalam pembuatan aplikasi hitung sederhana menggunakan VB 6.0 ini, saya menggunakan beberapa komponen diantaranya : Label, TextView, Frame, OptionButton, dan Button. Kodingnya terdiri dari dua buah fungsi, yaitu Fungsi Command1_Click() yang dijalankan saat button command1 di klik, dan Fungsi Hitung (A, B) yang dipanggil untuk menentukan operasi apa yang digunakan untuk menghitung berdasarkan value dari option button yang aktif. Berikut penjelasan tiap barisnya :

Dim A, B, C As Double

Merupakan pendeklarasian variabel yang saya gunakan. Saya memilih tipe data double supaya kita tidak hanya dapat menghitung bilangan bulat saja, karena pembagian umumnya menghasilkan bilangan pecahan decimal juga.

A = CDbl(Text1.Text)

B = CDbl(Text2.Text)

Perintah diatas mengambil teks pada text view yang berupa string, merubahnya menjadi tipe data double lalu menyimpannya dalam variabel yang A dan B. CDbl merupakan perintah untuk merubah tipe data menjadi double, contoh lain perintah untuk merubah tipe data diantaranya : CInt untuk merubah tipe data menjadi Integer, CStr untuk merubah tipe data menjadi String, dll.

Call Hitung(A, B)

Merupakan pemanggilan fungsi hitung dengan membawa nilai variabel A dan B sebagai parameter untuk perhitungan dalam fungsi tersebut.

Text3.Text = C

Menampilkan text pada text3 sesuai dengan nilai C yang telah dihitung sebelumnya.

Private Sub Hitung(A, B)

Merupakan pendeklarasian fungsi yang dapat dipanggil ke dalam fungsi umum di VB. Dalam pendeklarasiannya ditambahkan parameter A dan B agar kita dapat melakukan perhitungan nilai C sesuai dengan nilai A dan B yang didapat dari hasil input sesuai dengan operasi yang dipilih.

If Option1.Value = True Then C = A + B

Perintah di atas, dimaksudkan jika option1 yaitu penjumlahan diklik atau diaktifkan maka program akan menghitung C sebagai A + B saat kita menekan button “sama dengan” atau Command1.

If Option2.Value = True Then C = A - B

If Option3.Value = True Then C = A * B

If Option4.Value = True Then C = A / B

Untuk perintah Option2, 3, dan 4 sama persis kegunaannya seperti perintah sebelumnya. Karena hanya satu option button yang dapat diaktifkan oleh user jadi kita hanya perlu memberi koding di masing-masing option button saat mendapatkan value bernilai “true”