Cara MEMBUAT CALCULATOR MINI 2017 Dengan MICROSOFT VISUAL BASIC 6.0 -2017

Welcome To My Experience

MEMBUAT CALCULATOR MINI DARI MICROSOFT  VISUAL BASIC 6.0

" Make Mini Calculator from Microsoft Visual Basic 6.0 "

1 . pertama buka aplikasi Microsoft visual basic 6.0 ,kemudian clik “ Run visual basic 6 “ ,kemudian buatlah tampilan desain form di bawah ini.

 Label          text bok   

2 . kemudian ubah property masing-masing control dengan ketentuan sebagai berikut:

KONTROL	PROPERTI
	NAME	CAPTION	TEXT
label 1	label1	calculator mini
text 1	text1	-	dikosongkan
commant buttom1	cmd1	1	-
commant buttom2	cmd2	2	-
commant buttom3	cmd3	3	-
commant buttom4	cmd4	4	-
commant buttom5	cmd5	5	-
commant buttom6	cmd6	6	-
commant buttom7	cmd7	7	-
commant buttom8	cmd8	8	-
commant buttom9	cmd9	9	-
commant buttom10	cmd0	0	-
commant buttom11	cmdtitik	.	-
commant buttom12	cmdclear	C	-
commant buttom13	cmdtambah	+	-
commant buttom14	cmdkurang	-	-
commant buttom15	cmdkali	*	-
commant buttom16	cmdbagi	/	-
commant buttom17	cmdhasil	=	-

Aktifkan pada jendela kode yang kosong , kemudian kamu ketikkan code tersebut :

Gambar 2: http://bismillah-02.blogspot.co.id/2017/07/cara-terbaru-2017-membuat-calculator.html

Gambar 3 :http://bismillah-02.blogspot.co.id/2017/07/cara-terbaru-2017-membuat-calculator.html

http://bismillah-02.blogspot.co.id/2017/07/cara-terbaru-2017-membuat-calculator.html

Code 

Dim num1, num2 As Long 
Dim op As String

Private Sub Cmd0_Click(index As Integer)

Text1.Text = Text1.Text & 0

End Sub

Private Sub Cmd1_Click(index As Integer)

Text1.Text = Text1.Text & 1

End Sub

Private Sub Cmd2_Click(index As Integer)

Text1.Text = Text1.Text & 2

End Sub

Private Sub Cmd3_Click(index As Integer)

Text1.Text = Text1.Text & 3

End Sub

Private Sub Cmd4_Click(index As Integer)

Text1.Text = Text1.Text & 4

End Sub

Private Sub Cmd5_Click(index As Integer)

Text1.Text = Text1.Text & 5

End Sub

Private Sub Cmd6_Click(index As Integer)

Text1.Text = Text1.Text & 6

End Sub

Private Sub Cmd7_Click(index As Integer)

Text1.Text = Text1.Text & 7

End Sub

Private Sub Cmd8_Click(index As Integer)

Text1.Text = Text1.Text & 8

End Sub

Private Sub Cmd9_Click()

Text1.Text = Text1.Text & 9

End Sub

Private Sub Cmdbagi_Click()

num1 = Text1.Text

Text1.Text = ""

op = "/"

End Sub

Private Sub Cmdclear_Click()

Text1.Text = ""

End Sub

Private Sub Cmdhasil_Click(index As Integer)

num2 = Text1.Text

If op = "+" Then

Text1.Text = num1 + num2

num2 = Text1.Text

ElseIf op = "-" Then

Text1.Text = num1 - num2

num2 = Text1.Text

ElseIf op = "*" Then

Text1.Text = num1 * num2

num2 = Text1.Text

ElseIf op = "/" Then

Text1.Text = num1 / num2

End If

End Sub

Private Sub Cmdkali_Click()

num1 = Text1.Text

Text1.Text = ""

op = "*"

End Sub

Private Sub Cmdkurang_Click()

num1 = Text1.Text

Text1.Text = ""

op = "-"

End Sub

Private Sub Cmdtambah_Click()

num1 = Text1.Text

Text1.Text = ""

op = "+"

End Sub

Private Sub Cmdtitik_Click(index As Integer)

Text1.Text = Text1.Text & ","

End Sub

3 . dan yang terakhir jalankan program tersebut dengan menekan tombol f5

NB: Kode A harus sama dengan Tombol A, jika ada kesalahan berarti ada Kode yang tidak sama dengan Tombol.

Apabila ada kesalahan dari blog ini saya Mohon Maaf Lahir Batin...

MEMBUAT CALCULATOR MINI DARIMICROSOFT  VISUAL BASIC 6.0

" Make Mini Calculator from Microsoft Visual Basic 6.0 "