Membuat Kalkulator VB 6.0

Assamualaikum



Kita share materi di lab nyok kebetulan ane megang VB advanced (2) besok n web1, web2 kali ini ane akan menshare membuat kalkulator dengan vb6.0 weitzzz keliatan mudah yak tapi ini beda ane banyak ambil source yang dipake divbbego ane juga jadi tau ttg pendeklarasian variabel secara eksplisit, penggunaan event dalam objeck, dan juga... pemanggilan prosedur yang ternyata tanpa perlu kita buat prosedurnya ternyata bisa (baru tau saya) g da module kok cuma satu form kok..ane campur adukkan listingna menjadi kalkulator sederhana nyang aga rumit menurut saya hi2... oce langsung z yak



1.buka VB6.0

2.desaign formna kaya dimari

Code:

http://www.facebook.com/photo.php?fbid=1622726973856&set=a.1075199766018.2011754.1406919664&ref=nf

3. lalu beri ubah dipropertiesna objectna

-textbox1 :

name=text1

maxlength=12

-cmdbutton 1:

name =cmdangka

index=1

caption=1

-cmdbutton 2:

name =cmdangka

index=2

caption=2

-cmdbutton 3:

name =cmdangka

index=3

caption=3

-cmdbutton 4:

name =cmdangka

index=4

caption=4

-cmdbutton 5:

name =cmdangka

index=5

caption=5

-cmdbutton 6:

name =cmdangka

index=6

caption=6

-cmdbutton 7:

name =cmdangka

index=7

caption=7

-cmdbutton 8:

name =cmdangka

index=8

caption=8

-cmdbutton 9:

name =cmdangka

index=9

caption=9

-cmdbutton 10:

name =cmdangka

index=0

caption=0

-cmdbutton 11:

name =cmdplusminus

caption=+/-

-cmdbutton 12:

name =cmdkoma

caption=.

-cmdbutton 13:

name =cmdoperator

index=1

caption=+

-cmdbutton 14:

name =cmdoperator



index=2

caption=-

-cmdbutton 15:

name =cmdoperator



index=3

caption=x

-cmdbutton 16:

name =cmdoperator



index=4

caption=/

-cmdbutton 17:

name =cmdclearentry



caption= CE

-cmdbutton 18:

name =cmdclear

caption= C

-cmdbutton 19:

name =cmdsamadengan

caption:=



klo nieh codingna gan....yang pake tanda petik satu berarti komentar saya kasih biar mudah dipahami



Option Explicit

'deklarasi variabel

Private hasil As Double

Private Const nol = 0

Private Const tambah = 1

Private Const kurang = 2

Private Const kali = 3

Private Const bagi = 4

Private operator As Integer

Private nilai As Boolean



'untuk menghapus karakter terakhir

Sub hapus()

Dim txt As String

Dim hapus As Integer

txt = Text1

If Left(txt, 1) = "-" Then

hapus = 2

Else

hapus = 1

End If

If Len(txt) > hapus Then

Text1 = Left(txt, Len(txt) - 1)

Else

Text1 = "0"

End If

End Sub



Private Sub cmdangka_Click(Index As Integer)

'buat nulis angka pan tadi dah dibedain index2na

If nilai Then

Text1 = Format(Index)

nilai = False

Else

Text1 = Text1 & Format(Index)

End If

End Sub



Private Sub cmdclear_Click()

'hapus angka, hasil terakhir dan operatornya

cmdclearentry_Click

hasil = 0

operator = nol

End Sub



Private Sub cmdclearentry_Click()

'hapus angka

Text1 = ""

End Sub



Private Sub cmdkoma_Click()

'menambahkan koma(desimal)

If InStr(Text1, ".") Then

Beep

Else

If nilai Then

Text1 = "."

nilai = False

Else

Text1 = Text1 & "."

End If

End If

End Sub



Private Sub cmdoperator_Click(Index As Integer)

'tombol tambah/kurang/bagi/kali

cmdsamadengan_Click

operator = Index

nilai = True

End Sub



Private Sub cmdplusmin_Click()

'merubah tanda jadi + or -

If nilai Then

Text1 = "-"

Else

If Left(Text1, 1) = "-" Then

Text1 = Right(Text1, 2)

Else

Text1 = "-" & Text1

End If

End If

End Sub



Private Sub cmdsamadengan_Click()

'buat ngitung

Dim hasilbaru As Double

If Text1 = "" Then

hasilbaru = 0

Else

hasilbaru = CDbl(Text1)

End If

Select Case operator

Case nol

hasil = hasilbaru

Case tambah

hasil = hasil + hasilbaru

Case kurang

hasil = hasil - hasilbaru

Case kali

hasil = hasil * hasilbaru



Case bagi

'kita buat agar g bisa dibagi angka 0 hi2..

If hasilbaru = 0 Then

MsgBox "Kgak bisa dibagi 0 gan", vbOKOnly + vbCritical, "Erorr"

Call cmdclear_Click

Else

hasil = hasil / hasilbaru

End If

End Select

operator = nol

nilai = True

Text1 = Format(hasil)

End Sub

'kita filter angka pa z nyang bisa diketik

Private Sub Form_KeyPress(keyascii As Integer)

text1_keypress keyascii

End Sub



Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

text1_keyup KeyCode, Shift

End Sub



'supaya kursor tetep di kanan

Private Sub Text1_Change()

Text1.SelStart = Len(Text1)

End Sub



Private Sub Text1_GotFocus()

Text1_Change

End Sub



Private Sub text1_keypress(keyascii As Integer)

'buat ngetik angka di keyboard

Dim zaid As String

Select Case zaid

Case "0"

cmdangka_Click 0

Case "1"

cmdangka_Click 1

Case "2"

cmdangka_Click 2

Case "3"

cmdangka_Click 3

Case "4"

cmdangka_Click 4

Case "5"

cmdangka_Click 5

Case "6"

cmdangka_Click 6

Case "7"

cmdangka_Click 7

Case "8"

cmdangka_Click 8

Case "9"

cmdangka_Click 9

Case "*", "x", "X"

cmdoperator_Click kali

Case "+"

cmdoperator_Click tambah

Case vbCrLf, vbCr, "="

cmdsamadengan_Click

Case "-"

cmdoperator_Click kurang

Case "+"

cmdoperator_Click tambah

Case "."

cmdkoma_Click

Case "/"

cmdoperator_Click bagi

Case "C", "c"

cmdclearentry_Click

End Select

keyascii = 0

End Sub



gimana klo dah coba di running boleh mo dijadiin exe pake package & deployment wizard, biar keren pake install shield he2....

sekian dolo gan



moga bermanfaat



WASSALAM



SEBARKANLAH WALAUPUN CUMA 1 AYAT

Spoiler:

Gambarnya neh ane aplotin