sestavil jsem si tuto specifickou klávesnici kterou zpracovávám následujícím kodem pro procesor PICAXE. Vybrané tlačítko pak odešle na seriovou linku text se znakem příslušné klávesy a to pak následně zpracovávám v Delphi7.
Problém který řeším, je jak upravit stávající kod, tak aby se na sériovou linku odeslal jen jeden text(znak). Tedy stlačím tlačítko, odešlu jeho text(znak) a i když jej stále držím, už se neodešle nic.
Pro další poslání je tedy nutné tlačítko uvolnit a zmáčknout nové.
Předem děkují za cenné rady.
zdrojový kod:
main: rem začatek programu
readadc A.1,b0 ; klávesnice připojena na vstup A.1 (pin 3)
select case b0 ; vybereme správné tlačítko a odešleme na seriovou linku
case > 250
serout 3,N9600, ("L")
case > 193
serout 3,N9600, ("1")
case > 154
serout 3,N9600, ("2")
case > 128
serout 3,N9600, ("3")
case > 110
serout 3,N9600, ("6")
case > 95
serout 3,N9600, ("5")
case > 85
serout 3,N9600, ("4")
case > 75
serout 3,N9600, ("LS")
case > 70
serout 3,N9600, ("PS")
case > 64
serout 3,N9600, ("7")
case > 59
serout 3,N9600, ("8")
case > 54
serout 3,N9600, ("9")
case > 51
serout 3,N9600, ("0")
case > 48
serout 3,N9600, ("P")
end select
low b.1 ; vypínání a zapínání LED, jako optická kontrola
pause 25 ; že došlo k naprogramování a PICAXE odesílá data
Musíš tam mít příznak toho, že jsi data odeslal, tzn. po každém odeslání nastavit příznak do 1 a před odesíláním se ptát na to, zdali je tento příznak =0. A mazat ho tehdy, když není tlačítko stisknuté.
Díky moc za radu. Vylepšil jsem to takto a funguje to. Odesílá se pouze jeden potřebný znak.
Moc díky.
Zdrojový kod:
main: rem začatek programu
readadc A.1,b0 ; klávesnice připojena na vstup A.1 (pin 3)
; proměnná b0 je stav tlačítek
select case b0 ; proměnná b1 je příznak stisknutí. Je-li b1=0
; je povoleno odeslání na ser.linku. Vzápětí se
case > 250 ; hodnota b1=1
if b1 = 0 then
serout 3,N9600, ("L")
let b1 = 1
end if
case > 193
if b1 = 0 then
serout 3,N9600, ("1")
let b1 = 1
end if
case > 154
if b1 = 0 then
serout 3,N9600, ("2")
let b1 = 1
end if
case > 128
if b1 = 0 then
serout 3,N9600, ("3")
let b1 = 1
end if
case > 110
if b1 = 0 then
serout 3,N9600, ("6")
let b1 = 1
end if
case > 95
if b1 = 0 then
serout 3,N9600, ("5")
let b1 = 1
end if
case > 85
if b1 = 0 then
serout 3,N9600, ("4")
let b1 = 1
end if
case > 75
if b1 = 0 then
serout 3,N9600, ("LS")
let b1 = 1
end if
case > 70
if b1 = 0 then
serout 3,N9600, ("PS")
let b1 = 1
end if
case > 64
if b1 = 0 then
serout 3,N9600, ("7")
let b1 = 1
end if
case > 59
if b1 = 0 then
serout 3,N9600, ("8")
let b1 = 1
end if
case > 54
if b1 = 0 then
serout 3,N9600, ("9")
let b1 = 1
end if
case > 51
if b1 = 0 then
serout 3,N9600, ("0")
let b1 = 1
end if
case > 48
if b1 = 0 then
serout 3,N9600, ("P")
let b1 = 1
end if
readadc A.1,b0 ; klávesnice připojena na vstup A.1 (pin 3)
case = 0 ; b0=0, nestisknuto žádné tlačítko
if b1 = 1 then ; bylo-li b1=1, změní se na b1=0 a počká se
; na stisk
let b1 = 0
end if
end select
low b.1 ; vypínání a zapínání LED, jako optická kontrola
pause 25 ; že došlo k naprogramování a PICAXE odesílá data
Super, gratuluji.
Další vylepšení by mohlo být řešení nějakou vysílací procedurou, do které by vstupoval kód stisknutého znaku. Abys to otrocky nemusel kopírovat pro každou hodnotu.
Pak bys mohl jak hodnoty z analogového vstupu, tak i výstupní kódy uložit do dvou polí. Porovnával bys v cyklu hodnotu z analogového vstupu s jedním polem a pak bys hned měl výsledek v druhém poli. Jde o to, že pak jednoduše můžeš rozšířit množství rozeznávaných hodnot, aniž bys musel měnit vlastní porovnávací proceduru.
Taky pozor na odskok kontaktu při spínání tlačítka.
Nemůžete odesílat nové téma do tohoto fóra. Nemůžete odpovídat na témata v tomto fóru. Nemůžete upravovat své příspěvky v tomto fóru. Nemůžete mazat své příspěvky v tomto fóru. Nemůžete hlasovat v tomto fóru. Nemůžete připojovat soubory k příspěvkům Můžete stahovat a prohlížet přiložené soubory
Informace na portálu Elektro bastlírny jsou prezentovány za účelem vzdělání čtenářů a rozšíření zájmu o elektroniku. Autoři článků na serveru neberou žádnou zodpovědnost za škody vzniklé těmito zapojeními. Rovněž neberou žádnou odpovědnost za případnou újmu na zdraví vzniklou úrazem elektrickým proudem. Autoři a správci těchto stránek nepřejímají záruku za správnost zveřejněných materiálů. Předkládané informace a zapojení jsou zveřejněny bez ohledu na případné patenty třetích osob. Nároky na odškodnění na základě změn, chyb nebo vynechání jsou zásadně vyloučeny. Všechny registrované nebo jiné obchodní známky zde použité jsou majetkem jejich vlastníků. Uvedením nejsou zpochybněna z toho vyplývající vlastnická práva. Použití konstrukcí v rozporu se zákonem je přísně zakázáno. Vzhledem k tomu, že původ předkládaných materiálů nelze žádným způsobem dohledat, nelze je použít pro komerční účely! Tento nekomerční server nemá z uvedených zapojení či konstrukcí žádný zisk. Nezodpovídáme za pravost předkládaných materiálů třetími osobami a jejich původ. V případě, že zjistíte porušení autorského práva či jiné nesrovnalosti, kontaktujte administrátory na diskuzním fóru EB.