sbenernya ini tugas kuliah Gw tentang pembuatan kalkulator sederhana..hehe..
coding programnya gw dapet dari ilmukomputer.com terus di edit lagi n dtambahin operator buat ngitung persen...smoga artikelnya bermanfaat...
Analisis Program Kalkulator
Kalkulator sederhana yang telah dibuat menggunakan beberapa comand. Yaitu cmdAngka (sebagai command input angka), cmdkoma (sebagai command koma), cmdclear (sebagai command untuk menghapus data di layar, menghapus semua data yang sudah diproses), cmdclearentry (menghapus inputan yang belum diproses), cmdoperator (sebagai command untuk aritmatik), cmdplusminus (command untuk memberikan minus pada nilai yang diinput), cmdsamadengan ( command untuk menampilkan hasil kalkulasi). Dan juga textbook untuk menampilkan hasil yang akan diinput (txtdisplay).
Proses dalam penggunaan kalkulator adalah :
1. Masukkan input dari tombol-tombol angka (cmdangka). Pakai koma jika bukan bilangan bulat (cmdkoma). Pakai tanda negative jika inputan bukan merupakan bilangan bulat (cmdplusminus). Tekan tombol clear entry jika inputan yang dimasukkan salah (cmdclearentry).
2. Pilih proses perhitungan yang dibutuhkan (cmdoperator).
3. Mengulang proses pertama.
4. Tekan tombol sama dengan untuk melihat hasil jika perhitungan (contoh tampilan kalkulator) sudah selesai (cmdsamadengan).
5. Hapus data dilayar jika perhitungan sudah selesai (cmdclear), atau lanjutkan perhitungan dengan mengulang proses kedua, ketiga, dan seterusnya hingga pehitungan selesai.
Untuk penggunaan pada operator aritmatika ( +, -, /, *,%) dibutuhkan 2 operand, jadi ada 2 variabel utama nutuk menyimpan data. Alur data :
1. Input Angka.
2.Pemilihan Operator (+, -,...)
3. Angka disimpan dalam variabel operand1
4. Kosongkan teks.
5. Input angka lagi
6.1. Jika operator (=) yang dipilih, simpan angka dalam variabel operand2 lalu langsung kalkulasi perhitungan operand1(no.3) dan operand2 kemudian tampilkan hasil.
6.2. Jika operator lain (+,-,...) , simpan angka dalam operand2 lalu kalkulasi perhitungan, kemudian hasilnya disimpan di operand1 utk perhitungan selanjutnya.
CODING Program kalkulator
Option Explicit
Private Hasil As Double
Private Const opNol = 0
Private Const opTambah = 1
Private Const opKurang = 2
Private Const opKali = 3
Private Const opBagi = 4
Private Const opPersen = 5
Private Operator As Integer
Private NilaiBaru As Boolean
Private Sub Hapus()
Dim txt As String
Dim min_len As Integer
txt = txtDisplay.Text
If Left$(txt, 1) = "-" Then
min_len = 2
Else
min_len = 1
End If
If Len(txt) > min_len Then
txtDisplay.Text = Left$(txt, Len(txt) - 1)
Else
txtDisplay.Text = "0"
End If
End Sub
Private Sub cmcKoma_Click()
If InStr(txtDisplay.Text, ".") Then
Beep
Else
If NilaiBaru Then
txtDisplay.Text = "."
NilaiBaru = False
Else
txtDisplay.Text = txtDisplay.Text & "."
End If
End If
End Sub
Private Sub cmdClear_Click()
cmdClearEntry_Click
Hasil = 0
Operator = opNol
End Sub
Private Sub cmdClearEntry_Click()
txtDisplay.Text = ""
End Sub
Private Sub cmdKoma_Click()
If InStr(txtDisplay.Text, ".") Then
Beep
Else
If NilaiBaru Then
txtDisplay.Text = "."
NilaiBaru = False
Else
txtDisplay.Text = txtDisplay.Text & "."
End If
End If
End Sub
Private Sub cmdSamaDengan_Click()
Dim HasilBaru As Double
If txtDisplay.Text = "" Then
HasilBaru = 0
Else
HasilBaru = CDbl(txtDisplay.Text)
End If
Select Case Operator
Case opNol
Hasil = HasilBaru
Case opTambah
Hasil = Hasil + HasilBaru
Case opKurang
Hasil = Hasil - HasilBaru
Case opKali
Hasil = Hasil * HasilBaru
Case opBagi
Hasil = Hasil / HasilBaru
Case opPersen
Hasil = (Hasil / 100) * HasilBaru
If HasilBaru = 0 Then
MsgBox "Tidak bisa dibagi 0", vbOKOnly + vbCritical, "Kalku ERROR"
Call cmdClear_Click
Else
Hasil = Hasil / HasilBaru
End If
End Select
Operator = opNol
NilaiBaru = True
txtDisplay.Text = Format$(Hasil)
End Sub
Private Sub cmdAngka_Click(Index As Integer)
If NilaiBaru Then
txtDisplay.Text = Format$(Index)
NilaiBaru = False
Else
txtDisplay.Text = _
txtDisplay.Text & Format$(Index)
End If
End Sub
Private Sub cmdOperator_Click(Index As Integer)
cmdSamaDengan_Click
Operator = Index
NilaiBaru = True
End Sub
Private Sub cmdPlusMinus_Click()
If NilaiBaru Then
txtDisplay.Text = "-"
ElseIf Left$(txtDisplay.Text, 1) = "-" Then
txtDisplay.Text = txtDisplay.Text * (-1)
Else
txtDisplay.Text = "-" & txtDisplay.Text
End If
End Sub
Private Sub Edit_Change()
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
txtDisplay_KeyPress KeyAscii
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
txtDisplay_KeyUp KeyCode, Shift
End Sub
Private Sub txtDisplay_Change()
txtDisplay.SelStart = Len(txtDisplay.Text)
End Sub
Private Sub txtDisplay_GotFocus()
txtDisplay_Change
End Sub
Private Sub txtDisplay_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr$(KeyAscii)
Select Case ch
Case "0"
cmdAngka_Click 0
Case "1"
cmdAngka_Click 1
Case "2"
cmdAngka_Click 2
Case "3"
cmdAngka_Click 3
Case "4"
cmdAngka_Click 4
Case "5"
cmdAngka_Click 5
Case "6"
cmdAngka_Click 6
Case "7"
cmdAngka_Click 7
Case "8"
cmdAngka_Click 8
Case "9"
cmdAngka_Click 9
Case "*", "x", "X"
cmdOperator_Click opKali
Case "+"
cmdOperator_Click opTambah
Case vbCrLf, vbCr, "="
cmdSamaDengan_Click
Case "-"
cmdOperator_Click opKurang
Case "."
cmdKoma_Click
Case "/"
cmdOperator_Click opBagi
Case "C", "c"
cmdClearEntry_Click
End Select
KeyAscii = 0
End Sub
Private Sub txtDisplay_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyNumpad0
cmdAngka_Click 0
Case vbKeyNumpad1
cmdAngka_Click 1
Case vbKeyNumpad2
cmdAngka_Click 2
Case vbKeyNumpad3
cmdAngka_Click 3
Case vbKeyNumpad4
cmdAngka_Click 4
Case vbKeyNumpad5
cmdAngka_Click 5
Case vbKeyNumpad6
cmdAngka_Click 6
Case vbKeyNumpad7
cmdAngka_Click 7
Case vbKeyNumpad8
cmdAngka_Click 8
Case vbKeyNumpad9
cmdAngka_Click 9
Case vbKeyMultiply
cmdOperator_Click opKali
Case vbKeyAdd
cmdOperator_Click opTambah
Case vbKeySeparator
cmdSamaDengan_Click
Case vbKeySubtract
cmdOperator_Click opKurang
Case vbKeyDivide
cmdOperator_Click opBagi
Case vbKeyDecimal
cmdKoma_Click
Case vbKeyBack, vbKeyDelete
Hapus
End Select
KeyCode = 0
End Sub
0 komentar:
Post a Comment