Kalkulator Sederhana

17 Juni 2009

Kalkulator yang akan dirancang termasuk sederhana karena kalkulator ini hanya difokuskan pada operasi dasar artimatika dan trigonometri yang melibatkan bilangan desimal yakni angka 0,1,2,3,4,5,6,7,8, dan 9. Namun penting diingat bahwa kalkulator pada saat ini sudah sangat canggih sehingga kemampuan seperti yang ditawarkan komputer yang dapat beroperasi pada data alpabet, numerik dan alphanumerik juga sudah dapat dilakukannya.
Operasi aritmatika merupakan operasi yang melibatkan angka-angka yang operasinya meliputi penjumlahan (+), pengurangan (-), perkalian (*), pembagian (/), pemangkatan (^), sisa bagi (mod). Sedangkan operasi trigonometri pada rancangan aplikasi ini menyangkut nilai sin, cos dan tangen.
Operasi penjumlahan aritmatika dengan syntax operasi umumnya adalah:
C = A Op B, dimana
A dan B adalah operand yang dioperasikan. Operand yang dioperasikan diganti dengan nilai bilangan bulat (-.., -3,-2,-1,0,1,2,3,…)
Op adalah operator aritmatika +, _ , * dan /
= adalah operator pemberi nilai
C adalah operand yang menerima hasil operasi

-Antar muka sistem

-Implementasi

Dim Op1, Op2, Op3, R As Double
Dim A, Op As Byte
Dim Sign, Koma As Boolean
Private Sub Nilai(ByVal Nilai As String)
If A = 0 Then
txthasil.Text = Trim(Str(Nilai))
A = 1
Else
txthasil.Text = txthasil.Text + Trim(Str(Nilai))
End If
End Sub

Private Sub cmd0_Click()
Nilai (cmd0.Caption)
End Sub

Private Sub cmd1_Click()
Nilai (cmd1.Caption)
End Sub

Private Sub cmd2_Click()
Nilai (cmd2.Caption)
End Sub

Private Sub cmd3_Click()
Nilai (cmd3.Caption)
End Sub

Private Sub cmd4_Click()
Nilai (cmd4.Caption)
End Sub

Private Sub cmd5_Click()
Nilai (cmd5.Caption)
End Sub

Private Sub cmd6_Click()
Nilai (cmd6.Caption)
End Sub

Private Sub cmd7_Click()
Nilai (cmd7.Caption)
End Sub

Private Sub cmd8_Click()
Nilai (cmd8.Caption)
End Sub

Private Sub cmd9_Click()
Nilai (cmd9.Caption)
End Sub

Private Sub cmdbagi_Click()
Op = 1
Op1 = Val(txthasil.Text)
A = 0
End Sub

Private Sub cmdbersih_Click()
txthasil.Text = “”
Koma = True
End Sub

Private Sub cmdkali_Click()
Op = 2
Op1 = Val(txthasil.Text)
A = 0
End Sub

Private Sub cmdkoma_Click()
If Koma Then
txthasil.Text = txthasil.Text + “.”
Koma = Not Koma
End If
End Sub

Private Sub cmdkos_Click()
Op = 6
Op1 = Val(txthasil.Text)
A = 0
End Sub

Private Sub cmdkurang_Click()
Op = 3
Op1 = Val(txthasil.Text)
A = 0
End Sub

Private Sub cmdsd_Click()
Op2 = Val(txthasil.Text)
Select Case (Op)
Case 1: Op3 = Op1 / Op2
Case 2: Op3 = Op1 * Op2
Case 3: Op3 = Op1 – Op2
Case 4: Op3 = Op1 + Op2
Case 5: Op3 = Sin(pi / 180 * Op2)
Case 6: Op3 = Cos(pi / 180 * Op2)
Case 7: Op3 = Sin(pi / 180 * Op2) / Cos(pi / 180 * Op2)
End Select
txthasil.Text = Str(Op3)
End Sub

Private Sub cmdsin_Click()
Op = 5
Op1 = Val(txthasil.Text)
A = 0
End Sub

Private Sub cmdtambah_Click()
Op = 4
Op1 = Val(txthasil.Text)
A = 0
End Sub

Private Sub cmdtk_Click()
If Trim(txthasil.Text) “” Then
If Sign Then
R = txthasil.Text
txthasil.Text = “-” + txthasil.Text
Sign = False
Else
txthasil.Text = R
Sign = True
End If
End If
End Sub

Private Sub Form_Load()
A = 1
Sign = True
Koma = True
End Sub

-Running

-Analisis


Ikuti

Get every new post delivered to your Inbox.