Analisis Listing Program Aplikasi Klkulator sains

LISTING PROGRAM APLIKASI KALKULATOR PRAKTIKUM TI 2012

Option Explicit On

Public Class Form1

˗Listing dibawah digunakan untuk mendeklarasikan firstNumber, secondNumber, answernumber sebagai single, dan arithmaticprocess sebagai string, serta A sebagai double.

    Dim firstNumber As Single

    Dim secondNumber As Single

    Dim answernumber As Single

    Dim arithmaticprocess As String

    Dim A As Double

˗Listing firsstNumber,secondNumber, answerNumber sebagai single dideklarasikan sebagai tipe data single, yaitu tipe data yang bernilai desimal yang kisaran terkecil.

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        TextBox1.Text = TextBox1.Text & "1"

        TextBox2.Text = TextBox2.Text & "1"

    End Sub

˗Listing textBox1 & TextBox2 itu karena data yang di input berada di TextBox1 dan TextBox 2 . jadi ketika kita menekan tombol 1, maka angka 1 langsung muncul di TextBox1 dan TextBox2.
ByVal itu listing yang secara otomatis ditambahkan oleh Visual Basic ketika membuat method parameter

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox1.Text = TextBox1.Text & "2"

        TextBox2.Text = TextBox2.Text & "2"

    End Sub

˗Listing textBox1 & TextBox2 itu karena data yang di input berada di TextBox1 dan TextBox 2 . jadi ketika kita menekan tombol 2, maka angka 2 langsung muncul di TextBox1 dan TextBox2.

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        TextBox1.Text = TextBox1.Text & "3"

        TextBox2.Text = TextBox2.Text & "3"

    End Sub

˗Listing textBox1 & TextBox2 itu karena data yang di input berada di TextBox1 dan TextBox 2 . jadi ketika kita menekan tombol 3, maka angka 3 langsung muncul di TextBox1 dan TextBox2.

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        TextBox1.Text = TextBox1.Text & "4"

        TextBox2.Text = TextBox2.Text & "4"

    End Sub

˗Listing textBox1 & TextBox2 itu karena data yang di input berada di TextBox1 dan TextBox 2 . jadi ketika kita menekan tombol 4, maka angka 4 langsung muncul di TextBox1 dan TextBox2.

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        TextBox1.Text = TextBox1.Text & "5"

        TextBox2.Text = TextBox2.Text & "5"

    End Sub

˗Listing textBox1 & TextBox2 itu karena data yang di input berada di TextBox1 dan TextBox 2 . jadi ketika kita menekan tombol 5, maka angka 5 langsung muncul di TextBox1 dan TextBox2.

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        TextBox1.Text = TextBox1.Text & "6"

        TextBox2.Text = TextBox2.Text & "6"

    End Sub

˗Listing textBox1 & TextBox2 itu karena data yang di input berada di TextBox1 dan TextBox 2 . jadi ketika kita menekan tombol 6, maka angka 6 langsung muncul di TextBox1 dan TextBox2.

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        TextBox1.Text = TextBox1.Text & "7"

        TextBox2.Text = TextBox2.Text & "7"

    End Sub

˗Listing textBox1 & TextBox2 itu karena data yang di input berada di TextBox1 dan TextBox 2 . jadi ketika kita menekan tombol 7, maka angka 7 langsung muncul di TextBox1 dan TextBox2.

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        TextBox1.Text = TextBox1.Text & "8"

        TextBox2.Text = TextBox2.Text & "8"

    End Sub

˗Listing textBox1 & TextBox2 itu karena data yang di input berada di TextBox1 dan TextBox 2 . jadi ketika kita menekan tombol 8, maka angka 8 langsung muncul di TextBox1 dan TextBox2.

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        TextBox1.Text = TextBox1.Text & "9"

        TextBox2.Text = TextBox2.Text & "9"

    End Sub

˗Listing textBox1 & TextBox2 itu karena data yang di input berada di TextBox1 dan TextBox 2 . jadi ketika kita menekan tombol 9, maka angka 9 langsung muncul di TextBox1 dan TextBox2.

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click

        TextBox1.Text = TextBox1.Text & "."

        TextBox2.Text = TextBox2.Text & "."

    End Sub

˗Listing textBox1 & TextBox2 itu karena data yang di input berada di TextBox1 dan TextBox 2 . jadi ketika kita menekan tombol “.” , maka tanda “.” langsung muncul di TextBox1 dan TextBox2.

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click

        TextBox1.Text = TextBox1.Text & "0"

        TextBox2.Text = TextBox2.Text & "0"

    End Sub

˗Listing textBox1 & TextBox2 itu karena data yang di input berada di TextBox1 dan TextBox 2 . jadi ketika kita menekan tombol 0, maka angka 0 langsung muncul di TextBox1 dan TextBox2.
   

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

        firstNumber = Val(TextBox2.Text)

        TextBox1.Text = firstNumber & “-"

        TextBox2.Text = ""

        arithmaticprocess = "-"

    End Sub

˗Listing textBox1 & TextBox2 itu karena data yang di input berada di TextBox1 dan TextBox 2 . jadi ketika kita menekan tombol “- “ , maka tanda “-“  langsung muncul di TextBox1 dan TextBox2.

   

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

        TextBox1.Text = TextBox1.Text & "00"

        TextBox2.Text = TextBox2.Text & "00"

    End Sub

˗Listing textBox1 & TextBox2 itu karena data yang di input berada di TextBox1 dan TextBox 2 . jadi ketika kita menekan tombol 00, maka angka 00 langsung muncul di TextBox1 dan TextBox2.

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click

        firstNumber = Val(TextBox2.Text)

        TextBox1.Text = firstNumber & " + "

        TextBox2.Text = ""

        arithmaticprocess = "+"

    End Sub

˗Listing textBox1 & TextBox2 itu karena data yang di input berada di TextBox1 dan TextBox 2 . jadi ketika kita menekan tombol +, maka tanda + langsung muncul di TextBox1 dan TextBox2.
-Val adalah listing yang digunakan untuk nilai dari suatu TextBox

-arithmaticprocess itu adalah listing untuk operator aritmatikanya

-listing  "" adalah listing yang menunjukkan bahwa tidak ada data pada textBox2

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click

        firstNumber = Val(TextBox2.Text)

        TextBox1.Text = firstNumber & " * "

        TextBox2.Text = ""

        arithmaticprocess = "*"

    End Sub

-listing  "" adalah listing yang menunjukkan bahwa tidak ada data pada textBox2

-Val adalah listing untuk nilai dari TextBox

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click

        firstNumber = Val(TextBox2.Text)

        TextBox1.Text = firstNumber & "/ "

        TextBox2.Text = ""

        arithmaticprocess = "/"

    End Sub

-listing  "" adalah listing yang menunjukkan bahwa tidak ada data pada textBox2

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click

        firstNumber = Val(TextBox2.Text)

        TextBox1.Text = "Sin" & firstNumber

        TextBox2.Text = ""

        arithmaticprocess = "sin"

    End Sub

-listing "Sin" adalah operator aritmatika yang digunakan untuk menghitung nilai sin.

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click

        firstNumber = Val(TextBox2.Text)

        TextBox1.Text = "cos" & firstNumber

        TextBox2.Text = ""

        arithmaticprocess = "cos"

    End Sub

-listing "Cos" adalah operator aritmatika yang digunakan untuk menghitung nilai cos.

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click

        firstNumber = Val(TextBox2.Text)

        TextBox1.Text = "tan" & firstNumber

        TextBox2.Text = ""

        arithmaticprocess = "tan"

    End Sub

-listing "tan" adalah operator aritmatika yang digunakan untuk menghitung nilai Tan.

  Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click

        If TextBox1.Text.Length > 0 Then

            TextBox1.Text = TextBox1.Text.Remove(TextBox1.Text.Length - 1, 1)

        End If

        If TextBox2.Text.Length > 0 Then

            TextBox2.Text = TextBox2.Text.Remove(TextBox2.Text.Length - 1, 1)

        End If

    End Sub

-listing remove itu untuk menghapus suatu data yang telah di input.

   

    Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click

        firstNumber = Val(TextBox2.Text)

        TextBox1.Text = firstNumber & "!"

        TextBox2.Text = firstNumber & "!"

        arithmaticprocess = "n!"

    End Sub

-Val adalah listing yang digunakan untuk nilai dari suatu TextBox

    Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click

        TextBox2.Text = ""

        TextBox1.Text = ""

    End Sub

-listing  "" adalah listing yang menunjukkan bahwa tidak ada data pada textBox2

Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click

        secondNumber = Val(TextBox2.Text)

        If arithmaticprocess = "mod" Then

            answernumber = firstNumber Mod secondNumber

        End If

        If arithmaticprocess = "sin" Then

            answernumber = Math.Sin(firstNumber * (22 / 7 / 180))

        End If

        If arithmaticprocess = "cos" Then

            answernumber = Math.Cos(firstNumber * (22 / 7 / 180))

        End If

        If arithmaticprocess = "tan" Then

            answernumber = Math.Tan(firstNumber * (22 / 7 / 180))

        End If

        If arithmaticprocess = "ln" Then

            answernumber = Math.Log(firstNumber)

        End If

        If arithmaticprocess = "+" Then

            answernumber = firstNumber + secondNumber

        End If

        If arithmaticprocess = "-" Then

            answernumber = firstNumber - secondNumber

        End If

        If arithmaticprocess = "*" Then

            answernumber = firstNumber * secondNumber

        End If

        If arithmaticprocess = "n!" Then

            A = 1

            For i = 1 To firstNumber

                A = A * i

            Next

            TextBox2.Text = Str(A)

            answernumber = TextBox2.Text

        End If

        If arithmaticprocess = "/" Then

            If secondNumber = "0" Then

                MsgBox("Cannot Devide By Zero", 0, "Warning")

                TextBox1.Text = ""

                TextBox2.Text = ""

                Exit Sub

            End If

            answernumber = firstNumber / secondNumber

        End If

        TextBox2.Text = answernumber

    End Sub

. -Listing-listing diatas adalah listing yang digunakan untuk menyatakan hasil dari data yang telah kita input

    Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click

        End

    End Sub

End Class

-“End” adalah listing yang digunakan untuk keluar dari program