Belajar VB6 Cara Membuat Kalkulator Sederhana Dengan VB 6.0

Belajar VB6 Cara Membuat Kalkulator Sederhana Dengan VB 6.0 - Hallo sahabat Emboh Gakro, Pada Artikel yang anda baca kali ini dengan judul Belajar VB6 Cara Membuat Kalkulator Sederhana Dengan VB 6.0, kami telah mempersiapkan artikel ini dengan baik untuk anda baca dan ambil informasi didalamnya. mudah-mudahan isi postingan Artikel Belajar VB6, yang kami tulis ini dapat anda pahami. baiklah, selamat membaca.

Judul : Belajar VB6 Cara Membuat Kalkulator Sederhana Dengan VB 6.0
link : Belajar VB6 Cara Membuat Kalkulator Sederhana Dengan VB 6.0

Baca juga


Belajar VB6 Cara Membuat Kalkulator Sederhana Dengan VB 6.0

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 :

Membuat Kalkulator Sederhana Dengan VB 6.0

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 :)


Demikianlah Artikel Belajar VB6 Cara Membuat Kalkulator Sederhana Dengan VB 6.0

Sekianlah artikel Belajar VB6 Cara Membuat Kalkulator Sederhana Dengan VB 6.0 kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan artikel lainnya.

Anda sekarang membaca artikel Belajar VB6 Cara Membuat Kalkulator Sederhana Dengan VB 6.0 dengan alamat link https://menjadiembohgakro.blogspot.com/2015/11/belajar-vb6-cara-membuat-kalkulator.html