sorry für die dumme frage: post=attachment??
deshalb ausnahmsweise hier.
Code:
$regfile = "m8def.dat"
$crystal = 8000000 ' used crystal frequency
$baud = 9600 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 40 ' default use 10 for the SW stack
$framesize = 50 ' default use 40 for the frame space
Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.1 , Db4 = Portd.2 , Db5 = Portd.3 , Db6 = Portd.4 , Db7 = Postd.5
Config Lcd = 16 * 4
Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Dim A As Byte
Dim Text As String * 15
Dim Laenge As Integer
Text = "asd"
Laenge = Len(text)
Cls
Config Serialout = Buffered , Size = 20
Enable Interrupts
Print "abcd";
Do
A = Waitkey()
Print A
Cls
Locate 1 , 1
Lcd A
Loop
End
Lesezeichen