Home
Coding

Coding Membuat Aplikasi Kalkulator Sederhana Dengan Visual Basic 6.0

Kalkulator


Kalkulator adalah alat yang digunakan untuk menghitung, banyak orang yang kesulitan menghitung tanpa kalkulator dikarenakan kurangnya belajar dan hafalan tentang hitung-hitungan, seperti penambahan, pengurangan, pengalian dan pembagian angka-angka.


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.

Post a Comment