Alfath Dilon
NPM:
1406629490
Jurusan:
Akuntansi Teknologi Sistem Informasi
Sekarang saya akan mempresentasikan aplikasi sederhana yang saya buat, yaitu Kalkulator Sederhana. Codingnya sangat simpel, yaitu sebagai berikut:
Public Class Form1
Dim nilai As Double
Dim aksi As String
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
TextBox1.Text = TextBox1.Text & "0"
End Sub
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
TextBox1.Text = TextBox1.Text & "1"
End Sub
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
TextBox1.Text = TextBox1.Text & "2"
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
TextBox1.Text = TextBox1.Text & "3"
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
TextBox1.Text = TextBox1.Text & "4"
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
TextBox1.Text = TextBox1.Text & "5"
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
TextBox1.Text = TextBox1.Text & "6"
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBox1.Text = TextBox1.Text & "7"
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
TextBox1.Text = TextBox1.Text & "8"
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
TextBox1.Text = TextBox1.Text & "9"
End Sub
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
TextBox1.Text = TextBox1.Text & "00"
End Sub
Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
nilai = Val(TextBox1.Text)
Label1.Text = TextBox1.Text & "" & " + "
TextBox1.Text = ""
aksi = "+"
End Sub
Private Sub TextBox1_KeyPress(keyascii As Integer)
If Not (keyascii >= Asc("0") And keyascii <= Asc("9")) Then
keyascii = 0
MsgBox("Hanya angka saja..!", vbCritical, "Peringatan")
Exit Sub
End If
End Sub
Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
nilai = Val(TextBox1.Text)
Label1.Text = TextBox1.Text & "" & " - "
TextBox1.Text = ""
aksi = "-"
End Sub
Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
nilai = Val(TextBox1.Text)
Label1.Text = TextBox1.Text & "" & " x "
TextBox1.Text = ""
aksi = "x"
End Sub
Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
nilai = Val(TextBox1.Text)
Label1.Text = TextBox1.Text & "" & " : "
TextBox1.Text = ""
aksi = ":"
End Sub
Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click
If aksi = "+" Then
TextBox1.Text = nilai + TextBox1.Text
End If
If aksi = "-" Then
TextBox1.Text = nilai - TextBox1.Text
End If
If aksi = ":" Then
TextBox1.Text = nilai / TextBox1.Text
End If
If aksi = "x" Then
TextBox1.Text = nilai * TextBox1.Text
End If
If aksi = "^" Then
TextBox1.Text = nilai ^ TextBox1.Text
End If
Label1.Text = ""
End Sub
Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
TextBox1.Text = ""
End Sub
Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
nilai = Val(TextBox1.Text)
Label1.Text = TextBox1.Text & "" & " ^ "
TextBox1.Text = ""
aksi = "^"
End Sub
Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
Label1.Text = ""
TextBox1.Text = ""
End Sub
End Class
Sekian dari saya, terimakasih!
