Calculator Sederhana Dengan VB6

Hai sahabat bodolers, kemarin kita sudah Belajar font style dan font color dengan vb6. Kali ini mimin akan kembali memuat post tentang vb6. Secara mimin baru saja selesai belajar tentang VB jadi mimin akan share ilmu yang mimin dapet nih buat para bodolers sekalian. Langsung saja kita mulai tutornya ya. cusssss
Pertama siapkan alat dan bahannya , disini kita butuh komputer or lepi ( laptop ) yang sudah terinstal aplikasi VB6 tentunya. Langkah selanjutnya, kita buka VB6 lalu akan muncul sebuah form berjudul "New Project" disini kita pilih "Standard exe" kemudian klik "OK". Kemudian akan muncul sebuah lembar kerja atau form kosong, nah disinilah kita akan memulai project kita.

1.  Buat form seperti diatas yang terdiri dari :

• Txt1.text = text value 1
• txt2.text = text value 2
• txtjumlah.text = hasil penjumlahan
• txtkali.text = hasil perkalian
• txtbagi.tetx =hasil pembagian
• cmdlagi = caption "Clear"
• cmdkeluar = caption "Exit"
• cmdhitung = caption "Count"

   2. Buat seperti gambar diatas . Bentuk dan model tidak harus sama
   3. Jika sudah kita mulai buat kodingnya, seperti ini

----------------------------------------------------------------------------------------------------------
Private Sub cmdhitung_Click()
'rumus penjumlahan
txtjumlah = Val(txt1.Text) + Val(txt2.Text)
'rumus perkalian
txtkali = Val(txt1.Text) * Val(txt2.Text)
'rumus pengurangan
txtkurang = Val(txt1.Text) - Val(txt2.Text)
'rumus pembagian
txtbagi = Val(txt1.Text) / Val(txt2.Text)
cmdlagi.SetFocus
End Sub

Private Sub cmdkeluar_Click()
'perintah keluar
End
End Sub

Private Sub cmdlagi_Click()
txt1.SetFocus
'mengosongkan textbox
txt1 = ""
txt2 = ""
txtjumlah = ""
txtkali = ""
txtkurang = ""
txtbagi = ""
End Sub

Private Sub txt1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    txt2.SetFocus
    End If

End Sub
Private Sub txt2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    cmdhitung.SetFocus
    End If
End Sub
-----------------------------------------------------------------------------------------------------


nah sampai disini program kita sudah jadi nih sob. untuk mencoba apakah pembuatan program berjalan dengan benar maka kita perlu cek program kita dengan klik F5 pada keyboard atau bisa juga tekan tombol play di aplikasi VB6

nah seperti gambar di atas
jika program buatan kita running dengan sempurna tanpa ada debug itu berarti kita talah berhasil membuat programnya. Setelah itu kita simpan hasil kerja kita dengan cara CTRL+S dan ikuti langkahnya.
Saran : Simpan hasil kerja didalam satu folder khusus untuk setiap project baru

 Download Contoh Program