UJIAN AKHIR SEMESTER MEMBUAT PROGRAM KALKULATOR
SEDERHANA
Berikut adalah coding cara membuat calculator :
Public Class
Form1
Dim nilai,
hasil, angka As Integer
Dim simbol As String
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
hasil = txthasilcalculator.Text
simbol = "+"
txthasilcalculator.Text = ""
End Sub
Private Sub Button21_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button21.Click
End
End Sub
Private Sub Button13_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button13.Click
End Sub
Private Sub Button14_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button14.Click
If
txthasilcalculator.Text = "0" Then
txthasilcalculator.Text = "1"
Else :
txthasilcalculator.Text = txthasilcalculator.Text & "1"
End If
Me.Button14.Text
= "&1"
End Sub
Private Sub Button5_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button5.Click
If
txthasilcalculator.Text = "0" Then
txthasilcalculator.Text = "7"
Else :
txthasilcalculator.Text = txthasilcalculator.Text & "7"
End If
Me.Button5.Text
= "&7"
End Sub
Private Sub Button6_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button6.Click
If
txthasilcalculator.Text = "0" Then
txthasilcalculator.Text = "8"
Else :
txthasilcalculator.Text = txthasilcalculator.Text & "8"
End If
Me.Button6.Text
= "&8"
End Sub
Private Sub Button7_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button7.Click
If
txthasilcalculator.Text = "0" Then
txthasilcalculator.Text = "9"
Else :
txthasilcalculator.Text = txthasilcalculator.Text & "9"
End If
Me.Button7.Text
= "&9"
End Sub
Private Sub Button9_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button9.Click
If
txthasilcalculator.Text = "0" Then
txthasilcalculator.Text = "4"
Else :
txthasilcalculator.Text = txthasilcalculator.Text & "4"
End If
Me.Button9.Text
= "&4"
End Sub
Private Sub Button10_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button10.Click
If
txthasilcalculator.Text = "0" Then
txthasilcalculator.Text = "5"
Else :
txthasilcalculator.Text = txthasilcalculator.Text & "5"
End If
Me.Button10.Text
= "&5"
End Sub
Private Sub Button11_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button11.Click
If
txthasilcalculator.Text = "0" Then
txthasilcalculator.Text = "6"
Else :
txthasilcalculator.Text = txthasilcalculator.Text & "6"
End If
Me.Button11.Text
= "&6"
End Sub
Private Sub Button15_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button15.Click
If
txthasilcalculator.Text = "0" Then
txthasilcalculator.Text = "2"
Else :
txthasilcalculator.Text = txthasilcalculator.Text & "2"
End If
Me.Button15.Text
= "&2"
End Sub
Private Sub Button16_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button16.Click
If
txthasilcalculator.Text = "0" Then
txthasilcalculator.Text = "3"
Else :
txthasilcalculator.Text = txthasilcalculator.Text & "3"
End If
Me.Button16.Text
= "&3"
End Sub
Private Sub Button18_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button18.Click
If
txthasilcalculator.Text = "0" Then
txthasilcalculator.Text = "0"
Else :
txthasilcalculator.Text = txthasilcalculator.Text & "0"
End If
Me.Button18.Text
= "&0"
End Sub
Private Sub Button20_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button20.Click
If
simbol = "+" Then
hasil = nilai +
Val(txthasilcalculator.Text)
txthasilcalculator.Text = hasil
ElseIf
simbol = "-" Then
hasil = nilai -
Val(txthasilcalculator.Text)
txthasilcalculator.Text = hasil
ElseIf
simbol = "X" Then
hasil = nilai *
Val(txthasilcalculator.Text)
txthasilcalculator.Text = hasil
ElseIf
simbol = "/" Then
hasil = nilai /
Val(txthasilcalculator.Text)
txthasilcalculator.Text = hasil
End If
End Sub
Private Sub Button19_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button19.Click
If
txthasilcalculator.Text = "," Then
txthasilcalculator.Text = ","
Else :
txthasilcalculator.Text = txthasilcalculator.Text & ","
End If
Me.Button19.Text
= "&."
End Sub
Private Sub Button2_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button2.Click
nilai = txthasilcalculator.Text
simbol = "-"
txthasilcalculator.Text = ""
End Sub
Private Sub Button3_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button3.Click
nilai = txthasilcalculator.Text
simbol = "/"
txthasilcalculator.Text = ""
End Sub
Private Sub Button12_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button12.Click
Me.txthasilcalculator.Clear()
End Sub
Private Sub Button4_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button4.Click
nilai = txthasilcalculator.Text
simbol = "X"
txthasilcalculator.Text = ""
End Sub
Private Sub Button8_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button8.Click
If
txthasilcalculator.Text.Length <> 0 Then
txthasilcalculator.Text =
txthasilcalculator.Text.Remove(txthasilcalculator.TextLength - 1, 1)
End If
End Sub
Private Sub Button17_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button17.Click
txthasilcalculator.Text = "-" & Val(txthasilcalculator.Text)
End Sub
End Class
MOHON MAAF JIKA TERDAPAT KESALAHAN DALAM CODING
