Mengetahui Keyascii Keyboard dengan Visual Basic

dengan Visual Basic – Kesempatan kali ini saya akan memberikan bagaimana cara dengan Visual Basic.setelah beberapa saat yang lalu saya saya sudah memberika informasi sederhana saya mengenai Cara Mengetahui MAC Address Dengan Visual Basic 6 dan Fungsi Inner Join Dalam SQL kali ini saya akan sedikit memberikan informasi untuk .

sebenarnya gampang saja,hal ini sudah saya buktikan dan membuat sebuah aplikasi sederhana untuk Mengetahui Keyascii Keyboard dengan Visual Basic.Lalu,gunanya apa kita Mengetahui Keyascii Keyboard dengan Visual Basic ?? Agar kita tahu nilai ascii dari keyboard yang kita tekan tersebut.

Berikut ini adalah cara untuk Mengetahui Keyascii Keyboard dengan Visual Basic yang sudah saya buatkan untuk teman – teman semua agar lebih mudah menjadi sebuah aplikasi.

Mengetahui Keyascii Keyboard dengan Visual Basic

VERSION 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 :

  • Copy Paste Coding diatas ke NotePad
  • Save as
  • Pada bagian Save As Type pilih All Files.
  • Isi fileNamenya dengan FrmKey.frm
  • Buka di VB 6 kalian dan Jalankan.

Sekian informasi sederhana saya mengenai bagaimana cara Mengetahui Keyascii Keyboard dengan Visual Basic setelah membaca artikel sederhana saya mengenai Mengetahui Keyascii Keyboard dengan Visual Basic.

KASIH RATE YUK!
4 5
Oleh


Leave a Reply

Your email address will not be published. Required fields are marked *