nö kein ding
Code:
OPTION CC2.0
Import "IIC_LCD_DRIVE.BAS" 'LCD-Treiber
Baud R9600
LCD_INIT()
Line1(6)
LCD_WRITE(20h, 53h)
LCD_WRITE(20h, 79h)
LCD_WRITE(20h, 73h)
LCD_WRITE(20h, 74h)
LCD_WRITE(20h, 65h)
LCD_WRITE(20h, 6Dh)
Line2(2)
LCD_WRITE(20h, 49h)
LCD_WRITE(20h, 6Eh)
LCD_WRITE(20h, 69h)
LCD_WRITE(20h, 74h)
LCD_WRITE(20h, 69h)
LCD_WRITE(20h, 61h)
LCD_WRITE(20h, 6Ch)
LCD_WRITE(20h, 69h)
LCD_WRITE(20h, 73h)
LCD_WRITE(20h, 61h)
LCD_WRITE(20h, 74h)
LCD_WRITE(20h, 69h)
LCD_WRITE(20h, 6Fh)
LCD_WRITE(20h, 6Eh)
Print "Sytem initalisert, bitte warten...."
pause 96
LCD_CLR()
Print "Daten können jetzt gesendet werde"
define data as byte
define counter as byte
counter = 0
do
if rxd then
if counter < 32 then
' LCD_CLR()
' counter = 0
' end if
get data
LCD_WRITE(20h, Data)
Counter = counter + 1
end if
end if
loop until 1=0
'-------- Print Hex-Value ----------
function WriteHexDigit(Digit as Byte)
if digit > 9 then
LCD_WRITE(20h, (55 + digit))
else
LCD_WRITE(20h, (48 + digit))
end if
end function
declare function PrintHex(Value as Byte)
function PrintHex(Value as Byte)
WriteHexDigit(Value / 10h)
WriteHexDigit(Value mod 10h)
end function
ich hoffe aml das hilft weiter aso die lcd_write function ist aus dem iic_lcd_treiber von conrad brauchst du den auch noch?
ich vermute nur das problem in meine delphi Quelltext bei den Eistellungen der seriellen Schnittstelle, denn senden von der CC ans Hyperterminal oder ans Worbench Terminal funzt bestens.
Lesezeichen