Modul 2 - Konsep, Flowchart, Tutorial dan Analisis Listing Program Kalkulator Dedira

Konsep

Deskripsi Singkat
Kalkulator yang kami buat ini seperti kalkulator pada umumnya, yaitu alat yang berguna untuk membantu manusia dalam proses penghitungan. Kalkulator buatan kami ini terdiri dari operator standar seperti penjumlahan, pengurangan, perkalian, dan pembagian juga operator-operator lain yang lebih kompleks seperti akar, pemangkatan, logaritma, faktorial, dan operator-operator trigonometri.

Tujuan dan Manfaat
Seperti yang telah disebutkan, kalkulator berfungsi sebagai alat hitung. Tujuan dari pembuatan kalkulator ini adalah mempermudah manusia dalam hitung-menghitung sehingga kegiatan mereka yang membutuhkan penghitungan cepat lebih terbantu karena mereka tidak perlu membawa-bawa kalkulator, cukup dengan sebuah program yang ada di Personal Computer mereka.
Manfaat dari pembuatan kalkulator diantaranya adalah mempercepat kinerja manusia dalam hal hitung-menghitung sehingga segala pekerjaan menjadi lebih ringan.

Sasaran
Sasaran dari program ini adalah para mahasiswa dengan kebutuhan mobilitas tinggi sehingga membutuhkan segala sesuatu yang praktis.

 Tutorial

Pertama-tama bukalah program Visual Basic 2010 dengan cara:
1. Klik "Start"
2. Pilih Microsoft Visual Basic 2010
3. Setelah mucul "Start Page" pilih "New Project"   

 4. Setelah muncul halaman New Project pilih “Windows Forms Application”

5. Klik “OK”
6. Selanjutnya muncul lembar kerja Visual Basic yang biasa disebut Form

   7. Form diisi dengan berbagai komponen yang didapat melalui "Toolbox"

8. Bentuk Form

 Komponen Toolbox yang digunakan

No.	Komponen	Properties	Keterangan
1.	Form1	Name Text	Form1
2.	Label	Name Text	Label1 Kalkulator Dedira
3.	TextBox	Name Text	TextBox1 (Dikosongkan)
4.	TextBox	Name Text	TextBox2 (Dikosongkan)
5.	Button	Name Text	Button1 1
6.	Button	Name Text	Button2 2
7.	Button	Name Text	Button3 3
8.	Button	Name Text	Button4 4
9.	Button	Name Text	Button5 5
10.	Button	Name Text	Button6 6
11.	Button	Name Text	Button7 7
12.	Button	Name Text	Button8 8
13.	Button	Name Text	Button9 9
14.	Button	Name Text	Button10 .
15.	Button	Name Text	Button11 0
16.	Button	Name Text	Button12 +
17.	Button	Name Text	Button13 -
18.	Button	Name Text	Button14 X
19.	Button	Name Text	Button15 /
20.	Button	Name Text	Button16 %
21.	Button	Name Text	Button17 ^
22.	Button	Name Text	Button18 n!
23.	Button	Name Text	Button19 √
24.	Button	Name Text	Button20 Clear
25.	Button	Name Text	Button21 Log x
26.	Button	Name Text	Button22 Sin
27.	Button	Name Text	Button23 Cos
28.	Button	Name Text	Button24 Tan
29.	Button	Name Text	Button25 =
30.	Button	Name Text	Button26 Off
31.	Button	Name Text	Button27 On
32.	Button	Name Text	Button28 Exit
33.	Button	Name Text	Button29 ±
34.	Button	Name Text	Button30 Mod
35.	Button	Name Text	Button31 Del
36.	PictureBox	Name Sizemode Location Size	PictureBox1 Normal 254; 261 113; 65
37.	PictureBox	Name Sizemode Location Size	PictureBox2 Normal -1;0 399; 340

Analisis Listing

Option Explicit On

Public Class Form1

    Dim angka As Single

    Dim FirstNumber As Single

    Dim SecondNumber As Single

    Dim AnswerNumber As Single

    Const pi As Double = 3.14159265358979

    Dim a, b As Integer

    Dim lTombolOn As Boolean

    Dim ArithmeticProcess As String

Penjelasan:

• Dim merupakan statement.
• FirstNumber merupakan bulangan yang diinputkan dalam kalkulator.
• SecondNumber merupakan bilangan yang akan dioprasikan bersama FirstNumber.
• AnswerNumber merupakan jawaban yang dihasilkan kalkulator.
• Double merupakan tipe data yang membuat angka dalam jumlah besar.
• Integer merupakan tipe data untuk angka.
• Single merupakan tipe data untuk angka dengan range yang lebih besar.
• String merupakan tipe data untuk huruf dan angka.
• Boolean merupakan tipe data untuk option true or false

    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

Penjelasan:

• Merupakan perintah untuk menuliskan angka 1 pada kalkulator bila menekan button1
• Angka ditampilkan pada Textbox1 dan Textbox2.
• TextBox1.Text & "1" berarti angka 1 akan tampil setelah angka yang sebelumnya telah diinput.

    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

Penjelasan:

• Merupakan perintah untuk menuliskan angka 2 pada kalkulator bila menekan button1
• Angka ditampilkan pada Textbox1 dan Textbox2.
• TextBox1.Text & "2" berarti angka 2 akan tampil setelah angka yang sebelumnya telah diinput.

    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

Penjelasan:

• Merupakan perintah untuk menuliskan angka 3 pada kalkulator bila menekan button1
• Angka ditampilkan pada Textbox1 dan Textbox2.
• TextBox1.Text & "3" berarti angka 3 akan tampil setelah angka yang sebelumnya telah diinput.

    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

Penjelasan:

• Merupakan perintah untuk menuliskan angka 4 pada kalkulator bila menekan button1
• Angka ditampilkan pada Textbox1 dan Textbox2.
• TextBox1.Text & "4" berarti angka 4 akan tampil setelah angka yang sebelumnya telah diinput.

    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

Penjelasan:

• Merupakan perintah untuk menuliskan angka 5 pada kalkulator bila menekan button1
• Angka ditampilkan pada Textbox1 dan Textbox2.
• TextBox1.Text & "5" berarti angka 2 akan tampil setelah angka yang sebelumnya telah diinput.

    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

Penjelasan:

• Merupakan perintah untuk menuliskan angka 6 pada kalkulator bila menekan button1
• Angka ditampilkan pada Textbox1 dan Textbox2.
• TextBox1.Text & "6" berarti angka 6 akan tampil setelah angka yang sebelumnya telah diinput.

    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

Penjelasan:

• Merupakan perintah untuk menuliskan angka 7 pada kalkulator bila menekan button1
• Angka ditampilkan pada Textbox1 dan Textbox2.
• TextBox1.Text & "7" berarti angka 7 akan tampil setelah angka yang sebelumnya telah diinput.

    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

Penjelasan:

• Merupakan perintah untuk menuliskan angka 8 pada kalkulator bila menekan button1
• Angka ditampilkan pada Textbox1 dan Textbox2.
• TextBox1.Text & "8" berarti angka 8 akan tampil setelah angka yang sebelumnya telah diinput.

    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

Penjelasan:

• Merupakan perintah untuk menuliskan angka 9 pada kalkulator bila menekan button1
• Angka ditampilkan pada Textbox1 dan Textbox2.
• TextBox1.Text & "9" berarti angka 9 akan tampil setelah angka yang sebelumnya telah diinput.

    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

Penjelasan:

• Merupakan perintah untuk menuliskan angka 0 pada kalkulator bila menekan button11
• Angka ditampilkan pada Textbox1 dan Textbox2.

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

        TextBox1.Text = TextBox1.Text & "."

        TextBox2.Text = TextBox2.Text & "."

    End Sub

Penjelasan:

• Merupakan perintah untuk menuliskan tanda . pada kalkulator bila menekan button10
• Tanda ditampilkan pada Textbox1 dan Textbox2.

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

        TextBox1.Text = ""

        TextBox2.Text = ""

        angka = 0

        AnswerNumber = 0

        ArithmeticProcess = ""

    End Sub

Penjelasan:

• Merupakan perintah untuk menghapus isi textbox1 dan textbox2
• Angka ditampilkan pada Textbox1 dan Textbox2.

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

        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

        Button21.Enabled = False

        Button22.Enabled = False

        Button24.Enabled = False

        Button23.Enabled = False

        Button25.Enabled = False

        Button28.Enabled = False

        Button29.Enabled = False

        Button30.Enabled = False

        Button31.Enabled = False

    End Sub

Penjelasan:

• "False" merupakan perintah untuk menonaktifkan tombol, dalam hal ini tombol-tombol pada kalkulator.

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

        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

        Button28.Enabled = True

        Button29.Enabled = True

        Button30.Enabled = True

        Button31.Enabled = True

    End Sub

Penjelasan:

• "True" merupakan perintah untuk menonaktifkan tombol, dalam hal ini tombol-tombol pada kalkulator.

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

        If ArithmeticProcess <> "" Then

            Select Case ArithmeticProcess

                Case "+"

                    Call Tambah()

                Case "-"

                    Call kurang()

                Case "x"

                    Call kali()

                Case "/"

                    Call bagi()

                Case "^"

                    Call pangkat()

                Case "log"

                    Call Log()

                Case "^1/2″"

                    Call akar()

                Case "n!"

                    Call faktorial()

                Case "%"

                    Call persen()

                Case "Sin"

                    Call sin()

                Case "Cos"

                    Call cos()

                Case "Tan"

                    Call Tan()

                Case "Mod"

                    Call Modulus()

            End Select

        Else

            Call Tambah()

        End If

    End Sub

    Private Sub Tambah()

        FirstNumber = Val(TextBox1.Text)

        TextBox2.Text = ""

        TextBox1.Text = TextBox1.Text & "+"

        ArithmeticProcess = "+"

    End Sub

Penjelasan:

• Merupakan perintah untuk fungsi penjumlahan.

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

        If ArithmeticProcess <> "" Then

            Select Case ArithmeticProcess

                Case "+"

                    Call Tambah()

                Case "-"

                    Call kurang()

                Case "x"

                    Call kali()

                Case "/"

                    Call bagi()

                Case "^"

                    Call pangkat()

                Case "log"

                    Call Log()

                Case "^1/2″"

                    Call akar()

                Case "n!"

                    Call faktorial()

                Case "%"

                    Call persen()

                Case "Sin"

                    Call sin()

                Case "Cos"

                    Call cos()

                Case "Tan"

                    Call Tan()

                Case "Mod"

                    Call Modulus()

            End Select

        Else

            Call kurang()

        End If

    End Sub

    Private Sub kurang()

        FirstNumber = Val(TextBox1.Text)

        TextBox2.Text = ""

        TextBox1.Text = TextBox1.Text & "-"

        ArithmeticProcess = "-"

    End Sub

Penjelasan:

• Merupakan perintah untuk fungsi pengurangan.

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

        If ArithmeticProcess <> "" Then

            Select Case ArithmeticProcess

                Case "+"

                    Call Tambah()

                Case "-"

                    Call kurang()

                Case "x"

                    Call kali()

                Case "/"

                    Call bagi()

                Case "^"

                    Call pangkat()

                Case "log"

                    Call Log()

                Case "^1/2″"

                    Call akar()

                Case "n!"

                    Call faktorial()

                Case "%"

                    Call persen()

                Case "Sin"

                    Call sin()

                Case "Cos"

                    Call cos()

                Case "Tan"

                    Call Tan()

                Case "Mod"

                    Call Modulus()

            End Select

        Else

            Call kali()

        End If

    End Sub

    Private Sub kali()

        FirstNumber = Val(TextBox1.Text)

        TextBox2.Text = ""

        TextBox1.Text = TextBox1.Text & "*"

        ArithmeticProcess = "*"

    End Sub

Penjelasan:

• Merupakan perintah untuk fungsi perkalian.

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

        If ArithmeticProcess <> "" Then

            Select Case ArithmeticProcess

                Case "+"

                    Call Tambah()

                Case "-"

                    Call kurang()

                Case "x"

                    Call kali()

                Case "/"

                    Call bagi()

                Case "^"

                    Call pangkat()

                Case "log"

                    Call Log()

                Case "^1/2″"

                    Call akar()

                Case "n!"

                    Call faktorial()

                Case "%"

                    Call persen()

                Case "Sin"

                    Call sin()

                Case "Cos"

                    Call cos()

                Case "Tan"

                    Call Tan()

                Case "Mod"

                    Call Modulus()

            End Select

        Else

            Call bagi()

        End If

    End Sub

    Private Sub bagi()

        FirstNumber = Val(TextBox1.Text)

        TextBox2.Text = ""

        TextBox1.Text = TextBox1.Text & "/"

        ArithmeticProcess = "/"

    End Sub

Penjelasan:

• Merupakan perintah untuk fungsi pembagian.

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

        If ArithmeticProcess <> "" Then

            Select Case ArithmeticProcess

                Case "+"

                    Call Tambah()

                Case "-"

                    Call kurang()

                Case "x"

                    Call kali()

                Case "/"

                    Call bagi()

                Case "^"

                    Call pangkat()

                Case "^1/"

                    Call akar()

                Case "Sin"

                    Call sin()

                Case "Cos"

                    Call cos()

                Case "Tan"

                    Call tan()

                Case "log"

                    Call Log()

                Case "Mod"

                    Call Modulus()

            End Select

        Else

            Call kali()

        End If

    End Sub

    Private Sub pangkat()

        If FirstNumber = "" Then

            FirstNumber = Val(TextBox1.Text)

        Else

            AnswerNumber = FirstNumber ^ SecondNumber

        End If

        ArithmeticProcess = "^"

    End Sub

Penjelasan:

• Merupakan perintah untuk fungsi pemangkatan.

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

        Close()

    End Sub

Penjelasan:

• Merupakan perintah untuk menutup program.

    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

        If e.KeyCode = Keys.NumPad1 Then

            TextBox1.Text = TextBox1.Text & "1"

            TextBox2.Text = TextBox2.Text & "1"

        End If

    End Sub

Penjelasan:

• Merupakan perintah untuk menulis angka 1.

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

        If ArithmeticProcess <> "" Then

            Select Case ArithmeticProcess

                Case "+"

                    Call Tambah()

                Case "-"

                    Call kurang()

                Case "x"

                    Call kali()

                Case "/"

                    Call bagi()

                Case "^"

                    Call pangkat()

                Case "log"

                    Call Log()

                Case "^1/2″"

                    Call akar()

                Case "n!"

                    Call faktorial()

                Case "%"

                    Call persen()

                Case "Sin"

                    Call sin()

                Case "Cos"

                    Call cos()

                Case "Tan"

                    Call Tan()

                Case "Mod"

                    Call Modulus()

            End Select

        Else

            Call akar()

        End If

    End Sub

    Private Sub akar()

        FirstNumber = Val(TextBox1.Text)

        TextBox2.Text = ""

        TextBox1.Text = TextBox1.Text & "√"

        ArithmeticProcess = "√"

    End Sub

Penjelasan:

• Merupakan perintah untuk fungsi akar. 

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

        angka = 0

        AnswerNumber = 0

        lTombolOn = False

    End Sub

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

        If ArithmeticProcess <> "" Then

            Select Case ArithmeticProcess

                Case "+"

                    Call Tambah()

                Case "-"

                    Call kurang()

                Case "x"

                    Call kali()

                Case "/"

                    Call bagi()

                Case "^"

                    Call pangkat()

                Case "log"

                    Call Log()

                Case "^1/2″"

                    Call akar()

                Case "n!"

                    Call faktorial()

                Case "%"

                    Call persen()

                Case "Sin"

                    Call sin()

                Case "Cos"

                    Call cos()

                Case "Tan"

                    Call Tan()

                Case "Mod"

                    Call Modulus()

            End Select

        Else

            Call persen()

        End If

    End Sub

    Private Sub persen()

        FirstNumber = Val(TextBox1.Text)

        TextBox2.Text = ""

        TextBox1.Text = TextBox1.Text & "%"

        ArithmeticProcess = "%"

    End Sub

Penjelasan:

• Merupakan perintah untuk fungsi persen.

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

        If ArithmeticProcess <> "" Then

            Select Case ArithmeticProcess

                Case "+"

                    Call Tambah()

                Case "-"

                    Call kurang()

                Case "x"

                    Call kali()

                Case "/"

                    Call bagi()

                Case "^"

                    Call pangkat()

                Case "log"

                    Call Log()

                Case "^1/2″"

                    Call akar()

                Case "n!"

                    Call faktorial()

                Case "%"

                    Call persen()

                Case "Sin"

                    Call sin()

                Case "Cos"

                    Call cos()

                Case "Tan"

                    Call Tan()

                Case "Mod"

                    Call Modulus()

            End Select

        Else

            Call sin()

        End If

    End Sub

    Private Sub sin()

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

        TextBox2.Text = Math.Sin(TextBox2.Text * (pi / 180))

    End Sub

Penjelasan:

• Merupakan perintah untuk fungsi sin.

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

        If ArithmeticProcess <> "" Then

            Select Case ArithmeticProcess

                Case "+"

                    Call Tambah()

                Case "-"

                    Call kurang()

                Case "x"

                    Call kali()

                Case "/"

                    Call bagi()

                Case "^"

                    Call pangkat()

                Case "log"

                    Call Log()

                Case "^1/2″"

                    Call akar()

                Case "n!"

                    Call faktorial()

                Case "%"

                    Call persen()

                Case "Sin"

                    Call sin()

                Case "Cos"

                    Call cos()

                Case "Tan"

                    Call Tan()

                Case "Mod"

                    Call Modulus()

            End Select

        Else

            Call cos()

        End If

    End Sub

    Private Sub cos()

        TextBox2.Text = Math.Cos(TextBox2.Text * (pi / 180))

    End Sub

Penjelasan:

• Merupakan perintah untuk fungsi cos.

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

        If ArithmeticProcess <> "" Then

            Select Case ArithmeticProcess

                Case "+"

                    Call Tambah()

                Case "-"

                    Call kurang()

                Case "x"

                    Call kali()

                Case "/"

                    Call bagi()

                Case "^"

                    Call pangkat()

                Case "log"

                    Call Log()

                Case "^1/2″"

                    Call akar()

                Case "n!"

                    Call faktorial()

                Case "%"

                    Call persen()

                Case "Sin"

                    Call sin()

                Case "Cos"

                    Call cos()

                Case "Tan"

                    Call Tan()

                Case "Mod"

                    Call Modulus()

            End Select

        Else

            Call Tan()

        End If

    End Sub

    Private Sub Tan()

        TextBox2.Text = Math.Tan(TextBox2.Text * (pi / 180))

    End Sub

Penjelasan:

• Merupakan perintah untuk fungsi tan.

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

        If arithmeticprocess <> "" Then

            Select Case arithmeticprocess

                Case "+"

                    Call Tambah()

                Case "-"

                    Call kurang()

                Case "x"

                    Call kali()

                Case "/"

                    Call bagi()

                Case "^"

                    Call pangkat()

                Case "log"

                    Call Log()

                Case "^1/2″"

                    Call akar()

                Case "n!"

                    Call faktorial()

                Case "%"

                    Call persen()

                Case "Sin"

                    Call sin()

                Case "Cos"

                    Call cos()

                Case "Tan"

                    Call Tan()

                Case "Mod"

                    Call Modulus()

            End Select

        Else

            Call faktorial()

        End If

    End Sub

    Private Sub faktorial()

        FirstNumber = Val(TextBox1.Text)

        TextBox1.Text = ""

        TextBox1.Text = TextBox1.Text & "!"

        ArithmeticProcess = "n!"

    End Sub

Penjelasan:

• Merupakan perintah untuk fungsi faktorial.

  

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

        If ArithmeticProcess <> "" Then

            Select Case ArithmeticProcess

                Case "+"

                    Call Tambah()

                Case "-"

                    Call kurang()

                Case "x"

                    Call kali()

                Case "/"

                    Call bagi()

                Case "^"

                    Call pangkat()

                Case "log"

                    Call Log()

                Case "^1/2″"

                    Call akar()

                Case "n!"

                    Call faktorial()

                Case "%"

                    Call persen()

                Case "Sin"

                    Call sin()

                Case "Cos"

                    Call cos()

                Case "Tan"

                    Call Tan()

                Case "Mod"

                    Call Modulus()

            End Select

        Else

            Call Log()

        End If

    End Sub

    Private Sub Log()

        TextBox2.Text = Math.Log10(TextBox2.Text)

    End Sub

Penjelasan:

• Merupakan perintah untuk fungsi logaritma.

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

        SecondNumber = Val(TextBox2.Text)

        If ArithmeticProcess = "+" Then

            AnswerNumber = FirstNumber + SecondNumber

            TextBox2.Text = AnswerNumber
            TextBox1.Text = AnswerNumber

        End If

        If ArithmeticProcess = "-" Then

            AnswerNumber = FirstNumber - SecondNumber

            TextBox2.Text = AnswerNumber
            TextBox1.Text = AnswerNumber 

        End If

        If ArithmeticProcess = "*" Then

            AnswerNumber = FirstNumber * SecondNumber

            TextBox2.Text = AnswerNumber
            TextBox1.Text = AnswerNumber 

        End If

        If ArithmeticProcess = "/" Then

            If SecondNumber = "0" Then

                MsgBox("cannot devide by zero", 0, "warning")

                TextBox2.Text = ""

                Exit Sub

            End If

            AnswerNumber = FirstNumber / SecondNumber

            TextBox2.Text = AnswerNumber
            TextBox1.Text = AnswerNumber 

        End If

        If ArithmeticProcess = "^" Then

            AnswerNumber = FirstNumber ^ SecondNumber

            TextBox2.Text = AnswerNumber
            TextBox1.Text = AnswerNumber 

        End If

        If ArithmeticProcess = "%" Then

            AnswerNumber = FirstNumber / 100

            TextBox2.Text = AnswerNumber
            TextBox1.Text = AnswerNumber 

        End If

            If ArithmeticProcess = "n!" Then

                a = 1

                For i = 1 To FirstNumber

                    a = a * i

                Next

            TextBox2.Text = Str(a)

            AnswerNumber = TextBox2.Text

            End If

            If ArithmeticProcess = "√" Then

                AnswerNumber = FirstNumber ^ 0.5

                TextBox2.Text = AnswerNumber
                TextBox1.Text = AnswerNumber 

        End If

        If ArithmeticProcess = "Mod" Then

            AnswerNumber = FirstNumber Mod SecondNumber

            TextBox2.Text = AnswerNumber
            TextBox1.Text = AnswerNumber 

        End If

    End Sub

Penjelasan:

• Merupakan perintah untuk memfungsikan tombol =.

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

        If TextBox1.Text.Length = 0 Then

            TextBox1.Text = TextBox1.Text + CStr("-")

        ElseIf TextBox1.Text <> "." Then

            TextBox1.Text = TextBox1.Text * -1

        End If

    End Sub

Penjelasan:

• Merupakan perintah untuk fungsi ±.

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

Penjelasan:

• Merupakan perintah untuk menampilkan Textbox1.

    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click

    End Sub

Penjelasan:

• Merupakan perintah untuk menampilkan gambar.

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

       

        If TextBox1.Text < " " Then

            TextBox1.Text = Mid(TextBox1.Text, 1, Len(TextBox1.Text) - 1 + 1)

            TextBox2.Text = Mid(TextBox2.Text, 1, Len(TextBox1.Text) - 1 + 1)

        Else

            TextBox1.Text = Mid(TextBox1.Text, 1, Len(TextBox1.Text) - 1)

            TextBox2.Text = Mid(TextBox2.Text, 1, Len(TextBox1.Text) - 1 + 1)

        End If

    End Sub

Penjelasan:

• Merupakan perintah untuk memfungsikan tombol Del.

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

        If ArithmeticProcess <> "" Then

            Select Case ArithmeticProcess

                Case "+"

                    Call Tambah()

                Case "-"

                    Call kurang()

                Case "x"

                    Call kali()

                Case "/"

                    Call bagi()

                Case "^"

                    Call pangkat()

                Case "log"

                    Call Log()

                Case "^1/2″"

                    Call akar()

                Case "n!"

                    Call faktorial()

                Case "%"

                    Call persen()

                Case "Sin"

                    Call sin()

                Case "Cos"

                    Call cos()

                Case "Tan"

                    Call Tan()

                Case "Mod"

                    Call Modulus()

            End Select

        Else

            Call Modulus()

        End If

    End Sub

    Private Sub Modulus()

       FirstNumber = Val(TextBox1.Text)
        TextBox2.Text = ""
        TextBox1.Text = TextBox1.Text & "Mod"
        ArithmeticProcess = "Mod"

    End Sub

Penjelasan:

• Merupakan perintah untuk fungsi modulus.

End Class

Penjelasan:

• End Class fungsi untuk menyelesaikan Form1.