ايران ويج

$regfile = "m32def.dat"
$crystal = 16000000
$lib "lcd4.lbx"
$baud = 19200

Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.2 , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Postb.7
Config Lcd = 16 * 2
Config Kbd = Portc
Dim Row As Byte , Column As Byte , Key As Byte , Sendkey As String * 10 , Convert As Byte
Column = 1 : Row = 1




Main:
Key = Getkbd()
Select Case Key
Case 0 To 9 : Goto Printlcd
Case 15 : Goto Printkey
End Select
jmp main
Printlcd:
Locate Row , Column
Lcd Key
Sendkey = Sendkey + Str(key)
Waitms 500
Incr Column
If Column > 15 Then
Column = 1 : Incr Row
End If
If Row > 2 Then
Cls : Row = 1
End If
jmp main
Printkey:
Waitms 500
Print Sendkey
Waitms 500
Sendkey = ""
Cls : Row = 1
Lcd "ok"
Waitms 500
Lcd Sendkey
Waitms 500
jmp main
End