Buat Tampilan seperti berikut :
Coding :
Public Class Form1
Dim mfirst As Single
Dim msecond As Single
Dim manswer As Single
Dim mbutton As Integer
Private Sub nol_Click(sender As Object, e As EventArgs) Handles nol.Click
TextBox1.Text = TextBox1.Text + "0"
End Sub
Private Sub satu_Click(sender As Object, e As EventArgs) Handles satu.Click
TextBox1.Text = TextBox1.Text + "1"
End Sub
Private Sub dua_Click(sender As Object, e As EventArgs) Handles dua.Click
TextBox1.Text = TextBox1.Text + "2"
End Sub
Private Sub tiga_Click(sender As Object, e As EventArgs) Handles tiga.Click
TextBox1.Text = TextBox1.Text + "3"
End Sub
Private Sub empat_Click(sender As Object, e As EventArgs) Handles empat.Click
TextBox1.Text = TextBox1.Text + "4"
End Sub
Private Sub lima_Click(sender As Object, e As EventArgs) Handles lima.Click
TextBox1.Text = TextBox1.Text + "5"
End Sub
Private Sub enam_Click(sender As Object, e As EventArgs) Handles enam.Click
TextBox1.Text = TextBox1.Text + "6"
End Sub
Private Sub tujuh_Click(sender As Object, e As EventArgs) Handles tujuh.Click
TextBox1.Text = TextBox1.Text + "7"
End Sub
Private Sub delapan_Click(sender As Object, e As EventArgs) Handles delapan.Click
TextBox1.Text = TextBox1.Text + "8"
End Sub
Private Sub sembilan_Click(sender As Object, e As EventArgs) Handles sembilan.Click
TextBox1.Text = TextBox1.Text + "9"
End Sub
Private Sub bagi_Click(sender As Object, e As EventArgs) Handles bagi.Click
mbutton = 4
mfirst = Val(TextBox1.Text)
TextBox1.Text = ""
End Sub
Private Sub samadengan_Click(sender As Object, e As EventArgs) Handles samadengan.Click
msecond = Val(TextBox1.Text)
Select Case mbutton
Case Is = 1
manswer = mfirst + msecond
Case Is = 2
manswer = mfirst - msecond
Case Is = 3
manswer = mfirst * msecond
Case Is = 4
manswer = mfirst / msecond
End Select
TextBox1.Text = manswer
End Sub
Private Sub kali_Click(sender As Object, e As EventArgs) Handles kali.Click
mbutton = 3
mfirst = Val(TextBox1.Text)
TextBox1.Text = ""
End Sub
Private Sub kurang_Click(sender As Object, e As EventArgs) Handles kurang.Click
mbutton = 2
mfirst = Val(TextBox1.Text)
TextBox1.Text = ""
End Sub
Private Sub tambah_Click(sender As Object, e As EventArgs) Handles tambah.Click
mbutton = 1
mfirst = Val(TextBox1.Text)
TextBox1.Text = ""
End Sub
Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
Me.Close()
End Sub
Private Sub clear_Click(sender As Object, e As EventArgs) Handles clear.Click
TextBox1.Clear()
End Sub
End Class
Komentar
Posting Komentar