Hello!
Olyan kérdésem lenne, hogy nem kommunikál az m16 soros porton a géppel. maxos illesztővel van csatolva(amit itt a segédletben van). eddig(nem nyultam a próbapanelhez 1 hónapig) teljesen jo volt most meg semmi. 11,059200 kvarc van baud 115200. igy tök jo volt. kábelek érintkeznek. mi lehet a baj? az egyszerü print utasitás se megy. kristály baud jol beállítva.
Előre is köszi!
Zsolti
RS232 nem megy
pedig a laptopon jo volt a com beállítás. érdekes ez...Mostmár ide irok ebbe a topikba ugyis tmába vág:
A lényeg soros porton (max232n) érkezik a következő sztring:
s,xxx,xxx+crlf (1mp-s idöközzel 9600baud)
ezt kéne kiiratni lcd-re.
néztem már megoldást a mcselec forumán de nem jutottam sehova. vagyis ki tudom iratni csak mindig ujraindul egy bizonyos idö utána a kontroller(m16).
Valaki tudna segiteni.
Előre is köszi!
A lényeg soros porton (max232n) érkezik a következő sztring:
s,xxx,xxx+crlf (1mp-s idöközzel 9600baud)
ezt kéne kiiratni lcd-re.
néztem már megoldást a mcselec forumán de nem jutottam sehova. vagyis ki tudom iratni csak mindig ujraindul egy bizonyos idö utána a kontroller(m16).
Valaki tudna segiteni.
Előre is köszi!
Bocs.
ezt egy bascomforumos hozzászolás alapján szedtem össze kiirja de kifagy..
Kód: Egész kijelölése
$regfile = "m16def.dat"
$crystal = 11059200
$baud = 9600
...egéb cucc
Config Graphlcd = 240 * 64 , Dataport = Portc , Controlport = Portb , Ce = 2 , Cd = 3 , Wr = 0 , Rd = 1 , Reset = 4 , Fs = 5 , Mode = 6 'LCD beállítás
Config Input = Crlf , Echo = Crlf
Config Serialin = Buffered , Size = 11 , Bytematch = 10
...többi cucc
Dim Command As String * 11
Enable Timer1
Enable Interrupts
Do
'Input Command Noecho
Cls Text
Locate 4 , 4 : Lcd Command
Waitms 200
Loop
...többi izé
Serial0charmatch:
Input Command Noecho
Return
Lényegi hibák - halmaza.....
Kód: Egész kijelölése
$regfile = "m16def.dat"
$crystal = 11059200
$baud = 9600
...egyéb cucc
Config Graphlcd = 240 * 64 , Dataport = Portc , Controlport = Portb , Ce = 2 , Cd = 3 , Wr = 0 , Rd = 1 , Reset = 4 , Fs = 5 , Mode = 6 'LCD beállítás
' Config Input = Crlf , Echo = Crlf
'Ez minek???
Config Serialin = Buffered , Size = 254 ', Bytematch = 10
'Bytematch nem kell. Ugyse csinalsz semmit
...többi cucc
Dim Command As String * 11
Enable Timer1
Enable Interrupts
Cls Text 'Ilyet nem csinalgatunk fociklusban, mert villog!
Do
'Input Command Noecho
Cls Text
a=inkey()
if a=chr(13) then 'enter
locate 1,1
endif
'Csak a nyomtathato karakter keruljon a kijelzore
if chr(a)>32 then
if chr(a)<128 then
lcd a
endif
endif
' Locate 4 , 4 : Lcd Command
' Waitms 200
Loop
...többi izé
'Na ez a tobbiize nem fut le az eletben soha:)
'Serial0charmatch:
'Input Command Noecho
'Return
"Nincs serialmatch Mert MINEK?Átiratam a kódot nem csinál semmit. annyit irtam át h csak a megjelenithetö karaktereknél a chr-t asc-ra cseréltem. a többi hülyeséget kitöröltem. a bytmatch-et azért irtam mert ugy vettem ki h ha ha van bytmatch akkor meghivodik a Serial0charmatch és ott el lehet végezni a beolvasást. ott olvastam be amit utána kiirattam. ilyesmit láttam a bascom forumon. most már elég tanácstalan vagyok.
Az újraindulás lehet:
- Watchdog leketyeg
- Reset láb aktivizálódik
- HWStack/SWStack/Frames értéket öveld meg a duplájára
A reset kiváltó okát a Reset regiszter bekapcsolási kiolvasásával meg lehet nézni. Minta van valahol a fórumban is.....
Megleshető RESETfajták:
- HWreset
- bekapcsolás
- Watchdog újraindítás
- BOD (tápfeszingadozás)
- JTAG reset
- Watchdog leketyeg
- Reset láb aktivizálódik
- HWStack/SWStack/Frames értéket öveld meg a duplájára
A reset kiváltó okát a Reset regiszter bekapcsolási kiolvasásával meg lehet nézni. Minta van valahol a fórumban is.....
Megleshető RESETfajták:
- HWreset
- bekapcsolás
- Watchdog újraindítás
- BOD (tápfeszingadozás)
- JTAG reset