Aplikasi Kalkulator sederhana

Coding..

Public Partial Class MainForm

Dim nilai1 As Decimal=0

Dim nilai2 As Decimal=0

Dim hasil As Decimal=0

Dim kondisi As Integer =1

Dim kondisikoma As Integer = 0

Dim kondisiminus As Integer = 0

Dim proses As String

Public Sub New()

Me.InitializeComponent()

End Sub

Sub Button1Click(byval sender As system.Object,byval e As system.EventArgs)

If TextBox1.Text = "0" Or kondisi = 0 Then

TextBox1.Text = "1"

kondisi = 1

Else

TextBox1.Text = TextBox1.Text & "1"

End If

End Sub

Sub Button2Click(byval sender As system.Object,byval e As system.EventArgs)

If TextBox1.Text = "0" Or kondisi = 0 Then

T extBox1.Text = "2"

kondisi = 1

Else

TextBox1.Text = TextBox1.Text & "2"

End If

End Sub

Sub Button3Click(byval sender As system.Object,byval e As system.EventArgs)

If TextBox1.Text = "0" Or kondisi = 0 Then

TextBox1.Text = "3"

kondisi = 1

Else

TextBox1.Text = TextBox1.Text & "3"

End If

End Sub

Sub Button4Click(byval sender As system.Object,byval e As system.EventArgs)

If TextBox1.Text = "0" Or kondisi = 0 Then

TextBox1.Text = "4"

kondisi=1

Else

TextBox1.Text = TextBox1.Text & "4"

End If

End Sub

Sub Button5Click(byval sender As system.Object,byval e As system.EventArgs)

If TextBox1.Text = "0" Or kondisi = 0 Then

TextBox1.Text = "5"

kondisi= 1

Else

TextBox1.Text = TextBox1.Text & "5"

End If

End Sub

Sub Button6Click(byval sender As system.Object,byval e As system.EventArgs)

If TextBox1.Text = "0" Or kondisi = 0 Then

TextBox1.Text = "6"

kondisi= 1

Else

TextBox1.Text = TextBox1.Text & "6"

End If

End Sub

Sub Button7Click(byval sender As system.Object,byval e As system.EventArgs)

If TextBox1.Text = "0" Or kondisi = 0 Then

TextBox1.Text = "7"

kondisi= 1

Else

TextBox1.Text = TextBox1.Text & "7"

End If

End Sub

Sub Button8Click(byval sender As system.Object,byval e As system.EventArgs)

If TextBox1.Text = "0" Or kondisi = 0 Then

TextBox1.Text = "8"

kondisi=1

Else

TextBox1.Text = TextBox1.Text & "8"

End If

End Sub

Sub Button9Click(byval sender As system.Object,byval e As system.EventArgs)

If TextBox1.Text = "0" Or kondisi = 0Then

TextBox1.Text = "9"

kondisi =1

Else

TextBox1.Text = TextBox1.Text & "9"

End If

End Sub

Sub Button10Click(byval sender As system.Object,byval e As system.EventArgs)

If TextBox1.Text = "0" Or kondisi = 0 Then

TextBox1.Text = "0"

kondisi = 1

Else

TextBox1.Text = TextBox1.Text & "0"

End If

End Sub

Sub Button13Click(byval sender As system.Object, e As system.EventArgs)

If nilai1 = 0 Then

nilai1=Val(TextBox1.Text)

proses = "+"

kondisi = 0

kondisikoma = 0

else

nilai2 = Val(TextBox1.Text)

hasil = nilai1

If proses = "+" Then

hasil = hasil+nilai2

else If proses = "-" Then

hasil = hasil-nilai2

else if proses = "*" Then

hasil = hasil*nilai2

end if

if proses = "/" Then

If nilai2 = "0" Then

MessageBox.Show("You Can't Devide by 0", "Warning")

Else

hasil =hasil / nilai2

End If

end if

nilai1 = hasil

TextBox1.Text = nilai1

kondisi = 0

kondisikoma = 0

kondisiminus = 0

end if

End Sub

Sub Button14Click(byval sender As system.Object,byval e As system.EventArgs)

If nilai1 = 0 Then

nilai1=Val(TextBox1.Text)

proses = "-"

kondisi = 0

kondisikoma = 0

else

nilai2 = Val(TextBox1.Text)

hasil = nilai1

If proses = "+" Then

hasil = hasil+nilai2

else If proses = "-" Then

hasil = hasil-nilai2

else if proses = "*" Then

hasil = hasil*nilai2

end if

if proses = "/" Then

If nilai2 = "0" Then

MessageBox.Show("You Can't Devide by 0", "Warning")

Else

hasil =hasil / nilai2

End If

end if

nilai1 = hasil

TextBox1.Text = nilai1

kondisi = 0

kondisikoma = 0

kondisiminus = 0

end if

End Sub

Sub Button15Click(byval sender As system.Object,byval e As system.EventArgs)

If nilai1 = 0 Then

nilai1=Val(TextBox1.Text)

proses = "*"

kondisi = 0

kondisikoma = 0

else

nilai2 = Val(TextBox1.Text)

hasil = nilai1

If proses = "+" Then

hasil = hasil+nilai2

else If proses = "-" Then

hasil = hasil-nilai2

else if proses = "*" Then

hasil = hasil*nilai2

end if

if proses = "/" Then

If nilai2 = "0" Then

MessageBox.Show("You Can't Devide by 0", "Warning")

Else

hasil =hasil / nilai2

End If

end if

nilai1 = hasil

TextBox1.Text = nilai1

kondisi = 0

kondisikoma = 0

kondisiminus = 0

end if

End Sub

Sub Button16Click(byval sender As system.Object,byval e As system.EventArgs)

If nilai1 = 0 Then

Val(TextBox1.Text)

proses = "/"

kondisi = 0

kondisikoma = 0

else

nilai2 = Val(TextBox1.Text)

hasil = nilai1

If proses = "+" Then

hasil = hasil+nilai2

else If proses = "-" Then

hasil = hasil-nilai2

else if proses = "*" Then

hasil = hasil*nilai2

end if

if proses = "/" Then

If nilai2 = "0" Then

MessageBox.Show("You Can't Devide by 0", "Warning")

Else

hasil =hasil / nilai2

End If

end if

nilai1 = hasil

TextBox1.Text = nilai1

kondisi = 0

kondisikoma = 0

kondisiminus = 0

end if

End Sub

Sub Button19Click(byval sender As system.Object,byval e As system.EventArgs)

nilai2 = Val(TextBox1.Text)

hasil = nilai1

If proses = "+" Then

hasil = hasil+nilai2

else If proses = "-" Then

hasil = hasil-nilai2

else if proses = "*" Then

hasil = hasil*nilai2

end if

if proses = "/" Then

If nilai2 = "0" Then

MessageBox.Show("You Can't Devide by 0", "Warning")

Else

hasil =hasil / nilai2

End If

end if

nilai1 = hasil

TextBox1.Text = nilai1

kondisi = 0

kondisikoma = 0

kondisiminus = 0

End Sub

Sub Button17Click(sender As Object, e As EventArgs)

If nilai1 <> 0 Or nilai2 <> 0 Or hasil <> 0 Then

nilai1 = 0

nilai2 = 0

hasil = 0

End If

TextBox1.Text = "0"

End Sub

Sub Button11Click(sender As Object, e As EventArgs)

If kondisiminus = 0 Then

If kondisi <> 0 And TextBox1.Text <> "0" Then

TextBox1.Text = "-" & TextBox1.Text

kondisiminus = 1

End If

ElseIf kondisiminus = 1 Then

If kondisi <> 0 Then

TextBox1.Text = Microsoft.VisualBasic.Right(TextBox1.Text, Len(TextBox1.Text) - 1)

kondisiminus = 0

End If

End If

End Sub

Sub Button12Click(sender As Object, e As EventArgs)

If kondisikoma = 0 Then

If kondisi <> 0 Then

TextBox1.Text = TextBox1.Text & "."

kondisikoma = 1

End If

End If

End Sub

Sub Button18Click(sender As Object, e As EventArgs)

If TextBox1.Text <> "0" Then

TextBox1.Text = Microsoft.VisualBasic.Left(TextBox1.Text, Len(TextBox1.Text) - 1)

If Len(TextBox1.Text) = 0 Then

TextBox1.Text = "0"

End If

End If

End Sub

Sub AboutToolStripMenuItemClick(sender As Object, e As EventArgs)

form1.show()

End Sub

End Class