Tutorial Program Kalkulator

Komponen-Komponen ToolBox yang digunakan:

Komponen	Properties	Keterangan
Form1	Nama Text	Form1 Calkulator
Button1	Nama Text	Button1 1
Button2	Nama Text	Button2 2
Button3	Nama Text	Button3 3
Button4	Nama Text	Button4 4
Button5	Nama Text	Button5 5
Button6	Nama Text	Button6 6
Button7	Nama Text	Button7 7
Button8	Nama Text	Button8 8
Button9	Nama Text	Button9 9
Button10	Nama Text	Button10 00
Button11	Nama Text	Button11 0
Button12	Nama Text	Button12 .
Button13	Text Nama	Button13 Sin
Button14	Text Nama	Button14 Cos
Button15	Text Nama	Button15 Tan
Button16	Text Nama	Button16 -
Button17	Text Nama	Button17 +
Button18	Text Nama	Button17 x
Button19	Text Nama	Button19 /
Button20	Text Nama	Button20 =
Button21	Text Nama	Button21 ON
Button23	Text Nama	Button23 Backspace
Button24	Text Nama	Button24 C
Button25	Text Nama	Button25 n!
Button26	Text Nama	Button26 Off

5.      Untuk Mengganti Warna Pada Background form1 pilih properties Backgroundimage-localresource-import-ok

6. Mengganti jenis huruf pada button dan textBox (font), klik toolbox   font   

Lalu pilih jenis font, font style, dan size font . klik OK

Setelah bentuk form1 selesai, kemudian

1.Deklarasikan pada Public Class Form 1

Dim Angka, Hasil As Double

    Dim proses As String

    Dim a, b As Integer

    Dim tombolON As Boolean

    Const pi As Double = 3.14159265358979

2.      Untuk menampilkan angka 1 bila menekan Button angka maka klik Button1 kemudian masukkan listing berikut :

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

        If tombolON = False Then

            Exit Sub

        End If

        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

3.      Untuk menampilkan angka 2 bila menekan Button angka maka klik Button2 kemudian masukkan listing berikut :

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

        If tombolON = False Then

            Exit Sub

        End If

        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

4.      Untuk menampilkan angka 3 bila menekan Button angka maka klik Button3 kemudian masukkan listing berikut :

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

        If tombolON = False Then

            Exit Sub

        End If

        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

5.      Untuk menampilkan angka 4 bila menekan Button angka maka klik Button4 kemudian masukkan listing berikut :

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

        If tombolON = False Then

            Exit Sub

        End If

        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

6.      Untuk menampilkan angka 5 bila menekan Button angka maka klik Button5 kemudian masukkan listing berikut :

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

        If tombolON = False Then

            Exit Sub

        End If

        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

7.      Untuk menampilkan angka 6 bila menekan Button angka maka klik Button6 kemudian masukkan listing berikut :

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

        If tombolON = False Then

            Exit Sub

        End If

        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

8.      Untuk menampilkan angka 7 bila menekan Button angka maka klik Button7 kemudian masukkan listing berikut :

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

        If tombolON = False Then

            Exit Sub

        End If

        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

9.      Untuk menampilkan angka 8 bila menekan Button angka maka klik Button8 kemudian masukkan listing berikut :

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

        If tombolON = False Then

            Exit Sub

        End If

        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

                               

10.  Untuk menampilkan angka 9 bila menekan Button angka maka klik Button9 kemudian masukkan listing berikut :

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

        If tombolON = False Then

            Exit Sub

        End If

        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

11.  Untuk menampilkan angka 00 bila menekan Button angka maka klik Button10 kemudian masukkan listing berikut :

            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

12.  Untuk menampilkan angka 0 bila menekan Button angka maka klik Button11 kemudian masukkan listing berikut :

      If tombolON = False Then

            Exit Sub

        End If

        TextBox1.Text = TextBox1.Text & "0"

        TextBox2.Text = TextBox2.Text & "0"

    End Sub

13.  Untuk menampilkan tanda “. “  bila menekan Button, maka klik Button12 kemudian masukkan listing berikut :

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

        If tombolON = False Then

            Exit Sub

        End If

        TextBox1.Text = TextBox1.Text & "."

        TextBox2.Text = TextBox2.Text & "."

    End Sub

14.  Untuk event Button13_click dengan klik Button13 kemudian masukkan listing berikut:

  Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.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 "N!"

                    Call faktorial()

                Case "Sin"

                    Call Sin()

                Case "Cos"

                    Call Cos()

                Case "Tan"

                    Call Tan()

            End Select

        Else

            Call Sin()

        End If

        proses = "Sin"

        TextBox1.Text = ""

    End Sub

Supaya hasil dari sin  itu menjadi bilangan bulat , maka anda dapat memasukkan listing sebagai berikut :

   Private Sub Sin()

        Angka = Val(TextBox1.Text)

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

        proses = "Sin"

        TextBox1.Text = ""

    End Sub

15.  Untuk event Button14_click dengan klik Button14 kemudian masukkan listing berikut:

           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 "N!"

                    Call faktorial()

                Case "Sin"

                    Call Sin()

                Case "Cos"

                    Call Cos()

                Case "Tan"

                    Call Tan()

               

            End Select

        Else

            Call Cos()

        End If

        proses = "Cos"

    End Sub

  Supaya hasil dari cos  itu menjadi bilangan bulat , maka anda dapat memasukkan listing sebagai berikut :

                     Private Sub Cos()

        Angka = Val(TextBox1.Text)

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

        proses = "Cos"

        TextBox1.Text = ""

    End Sub

16.  Untuk event Button15_click dengan klik Button15  kemudian masukkan listing berikut:

                        Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.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 "N!"

                    Call faktorial()

                Case "Sin"

                    Call Sin()

                Case "Cos"

                    Call Cos()

                Case "Tan"

                    Call Tan()

            End Select

        Else

            Call Tan()

        End If

        proses = "Tan"

        TextBox1.Text = ""

    End Sub
Supaya hasil dari tan  itu menjadi bilangan bulat , maka anda dapat memasukkan listing sebagai berikut :

                     Private Sub Tan()

        Angka = Val(TextBox1.Text)

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

        proses = "Tan"

        TextBox1.Text = ""

    End Sub

17.  Untuk menampilkan tanda “-“  bila menekan Button, maka klik Button16 kemudian masukkan listing berikut :

            Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.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 "N!"

                    Call faktorial()

                Case "Sin"

                    Call Sin()

                Case "Cos"

                    Call Cos()

                Case "Tan"

                    Call Tan()

               

            End Select

        Else

            Call kurang()

        End If

        proses = "-"

        TextBox1.Text = ""

    End Sub

18.  Untuk menampilkan tanda “+“  bila menekan Button, maka klik Button17 kemudian masukkan listing berikut :

       Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.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 "N!"

                    Call faktorial()

                Case "Sin"

                    Call Sin()

                Case "Cos"

                    Call Cos()

                Case "Tan"

                    Call Tan()

               

            End Select

        Else

            Call Tambah()

        End If

        proses = "+"

        TextBox1.Text = ""

    End Sub

19.  Untuk menampilkan tanda “*“  bila menekan Button, maka klik Button18 kemudian masukkan listing berikut :

           Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.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()

        

                    Call faktorial()

                Case "Sin"

                    Call Sin()

                Case "Cos"

                    Call Cos()

                Case "Tan"

                    Call Tan()

               

            End Select

        Else

            Call kali()

        End If

        proses = "x"

        TextBox1.Text = ""

    End Sub

20.  Untuk menampilkan tanda “/“  bila menekan Button, maka klik Button19  kemudian masukkan listing berikut :

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 "N!"

                    Call faktorial()

                Case "Sin"

                    Call Sin()

                Case "Cos"

                    Call Cos()

                Case "Tan"

                    Call Tan()

              

            End Select

        Else

            Call bagi()

        End If

        proses = "/"

        TextBox1.Text = 0

    End Sub

21.  Untuk menampilkan tanda “=“  bila menekan Button, maka klik Button20  kemudian masukkan listing berikut :

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

        If proses = "+" Then

            Hasil = Angka + Val(TextBox1.Text)

            TextBox1.Text = Hasil

        ElseIf proses = "-" Then

            Hasil = Angka - Val(TextBox1.Text)

            TextBox1.Text = Hasil

        ElseIf proses = "x" Then

            Hasil = Angka * Val(TextBox1.Text)

            TextBox1.Text = Hasil

        ElseIf proses = "/" Then

            Hasil = Angka / Val(TextBox1.Text)

            TextBox1.Text = Hasil

        ElseIf proses = "Cos" Then

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

            TextBox1.Text = Hasil

        ElseIf proses = "Sin" Then

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

            TextBox1.Text = Hasil

        ElseIf proses = "Tan" Then

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

            TextBox1.Text = Hasil

        ElseIf proses = "N!" Then

            TextBox1.Text = Str(a)

        ElseIf proses = "log10" Then

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

            TextBox1.Text = Hasil

        ElseIf proses = "mod" Then

            Hasil = Angka Mod Val(TextBox1.Text)

            TextBox1.Text = Hasil

        End If

        proses = ""

        Angka = 0

    End Sub

22.  Untuk event Button23_click dengan klik Button23  kemudian masukkan listing berikut:

                   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

23.  Untuk event Button24_click dengan klik Button24  kemudian masukkan listing berikut:

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

        TextBox2.Text = ""

        TextBox1.Text = ""

    End Sub

24.  Untuk Keluar maka klik Button26  kemudian  masukkan listing berikut :

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

        End

    End Sub

25.  Untuk tombol ON masukkan listing berikut :

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

        tombolON = True

        Me.ForeColor = Color.Black

    End Sub

26.  Untuk tanda “ + - “

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

        TextBox1.Text = TextBox1.Text * -1

        TextBox2.Text = TextBox2.Text * -1

    End Sub

End Class

Setelah semua listing telah dimasukkan, kemudian Run Program yang telah dibuat tersebut dengan cara menekan tombol F5 pada keyboard.

Cara penggunaan kalkulator sains sebagai berikut :
1. Tombol 1,2,3,4,5,6,7,8,9,0,00
            Merupakan tombol untuk menginput angka.
2. Tombol ON/OFF
             Merupakan tombol untuk menghidupkan atau mematikan program kalkulator.
3. Tombol x, / , + , -
            Merupakan Tombol untuk operasi pekalian,pembagian,penjumlahan, dan pengurangan.

4. Tombol Sin, Cos, Tan
            Merupakan tombol untuk operasi trigonometri

5. Tombol +/-
            Merupakan  tombol untuk menginput angka yang negative atau positif .

6. Tombol n!

            Merupakan tombol untuk operasi bilangan factorial.
7. Tombol C
             Merupakan tombol untuk menghapus data yang telah di input sekaligus.
8. Tombol Backspace
            Merupakan tombol untuk  menghapus satu-satu dari data yang telah di input.

9.  Tombol =

             Merupakan tombol untuk menyatakan hasil dari data yang telah di input.