Čtení dat z LCD BASCOM
Moderátor: Moderátoři
Čtení dat z LCD BASCOM
Dobrý den,
prosím ještě o tuto radu:
Jedná se o čtení dat z klasického LCD displeje 16x2 s řadičem, například na tomto zapojení:
http://www.extremeelectronics.co.in/avr ... TMEGA8.gif
Jak prosím provést čtení dat z tohoto displeje tak, abych je třeba po tomto přečtení mohl vypsat přes seriový port a to vše v bascomu?
prosím Vás o radu,
děkuji
prosím ještě o tuto radu:
Jedná se o čtení dat z klasického LCD displeje 16x2 s řadičem, například na tomto zapojení:
http://www.extremeelectronics.co.in/avr ... TMEGA8.gif
Jak prosím provést čtení dat z tohoto displeje tak, abych je třeba po tomto přečtení mohl vypsat přes seriový port a to vše v bascomu?
prosím Vás o radu,
děkuji
AB1,
děkuji za odpověď. Zkusím to nyní napravit:
Představte si prosím tento názorný příklad:
Mám ATmega8 a v tomto obvodu tlačítko. Podle toho jak dlouho ho držím, takové písmenko se mi zobrazí an LCD.
Takto můžu vedle sebe napsat třeba 10 písmenek, příčemž druhým tlačítkem se posouvám na řádku LCD displeje doprava na další znak.
Až jak mám napsané třeba: "elektroavr" tak chci stisknout třetí tlačítko, díky kterému atmega přečte z tohoto LCD všechny znaky a umozni mi je dale zpracovavat.
Prosím Vás o radu,
děkuji
děkuji za odpověď. Zkusím to nyní napravit:
Představte si prosím tento názorný příklad:
Mám ATmega8 a v tomto obvodu tlačítko. Podle toho jak dlouho ho držím, takové písmenko se mi zobrazí an LCD.
Takto můžu vedle sebe napsat třeba 10 písmenek, příčemž druhým tlačítkem se posouvám na řádku LCD displeje doprava na další znak.
Až jak mám napsané třeba: "elektroavr" tak chci stisknout třetí tlačítko, díky kterému atmega přečte z tohoto LCD všechny znaky a umozni mi je dale zpracovavat.
Prosím Vás o radu,
děkuji
Začni třeba s tímhle kódem a zkus ho vylepšovat
Kód: Vybrat vše
$regfile = "m8def.dat"
$crystal = 8000000 'Kmitočet oscilátoru v Hz
$hwstack = 100
$swstack = 64
$framesize = 64
$baud = 9600
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , _
Db7 = Portb.3 , E = Portb.4 , Rs = Portb.5
Tlac1 Alias Pind.5
Portd.5 = 1 'pull-up
Tlac2 Alias Pind.6
Portd.6 = 1 'pull-up
Tlac3 Alias Pind.7
Portd.7 = 1 'pull-up
''''''''''''''' HLAVNI PROGRAM '''''''''''''''''''''''''''''''''''''''''''''''
Dim Pozice As Byte
Dim Znak As Byte
Dim Vsechny_znaky As String * 20
Znak = "A" - 1
Pozice = 1
Cls
Do
If Tlac1 = 0 Then 'vyber znak
Incr Znak
Locate 1 , Pozice
Lcd Chr(znak)
Waitms 500
End If
If Tlac2 = 0 Then 'potvrď znak
Waitms 500
Vsechny_znaky = Vsechny_znaky + Chr(znak) 'přidej znak do stringu
Incr Pozice 'další znak
Znak = "A" - 1
End If
If Tlac3 = 0 Then 'pošli string do PC
Waitms 500
Print Vsechny_znaky
Znak = "A" - 1
Pozice = 1
Vsechny_znaky = ""
Cls
End If
Loop 'jdi na Do
''''''''''''''' KONEC HLAVNIHO PROGRAMU ''''''''''''''''''''''''''''''''''''''
End
AB1,
děkuji za ukázku tohoto programu, který úplně nádherně člověka nakopne. Už to chodí v simulaci jak má, prostě paráda a přesně tohle jsem potřeboval.
Prosím ještě o radu....
Když chci opravit některé písmenko, třeba napíšu slovo:
"elektrPworld"
a písmeno "P" chci přepsat na "o" a po této opravě odeslat slovo "elektroworld" po seriovem portu...
Prosím, jakym smerem mam jit, aby reseni bylo efektivni?
Dekuji a hezky den
děkuji za ukázku tohoto programu, který úplně nádherně člověka nakopne. Už to chodí v simulaci jak má, prostě paráda a přesně tohle jsem potřeboval.
Prosím ještě o radu....
Když chci opravit některé písmenko, třeba napíšu slovo:
"elektrPworld"
a písmeno "P" chci přepsat na "o" a po této opravě odeslat slovo "elektroworld" po seriovem portu...
Prosím, jakym smerem mam jit, aby reseni bylo efektivni?
Dekuji a hezky den
Dekuji za odpoved AB1..
u posledního písmenka opravu chapu, to ano...
ale problém nastane třeba u situace, kdy chci opravit třetí písmenka z 10....
Najedu na to 3 písmenko, opravim, ale vytiskne se mi na konci všech znaků...a ne na třetí pozici....
Řešení by spočívalo v tom, kdyby bylo možné z deseti znaků opravit pouze třetí znak, aniž by se pohlo zbývajícími devíti znaky....
je to prosím nějak snadno řešitelné? Je to modelový příklad nebo musím bádat nad vlastní funkcí?
Děkuji
u posledního písmenka opravu chapu, to ano...
ale problém nastane třeba u situace, kdy chci opravit třetí písmenka z 10....
Najedu na to 3 písmenko, opravim, ale vytiskne se mi na konci všech znaků...a ne na třetí pozici....
Řešení by spočívalo v tom, kdyby bylo možné z deseti znaků opravit pouze třetí znak, aniž by se pohlo zbývajícími devíti znaky....
je to prosím nějak snadno řešitelné? Je to modelový příklad nebo musím bádat nad vlastní funkcí?
Děkuji
Popopepe..
příkaz Locate samozřejmě ano....
ale vyřeší to pouze to, že vidím správně znaky na LCD....
ovšem v řetězci znaků, které ukládám:
Vsechny_znaky = Vsechny_znaky + Chr(znak)
to problém neřeší....ve znacích je pak chaos....když opravím 3 znak z 10 a potvrdím jej, uloží se mi jako znak v pořadí jedenáctý.....
a já h potřebuju uložit jako třetí bez změny ostatních znaků před a za tímto třetím znakem
děkuji
příkaz Locate samozřejmě ano....
ale vyřeší to pouze to, že vidím správně znaky na LCD....
ovšem v řetězci znaků, které ukládám:
Vsechny_znaky = Vsechny_znaky + Chr(znak)
to problém neřeší....ve znacích je pak chaos....když opravím 3 znak z 10 a potvrdím jej, uloží se mi jako znak v pořadí jedenáctý.....
a já h potřebuju uložit jako třetí bez změny ostatních znaků před a za tímto třetím znakem
děkuji
Nevím přesně proč když se spleteš v písmenu tak napíšeš dalších pět a pak teprve to špatné opravíš.
Ale budiž, berme to jako teoretické cvičení.
Abys mohl snadno přistupovat k jednotlivým znakům ve stringu, napiš tyto deklarace
String "Vsechny_znaky" a pole "Znaky" se budou překrývat.
Co napíšeš např. do Znaky(3) bude zároveň v třetím znaku stringu.
změň na
Dalším tlačítkem pak dekrementuj pozici a posuň kurzor doleva.
Až budeš na špatném znaku, opravíš ho tlačítkem1, potvrdíš tlačítkem2 atd.
Ale budiž, berme to jako teoretické cvičení.
Abys mohl snadno přistupovat k jednotlivým znakům ve stringu, napiš tyto deklarace
Kód: Vybrat vše
Dim Vsechny_znaky As String * 20
Dim Znaky(20) As Byte At Vsechny_znaky Overlay
Co napíšeš např. do Znaky(3) bude zároveň v třetím znaku stringu.
Kód: Vybrat vše
Vsechny_znaky = Vsechny_znaky + Chr(znak)
změň na
Kód: Vybrat vše
Znaky(pozice) = Znak 'přidej znak do stringu
Až budeš na špatném znaku, opravíš ho tlačítkem1, potvrdíš tlačítkem2 atd.
AB1,
děkuji, děkuji, děkuji!!!!!!!!!!
To opravdu funguje....zkoušil jsem to řešit sám různými funkcemi jako zapamatování předchozích znaků od znaku v opravované pozici a zapamatování znaků za touto pozicí, pak tyto dvě množiny spojit...
a ono to funguje podle chytrého řešení AB1 na jeden řádek tak přesně, jak jsem potřeboval...
AB1 ještě jednou mockrát děkuji za pomoc a Váš čas!!!!!!!!!!! Funguje to a je to přesně to, co bylo potřeba!!
děkuji, děkuji, děkuji!!!!!!!!!!
To opravdu funguje....zkoušil jsem to řešit sám různými funkcemi jako zapamatování předchozích znaků od znaku v opravované pozici a zapamatování znaků za touto pozicí, pak tyto dvě množiny spojit...
a ono to funguje podle chytrého řešení AB1 na jeden řádek tak přesně, jak jsem potřeboval...
AB1 ještě jednou mockrát děkuji za pomoc a Váš čas!!!!!!!!!!! Funguje to a je to přesně to, co bylo potřeba!!