Kalkulator
Untuk itu kalkulator adalah alat yang bermanfaat bagi seseorang yang kesulitan didalam menghitung terutama mata pelajaran matematika dan juga pekerjaan sehari-hari.
Kali ini saya akan membagikan source code, coding membuat aplikasi kalkulator sederhana menggunakan visual basic 6.0.
Design Form Aplikasi
Source Code/Coding
Dim op As String
Dim num1 As Integer
Dim num2 As Integer
Private Sub Command1_Click()
Text1.Text = Text1.Text & 4
End Sub
Private Sub Command10_Click()
Text1.Text = Text1.Text & Command10.Caption
End Sub
Private Sub Command11_Click()
Text1.Text = Text1.Text & 0
End Sub
Private Sub Command12_Click()
num1 = Text1.Text
Text1.Text = ""
op = "-"
End Sub
Private Sub Command13_Click()
Text1.Text = ""
End Sub
Private Sub Command14_Click()
num1 = Text1.Text
Text1.Text = ""
op = "*"
End Sub
Private Sub Command15_Click()
num1 = Text1.Text
Text1.Text = ""
op = "/"
End Sub
Private Sub Command16_Click()
num2 = Text1.Text
If op = "+" Then
Text1.Text = num1 + num2
ElseIf op = "-" Then
Text1.Text = num1 - num2
ElseIf op = "*" Then
Text1.Text = num1 * num2
ElseIf op = "/" Then
Text1.Text = num1 / num2
End If
End Sub
Private Sub Command17_Click()
num1 = Text1.Text
Text1.Text = ""
op = "+"
End Sub
Private Sub Command18_Click()
End
End Sub
Private Sub Command2_Click()
Text1.Text = Text1.Text & 5
End Sub
Private Sub Command3_Click()
Text1.Text = Text1.Text & 6
End Sub
Private Sub Command4_Click()
Text1.Text = Text1.Text & 7
End Sub
Private Sub Command5_Click()
Text1.Text = Text1.Text & 8
End Sub
Private Sub Command6_Click()
Text1.Text = Text1.Text & 9
End Sub
Private Sub Command7_Click()
Text1.Text = Text1.Text & 1
End Sub
Private Sub Command8_Click()
Text1.Text = Text1.Text & 2
End Sub
Private Sub Command9_Click()
Text1.Text = Text1.Text & 3
End Sub
Demikian pembahasan tentang Coding Membuat Aplikasi Kalkulator Sederhana Dengan Visual Basic 6.0 semoga bermanfaat, pantau terus artikel terbaru lainnya di Fivser dan Terima kasih sudah berkunjung.