TUGAS VISUAL BASIC : KALKULATOR

 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

SEKIAN DAN TERIMA KASIH

Data Mahasiswa :

Nama : Amri Shadiqin

NPM  : 1006724280 

UNIVERSITAS INDONESIA