Program Aplikasi Kalkulator

Konsep Kalkulator Scientific

Deskripsi

Kalkulator scientific ini digunakan untuk membantu perhitungan matematis. Kalkulator ini tersusun atas operator aritmatika,diantaranya penjumlahan(+), pengurangan (-), pembagian(/), perkalian(*) dan sudah dilengkapi dengan operator aritmatika yang lain yaitu sin,cos, tan, logaritma,pangkat dan ln.

Tujuan

Tujuan dari kalkulator ini yaitu membantu dalam perhitungan matematis yang sederhana.

Sasaran

Untuk pengguna yang ingin menghitung dengan menggunakan kalkulator, biasanya bagi siswa.

Tutorial Kalkulator

Untuk  membuat dengan design yang seperti ini

                        

Berikut langkah-langkahnya

Buka Visual Basic 2010>> New Project>> Windows Forms Application>

Masukkan button dan label yang ada di toolbox yang akan digunakan dalam pembuatan kalkulator:

Komponen	Properties	Keterangan
Form1	Name Text	Form 1 Kalkulator
Label 1	Name Text Text Font	Label 1 Bilangan 1 Right Microsoft Sans Serif
Label 2	Name Text	Label 2 Bilangan 2
Button1	Name Text	Button 1 1
Button 2	Name Text	Button2 2
Button3	Name Text	Button 3 3
Button4	Name Text	Button 4 4
Button5	Name Text	Button 5 5
Button6	Name Text	Button 6 6
Button7	Name Text	Button 7 7
Button8	Name Text	Button 8 8
Button9	Name Text	Button 9 9
Button10	Name Text	Button 10 0
Button11	Name Text	Button 11 .
Button12	Name Text	Button 12 +
Button13	Name Text	Button 13 -
Button14	Name Text	Button 14 X
Button15	Name Text	Button 15 /
Button16	Name Text	Button 16 AC
Button17	Name Text	Button 17 =
Button18	Name Text	Button 18 Sin
Button19	Name Text	Button 19 Cos
Button 20	Name Text	Button 20 Tan
Button 21	Name Text	Button 21 Log
Button 22	Name Text	Button 22 √
Button23	Name Text	Button 23 ON
Button 24	Name Text	Button 24 OFF
Button 25	Name Text	Button 25 Ln
Botton 26	Name Text	000

LISTING TABEL

Public Class Form1

    Dim FirstNumber As Single

    Dim SecondNumber As Single

    Dim AnswerNumber As Single

    Dim ArithmeticProcess As String

    Dim lanjutan As Double

Fungsi dim sebagai bantuan yang menentukan bagian yang tergolong dalam single, string, dan double

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

        Me.BackColor = Color.Golden

    End Sub

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

        Label1.Text = Label1.Text & "1"

    End Sub

Ket:Di label 1 akan muncul angka 1

  

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

        Label1.Text = Label1.Text & "2"

    End Sub

Ket:Di label 1 akan muncul angka 1

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

        Label1.Text = Label1.Text & "3"

    End Sub

Ket:Di label 1 akan muncul angka 1

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

        Label1.Text = Label1.Text & "4"

    End Sub

Ket:Di label 1 akan muncul angka 1

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

        Label1.Text = Label1.Text & "5"

    End Sub

Ket:Di label 1 akan muncul angka 1

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

        Label1.Text = Label1.Text & "6"

    End Sub

Ket:Di label 1 akan muncul angka 1

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

        Label1.Text = Label1.Text & "7"

    End Sub

Maka di label 1 akan muncul angka 7

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

        Label1.Text = Label1.Text & "8"

    End Sub

Maka di label 1 akan muncul angka 8

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

        Label1.Text = Label1.Text & "9"

    End Sub

Maka di label 1 akan muncul angka 9

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

        Label1.Text = Label1.Text & "."

    End Sub

Maka di label 1 akan muncul angka .

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

        Label1.Text = Label1.Text & "0"

    End Sub

Maka di label 1 akan muncul angka 0

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

        FirstNumber = Val(Label1.Text)

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

        Label1.Text = ""

        ArithmeticProcess = "+"

    End Sub

Angka pertama dari nilai label1,label 2 didapat dari label1,label 1 menjadi kosong sehingga label 2 didapat dari label1 ditambah dengan proses aritmatik + (tambah)

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

        FirstNumber = Val(Label1.Text)

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

        Label1.Text = ""

        ArithmeticProcess = "-"

    End Sub

Angka pertama dari nilai label1,label 2 didapat dari label1,label 1 menjadi kosong sehingga label 2 didapat dari label1 ditambah dengan proses aritmatik -(kurang)

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

        FirstNumber = Val(Label1.Text)

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

        Label1.Text = ""

        ArithmeticProcess = "x"

    End Sub

Angka pertama dari nilai label1,label 2 didapat dari label1,label 1 menjadi kosong sehingga label 2 didapat dari label1 ditambah dengan proses aritmatik x (kali)

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

        FirstNumber = Val(Label1.Text)

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

        Label1.Text = ""

        ArithmeticProcess = "/"

    End Sub

Angka pertama dari nilai label1,label 2 didapat dari label1,label 1 menjadi kosong sehingga label 2 didapat dari label1 ditambah dengan proses aritmatik /(bagi)

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

        Label1.Text = ""

        Label2.Text = ""

    End Sub

Membuat label 1 dan label 2 menjadi kosong

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

        SecondNumber = Val(Label1.Text)

        If ArithmeticProcess = "+" Then

            AnswerNumber = FirstNumber + SecondNumber

            Label1.Text = AnswerNumber

            Label2.Text = Label2.Text & " " & SecondNumber & "="

        End If

Angka kedua dari nilai label 1

Jika proses atimatik (+) tambah maka jawaban dari angka pertama ditambah angka kedua dan ada sama dengan. Dan jawaban berada di label 1.

        If ArithmeticProcess = "-" Then

            AnswerNumber = FirstNumber - SecondNumber

            Label1.Text = AnswerNumber

            Label2.Text = Label2.Text & " " & SecondNumber & "="

        End If

Angka kedua dari nilai label 1

Jika proses atimatik (-) kurang maka jawaban dari angka pertama dikurang angka kedua dan ada sama dengan. Dan jawaban berada di label 1.

        If ArithmeticProcess = "x" Then

            AnswerNumber = FirstNumber * SecondNumber

            Label1.Text = AnswerNumber

            Label2.Text = Label2.Text & " " & SecondNumber & "="

        End If

Angka kedua dari nilai label 1

Jika proses atimatik (x) kali maka jawaban dari angka pertama dikali angka kedua dan ada sama dengan. Dan jawaban berada di label 1.

        If ArithmeticProcess = "^" Then

            AnswerNumber = FirstNumber ^ SecondNumber

            Label1.Text = AnswerNumber

            Label2.Text = Label2.Text & " " & SecondNumber & "="

        End If

Angka kedua dari nilai label 1

Jika proses atimatik (^) pangkat maka jawaban dari angka pertama dipangkat angka kedua dan ada sama dengan. Dan jawaban berada di label 1.

        If ArithmeticProcess = "sin" Then

            Label2.Text = "sin" & " " & Label1.Text

            AnswerNumber = Math.Sin(Label1.Text * (Math.PI / 180))

            Label2.Text = Label2.Text & " " & "="

        End If

Jika Proses aritmatika cos  maka label2 ada tulisan sin dengan nilai angkapertama yang dimasukkan,jawaban berasal dari sinus angka yang dimasukkan.label 2 ditambah sama dengan(=).

        If ArithmeticProcess = "cos" Then

            Label2.Text = "cos" & " " & Label1.Text

            AnswerNumber = Math.Cos(Label1.Text * (Math.PI / 180))

            Label2.Text = Label2.Text & " " & "="

        End If

Jika Proses aritmatika tan  maka label2 ada tulisan cos dengan nilai angkapertama yang dimasukkan,jawaban berasal dari cosinus angka yang dimasukkan.label 2 ditambah sama dengan (=).

        If ArithmeticProcess = "tan" Then

            Label2.Text = "tan" & " " & Label1.Text

            AnswerNumber = Math.Tan(Label1.Text * (Math.PI / 180))

            Label2.Text = Label2.Text & " " & "="

        End If

Jika Proses aritmatika tan maka label2 ada tulisan tan dengan nilai angkapertama yang dimasukkan,jawaban berasal dari tangent angka yang dimasukkan.label 2 ditambah sama dengan (=).

        If ArithmeticProcess = "log" Then

            Label2.Text = "log" & " " & Label1.Text

            AnswerNumber = Math.Log10(Label1.Text)

            Label2.Text = Label2.Text & " " & "="

        End If

Jika Proses aritmatika log  maka label2 ada tulisan log dengan nilai angkapertama yang dimasukkan,jawaban berasal dari sinus angka yang dimasukkan.label 2 ditambah sama dengan(=).

        If ArithmeticProcess = "ln" Then

            Label2.Text = "ln" & " " & Label1.Text

            AnswerNumber = Math.Log(Label1.Text)

            Label2.Text = Label2.Text & " " & "="

        End If

If ArithmeticProcess = "√" Then

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

            AnswerNumber = Label1.Text ^ 0.5

            Label2.Text = Label2.Text & " " & "="

        End If

        If ArithmeticProcess = "/" Then

            If SecondNumber = "0" Then

                MsgBox(" tidak dapat dibagi nol", 0, "warning")

                Label1.Text = ""

                Exit Sub

            AnswerNumber = FirstNumber / SecondNumber

            Label2.Text = Label2.Text & " " & SecondNumber & "="

        End If

        Label1.Text = AnswerNumber

    End Sub

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

        FirstNumber = Val(Label1.Text)

        Label2.Text = Label1.Text & " " & "sin"

        Label1.Text = ""

        ArithmeticProcess = "sin"

    End Sub

Angka pertama dari nilai label1,label 2 didapat dari label1,label 1 menjadi kosong sehingga label 2 didapat dari label1 ditambah dengan proses aritmatik sin.

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

        FirstNumber = Val(Label1.Text)

        Label2.Text = Label1.Text & " " & "cos"

        Label1.Text = ""

        ArithmeticProcess = "cos"

    End Sub

Angka pertama dari nilai label1,label 2 didapat dari label1,label 1 menjadi kosong sehingga label 2 didapat dari label1 ditambah dengan proses aritmatik cos.

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

        FirstNumber = Val(Label1.Text)

        Label2.Text = Label1.Text & " " & "tan"

        Label1.Text = ""

        ArithmeticProcess = "tan"

    End Sub

Angka pertama dari nilai label1,label 2 didapat dari label1,label 1 menjadi kosong sehingga label 2 didapat dari label1 ditambah dengan proses aritmatik tan.

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

        FirstNumber = Val(Label1.Text)

        Label2.Text = Label1.Text & " " & "log"

        Label1.Text = ""

        ArithmeticProcess = "log"

    End Sub

Angka pertama dari nilai label1,label 2 didapat dari label1,label 1 menjadi kosong sehingga label 2 didapat dari label1 ditambah dengan proses aritmatik log.

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

     FirstNumber = Val(Label1.Text)

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

        Label1.Text = " "

        ArithmeticProcess = "√"

  End Sub

Angka pertama dari nilai label1,label 2 didapat dari label1,label 1 menjadi kosong sehingga label 2 didapat dari label1 ditambah dengan proses aritmatik akar.

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

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

Untuk membuat semua tombol tidak berfungsi

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

        FirstNumber = Val(Label1.Text)

        Label2.Text = Label1.Text & " " & "ln"

        Label1.Text = ""

        ArithmeticProcess = "ln"

    End Sub

Angka pertama dari nilai label1,label 2 didapat dari label1,label 1 menjadi kosong sehingga label 2 didapat dari label1 ditambah dengan proses aritmatik ln.

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

        Label1.Text = Label1.Text & "000"

    End Sub

Ket:Di label 1 akan muncul angka 000

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

        Label1.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 = 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

        Button23.Enabled = True

        Button24.Enabled = False

        Button25.Enabled = False

        Button26.Enabled = False

    End Sub

Untuk membuat semua tombol tidak berfungsi

End Class