Cara Membuat Kalkulator dengan VB6

Hy sobat apa kabarnya saya harap BURUK Baik.

Hy sobat pada kesempata kali ini saya akan posting tentang membuat kalkulator dengan VB6. Hal yang pasti sobat punya VB6 tentu lah pasti kalo nggak gimana mau bikin caranya, ada cara lain membuat kalkulator menggunakan Notepad bisa dilihat di Disini. Tapi kali ini saya posting cara membuat kalkulator menggunakan VB6. Nah Ini di tampilan kalkulatornya yang saya peroleh gambarnya dari internet.

Tampilan Kalkulator :

 

1. Jalankan aplikasi VB6 yang sudah diinstall pada PC sobat.

2. Buat 1 buah Text Box dan 22 CommandButton.

3. Aturlah Sesuai dengan gambar diatas.

Form
Caption = Kalkulator www.blog-prayoga.blogspot.com  

Text1.Text
Name = Text1.Text
Command1
Name    = Cmd_0
Caption = 1
Command2
Name    = Cmd_Sama_Dengan
Caption = =
Command3
Name    = Cmd_1
Caption = 1
Command4
Name    = Cmd_2
Caption = 2
Command5
Name    = Cmd_3
Caption = 3
Command6
Name    = Cmd_4
Caption = 4
Command7
Name    = Cmd_5
Caption = 5
Command8
Name    = Cmd_6
Caption = 6
Command9
Name    = Cmd_7
Caption = 7
Command10
Name    = Cmd_8
Caption = 8
Command11
Name    = Cmd_9
Caption = 9
Command12
Name    = Cmd_Bagi
Caption = /
Command13
Name    = Cmd_Kali
Caption = *
Command14
Name    = Cmd_Kurang
Caption = -
Command15
Name    = Cmd_Tambah
Caption = +
Command16
Name    = Cmd_Pangkat
Caption = ^
Command17
Name    = Cmd_sin
Caption = sin
Command18
Name    = Cmd_CE
Caption = CE
Command19
Name    = Cmd_Tan
Caption = tan
Command20
Name    = Cmd_Cos
Caption = cos
Command21
Name    = Cmd_C
Caption = C
Command22
Name    = Cmd_Off
Caption = Off/Keluar

 4. Double klik pada area Form dan pastekan coding ini :

Dim Angka, Hasil As Double
Dim Operator As String

 5. Double klik pada tombol 0 dan pastekan coding ini :

If Text1.Text = "0" Then
Text1.Text = "0"
Else
Text1.Text = Text1.Text & "0"
End If

6. Double klik pada tombol 1dan pastekan coding ini :

If Text1.Text = "0" Then
Text1.Text = "1"
Else
Text1.Text = Text1.Text & "1"
End If

7. Double klik pada tombol 2 dan pastekan coding ini :

If Text1.Text = "0" Then
Text1.Text = "2"
Else
Text1.Text = Text1.Text & "2"
End If

8. Double klik pada tombol 3 dan pastekan coding ini :

If Text1.Text = "0" Then
Text1.Text = "3"
Else
Text1.Text = Text1.Text & "3"
End If

9. Double klik pada tombol 4 dan pastekan coding ini :

If Text1.Text = "0" Then
Text1.Text = "4"
Else
Text1.Text = Text1.Text & "4"
End If

10. Double klik pada tombol 5 dan pastekan coding ini :

If Text1.Text = "0" Then
Text1.Text = "5"
Else
Text1.Text = Text1.Text & "5"
End If

11. Double klik pada tombol 6 dan pastekan coding ini :

If Text1.Text = "0" Then
Text1.Text = "6"
Else
Text1.Text = Text1.Text & "6"
End If

12. Double klik pada tombol 7 dan pastekan coding ini :

If Text1.Text = "0" Then
Text1.Text = "7"
Else
Text1.Text = Text1.Text & "7"
End If

13. Double klik pada tombol 8 dan pastekan coding ini :

If Text1.Text = "0" Then
Text1.Text = "8"
Else
Text1.Text = Text1.Text & "8"
End If

14. Double klik pada tombol 9 dan pastekan coding ini :

If Text1.Text = "0" Then
Text1.Text = "9"
Else
Text1.Text = Text1.Text & "9"
End If

15. Double klik pada tombol Bagi (/) dan pastekan coding ini :

If Angka = 0 Then
Angka = Val(Text1.Text)
Else
Angka = Angka / Val(Text1.Text)
End If
Operator = "/"
Text1.Text = 0

16. Double klik pada tombol Hapus (C) dan pastekan coding ini :

Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)

17. Double klik pada tombol Hapus (CE) dan pastekan coding ini :

Text1.Text = "0"
Angka = 0
Hasil = 0
Operator = ""

18. Double klik pada tombol Kali (*) dan pastekan coding ini :

If Angka = 0 Then
Angka = Val(Text1.Text)
Else
Angka = Angka * Val(Text1.Text)
End If
Operator = "*"
Text1.Text = 0

19. Double klik pada tombol Kurang (-) dan pastekan coding ini :

If Angka = 0 Then
Angka = Val(Text1.Text)
Else
Angka = Angka - Val(Text1.Text)
End If
Operator = "-"
Text1.Text = 0

20. Double klik pada tombol Tambah (+) dan pastekan coding ini :

If Angka = 0 Then
Angka = Val(Text1.Text)
Else
Angka = Angka + Val(Text1.Text)
End If
Operator = "+"
Text1.Text = 0

21. Double klik pada tombol Pangkat (^) dan pastekan coding ini :

If Angka = 0 Then
Angka = Val(Text1.Text)
Else
Angka = Angka ^ Val(Text1.Text)
End If
Operator = "^"
Text1.Text = 0

22. Double klik pada tombol Sama Dengan (=) dan pastekan coding ini :

If Operator = "+" Then
    Hasil = Angka + Val(Text1.Text)
    Text1.Text = Hasil
ElseIf Operator = "-" Then
    Hasil = Angka - Val(Text1.Text)
    Text1.Text = Hasil
ElseIf Operator = "*" Then
    Hasil = Angka * Val(Text1.Text)
    Text1.Text = Hasil
ElseIf Operator = "/" Then
    Hasil = Angka / Val(Text1.Text)
    Text1.Text = Hasil
ElseIf Operator = "^" Then
    Hasil = Angka ^ Val(Text1.Text)
    Text1.Text = Hasil
End If

23. Double klik pada tombol Off/Keluar dan pastekan coding ini :

End

Nah, bagaimana Tutorialnya?????? gampang" susah kan.... wkwkwkwkwwkwkwkwk pasti gampang bagi yang udah tau caranya.... Good Luck :)

Tweet

Jangan sampai ketinggalan postingan-postingan terbaik dari Campur. Berlangganan melalui email sekarang juga:

Atau sobat juga bisa follow Campur dengan mengklik tombol di bawah ini:

Artikel keren lainnya:

• Cara Membuat Kalkulator dengan VB6
• Cara Membuat Kalkulator dengan Notepad
• Cara Membuat Aplikasi Sederhana Dengan Notepad
• Cara Membuat Program Pencuri Data Dengan Notepad

Ditulis oleh Unknown pada tanggal Minggu, 12 Agustus 2012