Auto4blog: Membuat kalkulator Mini Menggunakan VB 6.0

Tidak seperti blog atau website lain yang hanya menaruh coding dalam bentuk gambar ataupun file berformat .pdf yang tidak dapat di copy paste, di blog dj-site ini dengan baik hati Saya (Biar lebih sopan…hhe) memperbolehkan anda meng-copy paste coding dibawah ini dengan alasan ingin mencoba dan belajar, karena jika saya hanya memberitahukan coding tersebut melalui file berformat gambar atau .pdf kemungkinan akan terjadi kesalahan pengetikan yang mengakibatkan program akan menjadi Bugs atau error.

Berikut adalah coding yang dapat anda copy paste

Dim angka1 As String, angka2 As String

Dim hasil As Single

Private Sub Command1_Click()

angka1 = InputBox("Tulis angka 1 :", "Hitung Angk

a")

angka2 = InputBox("Tulis angka 2 :", "Hitung Angka")

hasil = CSng(angka1) + CSng(angka2)

Text1.Text = CStr(hasil)

End Sub

Private Sub Command2_Click()

angka1 = InputBox("Tulis angka 1 :", "Hitung

Angka")

angka2 = InputBox("tulis angka 2 :", "hitung angka"

)

hasil = CSng(angka1) - CSng(angka2)

Text1.Text = CStr(hasil)

End Sub

Private Sub Command3_Click()

angka1 = InputBox("tulis angka 1:", "hitung angka")

angka2 = InputBox("tulis angka 2:", "hitung angka

hasil = CSng(angka1) / CSng(angka2)

Text1.Text = CStr(hasil)

End Sub

Private Sub Command4_Click()

angka1 = InputBox("tulis angka1:", "hitung angk

a")

angka2 = InputBox("tulisangka:", "hitungangka")

hasil = CSng(angka1) * CSng(angka2)

Text1.Text = CStr(hasil)

End Sub

Private Sub Command5_Click()

End

End Sub

Setelah anda meng-copy paste coding tersebut, anda harus membuat perintah + (penjumlahan), - (Pengurangan), * (Perkalian), / (Pembagian), serta p

erintah OUT menggunakan Command Button, selain itu anda juga harus membuat tulisan Hasil: menggunakan label dan Kotak Kosong yang digunakan untuk menampilkan hasil kalk

ulasi menggunakan text.

Anda hanya perlu membuat 1 form karena 2 form yang lain merupakan inputan dari perintah MsgBox.

Setelah selasai membuat form dan meng-copy coding jalankan program dengan meng-klik Run yang ada diatas. Dan hasilnya kalkulator mini pun sele

sai…