PENJELASAN
Pada Tugas Visual Basic kali ini,saya membuat project sebuah kalkulator sederhana yang mana kalkulator ini dapat digunakan untuk menghitung angka.Form 1 menggambarkan bagaimana kalkulator dapat digunakan,ada +,-,X,:,^, dan %. Juga terdapat message box untuk keluar dari program. Penjelasan program :
+ = untuk menjumlahkan angka
- = untuk mengurangi angka
x = untuk mengalikan angka
: = untuk membagi angka
^ = untuk memangkatkan angka
% = untuk mencari persen angka
Clear I,II,III = untuk menghapus angka dalam salah satu text box
AC = untuk mengapus semua angka dalam text box
EXIT = untuk keluar dari program
SCREENSHOOT
TAMPILAN FORM 1 SEBELUM DEBUG PROGRAM
TAMPILAN FORM 1 SETELAH DEBUG PROGRAM
TAMPILAN FORM 1 CODING
TAMPILAN CODING FORM 1
Public Class Form1
Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
Dim a, b As String
a = txt1.Text
b = txt2.Text
txt3.Text = a + +b
End Sub
Private Sub btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn4.Click
Dim a, b As String
a = txt1.Text
b = txt2.Text
txt3.Text = a - b
End Sub
Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click
Dim a, b As String
a = txt1.Text
b = txt2.Text
txt3.Text = a / b
End Sub
Private Sub btn5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn5.Click
Dim a, b As String
a = txt1.Text
b = txt2.Text
txt3.Text = a * b
End Sub
Private Sub btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3.Click
Dim a, b As String
a = txt1.Text
b = txt2.Text
txt3.Text = a ^ b
End Sub
Private Sub btn6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn6.Click
Dim a, b As String
a = txt1.Text
b = txt2.Text
txt3.Text = a * (b / 100)
End Sub
Private Sub btn7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn7.Click
txt1.Clear()
txt2.Clear()
txt3.Clear()
End Sub
Private Sub btn8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn8.Click
Dim x As String
x = MsgBox("Are You Sure Exit?", MsgBoxStyle.YesNo, "konfirmasi")
If x = vbYes Then
End
End If
End Sub
Private Sub btn9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn9.Click
txt1.Clear()
End Sub
Private Sub btn10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn10.Click
txt2.Clear()
End Sub
Private Sub btn11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn11.Click
txt3.Clear()
End Sub
End Class
Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
Dim a, b As String
a = txt1.Text
b = txt2.Text
txt3.Text = a + +b
End Sub
Private Sub btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn4.Click
Dim a, b As String
a = txt1.Text
b = txt2.Text
txt3.Text = a - b
End Sub
Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click
Dim a, b As String
a = txt1.Text
b = txt2.Text
txt3.Text = a / b
End Sub
Private Sub btn5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn5.Click
Dim a, b As String
a = txt1.Text
b = txt2.Text
txt3.Text = a * b
End Sub
Private Sub btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3.Click
Dim a, b As String
a = txt1.Text
b = txt2.Text
txt3.Text = a ^ b
End Sub
Private Sub btn6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn6.Click
Dim a, b As String
a = txt1.Text
b = txt2.Text
txt3.Text = a * (b / 100)
End Sub
Private Sub btn7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn7.Click
txt1.Clear()
txt2.Clear()
txt3.Clear()
End Sub
Private Sub btn8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn8.Click
Dim x As String
x = MsgBox("Are You Sure Exit?", MsgBoxStyle.YesNo, "konfirmasi")
If x = vbYes Then
End
End If
End Sub
Private Sub btn9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn9.Click
txt1.Clear()
End Sub
Private Sub btn10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn10.Click
txt2.Clear()
End Sub
Private Sub btn11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn11.Click
txt3.Clear()
End Sub
End Class
SEKIAN DAN TERIMA KASIH
Data Mahasiswa :
Nama : Amri Shadiqin
NPM : 1006724280
UNIVERSITAS INDONESIA