Pada Belajar VB 6.0 kali ini akan dibahas mengenai cara menciptakan Kalkulator sederhana dengan Visual Basic 6.0. Fungsi dari menciptakan Kalkulator kali ini yaitu semoga anda mengenali Aritmatika dalam Visual Basic 6.0 dan anda juga dapat menciptakan Validasi pada Form Kalkulator tersebut.
Berikut langkahnya :
Buka Aplikasi VB 6.0 pada komputer anda
Buatlah Design Form menyerupai gambar dibawah ini :
Jika sudah menciptakan Form Kalkulator diatas, logikanya menyerupai ini :
Jika aplikasi anda Run, maka masukan Angka 1 dan Angka 2, lalu kalau 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
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 :)
Berikut langkahnya :
Buka Aplikasi VB 6.0 pada komputer anda
Buatlah Design Form menyerupai gambar dibawah ini :
Jika sudah menciptakan Form Kalkulator diatas, logikanya menyerupai ini :
Jika aplikasi anda Run, maka masukan Angka 1 dan Angka 2, lalu kalau 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 :)
0 comments:
Post a Comment