Malam.....Sobat blogger pada postingan kemarin saya sudah posting tentang cara membuat keylogger sederhana, pada kesempatan kali ini saya akan memposting tentang cara membuat Kalkulator sederhana ,meskipun hanya sederhana yang penting berguna .Sobat bisa ilihat kurang lebih seperti ini tampilannya:
jika sobat berminat mencobanya sobat tinggal ikuti cara dibawah ini:
Pertama sobat buka program visual basic klo sobat gak punya visual basicnya bisa download DISINI
pilih yang STANDART.EXE
lalu oke
Buat :
1.)form
seting:
(name):form1
2.)Text box1:
seting:
(Name):TxtDisplay
Alignment: 1-Right-justify
Text:(kosongin)
Maxlength:12
3.)Buat 19 Command button
(susun cmd seperti pada gambar diatas atau anda bisa menyusun sesuai dengan keinginan anda )
copy code di bawah ini di form1 :
(caranya klik kanan pada form>pilih view code )
source codeenya:
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 Operator As Integer Private NilaiBaru As Boolean
' untuk menghapus karakter terakhir 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
' hapus angka, hasil terakhir dan operator Private Sub cmdClear_Click() cmdClearEntry_Click Hasil = 0 Operator = opNol End Sub ' hapus angka Private Sub cmdClearEntry_Click() txtDisplay.Text = "" End Sub ' menambahkan koma (desimal) 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
' Menghitung 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 'Tidak bisa dibagi nol 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
' menuliskan angka 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 ' tombol tambah/kurang/bagi/kali Private Sub cmdOperator_Click(Index As Integer) cmdSamaDengan_Click Operator = Index NilaiBaru = True End Sub
' merubah tanda +/- Private Sub cmdPlusMinus_Click() If NilaiBaru Then txtDisplay.Text = "-" ElseIf Left$(txtDisplay.Text, 1) = "-" Then txtDisplay.Text = Right$(txtDisplay.Text, 2) Else txtDisplay.Text = "-" & txtDisplay.Text End If End Sub
' filter untuk angka saja yg dapat diketikkan 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 ' supaya kursor tetap di kanan Private Sub txtDisplay_Change() txtDisplay.SelStart = Len(txtDisplay.Text) End Sub Private Sub txtDisplay_GotFocus() txtDisplay_Change End Sub
' untuk mengetikkan angka di keyboard 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
' untuk ketikan angka di numpad 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
Ini untuk seting CommandButoon:
Name
Caption
Index
cmdAngka
1
1
cmdAngka
2
2
cmdAngka
3
3
cmdAngka
4
4
cmdAngka
5
5
cmdAngka
6
6
cmdAngka
7
7
cmdAngka
8
8
cmdAngka
9
9
cmdAngka
0
0
cmdPlusMinus
+/-
cmdKoma
,
cmdOperator
/
4
cmdOperator
x
3
cmdClear
C
cmdClearEntry
CE
cmdOperator
+
1
cmdOperator
-
2
cmdSamaDengan
=
Anda bisa kreasikan buatan anda sendiri dengan memasang baground di calculator tsb ,saya sudah mencoba dan sudah berhasil ,jika sobat ada sesuatu kesalahan pada cara diatas sobat bisa comment.....oke
0 komentar:
Posting Komentar