analisa listing program kalkulator ni9ht Worker

Option Explicit On

Public Class Form1

   

    Dim a As Double

    Dim FirstNumber As Single

    Dim SecondNumber As Single

    Dim ArithmeticProcess As String

    Dim Answernumber As Single

    Dim lanjutan As Double

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

        Label1.Text = Label1.Text & "1"  (jika menekan tombol 1 maka akan muncul angka 1 pada label 1 )

    End Sub

    End Sub

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

        Label1.Text = Label1.Text & "2"  (jika menekan tombol 2 maka akan muncul angka 2 pada label 1)

End Sub

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

        Label1.Text = Label1.Text & "3" (jika menekan tombol 3 maka akan muncul angka 3 pada label 1

    End Sub

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

        Label1.Text = Label1.Text & "4" (jika menekan tombol 4 maka akan muncul angka 4 pada label 1 )

 End Sub

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

        Label1.Text = Label1.Text & "5" (jika menekan tombol 5 maka akan muncul angka 5 pada label 1)

 End Sub

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

        Label1.Text = Label1.Text & "6" (jika menekan tombol 6 maka akan muncul angka 6 pada label 1)

    End Sub

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

        Label1.Text = Label1.Text & "7" (jika menekan tombol 7 maka akan muncul angka 7 pada label 1

    End Sub

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

        Label1.Text = Label1.Text & "8" (jika menekan tombol 8 maka akan muncul angka 8 pada label 1

    End Sub

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

        Label1.Text = Label1.Text & "9" (jika menekan tombol 9 maka akan muncul angka 9 pada label 1

    End Sub

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

        Label1.Text = Label1.Text & "." (jika menekan tombol . maka akan muncul angka .(koma) pada label 1 )

    End Sub

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

        Label1.Text = Label1.Text & "0" (jika menekan tombol 0 maka akan muncul angka 0 pada label 1)

    End Sub

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

        Label1.Text = ""

        Label2.Text = "" (jika mengklik tombol clear maka semua perhitungan akan dihapus dan display penghitungan akan di refresh)

    End Sub

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

        FirstNumber = Val(Label1.Text)

        Label2.Text = Label1.Text & " " & "+"

        ArithmeticProcess = "+"

        Label1.Text = ""

(jika menekan tombol (+) maka akan muncul tanda (+) setelah inputan angka pertama dan berada di label 2, sedangkan label 1 akan dikosongkan )

    End Sub

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

        FirstNumber = Val(Label1.Text)

        Label2.Text = Label1.Text & " " & "-"

        Label1.Text = ""

        ArithmeticProcess = "-" (jika menekan tombol (-) maka akan muncul tanda (-) setelah inputan angka pertama dan berada di label 2, sedangkan label 1 akan dikosongkan)

    End Sub

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

        FirstNumber = Val(Label1.Text)

        Label2.Text = Label1.Text & " " & "x"

        Label1.Text = ""

        ArithmeticProcess = "x" (jika menekan tombol (x) maka akan muncul tanda (x) setelah inputan angka pertama dan berada di label 2, sedangkan label 1 akan dikosongkan )

    End Sub

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

        FirstNumber = Val(Label1.Text)

        Label2.Text = Label1.Text & " " & "/"

        Label1.Text = ""

        ArithmeticProcess = "/" (jika menekan tombol (/) maka akan muncul tanda (/) setelah inputan angka pertama dan berada di label 2, sedangkan label 1 akan dikosongkan )

    End Sub

    Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click

        FirstNumber = Val(Label1.Text)

        Label2.Text = Label1.Text & " " & "^"

        Label1.Text = ""

        ArithmeticProcess = "^" (jika menekan tombol (^) maka akan muncul tanda (^) setelah inputan angka pertama dan berada di label 2, sedangkan label 1 akan dikosongkan )

    End Sub

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

        Dim A As Single

        Dim i As Single

        SecondNumber = Val(Label1.Text)

       

        If ArithmeticProcess = "+" Then

            Answernumber = FirstNumber + SecondNumber  (menunjukkan perhitungan dengan menggunakan tombol (+))

        End If

        If ArithmeticProcess = "-" Then

            Answernumber = FirstNumber - SecondNumber (menunjukkan perhitungan dengan menggunakan tombol (-))

        End If

        If ArithmeticProcess = "x" Then

            Answernumber = FirstNumber * SecondNumber (menunjukkan perhitungan dengan menggunakan tombol (*))

        End If

        If SecondNumber = "0" Then

            MsgBox("cannot devide", 0, "warning")  (menunjukkan jika angka kedua yang di input bernilai nol maka kalkulator tidak akan memberikan hasil dan mengeluarkan pesan pemberitahuan)

        End If

        If ArithmeticProcess = "/" Then

            Answernumber = FirstNumber / SecondNumber

        End If  (menunjukkan perhitungan dengan menggunakan tombol (+))

        If ArithmeticProcess = "-" Then

            Answernumber = FirstNumber - SecondNumber  (menunjukkan perhitungan dengan menggunakan tombol (-))

        End If

        If ArithmeticProcess = "^" Then

            Answernumber = FirstNumber ^ SecondNumber (menunjukkan perhitungan dengan menggunakan tombol (^))

        End If

        If ArithmeticProcess = "√" Then

            Answernumber = Math.Sqrt(Label2.Text) (menunjukkan perhitungan dengan menggunakan tombol (√))

        End If

        Label2.Text = Label2.Text & " " & Label1.Text & " " & "=" (menunjukkan label 2 merupakan uraian perhitungan dari angka pertama dan kedua)

If ArithmeticProcess = "Exp" Then

            Label2.Text = Answernumber * (10 ^ SecondNumber)

        End If

(menunjukkan label 2 merupakan uraian perhitungan dari angka pertama dan kedua menggunakan tombol exp)

        lanjutan = "0"

        Label1.Text = Answernumber  (menunjukkan label 1 merupakan jawaban dari perhitungan )

    End Sub

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

        FirstNumber = Val(Label1.Text)

        Label2.Text = "√" & Label1.Text & "="

        Answernumber = FirstNumber ^ (1 / 2)

        Label1.Text = Answernumber

    End Sub /

(button 15 merupakan tombol fungsi akar, angka yang akan diakarkan akan muncul pada label 1 dan selanjutnua mengklik tombol √ maka akan muncul uraian perhitungan pada label 2 sebagai contoh (√25 = ),sedangkan label 1 menunjukkan hasil perhitungan. Rumus perhitungan akar yang digunakan adalah angka pertama pangkat (1/2).)

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

        Label2.Text = Label1.Text & "!" & " " & "="

        Answernumber = Label1.Text

        For i = Answernumber - 1 To 1 Step -1

            Answernumber = Answernumber * i

        Next i

        Label1.Text = Answernumber

    End Sub

(button 20 merupakan funfsi n!, angka yang akan dihitung akan muncul pada label 1 dan label 2 menunjukkan uraian perhitungan misalnya 6! Setelah tombol n! Di klik. Fungsi for Next dipergunakan untuk menjalankan perintah atau kumpulan perintah secara berulang-ulang , dimana jumlah pengulanganya telah diketahui sebelumnya. Dalam listing diatas for next berfungsi menghitung angka yang ditentukan)

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

        Label2.Text = "Sin" & Label1.Text

        Label1.Text = Math.Sin(Label1.Text * ((22 / 7) / 180))

    End Sub

(button 25 merupakan tombol fungsi sin, angka yang akan dihitung muncul pada label 1 dan setelah mengklik tombol sin maka label 2 menunjukkan uraian perhitungan , contohnya (sin 30), dan label 1 menunjukkan hasil dari perhitungan. Math pada listing di atas menunjukkan perhitungan matematis)

    Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click

        Label2.Text = "Tan" & Label1.Text

        Label1.Text = Math.Tan(Label1.Text * (22 / 7 / 180))

    End Sub

(button 25 merupakan tombol fungsi tan, angka yang akan dihitung muncul pada label 1 dan setelah mengklik tombol sin maka label 2 menunjukkan uraian perhitungan , contohnya (tan 30), dan label 1 menunjukkan hasil dari perhitungan. Math pada listing di atas menunjukkan perhitungan matematis)

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

        Label2.Text = "Cos" & Label1.Text

        Label1.Text = Math.Cos(Label1.Text * (22 / 7 / 180))

    End Sub

(button 25 merupakan tombol fungsi cos, angka yang akan dihitung muncul pada label 1 dan setelah mengklik tombol sin maka label 2 menunjukkan uraian perhitungan , contohnya (cos 30), dan label 1 menunjukkan hasil dari perhitungan. Math pada listing di atas menunjukkan perhitungan matematis)

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

        Label2.Text = "ln" & Label1.Text

        Label1.Text = Math.Log(Label1.Text)

    End Sub

(button 25 merupakan tombol fungsi ln, angka yang akan dihitung muncul pada label 1 dan setelah mengklik tombol sin maka label 2 menunjukkan uraian perhitungan , contohnya (ln 30), dan label 1 menunjukkan hasil dari perhitungan. Math pada listing di atas menunjukkan perhitungan matematis)

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

        Label2.Text = "Log" & Label1.Text

        Label1.Text = Math.Log10(Label1.Text)

(button 25 merupakan tombol fungsi log, angka yang akan dihitung muncul pada label 1 dan setelah mengklik tombol sin maka label 2 menunjukkan uraian perhitungan , contohnya (log 10), dan label 1 menunjukkan hasil dari perhitungan.  Math pada listing di atas menunjukkan perhitungan matematis)

    End Sub

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

        Answernumber = Val(Label1.Text)

        Label2.Text = ""

        Label1.Text = ""

        ArithmeticProcess = "Exp"

    End Sub

(button 12 merupakan tombol fungsi eksponensial menunjukkan jika

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Button1.Enabled = False

        Button2.Enabled = False

        Button3.Enabled = False

        Button4.Enabled = False

        Button5.Enabled = False

        Button6.Enabled = False

        Button7.Enabled = False

        Button8.Enabled = False

        Button9.Enabled = False

        Button10.Enabled = False

        Button11.Enabled = False

        Button12.Enabled = False

        Button13.Enabled = False

        Button14.Enabled = False

        Button15.Enabled = False

        Button16.Enabled = False

        Button17.Enabled = False

        Button18.Enabled = False

        Button19.Enabled = False

        Button20.Enabled = False

        Button22.Enabled = False

        Button23.Enabled = False

        Button24.Enabled = False

        Button25.Enabled = False

        Button27.Enabled = False

        Button26.Enabled = False

        Button31.Enabled = False

        Button36.Enabled = False

        Button32.Enabled = False

        Label1.Enabled = False

        Label2.Enabled = False

    End Sub

( meunjukkan saat kalkulator di play maka tampilan utamanya adalah semua tombol dalam keadaan mati atau tidak dapat berfungsi hanya tombol on yang dapat berfungsi, false dalam listing diatas menunjukkan bahwa perintah tidak memenuhi syarat)

    Private Sub Button30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button30.Click

        Label1.Enabled = True

        Label2.Enabled = True

        Button1.Enabled = True

        Button2.Enabled = True

        Button3.Enabled = True

        Button4.Enabled = True

        Button5.Enabled = True

        Button6.Enabled = True

        Button7.Enabled = True

        Button8.Enabled = True

        Button9.Enabled = True

        Button10.Enabled = True

        Button11.Enabled = True

        Button12.Enabled = True

        Button13.Enabled = True

        Button14.Enabled = True

        Button15.Enabled = True

        Button16.Enabled = True

        Button17.Enabled = True

        Button18.Enabled = True

        Button19.Enabled = True

        Button20.Enabled = True

        Button27.Enabled = True

        Button22.Enabled = True

        Button23.Enabled = True

        Button24.Enabled = True

        Button25.Enabled = True

        Button26.Enabled = True

        Button27.Enabled = True

        Button30.Enabled = True

        Button32.Enabled = True

        Button31.Enabled = True

        Button36.Enabled = True

End Sub

( meunjukkan saat tombol on di klik maka semua tombol pada tampilan utama telah aktif dan dapat berfungsi, true dalam listing dia atas menunjukkan  perintah memenuhi syarat)

    Private Sub Button31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button31.Click

        Close()

    End Sub

(Button 31 merupakan tombol off, jika mengklik tombol tersebut maka program akan berakhir atau keluar dari program)

    Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button32.Click

        Form2.Show()

        Me.Hide()

    End Sub

(menunjukkan jika mengklik button 32 maka form 2 akan muncul dan form 1 disembunyikan)

    Private Sub Button36_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button36.Click

        FirstNumber = Val(Label1.Text)

        Label2.Text = "-" & Label1.Text

        Answernumber = FirstNumber * -1

        Label1.Text = Answernumber

    End Sub

(jika mengklik button 36 maka label 1 akan menunjukkan nilai negatif dari angka yang di input)

End Class

Public Class Form2

    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click

        Dim sisi As Integer

        Dim luas As Integer

        sisi = Val(TextBox1.Text)

        luas = sisi ^ 2

        Label2.Text = luas

        (jika mengisi nilai sisi di textbox1 dan mengklik button21 maka hasil perhitungan akan muncul di label2)

    End Sub

    Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.Click

        Dim r As Integer

        Dim luas As Integer

        r = Val(TextBox2.Text)

        luas = r * r * 22 / 7

        Label4.Text = luas

        (jika mengisi nilai r di textbox2 dan mengklik button28 maka hasil perhitungan akan muncul di label4)

    End Sub

    Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click

        Dim Sisi1 As Integer

        Dim Tinggi As Integer

        Dim luas As Integer

        Sisi1 = Val(TextBox3.Text)

        Tinggi = Val(TextBox4.Text)

        luas = (Sisi1) * Tinggi

        Label10.Text = luas

        (jika mengisi nilai sisi di textbox3 dan tinggi di textbox4 kemudian mengklik button29 maka hasil perhitungan akan muncul di label10)

    End Sub

 

    Private Sub Button33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button33.Click

        Dim sisi As Integer

        Dim volume As Integer

        sisi = Val(TextBox5.Text)

        volume = sisi ^ 3

        Label20.Text = volume

        (jika mengisi nilai sisi di textbox5 dan mengklik button33 maka hasil perhitungan akan muncul di label20)

    End Sub

    Private Sub Button34_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button34.Click

        Dim Panjang As Integer

        Dim Lebar As Integer

        Dim tinggi As Integer

        Dim Volume As Integer

        Panjang = Val(TextBox6.Text)

        Lebar = Val(TextBox7.Text)

        tinggi = Val(TextBox8.Text)

        Volume = Panjang * Lebar * tinggi

        Label21.Text = Volume

        (jika mengisi nilai panjang di textbox6, lebar di textbox7, volume di textbox8 kemudian mengklik button34 maka hasil perhitungan akan muncul di label21)

    End Sub

    Private Sub Button35_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button35.Click

        Dim r As Integer

        Dim tinggi As Integer

        Dim volume As Integer

        r = Val(TextBox9.Text)

        tinggi = Val(TextBox10.Text)

        volume = 3.14 * r * r * tinggi

        Label22.Text = volume

        (jika mengisi nilai r di textbox9 dan tinggi di textbox10 dan mengklik button35 maka hasil perhitungan akan muncul di label22)

    End Sub

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

        TextBox1.Text = ""

        Label2.Text = ""

        (jika mengklik tombol reset atau button1 maka inputan data di textbox1 dan hasil perhitungan pada label2 akan terhapus)

    End Sub

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

        TextBox2.Text = ""

        Label4.Text = ""

        (jika mengklik tombol reset atau button2 maka inputan data di textbox2 dan hasil perhitungan pada label4 akan terhapus)

    End Sub

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

        TextBox3.Text = ""

        TextBox4.Text = ""

        Label10.Text = ""

        (jika mengklik tombol reset atau button3 maka inputan data di textbox3 dan textbox4 dan juga hasil perhitungan pada label10 akan terhapus)

    End Sub

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

        TextBox5.Text = ""

        Label20.Text = ""

        (jika mengklik tombol reset atau button4 maka inputan data di textbox5 dan hasil perhitungan pada label20 akan terhapus)

    End Sub

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

        TextBox6.Text = ""

        TextBox7.Text = ""

(jika mengklik tombol reset atau button5 maka inputan data di textbox6 dan textbox7 akan terhapus)