argumen merupakan serangkaian nilai dan tipe data yang dipakai oleh procedure untuk mengerjakan ‘tugas’-nya. Sebuah procedure bisa saja tidak memakai argumen sama sekali. Pernyataan As tipe_data pada procedure function menentukan tipe data nilai yang akan dikembalikan return value setelah ‘tugas’-nya selesai. Untuk menggunakan sebuah procedure, maka procedure tersebut harus di-‘panggil’ pada bagian tertentu dari kode program. Procedure sub di-‘panggil’ dengan pernyataan: Call nama_sub[argumen] Sedangkan procedure function bisa di-‘panggil’ langsung dengan menyisipkannya di dalam kode program yang memanggilnya.Procedure boleh ditulis dimana saja dalam kode program, tetapi biasanya ditulis dibagian atas atau bawah agar mudah ditangani. 2.5.9 Penanganan KeyboardEvent keyboard merupakan salah satu elemen utama dari interaksi antara user dengan program yang kitabuat. Event keyboard terjadi saat user menekan pressed ataupun melepas released tombol padakeyboard. Menangani event keyboard dapat dilakukan pada 2 dua level, yaitu : 1.Pada level kontrollow-level – menangani event keyboard yang terjadi pada sebuah kontrol, misalnya ketika user mengetik pada sebuah TextBox. Tidak semua kontrol mempunyai eventkeyboard. Hanya kontrol yang bisa mendapatkan focus dicirikan dengan property TabIndex danTabStop saja yang mempunyai event keyboard. 2. Pada level formhight-level – menangani event keyboard yang terjadi pada lingkup sebuah form.Artinya form akan lebih dulu merespon event keyboard daripada kontrol-kontrol yang ada didalamnya. Agar form selalu lebih dulu merespon event keyboard maka property KeyPreview padaform tersebut harus diset menjadi True. VB6 menyediakan 3 tiga jenis event pada form dan pada beberapa kontrol yang bisa menerima inputdari user melalui keyboard, yaitu : Universitas Sumatera Utara 1. Event KeyPress– terjadi ketika tombol-tombol yang mempunyai kode ASCII pada keyboardditekan. ASCII American Standard Code for Information Interchange adalah kode darisekumpulan karakter pada tombol keyboard yang terdiri dari : abjad, angka dan beberapa karakterkhusus Enter, Escape, Tab, Backspace. 2. Event KeyDown– terjadi ketika setiap tombol pada keyboard ditekan. 3. Event KeyUp– terjadi ketika setiap tombol pada keyboard dilepas. Perbedaan antara event KeyPress dengan KeyDown adalah : Event KeyPress hanya berlaku untuk tombol-tombol yang mempunyai kode ASCII saja. Tomboltomboltertentu - seperti : tombol fungsi F1 sd F12, tombol panah, tombol keypad – tidakmempunyai kode ASCII. Event KeyPress tidak bisa merespon penekanan tombol yang di kombinasi dengan Shift, Ctrl danAlt.Bila event KeyPress terjadi maka event tersebut akan mengembalikan nilai dari argumen KeyAsciiyaitukode ASCII dari tombol keyboard yang ditekan. Contoh : Private Sub Form1_KeyPress KeyAscii As Integer MsgBox “Kode ASCII tombol yang ditekan : “ KeyAscii End Sub Sedangkan event KeyDown dan KeyUp akan mengembalikan nilai dari argumen KeyCode dan Shift.Argumen KeyCode berisi kode tombol keyboard yang ditekan dan argumen Shift berisi kode penekanantombol Shift, Ctrl dan Alt. Konstanta nilai untuk kedua argumen tersebut dapat dilihat melalui jendelaObject Browser. Contoh : Private Sub Form1_KeyDownKeyCode As Integer, Shift As Integer MsgBox “Kode tombol yang ditekan : “ KeyCode End Sub Private Sub Form_KeyUpKeyCode As Integer, Shift As Integer MsgBox “Kode tombol yang dilepas : “ KeyCode End if Universitas Sumatera Utara2.5.10 Menggunakan Drag-DropMengetahui keyascii keyboard dengan visual basic bisa terbilang salah satu contoh program sederhana. Begini cara membuatnya dengan vb. Untuk membuatnya sebenarnya gampang saja, hal ini sudah saya buktikan dan membuat sebuah aplikasi sederhana untuk kalian bagaimana caranya mengetahui keyascii keyboard. Lalu, gunanya apa sih membuat program sederhana ini? Agar kita tahu nilai ascii dari keyboard yang kita tekan tersebut. Berikut ini adalah cara untuk membuat program sederhana visual basic yang berfungsi mengetahui nilai keyascii keyboard yang sudah saya buatkan untuk teman-teman semua agar lebih mudah menjadi sebuah aplikasi. Cara Mengetahui Keyascii KeyboardVERSION 5.00 Begin VB.Form FrmKey BorderStyle = 1 ‘Fixed Single Caption = “Mengetahui Nilai Dari Tombol Yang Kita Tekan” ClientHeight = 1605 ClientLeft = 45 ClientTop = 435 ClientWidth = 5250 Icon = “FrmKey.frx”:0000 LinkTopic = “Form1” MaxButton = 0 ‘False MinButton = 0 ‘False ScaleHeight = 1605 ScaleWidth = 5250 StartUpPosition = 1 ‘CenterOwner Begin VB.TextBox Text1 Height = 435 Left = 2520 TabIndex = 4 Top = 1080 Width = 2655 End Begin VB.ComboBox Combo1 Height = 315 Left = 2520 TabIndex = 2 Text = “- Pilih Jenis -” Top = 720 Width = 2655 End Begin VB.Label Label3 BackStyle = 0 ‘Transparent Caption = “Masukan Angka / Huruf” BeginProperty Font Name = “MS Sans Serif” Size = 8.25 Charset = 0 Weight = 700 Underline = -1 ‘True Italic = 0 ‘False Strikethrough = 0 ‘False EndProperty Height = 375 Left = 120 TabIndex = 3 Top = 1080 Width = 3135 End Begin VB.Label Label2 BackStyle = 0 ‘Transparent Caption = “Pilih Jenis” BeginProperty Font Name = “MS Sans Serif” Size = 8.25 Charset = 0 Weight = 700 Underline = -1 ‘True Italic = 0 ‘False Strikethrough = 0 ‘False EndProperty Height = 255 Left = 120 TabIndex = 1 Top = 720 Width = 1815 End Begin VB.Label Label1 BackStyle = 0 ‘Transparent Caption = “KeyAscii Checker By TeRRenJr” BeginProperty Font Name = “MS Sans Serif” Size = 18 Charset = 0 Weight = 400 Underline = 0 ‘False Italic = 0 ‘False Strikethrough = 0 ‘False EndProperty Height = 495 Left = 120 TabIndex = 0 Top = 120 Width = 5175 End End Attribute VB_Name = “FrmKey” Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Combo1_Click() Text1.SetFocus End Sub Private Sub Form_Load() Combo1.AddItem “- Angka -” Combo1.AddItem “- Huruf Besar -” End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If Combo1.Text = “- Angka -” Then If KeyAscii >= 48 And KeyAscii <= 57 Then MsgBox “Nilai Keyascii Yang Anda Tekan Adalah : ” & KeyAscii & “”, vbInformation + vbOKOnly, “KeyAscii” End If Else If KeyAscii >= 65 And KeyAscii <= 90 Then MsgBox “Nilai Keyascii Yang Anda Tekan Adalah : ” & KeyAscii & “”, vbInformation + vbOKOnly, “KeyAscii” End If End If End Sub Simpan File Tersebut dengan nama FrmKey.frm jika teman-teman belum mengetahui bagaimana cara menyimpannya berikut ini adalah caranya :
Sekian informasi sederhana saya mengenai bagaimana cara membuat program sederhana visual basic ini. Semoga kalian mendapatkan pelajaran atau cara mudah dan cukup lengkap setelah membaca artikel sederhana saya mengenai mengetahui keyascii keyboard dengan visual basic ini.
Assalamualaikum Posting kali ini saya akan share bagaimana cara mengetahui keyascii pada keyboard dengan menggunakan Visual Basic 6.0. Apa itu Keyascii, Keyascii adalah nilai ascii yang dikirim akibat penekanan tombol-tombol di keyboard nah sekarang bagaimana cara mengetahui keyascii dalam keyboard berikut step by stepnya :
3. Lalu Ketikkan Listing seperti di bawah ini lalu di running deh programnya Private Sub Form_KeyPress(KeyAscii As Integer) Text1 = KeyAscii End Sub
HomeVisual Basic 6ASCII & Unicode Character Codes
Unicode adalah standar industri yang dikembangkan dari standar ASCII sebelumnya (yang sekarang merupakan bagian dari Unicode). Character encoding atau pengkodean karakter biasanya digunakan dalam pengembangan web untuk menampilkan karakter non-standar. Konon kode ini digunakan dalam HTML, C#, VBScript, VB.NET, PHP & JavaScript:
VB6 Private Sub txtUserName_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtPassword.SetFocus End If End Sub VB.NET Private Sub cboPaymentMedia_KeyPress(sender As Object, e As KeyPressEventArgs) Handles cboPaymentMedia.KeyPress If Asc(e.KeyChar) = 13 Then txtPayment.Focus() End If End Sub Rani emang biasanya menggunakan code ini untuk membatasi hanya input numerik dan setting fokus atau mentrigger event tertentu saat salah satu tombol di keyboard ditekan. Yang paling sering digunakan adalah keyascii 13 untuk enter. Dan buat contekan Rani sendiri juga, berikut beberapa keyascii yang bisa temen-temen contek.
|