Sunday, August 12, 2012

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

12 komentar

gak rapi blog postingnya jadi bingung

wah rumit juga nih,tapi gak apalah,sambil praktek

infonya sangat bermanfat dan menambah wawasan,, thanks gan..

Terimakasih Bang Atas Postingannya Cakep Tu Mantab Dan Bikin Ger dan semangat belajar.

Oh Ya Bang Apakah Komponen OCX OsenXPSuite 2006 itu bisa Dipasang Di VB Net Mohon Solusi Ditunggu Balesannya,Maaf Masih Belajar

DITUNGGU BALESANNYA DISINI PAK BOS

gan ane kok gak bisa di totalin ya . semua sudah berfungsi cuman "=" ininya gak bisa

Tiket Pesawat Murah Online, dapatkan segera di SELL TIKET Klik disini:
selltiket.com
Booking di SELLTIKET.COM aja!!!
CEPAT,….TEPAT,….DAN HARGA Di Jamin Murah!!!

Ingin usaha menjadi agen tiket pesawat??
Yang memiliki potensi penghasilan tanpa batas.
Bergabung segera di agen.selltiket.com

INFO LEBIH LANJUT HUBUNGI :
No handphone : 085363402103
PIN : D364EDCB


EmoticonEmoticon