Membuat Kalkulator Dengan VB 6.0

9:54:00 PM
Bagi anda Pemula dalam Belajar VB 6.0 Membuat Kalkulator adalah cara sederhana namun penting manfaatnya. Karena dengan membuat Kalkulator anda akan belajar tentang Label, text, Button pada VB 6.0. Tidak cuma itu anda juga belajar Dasar aritmatika dalam VB yaitu berfungsi untuk menambahkan, mengurangi, mengkalikan data yang nantinya akan sangat bermanfaat ketika anda membuat Aplikasi dengan VB 6.0

Berikut ini adalah cara mudah dalam membuat kalkulator sederhana dengan VB 6.0

Buka Aplikasi VB 6.0 anda
Buatlah Design Form Seperti gambar dibawah :
Kemudian Masukan Koding dibawah ini :

Baca Juga : Cara Membuat File Installer Dengan VB 6.0
Private Sub Command8_Click()
MsgBox "1. Isi Angka 1 lalu tekan [ENTER]" & vbNewLine & "2. Isi Angka 2 lalu tekan [ENTER]" & vbNewLine & "3. Lalu Pilih Kalkulasi yang diinginkan", vbInformation, "Petunjuk"
End Sub

Private Sub Form_Load()
Text3.Enabled = False
End Sub

Private Sub Command1_Click()
'Ini untuk coding tambah
If Text1 = "" Or Text2 = "" Then
MsgBox "Data Belum Lengkap"
Text1.SetFocus
Else
Text3 = Val(Text1) + Val(Text2)
End If
End Sub

Private Sub Command2_Click()
If Text1 = "" Or Text2 = "" Then
MsgBox "Data Belum Lengkap"
Text1.SetFocus
Else
Text3 = Text1 - Text2
End If
End Sub

Private Sub Command3_Click()
If Text1 = "" Or Text2 = "" Then
MsgBox "Data Belum Lengkap"
Text1.SetFocus
Else
Text3 = Text1 / Text2
End If
End Sub

Private Sub Command4_Click()
If Text1 = "" Or Text2 = "" Then
MsgBox "Data Belum Lengkap"
Text1.SetFocus
Else
Text3 = Text1 * Text2
End If
End Sub

Private Sub Command5_Click()
If Text1 = "" Or Text2 = "" Then
MsgBox "Data Belum Lengkap"
Text1.SetFocus
Else
Text3 = Val(Text1) ^ Val(Text2)
End If
End Sub

Private Sub Command6_Click()
End
End Sub
Private Sub Command7_Click()
KosongkanText
Text1.SetFocus
End Sub

Private Sub Text1_KeyPress(Keyascii As Integer)
If Keyascii = 13 Then Text2.SetFocus
If Not (Keyascii >= Asc("0") And Keyascii <= Asc("9") Or Keyascii = vbKeyBack Or Keyascii = vbKeyReturn) Then Keyascii = 0
End Sub
Private Sub Text2_KeyPress(Keyascii As Integer)
If Keyascii = 13 Then Command1.SetFocus
If Not (Keyascii >= Asc("0") And Keyascii <= Asc("9") Or Keyascii = vbKeyBack Or Keyascii = vbKeyReturn) Then Keyascii = 0
End Sub
Private Sub KosongkanText()
    Text1 = ""
    Text2 = ""
    Text3 = ""
End Sub

Semoga Dasar dalam membuat Kalkulator diatas bermanfaat untuk anda, silahkan ikuti terus pembelajaran Visual basic dari kami, karena masih banyak Tips n Trik tentang VB di Blog ini

Artikel Terkait

Next Article
« Prev Post
Previous Article
Next Post »
Penulisan markup di komentar
  • Untuk menulis huruf bold silahkan gunakan <strong></strong> atau <b></b>.
  • Untuk menulis huruf italic silahkan gunakan <em></em> atau <i></i>.
  • Untuk menulis huruf underline silahkan gunakan <u></u>.
  • Untuk menulis huruf strikethrought silahkan gunakan <strike></strike>.
  • Untuk menulis kode HTML silahkan gunakan <code></code> atau <pre></pre> atau <pre><code></code></pre>, dan silahkan parse dulu kodenya pada kotak parser di bawah ini.
Konversi Code
Disqus
Silahkan Berkomentar Dengan

2 komentar

Write komentar
den dani
AUTHOR
December 6, 2015 at 11:58 AM delete

maaf bu.. fungsi keyascii sebenernya apa?
soalnya kalo coding keyascii saya masukin, malah gak bisa nampilin angkanya
kalo di hapus malah bisa bu. makasih

Reply
avatar
Tutarni Aliya
AUTHOR
December 8, 2015 at 8:06 PM delete

Hi Den,
Terima kasih telah berkunjung dan berkomentar.
Fungsi Keyascii adalah untuk menggunakan fungsi keyboard pada aplikasi yang akan kita buat.
Sebagai contih keyascii = 13 adalah tombol ENTER
dan masih banyak lagi.
Jika terjadi error biasanya karena penempatan koding yang salah, atau scriptnya salah.
Jika kurang jelas, silahkan berkomentar kembali

Reply
avatar