Pada Belajar VB 6.0 kali ini akan dibahas mengenai cara membuat Kalkulator sederhana dengan Visual Basic 6.0. Fungsi dari membuat Kalkulator kali ini adalah agar anda mengenali Aritmatika dalam Visual Basic 6.0 dan anda juga bisa membuat Validasi pada Form Kalkulator tersebut.
Berikut langkahnya :
Buka Aplikasi VB 6.0 pada komputer anda
Buatlah Design Form seperti gambar dibawah ini :
Jika sudah membuat Form Kalkulator diatas, logikanya seperti ini :
Jika aplikasi anda Run, maka masukan Angka 1 dan Angka 2, kemudian jika anda ingin melihat hasil Penambahan maka Klik Tombol Tambah, Jika pengurangan Klik Tombol Kurang, Jika akan mengalikan Klik tombol Kali, Jika anda ngin membagi Klik Tombol Bagi.
Silahkan masukan koding dibawah ini pada Form Kalkulator
Private Sub Form_Load()
Text1 = ""
Text2 = ""
Text3 = ""
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
Jika anda sudah memasukan koding diatas, silahkan anda Run atau Jalankan Project Vb 6.0 anda
Demikian Cara Membuat Kalkulator Sederhana Dengan VB 6.0, semoga bermanfaat untuk anda :)
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :