Tutorial Cara Membuat Kalkulator Menggunakan VB6.0

Hai Kawan :D, Selamat Datang Di Blog Dunia Info ^_^

Kali ini mimin akan membagikan cara membuat kalkulator menggunakan vb6.0 seperti di bawah ini :)

Yuk Langsung saja ikuti tutorialnya dengan cermat ya :)

1. Pertama Buka dulu ya Aplikasi VB6.0, Pasti sudah tau kan :D

2. Buatlah Tampilan Seperti Gambar Di Bawah ini, Harus Sesuai ya buat belajar! :)

Keterangan :

TextBox Ubah Name Menjadi TxtIsi, Caption Di Kosongin ya
Untuk Command Berisi 18 Command Dari 1 - Tetang
Untuk Name Command 1 Ubah Caption Menjadi Angka 1 Dan Seterusnya Hingga Command 10
Command 11 Caption Ubah Menjadi Keluar
Command 12 Caption Ubah Menjadi +
Command 13 Caption Ubah Menjadi -
Command 14 Caption Ubah Menjadi X
Command 15 Caption Ubah Menjadi :
Command 16 Caption Ubah Menjadi =
Command 17 Caption Ubah Menjadi C
Terakhir Command 18 Ubah Menjadi Tentang

3. Lanjut Langkah Berikutnya :) , Klik Kanan Pada Form1 Kemudian Klik View Code Dan Masukkan Code Berikut :

Dim op As String

Dim num1 As Integer

Dim num2 As Integer

4. Klik 2X Pada Tombol 1 Dan Masukkan Code Di Bawah Ini

TxtIsi.Text = TxtIsi.Text & 1

Lakukan hal yang sama dari tombol 1 - 0

5. Klik 2X Pada Tombol Keluar Kemudian Masukkan Code Berikut :

Dim pesan As String

pesan = MsgBox("Yakin mau keluar??", vbYesNo, "Konfirmasi")

If pesan = vbYes Then

End

End If

6. Masukkan Kode Berikut

Tombol +

num1 = TxtIsi.Text

TxtIsi.Text = ""

op = "+"

Tombol -

num1 = TxtIsi.Text

TxtIsi.Text = ""

op = "+"

Tombol X

num1 = TxtIsi.Text

TxtIsi.Text = ""

op = "+"

Tombol :

num1 = TxtIsi.Text

TxtIsi.Text = ""

op = "+"

Tombol =

num2 = TxtIsi.Text

If op = "*" Then

TxtIsi.Text = num1 * num2

ElseIf op = "+" Then

TxtIsi.Text = num1 + num2

ElseIf op = "-" Then

TxtIsi.Text = num1 - num2

ElseIf op = "/" Then

TxtIsi.Text = num1 / num2

Else

TxtIsi.Text = "Tidak dikenal"

End If

Tombol C

TxtIsi.Text = ""

Tombol Tentang

MsgBox "Kalkulator Di Buat Oleh Admin http://dunia-info21.blospot.co.id", vbInformation, "Kalkulator | Info" ( Bisa Kalian Ubah )

7. Setelah Semua Sudah Selesai Maka Proses Pembuatan Kalkulator Sudah Sukses , Silahkan Kalian Coba Dengan Cara Klik RUN => Start Atau Bisa Juga Dengan Menekan Tombol F5

Sekian Tutorial Membuat Kalkulator Menggunakan VB 6.0, Salam Dari Kami Blog Dunia Info

Bagi Yang Masih Bingung Bisa Meninggalkan Komentar Di Bawah Untuk Meminta Bantuan :)