Home » » Cara Membuat Kalkulator dengan VB6

Cara Membuat Kalkulator dengan VB6


Cara Membuat Kalkulator dengan VB6


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


Cara Membuat Kalkulator dengan VB6


DOWNLOAD NOW (MIRROR LINK)


Cara Membuat Kalkulator dengan VB6

Jika Anda menyukai Artikel di blog ini, Silahkan klik disini untuk berlangganan gratis via email, dengan begitu Anda akan mendapat kiriman artikel setiap ada artikel yang terbit di Tips Trik Blog

11 comments:

  1. gak rapi blog postingnya jadi bingung

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

    ReplyDelete
  3. 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

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

    ReplyDelete
  5. 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

    ReplyDelete

 
Support : Creating Website | Johny Template | Mas Template
Copyright © 2011. Tips Trik Blog™ - All Rights Reserved
Template Modify by Creating Website
Proudly powered by Blogger