Analisis, Konsep, dan Flowchart Aplikasi Kalkulator

A. Analisis Program Kalkulator



1.      Cara Menampilkan Form Kalkulator


Komponen toolbox yang digunakan :
Form
Komponen
Properties
Keterangan
Form1
Button1
Name
Text
Button1
1

Button2
Name
Text
Button2
2

Button3
Name
Text
Button3
3

Button4
Name
Text
Button4
4

Button5
Name
Text
Button5
5

Button6
Name
Text
Button6
6

Button7
Name
Text
Button7
7


Button8
Name
Text
Button8
8

Button9
Name
Text
Button9
9

Button10
Name
Text
Button10
00

Button11
Name
Text
Button11
%

Button12
Name
Text
Button12
0

Button13
Name
Text
Button13
.

Button14
Name
Text
Button14
=

Button15
Name
Text
Button15
x

Button16
Name
Text
Button16
/

Button17
Name
Text
Button17
^

Button18
Name
Text
Button18

Button19
Name
Text
Button19
Log

Button20
Name
Text
Button20
AC

Button21
Name
Text
Button21
Del

Button22
Name
Text
Button22
±

Button23
Name
Text
Button23
End

Button24
Name
Text
Button24
Sin

Button25
Name
Text
Button25
Cos

Button26
Name
Text
Button26
Tan

Button27
Name
Text
Button27
+

Button28
Name
Text
Button28
-

Textbox1
Name
Text
Textbox1

Textbox2
Name
text
Textbox2

Listing yang digunakan adalah :
Option Explicit On
Public Class Form1
    Dim FirstNumber As Single
    Dim SecondNumber As Single
    Dim AnswerNumber As Single
    Dim AritmethicProcess As String
    Const pi As Double = 3.14159265358979

Listing ini berguna untuk mendeklarasikan nilai-nilai yang akan diinput nanti ke dalam kalkulator.

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

    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Textbox1.Text = Textbox1.Text & "1"
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Textbox1.Text = Textbox1.Text & "2"
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Textbox1.Text = Textbox1.Text & "3"
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Textbox1.Text = Textbox1.Text & "4"
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Textbox1.Text = Textbox1.Text & "5"
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Textbox1.Text = Textbox1.Text & "6"
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Textbox1.Text = Textbox1.Text & "7"
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Textbox1.Text = Textbox1.Text & "8"
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Textbox1.Text = Textbox1.Text & "9"
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        Textbox1.Text = Textbox1.Text & "0"
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Textbox1.Text = Textbox1.Text & "00"
    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        Textbox1.Text = Textbox1.Text & "."

    Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
        If Textbox1.Text.Length = 0 Then
            Textbox1.Text = Textbox1.Text + CStr("-")
        ElseIf Textbox1.Text <> "0" Then
            Textbox1.Text = Textbox1.Text * -1
        End If
    End Sub

Listing di atas (listing button1-10, 12-13, dan 22) berguna agar jika button-button tersebut diklik, maka pada layar kalkulator akan muncul nilai sesuai dengan nilai button yang diklik.

    End Sub
    Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click
        FirstNumber = Val(Textbox1.Text)
        Textbox2.Text = Textbox1.Text & " " & "+"
        Textbox1.Text = ""
        AritmethicProcess = "+"
    End Sub

    Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.Click
        FirstNumber = Val(Textbox1.Text)
        Textbox2.Text = Textbox1.Text & " " & "-"
        Textbox1.Text = ""
        AritmethicProcess = "-"
    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        FirstNumber = Val(Textbox1.Text)
        Textbox2.Text = Textbox1.Text & " " & "x"
        Textbox1.Text = ""
        AritmethicProcess = "x"
    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        FirstNumber = Val(Textbox1.Text)
        Textbox2.Text = Textbox1.Text & " " & "/"
        Textbox1.Text = ""
        AritmethicProcess = "/"
    End Sub

    Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
        AnswerNumber = Math.Sin(Textbox1.Text * (pi / 180))
        Textbox2.Text = "Sin" & Textbox1.Text
        Textbox1.Text = ""
    End Sub

    Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click
        AnswerNumber = Math.Cos(Textbox1.Text * (pi / 180))
        Textbox2.Text = "cos" & Textbox1.Text
        Textbox1.Text = ""
    End Sub

    Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
        AnswerNumber = Math.Tan(Textbox1.Text * (pi / 180))
        Textbox2.Text = "tan" & Textbox1.Text
        Textbox1.Text = ""
    End Sub

Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        AnswerNumber = Textbox1.Text ^ Val(Textbox1.Text)
        Textbox2.Text = Textbox1.Text & " "
        Textbox1.Text = ""
    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        AnswerNumber = Textbox1.Text ^ 0.5
        Textbox2.Text = "√" & Textbox1.Text
        Textbox1.Text = ""
    End Sub

Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        AnswerNumber = Textbox1.Text / 100
        Textbox2.Text = Textbox1.Text & "%"
        Textbox1.Text = ""
    End Sub

    Private Sub Button19_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        AnswerNumber = Math.Log10(Textbox1.Text)
        Textbox2.Text = "Log" & Textbox1.Text
        Textbox1.Text = ""
    End Sub


Listing di atas berguna jika button-button tersebut diklik, maka pada layar kalkulator akan muncul data sesuai dengan button yang diklik. Dan jika nilai yang dihitung telah diinput, lalu diklik “=”, maka pada layar kalkulator akan muncul hasil perhitungan sesuai dengan rumus yang telah ditetapkan pada listing di atas.


    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        SecondNumber = Val(Textbox1.Text)
        If AritmethicProcess = "+" Then
            AnswerNumber = FirstNumber + SecondNumber
            Textbox1.Text = AnswerNumber
            Textbox2.Text = Textbox2.Text & " " & SecondNumber & "="
        End If
        If AritmethicProcess = "-" Then
            AnswerNumber = FirstNumber - SecondNumber
            Textbox1.Text = AnswerNumber
            Textbox2.Text = Textbox2.Text & " " & SecondNumber & "="
        End If
        If AritmethicProcess = "x" Then
            AnswerNumber = FirstNumber * SecondNumber
            Textbox1.Text = AnswerNumber
            Textbox2.Text = Textbox2.Text & " " & SecondNumber & "="
        End If
        If AritmethicProcess = "/" Then
            Textbox1.Text = AnswerNumber
            Textbox2.Text = Textbox2.Text & " " & SecondNumber & "="
            If SecondNumber = "0" Then
                MsgBox("cannot devide by zero", 0, "warning")
                Textbox2.Text = ""
                If Textbox1.Text.Length <> 0 Then
                    Reset()
                End If
                Exit Sub
            End If
            AnswerNumber = FirstNumber / SecondNumber
        End If
        Textbox1.Text = AnswerNumber
    End Sub


Listing di atas berguna jika button “=” diklik, maka pada layar akan muncul hasil perhitungan yang nilai maupun operatornya telah diinput ke layar kalkulator.

    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
        Textbox2.Text = ""
        Textbox1.Text = ""
    End Sub


Listing di atas berguna untuk menghapus semua nilai-nilai yang telah diinput ke layar kalkulator.

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


Listing di atas berguna untuk menutup aplikasi kalkulator jika pengguna telah selesai menggunakannya.

    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
        Textbox1.Text = Textbox1.Text.Remove(Textbox1.Text.Length - 1, 1)

    End Sub


Listing di atas berguna untuk menghapus nilai data yang telah diinput ke layar secara satu per satu.

End Class



 B. KONSEP PROGRAM KALKULATOR SCIENTIFIC



Program kalkulator scientific ini berguna untuk perhitungan, dan adanya fungsi trigonometri pada kalkulator ini, memudahkan pengguna untuk mencari hasil suatu masalah matematis.
Cara menggunakan kalkulator scientific ini adalah dengan mengklik nilai (angka-angka) beserta operator yang dibutuhkan. Nilai dan operator yang dipilih akan muncul di layar atas kalkulator scientific. Jika telah selesai, maka klik “=” maka hasil perhitungan akan muncul di layar bawah kalkulator scientific. Jika ingin menghapus nilai yang telah diinput, dapat dilakukan dengan mengklik “AC”. Untuk menghapus nilai satu per satu, dapat dilakukan dengan mengklik “Del”. Untuk menutup kalkulator, dapat dilakukan dengan mengklik “Exit”.
Pada program kalkulator scientific ini, terdapat button-button angka yang terdiri dari :
1.      “1”
2.      “2”
3.      “3”
4.      “4”
5.      “5”
6.      “6”
7.      “7”
8.      “8”
9.      “9”
10.  “0”
11.  “00”
Program kalkulator scientific yang kelompok kami buat terdiri atas operator :
1.      “+” yang merupakan simbol operator penjumlahan,
2.      “-”  yang merupakan simbol operator pengurangan,
3.      “x” yang merupakan symbol operator perkalian,
4.      “/” yang merupakan symbol operator pembagian.
5.      “=” yang merupakan symbol operator sama dengan.
Pada program ini juga terdapat  :
1.      “%” yang merupakan symbol persen. Berfungsi untuk mengubah nilai data dalam bentuk persen ke bentuk decimal,
2.      “.” yang merupakan symbol koma. Berfungsi untuk menampilkan bentuk bilangan decimal,
3.      “^ ” yang merupakan symbol pangkat. Berfungsi untuk memangkat duakan nilai data yang diinput,
4.       ” yang merupakan simbol akar. Berfungsi untuk mengakarkan nilai data yang diinput,
5.      AC berfungsi untuk menghapus semua nilai data yang telah diinput ke dalam layar kalkulator,
6.      Log merupakan logaritma 10.
7.      Del berfungsi untuk menghapus satu per satu nilai data yang telah diinput ke dalam layar kalkulator,
8.      ± merupakan simbol pemberian nilai negatif (-) atau positif ke dalam nilai data yang diinput.
9.      Exit yang berfungsi untuk mematikan kalkulator jika pengguna telah selesai menggunakan kalkulator tersebut.

Pada program ini juga terdapat fungsi trigonometri seperti :
1.      Sin,
2.      Cos,
3.      Tan.

C. Flowchart






0 Response to "Analisis, Konsep, dan Flowchart Aplikasi Kalkulator"

Posting Komentar