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