Hallo und Danke für eure Antworten!
Ich habe mein Programm abgeändert.
und hatte immer noch das gleiche ProblemCode:'------------[Meta]------------------------------------------------------------- $regfile = "m32def.dat" $crystal = 11592000 $hwstack = 32 $swstack = 10 $framesize = 40 $baud = 9600 '------------[Lib für glcdKS108]------------------------------------------------ $lib "glcdKS108.lbx" '------------[GLCD Config]------------------------------------------------------ Config Graphlcd = 128 * 64sed , Dataport = Portc , Controlport = Porta , Ce = 1 , Ce2 = 2 , Cd = 3 , Rd = 4 , Reset = 0 , Enable = 5 Cls Setfont Font8x8 '------------[Programm]--------------------------------------------------------- On Urxc Onrxd Dim I As Byte Dim S As String * 100 Dim Flagset As Bit Dim Lenstr As Integer Ddrd.5 = 1 Enable Urxc Enable Interrupts Main: If Flagset = 1 Then Portd.5 = Not Portd.5 'Damit die LED blinkt.. S = S + Chr(i) Reset Flagset Lenstr = Len(s) * 8 : Lenstr = Lenstr - 7 Lcdat 1 , Lenstr , Chr(i) Lcdat 3 , 1 , Lenstr End If Goto Main Onrxd: I = Udr Set Flagset ' Udr = I 'Echo an UART Return '------------[Ende]------------------------------------------------------------- End $include "font8x8.font"..
PS: Fehler gefunden:
$crystal = 11592000 hatte ich falsch angegeben
Ich hab's geändert in:
$crystal = 11059200
MfG MaXX







Zitieren

Lesezeichen