Sunday, December 20, 2009

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…


Jangan Bosen-bosen mampir yach…

Good Luck…


0 komentar:

Visit the Site

Butuh template blog ini? monggo DOWNLOAD DISINI

Yahoo bot last visit powered by MyPagerank.Net Msn bot last visit powered by MyPagerank.Net Internet Blog Directory Computers Blogs

IBX582988F60A263

Matur suwun sanget wes neympet-nyempeti mampir dulur-dulur Blogger dan Netter sekalian