Sabtu, 28 Januari 2012

SOAL QUIZ NO 3

 LISTING PROGRAM LOGIN



Public Class Form1

    Private Sub Masuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Masuk.Click
        If Nama.Text = "Nella" And Password.Text = "123" Then
            formmenu.Show()
            Me.Hide()
        Else
            MsgBox("Maaf! Password salah!")
            Nama.Text = ""
            Password.Text = ""
        End If
    End Sub

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

    Private Sub Password_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Password.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            Masuk_Click(sender, e)
        End If
    End Sub

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

    End Sub
End Class


LISTING PROGRAM MENU



Public Class formmenu


    Private Sub DataPenggajianToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPenggajianToolStripMenuItem.Click
        penggajian.show()
    End Sub


    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        End
    End Sub
End Class





LISTING PROGRAM GAJI KARYAWAN


Public Class penggajian
        Sub clearisian()
        No.Text = ""
        Kode.Text = ""
        Nama.Text = ""
        Jabatan.Text = ""
        Gaji.Text = ""
        Status.Text = ""
        Tistri.Text = ""
        Janak.Text = ""
        Tanak.Text = ""
        Jam.Text = ""
        Lembur.Text = ""
        Pajak.Text = ""
        Total.Text = ""
        No.Focus()
    End Sub
    Sub buattabel()
        Lv.Columns.Add("No", 30, HorizontalAlignment.Center)
        Lv.Columns.Add("Kode Pegawai", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Nama Pegawai", 180, HorizontalAlignment.Left)
        Lv.Columns.Add("Jabatan", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Gaji", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Status", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Tunj Istri", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Jumlah Anak", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Tunj Anak", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Jam", 50, HorizontalAlignment.Left)
        Lv.Columns.Add("Lembur", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Pajak", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Total Gaji", 80, HorizontalAlignment.Left)
        Lv.View = View.Details
        Lv.GridLines = True
        Lv.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim Lst As New ListViewItem
        Lst.Text = No.Text
        Lst.SubItems.Add(Kode.Text)
        Lst.SubItems.Add(Nama.Text)
        Lst.SubItems.Add(Jabatan.Text)
        Lst.SubItems.Add(Gaji.Text)
        Lst.SubItems.Add(Status.Text)
        Lst.SubItems.Add(Tistri.Text)
        Lst.SubItems.Add(Janak.Text)
        Lst.SubItems.Add(Tanak.Text)
        Lst.SubItems.Add(Jam.Text)
        Lst.SubItems.Add(Lembur.Text)
        Lst.SubItems.Add(Pajak.Text)
        Lst.SubItems.Add(Total.Text)
        Lv.Items.Add(Lst)
    End Sub
    Private Sub penggajian_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buattabel()
        Kode.Items.Add("A001")
        Kode.Items.Add("A002")
        Kode.Items.Add("B001")
        Kode.Items.Add("B002")
        Jabatan.Items.Add("MANDOR")
        Jabatan.Items.Add("KEPALA BAGIAN")
        Jabatan.Items.Add("STAF")
        Status.Items.Add("MENIKAH")
        Status.Items.Add("TIDAK MENIKAH")
        Jam.Items.Add("1")
        Jam.Items.Add("2")
        Jam.Items.Add("3")
    End Sub
    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
        Me.Close()
    End Sub


    Private Sub Bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bersih.Click
        Call clearisian()
    End Sub


    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click
        isitabel()
    End Sub


    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
        If Kode.Text = "A001" Then
            Nama.Text = "Nella almi Ritonga"
        ElseIf Kode.Text = "A002" Then
            Nama.Text = "Andika"
        ElseIf Kode.Text = "B001" Then
            Nama.Text = "Dilla"
        ElseIf Kode.Text = "B002" Then
            Nama.Text = "Mahdy"
        End If
    End Sub


    Private Sub Jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged
        If Jabatan.Text = "MANDOR" Then
            Gaji.Text = 1750000
        ElseIf Jabatan.Text = "KEPALA BAGIAN" Then
            Gaji.Text = 2500000
        ElseIf Jabatan.Text = "STAF" Then
            Gaji.Text = 1250000
        End If
    End Sub


    Private Sub Status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged
        If Status.Text = "MENIKAH" Then
            Tistri.Text = (0.09 * Gaji.Text)
        ElseIf Status.Text = "TIDAK MENIKAH" Then
            Tistri.Text = 0
        End If
    End Sub
    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        If Janak.Text = 1 Then
            Tanak.Text = (0.03 * Gaji.Text)
        ElseIf Janak.Text >= 2 Then
            Tanak.Text = (0.07 * Gaji.Text)
        End If




        If Jabatan.Text = "STAF" And Jam.Text = 1 Then
            Lembur.Text = 5000
        ElseIf Jabatan.Text = "STAF" And Jam.Text = 2 Then
            Lembur.Text = 10000
        ElseIf Jabatan.Text = "STAF" And Jam.Text = 3 Then
            Lembur.Text = 15000


        ElseIf Jabatan.Text = "MANDOR" And Jam.Text = 1 Then
            Lembur.Text = 7500
        ElseIf Jabatan.Text = "MANDOR" And Jam.Text = 2 Then
            Lembur.Text = 15000
        ElseIf Jabatan.Text = "MANDOR" And Jam.Text = 3 Then
            Lembur.Text = 22500


        ElseIf Jabatan.Text = "KEPALA BAGIAN" And Jam.Text = 1 Then
            Lembur.Text = 10000
        ElseIf Jabatan.Text = "KEPALA BAGIAN" And Jam.Text = 2 Then
            Lembur.Text = 20000
        ElseIf Jabatan.Text = "KEPALA BAGIAN" And Jam.Text = 3 Then
            Lembur.Text = 30000
        End If




        Pajak.Text = (0.015 * Gaji.Text)


        Total.Text = Val(Gaji.Text) + Val(Tistri.Text) + Val(Tanak.Text) + Val(Lembur.Text) - Val(Pajak.Text)


    End Sub


   
    Private Sub Hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapussemua.Click
        Lv.Items.Clear()
    End Sub


    Private Sub Hapuspilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapuspilih.Click
        Lv.Items.Remove(Lv.SelectedItems(0))
    End Sub
End Class






Jumat, 27 Januari 2012

SOAL QUIZ NO 2

Listing Program

Public Class Form1


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


    End Sub


    Sub buattabel()
        Lv.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("Nama", 100, HorizontalAlignment.Center)
        Lv.View = View.Details
        Lv.GridLines = True
        Lv.FullRowSelect = True



    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = npm.Text
        lst.SubItems.Add(nama.Text)
        Lv.Items.Add(lst)
    End Sub


    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        Lv.Items.Clear()


    End Sub


    Private Sub btndatadipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndatadipilih.Click
        Lv.Items.Remove(Lv.SelectedItems(0))


    End Sub


    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        isitabel()
        npm.Text = ""
        nama.Text = ""

    End Sub
End Class





Rabu, 12 Oktober 2011

Membuat timer menggunakan visual basic.net 2008

Langkah 1.
Pertama yang harus dilakukan membuat windows form baru yang kita beri nama “timer.vb”, form ini kita menggunakan 2 picturebox, 2 commandbutton, 1textbox dan 1 timer. untuk lebih jelasnya dapat dilihat sebagai berikut. 
Langkah 2.
Setelah membuat dan menyusun object dari toolbox seperti gambar diatas, sekarang waktunya merubah properties dari setiap object tersebut.
• 2 Picturebox, disini saya menggunakan picture berextension gif, agar dapat terlihat lebih cantik dalam aplikasi ini, pada dasarnya visualbasic tidak dapat membaca file gambar berextension gif, namun kita dapat mengakalinya dengan rename nama file tersebut menjadi extension jpg, meskipun begitu file gif anda masih akan bisa berjalan. Pada properties kita pilih Image – kemudian Import file yang ingin kita masukan lalu pilih ok.
• Button1, kita ganti text menjadi “stop”.
• Button2, kita ganti text menjadi “start”
• Textbox, kita ganti name nya menjadi “txtTime”, accessiblename kita ganti menjadi “txtFilePath”, kita ganti text menjadi “10:10:10”.
• Timer, kita ganti name menjadi “tmrWorldClock”, enable diubah menjadi “true” dengan interval “100”.
Langkah 3.
Jika langkah2 sudah dilakukan dengan benar, maka sekarang saatnya untuk pengetikkan coding untuk perhitungan, codingan sebagai berikut.
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Public Class Form1
Private Declare Sub GetSystemTime Lib "kernel32" (ByRef lpSystemTime AsSYSTEMTIME)
Private Structure SYSTEMTIME
Public wYear As Short
Public wMonth As Short
Public wDayOfWeek As Short
Public wDay As Short
Public wHour As Short
Public wMinute As Short
Public wSecond As Short
Public wMilliseconds As Short
End Structure
'#Region " World Clock Variables "
Dim lpT As SYSTEMTIME
Dim dateUTC As Date
Dim WTime As Date
'#End Region
Private Sub getWorldClock()
Try
Call GetSystemTime(lpT)
dateUTC = Date.Today.UtcNow().AddHours(17.0)
WTime = CDate(lpT.wHour & " : " & lpT.wMinute & " : " & lpT.wSecond).AddHours(17.0)
txtTime.Text = WTime.ToLongTimeString
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub tmrWorldClock_Tick(ByVal sender As System.ObjectByVal AsSystem.EventArgs) Handles tmrWorldClock.Tick
getWorldClock()
End Sub
Private Sub Button1_Click(ByVal sender As System.ObjectByVal AsSystem.EventArgs) Handles Button1.Click
tmrWorldClock.Enabled = False
End Sub
Private Sub Button2_Click(ByVal sender As System.ObjectByVal AsSystem.EventArgs) Handles Button2.Click
tmrWorldClock.Enabled = True
End Sub
End Class

TUTORIAL VB.NET

Evolusi Visual Basic

VB 1.0 dikenalkan pada tahun 1991, pendekatan yg dilakukan untuk menghubungkan bahasa pemrograman dengan GUI berasal dari prototype yg dikembang oleh “Alan Cooper” yg di sebut TRIPOD,. Kemudian Microsoft mengontrak copper dan asosiasinya utk mengembangkan tripod agar dapat digunakan di windows 3.0 dibawah nama kode Ruby.

Berikut Perjalanan Visual Basic (VB 1.0 Sampai VB 10) :



Perjalanan dari Visual Basic (VB1 to VB 10)

    Proyek “Thunder” dirintis
    Visual Basic 1.0 (May 1991) di rilis untuk windows pada Comdex/Windows Wordltrade yg dipertunjukan di Atlanta , Georgia
    Visual Basic 1.0 untuk DOS dirilis pada bulan September 1992.  Bahasa ini tidak kompatibel dengan Visual Basic For Windows. VB 1.0 for DOS ini pada kenyataaanya merupakan versi kelanjutan dari compiler BASIC, QuickBasic dan BASIC Professional Development System
    VB For Dos
    Visual Basic 2.0 dirilis pada November 1992, Cakupan pemrogramannya cukup mudah untuk digunakan dan kecepatannya juga telah di modifikasi. Khususnya pada Form yg menjadikan object dapat dibuat secara seketika, serta konsep dasar dari Class modul yg berikutnya di implementasikan pada VB 4
    Visual Basic 3.0 , dirilis pada musim panas 1993 dan dibagi menjadi  versi standard dan professional. VB 3 memasukan Versi 1.1 dari Microsoft Jet Database Engine yg dapat membaca serta menulis database Jet (atau Access) 1.x
    Visual Basic 4.0 (Agustus 1995) merupakan versi pertama yg dapat membuat windows program 32 bit sebaik versi 16 bit nya. VB 4 juga memperkenalkan kemampuan untuk menulis non-GUI class pada Visual Basic
    Visual Basic 5.0 (February 1997), Microsoft merilis secara eksklusif Visual basic untuk  versi windows 32 bit . Programmer yg menulis programnya pada versi 16 bit dapat dengan mudah melakukan import porgramnya dari VB4 ke VB5. dan juga sebaliknya, program VB5 dapat diimport menjadi VB4. VB 5  memperkenalakan kemampuan untuk membuat  User Control.
    Visual Basic 6.0 (pertengahan 1998) memperbaiki beberapa cakupan, temasuk kemapuannya untuk membuat Aplikasi Web-based . Visual Basic 6 di jadwalkan akan memasuki Microsoft “fasa non Supported” dimulai pada maret 2008
    Visual Basic .NET (VB 7), dirilis pada tahun 2002, Beberapa yang mencoba pada versi pertama .NET ini mengemukakan bahwa bahasa ini sangat powerful tapi bahasa yg digunakan sangat berbeda dengan bahasa sebelumnya, dengan  kekurangan diberbagai area, termasuk runtime-nya yang 10 kali lebih besar dari paket runtime VB6 serta peningkatan penggunan memory.

TUTORIAL VB.NET

Visual Basic.NET 2010 Dapat Digunakan Untuk

php sqlMembuat Game, daripada hanya bisa main game mending coba bikin game sendiri.

php sqlMembuat Anti-Virus, bosan dengan antivirus yang ada dan ingin bikin antivirus sendiri, anak kelas 8 SMP aja bisa bikin antivirus kalo ngga percaya liat disini.

php sqlMembuat Bot atau Robot, bikin robot sendiri lalu masukan program robotnya deh via VB.

php sqlMembuat Aplikasi Database Karyawan, untuk keperluan menyimpan administrasi data karyawan.

php sqlMembuat Aplikasi Database Toko, untuk keperluan menyimpan administrasi data stok barang.

Kegunaan Visual Basic.Net

Visual Basic .NET adalah sebuah alat untuk mengembangkan dan membangun aplikasi yang bergerak di atas sistem .NET Framework, dengan menggunakan bahasa BASIC, Visual Basic .NET sendiri menganut paradigma bahasa pemrograman berorientasi objek (OOP) yang dapat dilihat sebagai evolusi dari Microsoft Visual Basic versi sebelumnya yang diimplementasikan di atas .NET Framework

Kegunaan Visual Basic
membangun aplikasi Windows Forms
membangun Aplikasi web berbasis ASP.NET(extensinya biasanya blabla.aspx)
membangun aplikasi command-line / console

Keunggulan VB.net 2008 dibanding versi sebelumnya diantarannya
Dukungan anonymous types
Dukungan terhadap Language Integrated Query (LINQ)
Dukungan terhadap ekspresi Lambda
Dukungan terhadap literal XML
Dukungan terhadap inferensi tipe data.
Dukungan terhadap 'LINQ'

CARA MEMBUAT KALKULATOR DENGAN VISUAL BASIC 6.0

Program kalkulator adalah program standar yang sudah tersedia di Microsoft Windows. Tetapi, tak ada salahnya jika kita mencoba membuat kalkulator sendiri dengan Microsoft Visual Basic 6.0.
Pertama-tama, buatlah sebuah form sesuai selera Anda, yang bentuknya kurang lebih seperti
kalkulator standar Windows, seperti ini:


Untuk properties dari masing-masing objek, saya contohkan seperti dibawah ini, dengan letak
masing-masing objek disesuaikan dengan gambar diatas.
Textbox 1:
(Name) : txtDisplay
Alignment: 1-Right Justify
Text : (kosongkan)
Maxlength : 12


Command Button 1:
(Name) : cmdAngka
Index : 1
Caption : 1


Command Button 2:
(Name) : cmdAngka
Index : 2
Caption : 2


Command Button 3:
(Name) : cmdAngka
Index : 3
Caption : 3


Command Button 4:
(Name) : cmdAngka
Index : 4
Caption : 4


Command Button 5:
(Name) : cmdAngka
Index : 5
Caption : 5


Command Button 6:
(Name) : cmdAngka
Index : 6
Caption : 6


Command Button 7:
(Name) : cmdAngka
Index : 7
Caption : 7


Command Button 8:
(Name) : cmdAngka
Index : 8
Caption : 8


Command Button 9:
(Name) : cmdAngka
Index : 9
Caption : 9


Command Button 10:
(Name) : cmdAngka
Index : 0
Caption : 0


Command Button 11:
(Name) : cmdPlusMinus
Caption : +/-


Command Button 12:
(Name) : cmdKoma
Caption : .


Command Button 13:
(Name) : cmdOperator
Index : 1
Caption : +


Command Button 14:
(Name) : cmdOperator
Index : 2
Caption : -


Command Button 15:
(Name) : cmdOperator
Index : 3
Caption : x


Command Button 16:
(Name) : cmdOperator
Index : 4
Caption : /


Command Button 17:
(Name) : cmdClearEntry
Caption : CE


Command Button 18:
(Name) : cmdClear
Caption : C


Command Button 19:
(Name) : cmdSamaDengan
Caption : =


Berikutnya, Anda tinggal membuat coding dari kalkulator tersebut. Jika Anda mengikuti semua
setting properties seperti diatas, maka codingnya saya contohkan seperti ini:
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