Vítejte na Elektro Bastlírn?
Nuke - Elektro Bastlirna
  Vytvořit účet Hlavní · Fórum · DDump · Profil · Zprávy · Hledat na fóru · Příspěvky na provoz EB

Vlákno na téma KORONAVIRUS - nutná registrace


Nuke - Elektro Bastlirna: Diskuzní fórum

 FAQFAQ   HledatHledat   Uživatelské skupinyUživatelské skupiny   ProfilProfil   Soukromé zprávySoukromé zprávy   PřihlášeníPřihlášení 

klávesnice - key down(up) PICAXE

 
Přidat nové téma   Zaslat odpověď       Obsah fóra Diskuzní fórum Elektro Bastlírny -> Software
Zobrazit předchozí téma :: Zobrazit následující téma  
Autor Zpráva
Persink163054



Založen: Oct 05, 2011
Příspěvky: 29

PříspěvekZaslal: st říjen 23 2019, 14:36    Předmět: klávesnice - key down(up) PICAXE Citovat

Dobrý den,

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

high b.1
pause 25
goto main ; návrat na začátek



jen klavesnice.GIF
 Komentář:
 Velikost:  7.32 kB
 Zobrazeno:  172 krát

jen klavesnice.GIF



jen klavesnice.GIF
 Komentář:
schéma klávesnice
 Velikost:  7.32 kB
 Zobrazeno:  186 krát

jen klavesnice.GIF


Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
petrfilipi



Založen: Sep 13, 2005
Příspěvky: 2634

PříspěvekZaslal: st říjen 23 2019, 16:03    Předmět: Citovat

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é.

Petr
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu Odeslat e-mail
Persink163054



Založen: Oct 05, 2011
Příspěvky: 29

PříspěvekZaslal: st říjen 23 2019, 16:53    Předmět: Citovat

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

high b.1
pause 25
goto main ; návrat na začátek
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
petrfilipi



Založen: Sep 13, 2005
Příspěvky: 2634

PříspěvekZaslal: st říjen 23 2019, 17:23    Předmět: Citovat

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.

Petr
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu Odeslat e-mail
Zobrazit příspěvky z předchozích:   
Přidat nové téma   Zaslat odpověď       Obsah fóra Diskuzní fórum Elektro Bastlírny -> Software Časy uváděny v GMT + 1 hodina
Strana 1 z 1

 
Přejdi na:  
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

Powered by phpBB © 2001, 2005 phpBB Group
Forums ©
Nuke - Elektro Bastlirna

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.


PHP-Nuke Copyright © 2005 by Francisco Burzi. This is free software, and you may redistribute it under the GPL. PHP-Nuke comes with absolutely no warranty, for details, see the license.
Čas potřebný ke zpracování stránky 0.14 sekund