Kamis, 29 November 2012

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.

Tidak ada komentar:

Posting Komentar