Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click Txtbin.Text = Txtbin.Text & "0" End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Txtbin.Text = Txtbin.Text & "2" End Sub

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click Txtbin.Text = Txtbin.Text & "3" End Sub

Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click Txtbin.Text = Txtbin.Text & "4" End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Txtbin.Text = Txtbin.Text & "7" End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Txtbin.Text = Txtbin.Text & "8" End Sub

Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click SecondNumber = Convert.ToInt32(Txtbin.Text, 8) If ArithemeticProcess = "+" Then AnswerNumber = FirstNumber + SecondNumber End If SecondNumber = Convert.ToInt32(Txtbin.Text, 8) If ArithemeticProcess = "-" Then AnswerNumber = FirstNumber - SecondNumber End If SecondNumber = Convert.ToInt32(Txtbin.Text, 8) If ArithemeticProcess = "*" Then AnswerNumber = FirstNumber * SecondNumber End If SecondNumber = Convert.ToInt32(Txtbin.Text, 8) If ArithemeticProcess = "/" Then AnswerNumber = FirstNumber / SecondNumber End If Txtbin.Text = Convert.ToString(AnswerNumber, 2) End Sub

Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click FirstNumber = Convert.ToInt32(Txtbin.Text, 8) Txtbin.Text = "" ArithemeticProcess = "-" End Sub

Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click FirstNumber = Convert.ToInt32(Txtbin.Text, 8) Txtbin.Text = "" ArithemeticProcess = "+" End Sub

Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click FirstNumber = Convert.ToInt32(Txtbin.Text, 8) Txtbin.Text = "" ArithemeticProcess = "*" End Sub

Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click FirstNumber = Convert.ToInt32(Txtbin.Text, 8) Txtbin.Text = "" ArithemeticProcess = "/" End Sub
End Class

Hexadecimal:
Public Class Hexadecimal Dim FirstNumber As Integer Dim SecondNumber As Integer Dim AnswerNumber As Integer Dim ArithemeticProcess As String Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click Form2.Show() Me.Close() End Sub

Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click Txtbin.Text = Txtbin.Text & "0" End Sub

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click Txtbin.Text = Txtbin.Text & "1" End Sub

Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click Txtbin.Text = Txtbin.Text & "." End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Txtbin.Text = Txtbin.Text & "2" End Sub

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click Txtbin.Text = Txtbin.Text & "3" End Sub

Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click Txtbin.Text = Txtbin.Text & "4" End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Txtbin.Text = Txtbin.Text & "5" End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Txtbin.Text = Txtbin.Text & "6" End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Txtbin.Text = Txtbin.Text & "7" End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click Txtbin.Text = Txtbin.Text & "8" End Sub

Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click

Txtbin.Text = Txtbin.Text & "9" End Sub

Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click Txtbin.Clear() End Sub

Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click SecondNumber = Convert.ToInt32(Txtbin.Text, 16) If ArithemeticProcess = "+" Then AnswerNumber = FirstNumber + SecondNumber End If SecondNumber = Convert.ToInt32(Txtbin.Text, 16) If ArithemeticProcess = "-" Then AnswerNumber = FirstNumber - SecondNumber End If SecondNumber = Convert.ToInt32(Txtbin.Text, 16) If ArithemeticProcess = "*" Then AnswerNumber = FirstNumber * SecondNumber End If SecondNumber = Convert.ToInt32(Txtbin.Text, 16) If ArithemeticProcess = "/" Then AnswerNumber = FirstNumber / SecondNumber End If Txtbin.Text = Convert.ToString(AnswerNumber, 16) End Sub

Private Sub Txtbin_TextChanged(sender As Object, e As EventArgs) Handles Txtbin.TextChanged

End Sub

Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click FirstNumber = Convert.ToInt32(Txtbin.Text, 2) Txtbin.Text = "" ArithemeticProcess = "-" End Sub

Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click FirstNumber = Convert.ToInt32(Txtbin.Text, 16) Txtbin.Text = "" ArithemeticProcess = "+" End Sub

Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click FirstNumber = Convert.ToInt32(Txtbin.Text, 16) Txtbin.Text = "" ArithemeticProcess = "*" End Sub

Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click FirstNumber = Convert.ToInt32(Txtbin.Text, 16) Txtbin.Text = "" ArithemeticProcess = "/" End Sub

Private Sub Hexadecimal_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub

Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click Txtbin.Text = Txtbin.Text & "10" End Sub

Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click Txtbin.Text = Txtbin.Text & "11" End Sub

Private Sub Button22_Click(sender As Object, e As EventArgs) Handles Button22.Click Txtbin.Text = Txtbin.Text & "12" End Sub

Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click Txtbin.Text = Txtbin.Text & "13" End Sub

Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click Txtbin.Text = Txtbin.Text & "14" End Sub

Private Sub Button24_Click(sender As Object, e As EventArgs) Handles Button24.Click Txtbin.Text = Txtbin.Text & "15" End Sub
End Class