DEBUGIN i PicBasic pro
> HserIn kräver en ex. MAX 232 bara för att den inte kan sättas i inverterat mode..
Kräver och kräver...
Vill man köra RS232 problemfritt så är det MAX232 (eller
kompatibel) som gäller...
> Jag får väl gå över till hårdvaru o köpa hem lite prylar..
Om det är MAX232 du menar, så kan du PM'a mig.
Jag har en batch liggandes med passande kondingar.
De ska ut på Tradera, men jag har inte hunnit...
Jag har både DIP och SOIC, men det är väll DIP du behöver, antar jag...
> Men nu blir det bara flummiga krumilurer på lcdn
Jag utgår från att LCD rutinerna i sig är testade !?
Har du någon annan möjlighet att faktiskt se vilka tecken du får ?
T.ex genom att skriva det binärt till LCDn ?
(I assembler skulle man skifta byten genom carryflaggan och skiva
"1" eller "0" beroende på värdet på carry. I Basic är jag "lost"...
Kräver och kräver...

Vill man köra RS232 problemfritt så är det MAX232 (eller
kompatibel) som gäller...
> Jag får väl gå över till hårdvaru o köpa hem lite prylar..
Om det är MAX232 du menar, så kan du PM'a mig.
Jag har en batch liggandes med passande kondingar.
De ska ut på Tradera, men jag har inte hunnit...
Jag har både DIP och SOIC, men det är väll DIP du behöver, antar jag...
> Men nu blir det bara flummiga krumilurer på lcdn
Jag utgår från att LCD rutinerna i sig är testade !?
Har du någon annan möjlighet att faktiskt se vilka tecken du får ?
T.ex genom att skriva det binärt till LCDn ?
(I assembler skulle man skifta byten genom carryflaggan och skiva
"1" eller "0" beroende på värdet på carry. I Basic är jag "lost"...

Kod: Markera allt
DEFINE OSC 4
DEFINE LCD_DREG PORTA
DEFINE LCD_DBIT 0
DEFINE LCD_RSREG PORTA
DEFINE LCD_RSBIT 4
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 3
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2
DEFINE LCD_COMMANDUS 2000
DEFINE LCD_DATAUS 50
Pause 100
VisaX VAR BYTE ' Det du vill visa på disply
Pause 500 'Wait for LCD to wake up
LCDOut $FE, 1 'Initiate LCD by clearing display
LCDOut $FE,1,"En liten text"'Bara för att se att displayen fungerar
Pause 1000
LCDOut $FE,1
loop:
SerIn2 PORTB.0,16780,[wait ("A"),VisaX]
Pause 50
LCDOut VisaX
GoTo loop
End
Går det att skicka ord istället för en bokstav i taget eller det är svårt?