ANALISIS LISTING & FLOWCHART KALKULATOR

TUTORIAL & Listing Program Kalkulator

Public Class Form1

    Dim Angka, Hasil As Double

    Dim proses As String

    Dim a, b As Integer

    Const pi As Double = 3.14159265358979

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

        Me.Text = "Kalkulator OKE 24"

        TextBox2.Enabled = False

        TextBox1.Enabled = False

        Button17.Enabled = False

        Button25.Enabled = False

        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 = True

        Button15.Enabled = False

        Button16.Enabled = False

        Button17.Enabled = False

        Button18.Enabled = False

        Button19.Enabled = False

        Button20.Enabled = False

        Button21.Enabled = False

        Button22.Enabled = False

        Button23.Enabled = False

        Button24.Enabled = False

        Button25.Enabled = False

        Button26.Enabled = True

End Sub

Apabila kita mau menjalankan program form awal muncul dengan OFF, semua button off kecuali tombol ON dan tombol Keluar

   

 

TOMBOL ON (MENGAKTIFKAN PROGRAM)

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

        TextBox2.Enabled = True

        TextBox1.Enabled = True

        Button17.Enabled = True

        Button25.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

        Button21.Enabled = True

        Button22.Enabled = True

        Button23.Enabled = True

        Button24.Enabled = True

        Button25.Enabled = True

        Button26.Enabled = True

    End Sub

Ketika tombol ON ditombol, maka semua tombol pada program termasuk layar akan aktif dan dapat menjalankan program

MEMATIKAN PROGRAM (OFF)

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

        TextBox1.Enabled = False

        TextBox2.Enabled = False

        Button17.Enabled = False

        Button25.Enabled = False

        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 = true

        Button15.Enabled = False

        Button16.Enabled = False

        Button18.Enabled = False

        Button19.Enabled = False

        Button20.Enabled = False

        Button21.Enabled = False

        Button22.Enabled = False

        Button23.Enabled = False

        Button24.Enabled = False

        Button26.Enabled = true

    End Sub

Tombol off berfungsi untuk menonaktifkan, jadi apabila tombol OFF di tombol maka semua tombol akan tidak aktif lagi kecuali tombol ON dan keluar

ME-REFRESH

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

        TextBox1.Text = ""

        TextBox2.Text = ""

    End Sub

Jika tombol refresh di tombol maka pada textbox 1 dan 2 akan bersih kembali, dan kita dapat memulai menjalankan program dari awal

(MENGHETAHUI HASIL PENGHITUNGAN) =

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

        If proses = "+" Then      (Penjumlahan angka” yang di masukkan pada textbo)

Hasil = Angka + Val(TextBox1.Text)

              TextBox1.Text = Hasil

(Penjumlahan angka” yang di masukkan pada textbo)

        ElseIf proses = "-" Then

            Hasil = Angka - Val(TextBox1.Text)

            TextBox1.Text = Hasil

(Pengurangan angka” yang di inputkan pada textbox)

        ElseIf proses = "x" Then

            Hasil = Angka * Val(TextBox1.Text)

            TextBox1.Text = Hasil

(Perkalian angka” yang di masukkan ke textbox)

        ElseIf proses = "/" Then

            Hasil = Angka / Val(TextBox1.Text)

            TextBox1.Text = Hasil

(Membagi angka” yang di inputkan ke dalam textbox)

        ElseIf proses = "^" Then

            Hasil = Angka ^ Val(TextBox1.Text)

            TextBox1.Text = Hasil

(Memangkatkan angka pada textbox dengan pangkat yang ditentukan sendiri lewat input angka yg kedua)

        ElseIf proses = "Cos" Then

            Hasil = Math.Cos(Val(TextBox1.Text) * (pi / 180))

            TextBox1.Text = Hasil

(mencari cos dari angka yang di inputkan)

        ElseIf proses = "Sin" Then

            Hasil = Math.Sin(Val(TextBox1.Text) * (pi / 180))

            TextBox1.Text = Hasil

(mencari nilai sin dari angka yang di inputkan)

        ElseIf proses = "Tan" Then

            Hasil = Math.Tan(Val(TextBox1.Text) * (pi / 180))

            TextBox1.Text = Hasil

(mencari nilai tan dari angka yang dimasukkan)

        ElseIf proses = "log10" Then

            Hasil = Math.Log10(Val(TextBox1.Text))

            TextBox1.Text = Hasil

(mencari nilai dari log angka tertentu)

        End If

        proses = ""

        Angka = 0

    End Sub

MENGELUARKAN (EXIT)

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

        Close()

    End Sub

jika di tombol button exit maka form 1 akan akan secara otomatis keluar dari program, maka program berakhir memproses)

TOMBOL-TOMBOL PADA KALKULATOR :

MENAMPILKAN ANGKA 1

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

        If TextBox1.Text = "0" Then

            TextBox1.Text = "1"

            TextBox2.Text = "1"

        Else

            TextBox1.Text = TextBox1.Text & "1"

            TextBox2.Text = TextBox2.Text & "1"

        End If

    End Sub

Jika di tombol button 1 maka pada textbox akan muncul angka 1

Jika tidak ditombol maka pada textbox angka 2 tidak muncul

MENAMPILKAN ANGKA 2

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

        If TextBox1.Text = "0" Then

            TextBox1.Text = "2"

            TextBox2.Text = "2"

        Else

            TextBox1.Text = TextBox1.Text & "2"

            TextBox2.Text = TextBox2.Text & "2"

        End If

    End Sub

Jika di tombol button 2 maka pada textbox akan muncul angka 2

Jika tidak ditombol maka pada textbox angka 2 tidak muncul

MENAMPILKAN ANGKA 3

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

        If TextBox1.Text = "0" Then

            TextBox1.Text = "3"

            TextBox2.Text = "3"

        Else

            TextBox1.Text = TextBox1.Text & "3"

            TextBox2.Text = TextBox2.Text & "3"

        End If

    End Sub

Jika di tombol button 3 maka pada textbox akan muncul angka 3

Jika tidak ditombol maka pada textbox angka 3 tidak muncul

MENAMPILKAN ANGKA 4

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

        If TextBox1.Text = "0" Then

            TextBox1.Text = "4"

            TextBox2.Text = "4"

        Else

            TextBox1.Text = TextBox1.Text & "4"

            TextBox2.Text = TextBox2.Text & "4"

        End If

    End Sub

Jika di tombol button 4 maka pada textbox akan muncul angka 4

Jika tidak ditombol maka pada textbox angka 4 tidak muncul

MENAMPILKAN ANGKA 5

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

        If TextBox1.Text = "0" Then

            TextBox1.Text = "5"

            TextBox2.Text = "5"

        Else

            TextBox1.Text = TextBox1.Text & "5"

            TextBox2.Text = TextBox2.Text & "5"

        End If

    End Sub

Jika di tombol button 5 maka pada textbox akan muncul angka 5

Jika tidak ditombol maka pada textbox angka 5 tidak muncul

MENAMPILKAN ANGKA 6

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

        If TextBox1.Text = "0" Then

            TextBox1.Text = "6"

            TextBox2.Text = "6"

        Else

            TextBox1.Text = TextBox1.Text & "6"

            TextBox2.Text = TextBox2.Text & "6"

        End If

    End Sub

Jika di tombol button 6 maka pada textbox akan muncul angka 6

Jika tidak ditombol maka pada textbox angka 6 tidak muncul

MENAMPILKAN ANGKA 7

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

        If TextBox1.Text = "0" Then

            TextBox1.Text = "7"

            TextBox2.Text = "7"

        Else

            TextBox1.Text = TextBox1.Text & "7"

            TextBox2.Text = TextBox2.Text & "7"

        End If

    End Sub

Jika di tombol button 7 maka pada textbox akan muncul angka 7

Jika tidak ditombol maka pada textbox angka 7 tidak muncul

MENAMPILKAN ANGKA 8

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

        If TextBox1.Text = "0" Then

            TextBox1.Text = "8"

            TextBox2.Text = "8"

        Else

            TextBox1.Text = TextBox1.Text & "8"

            TextBox2.Text = TextBox2.Text & "8"

        End If

    End Sub

Jika di tombol button 8 maka pada textbox akan muncul angka 8

Jika tidak ditombol maka pada textbox angka 8 tidak muncul

MENAMPILKAN ANGKA 9

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

        If TextBox1.Text = "0" Then

            TextBox1.Text = "9"

            TextBox2.Text = "9"

        Else

            TextBox1.Text = TextBox1.Text & "9"

            TextBox2.Text = TextBox2.Text & "9"

        End If

    End Sub

Jika di tombol button 9 maka pada textbox akan muncul angka 9

Jika tidak ditombol maka pada textbox angka 9 tidak muncul

MENAMPILKAN ANGKA 0

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

        If TextBox1.Text = "0" Then

            TextBox1.Text = "0"

            TextBox2.Text = "0"

        Else

            TextBox1.Text = TextBox1.Text & "0"

            TextBox2.Text = TextBox2.Text & "0"

        End If

    End Sub

Jika di tombol button 10 maka pada textbox akan muncul angka 0

Jika tidak ditombol maka pada textbox angka 0 tidak muncul

MENAMPILKAN ANGKA 00

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

        If TextBox1.Text = "00" Then

            TextBox1.Text = "00"

            TextBox2.Text = "00"

        Else

            TextBox1.Text = TextBox1.Text & "00"

            TextBox2.Text = TextBox2.Text & "00"

        End If

    End Sub

Jika di tombol button 11 maka pada textbox akan muncul angka 00 yang menunjukan nilai ratusan

Jika tidak ditombol maka pada textbox angka 00 tidak muncul

MENAMPILKAN “.”

  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

Jika di tombol button 12 maka pada textbox akan muncul angka “.” Untuk menunjukkan nilai decimal suatu angka

Jika tidak ditombol maka pada textbox angka . tidak muncul

MENGALIKAN ANGKA

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

        TextBox2.Text = TextBox2.Text & "x"

        If proses <> "" Then

            Select Case proses

                Case "+"

                    Call Tambah()

                Case "-"

                    Call kurang()

                Case "x"

                    Call kali()

                Case "/"

                    Call bagi()

                Case "^"

                    Call pangkat()

                Case "log"

                    Call Log()

                Case "Sin"

                    Call Sin()

                Case "Cos"

                    Call Cos()

                Case "Tan"

                    Call Tan()

Dan pada textbox dengan adanya rumus case dan call dapat menggabungkan rumus” yang ada dengan input operator matematika secara paralel

            End Select

        Else

            Call kali()

        End If

        proses = "x"

        TextBox1.Text = ""

    End Sub

    Private Sub kali()

        If Angka = "0" Then

            Angka = Val(TextBox1.Text)

        Else

            Angka = Angka * Val(TextBox1.Text)

        End If

        proses = "x"

        TextBox1.Text = ""

    End Sub

Apabila kita menombol tombol X maka rumus matematika * pada operator matematika yang berfungsi untuk mengalikan input angka awal dan input angka akhir.

MEMBAGI ANGKA

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

        TextBox2.Text = TextBox2.Text & "/"

        If proses <> "" Then

            Select Case proses

                Case "+"

                    Call Tambah()

                Case "-"

                    Call kurang()

                Case "x"

                    Call kali()

                Case "/"

                    Call bagi()

                Case "^"

                    Call pangkat()

                Case "log"

                    Call Log()

               

                Case "Sin"

                    Call Sin()

                Case "Cos"

                    Call Cos()

                Case "Tan"

                    Call Tan()

Dan pada textbox dengan adanya rumus case dan call dapat menggabungkan rumus” yang ada dengan input operator matematika secara paralel

            End Select

        Else

            Call bagi() (tombol /)

        End If

        proses = "/"

        TextBox1.Text = 0

    End Sub

    Private Sub bagi()

        If Angka = "0" Then

            Angka = Val(TextBox1.Text)

        Else

            Angka = Angka / Val(TextBox1.Text)

        End If

        proses = "/"

        TextBox1.Text = ""

    End Sub

Apabila kita menombol tombol / maka rumus matematika / pada operator matematika yang berfungsi untuk membagi input angka awal dan input angka akhir.

MENCARI NILAI PANGKAT

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

        TextBox2.Text = TextBox2.Text & "^"

        If proses <> "" Then

            Select Case proses

                Case "+"

                    Call Tambah()

                Case "-"

                    Call kurang()

                Case "x"

                    Call kali()

                Case "/"

                    Call bagi()

                Case "^"

                    Call pangkat()

                Case "log"

                    Call Log()

                Case "Sin"

                    Call Sin()

                Case "Cos"

                    Call Cos()

                Case "Tan"

                    Call Tan()

Dan pada textbox dengan adanya rumus case dan call dapat menggabungkan rumus” yang ada dengan input operator matematika secara paralel

            End Select

        Else

            Call pangkat() (tombol ^)

        End If

        proses = "^"

        TextBox1.Text = ""

    End Sub

    Private Sub pangkat()

        If Angka = "0" Then

            Angka = Val(TextBox1.Text)

        Else

            Angka = Angka ^ Val(TextBox1.Text)

        End If

        proses = "^"

        TextBox1.Text = ""

    End Sub

Apabila kita menombol tombol ^ maka rumus matematika ^ pada operator matematika yang berfungsi untuk mempangkatkan input angka awal dan input angka akhir.

MENCARI NILAI TAMBAH

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

        TextBox2.Text = TextBox2.Text & "+"

        If proses <> "" Then

            Select Case proses

                Case "+"

                    Call Tambah()

                Case "-"

                    Call kurang()

                Case "x"

                    Call kali()

                Case "/"

                    Call bagi()

                Case "^"

                    Call pangkat()

                Case "log"

                    Call Log()

                Case "Sin"

                    Call Sin()

                Case "Cos"

                    Call Cos()

                Case "Tan"

                    Call Tan()

               

Dan pada textbox dengan adanya rumus case dan call dapat menggabungkan rumus” yang ada dengan input operator matematika secara paralel

            End Select

        Else

            Call Tambah() (tombol +)

        End If

        proses = "+"

        TextBox1.Text = ""

    End Sub

    Private Sub Tambah()

        If Angka = "0" Then

            Angka = Val(TextBox1.Text)

        Else

            Angka = Angka + Val(TextBox1.Text)

        End If

        proses = "+"

        TextBox1.Text = ""

    End Sub

Apabila kita menekan tombol + maka rumus matematika + pada operator matematika yang berfungsi untuk menambahkan input angka awal dan input angka akhir.

MENCARI NILAI KURANG

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

        TextBox2.Text = TextBox2.Text & "-"

        If proses <> "" Then

            Select Case proses

                Case "+"

                    Call Tambah()

                Case "-"

                    Call kurang()

                Case "x"

                    Call kali()

                Case "/"

                    Call bagi()

                Case "^"

                    Call pangkat()

                Case "log"

                    Call Log()

                Case "Sin"

                    Call Sin()

                Case "Cos"

                    Call Cos()

                Case "Tan"

                    Call Tan()

Dan pada textbox dengan adanya rumus case dan call dapat menggabungkan rumus” yang ada dengan input operator matematika secara paralel

            End Select

        Else

            Call kurang() (Tombol - )

        End If

        proses = "-"

        TextBox1.Text = ""

    End Sub

    Private Sub kurang()

        If Angka = "0" Then

            Angka = Val(TextBox1.Text)

        Else

            Angka = Angka - Val(TextBox1.Text)

        End If

        proses = "-"

        TextBox1.Text = ""

    End Sub

Apabila kita menekan tombol - maka rumus matematika - pada operator matematika yang berfungsi untuk mengurangkan input angka awal dan input angka akhir.

MENCARI NILAI SIN

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

        TextBox2.Text = "Sin" & TextBox2.Text

        If proses <> "" Then

            Select Case proses

                Case "+"

                    Call Tambah()

                Case "-"

                    Call kurang()

                Case "x"

                    Call kali()

                Case "/"

                    Call bagi()

                Case "^"

                    Call pangkat()

                Case "log"

                    Call Log()

                Case "Sin"

                    Call Sin()

                Case "Cos"

                    Call Cos()

                Case "Tan"

                    Call Tan()

                Dan pada textbox dengan adanya rumus case dan call dapat menggabungkan rumus” yang ada dengan input operator matematika secara paralel

            End Select

        Else

            Call Sin()

        End If

        proses = "Sin"

        TextBox1.Text = ""

    End Sub

    Private Sub Sin()

        Angka = Val(TextBox1.Text)

        Angka = Math.Sin(Angka * (pi / 180))

        proses = "Sin"

        TextBox1.Text = ""

    End Sub

Apabila kita menekan tombol sin maka rumus matematika sin pada operator matematika yang berfungsi untuk mencari nilai sin dari sebuah input angka pada textbox

MENCARI NILAI TAN

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

        TextBox2.Text = TextBox2.Text & "Tan"

        If proses <> "" Then

            Select Case proses

                Case "+"

                    Call Tambah()

                Case "-"

                    Call kurang()

                Case "x"

                    Call kali()

                Case "/"

                    Call bagi()

                Case "^"

                    Call pangkat()

                Case "log"

                    Call Log()

                Case "Sin"

                    Call Sin()

                Case "Cos"

                    Call Cos()

                Case "Tan"

                    Call Tan()

                Dan pada textbox dengan adanya rumus case dan call dapat menggabungkan rumus” yang ada dengan input operator matematika secara paralel

            End Select

        Else

            Call Tan()

        End If

        proses = "Tan"

        TextBox1.Text = ""

    End Sub

    Private Sub Tan()

        Angka = Val(TextBox1.Text)

        Angka = Math.Tan(Angka * (pi / 180))

        proses = "Tan"

        TextBox1.Text = ""

    End Sub

Apabila kita menekan tombol tan maka rumus matematika tan pada operator matematika yang berfungsi untuk mencari nilai tan dari sebuah input angka pada textbox

MENCARI NILAI COS

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

        TextBox2.Text = "Cos" & TextBox2.Text

        If proses <> "" Then

            Select Case proses

                Case "+"

                    Call Tambah()

                Case "-"

                    Call kurang()

                Case "x"

                    Call kali()

                Case "/"

                    Call bagi()

                Case "^"

                    Call pangkat()

                Case "log"

                    Call Log()

                Case "Sin"

                    Call Sin()

                Case "Cos"

                    Call Cos()

                Case "Tan"

                    Call Tan()

Dan pada textbox dengan adanya rumus case dan call dapat menggabungkan rumus” yang ada dengan input operator matematika secara paralel

            End Select

        Else

            Call Cos()

        End If

        proses = "Cos"

    End Sub

    Private Sub Cos()

        Angka = Val(TextBox1.Text)

        Angka = Math.Cos(Angka * (pi / 180))

        proses = "Cos"

        TextBox1.Text = ""

    End Sub

Apabila kita menekan tombol cos maka rumus matematika cos pada operator matematika yang berfungsi untuk mencari nilai cos dari sebuah input angka pada textbox

MENCARI NILAI LOG

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

        TextBox2.Text = TextBox2.Text & "log"

        If proses <> "" Then

            Select Case proses

                Case "+"

                    Call Tambah()

                Case "-"

                    Call kurang()

                Case "x"

                    Call kali()

                Case "/"

                    Call bagi()

                Case "^"

                    Call pangkat()

                Case "log"

                    Call Log()

                Case "Sin"

                    Call Sin()

                Case "Cos"

                    Call Cos()

                Case "Tan"

                    Call Tan()

Dan pada textbox dengan adanya rumus case dan call dapat menggabungkan rumus” yang ada dengan input operator matematika secara paralel

            End Select

        Else

            Call Log()

        End If

        proses = "log10"

    End Sub

    Private Sub Log()

        Angka = Val(TextBox1.Text)

        Angka = Math.Log10(Angka)

        proses = "log10"

        TextBox1.Text = ""

    End Sub

Apabila kita menekan tombol log maka rumus matematika log pada operator matematika yang berfungsi untuk mencari nilai log dari sebuah input angka pada textbox dengan rumus matematika dikalikan log10 angka inputan

SELAMAT MENJALANKAN KALKULATOR OKE 24