» Poradna » Programy

Programování Atmel

 |   |  Microsoft Windows 10 Chrome 49.0.2623.87

Zdravím, nutně potřebuji napsat program do procesoru, ale nejak se mi nedaří. Zadání zní takto: Napište program v Bascomu tak, aby se na prvním vývodu procesoru při stisku tlačítka objevila log. 1 a při uvolnění tlačítka log. 0. při druhém stisku tlačítka se bude proces opakovat na druhém portu. Takto napište program pro 5 výstupů.Problém je v tom, že při opakovaném stisku tlačítka reaguje pouze první výstup. ostatní nic.Je tu nekdo, kdo by poradil ?Pozn.: Stisknuté tlačítko = log 0.Díkmůj program:$regfile = "m32def.dat"$crystal = 16000000Config Pinb.5 = InputPortb.5 = 1Config Portc.0 = OutputConfig Portc.1 = OutputConfig Portc.2 = OutputConfig Portc.3 = OutputConfig Portc.4 = OutputDim A As ByteDim B As BitReset Portc.0Reset Portc.1Reset Portc.2Reset Portc.3Reset Portc.4A = 0B = 0DoIf Pinb.5 = 0 And B = 0 Then A = A + 1 Goto StiskEnd IfIf Pinb.5 = 1 Then Reset Portc.0 Reset Portc.1 Reset Portc.2 Reset Portc.3 Reset Portc.4 Reset BIf A = 4 Then A = 0End IfLoopEndStisk:If A = 1 Then Set Portc.0End IfIf A = 2 Then Set Portc.1End IfIf A = 2 Then Set Portc.2End IfIf A = 3 Then Set Portc.3End IfIf A = 4 Then Set Portc.4End IfSet BReturnEnd If

Odpovědi na otázku

 |   |  Microsoft Windows 7 Firefox 44.0

ctrlBtn_count = -1DO IF PORTB.0 = 0 THEN REM Stisk ctrlBtn_count = ctrlBtn_count + 1 IF ctrlBtn_count = 5 THEN ctrlBtn_count = 0 END IF SELECT CASE ctrlBtn_count CASE 0: PORTC.0 = 1 PORTC.1 = tristate PORTC.2 = tristate PORTC.3 = tristate PORTC.4 = tristate CASE 1: PORTC.0 = tristate PORTC.1 = 1 PORTC.2 = tristate PORTC.3 = tristate PORTC.4 = tristate CASE 2: PORTC.0 = tristate PORTC.1 = tristate PORTC.2 = 1 PORTC.3 = tristate PORTC.4 = tristate CASE 3: PORTC.0 = tristate PORTC.1 = tristate PORTC.2 = tristate PORTC.3 = 1 PORTC.4 = tristate CASE 4: PORTC.0 = tristate PORTC.1 = tristate PORTC.2 = tristate PORTC.3 = tristate PORTC.4 = 1 END SELECT END IF IF PORTB.0 = 1 THEN REM Pusteno SELECT CASE ctrlBtn_count CASE 0: PORTC.0 = 0 PORTC.1 = tristate PORTC.2 = tristate PORTC.3 = tristate PORTC.4 = tristate CASE 1: PORTC.0 = tristate PORTC.1 = 0 PORTC.2 = tristate PORTC.3 = tristate PORTC.4 = tristate CASE 2: PORTC.0 = tristate PORTC.1 = tristate PORTC.2 = 0 PORTC.3 = tristate PORTC.4 = tristate CASE 3: PORTC.0 = tristate PORTC.1 = tristate PORTC.2 = tristate PORTC.3 = 0 PORTC.4 = tristate CASE 4: PORTC.0 = tristate PORTC.1 = tristate PORTC.2 = tristate PORTC.3 = tristate PORTC.4 = 0 END SELECT END IFLOOP false

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Reset, Output, Stisk, První výstup, Stisknuté tlačítko, Loop, Goto


Určitě si přečtěte

Antivir zdarma: 8 bezplatných řešení, která zatočí s havětí v počítači

Antivir zdarma: 8 bezplatných řešení, která zatočí s havětí v počítači

** Součástí Windows 10 je integrovaný antivirový program. Stačí to? ** Představíme vám sedm aplikací na boj proti virům a malwaru ** Všechny jsou k dispozici zdarma a některé ani nemusíte instalovat

Karel Kilián | 30

Starý smartphone nemusí skončit v koši. 10 způsobů, jak ho ještě můžete využít

Starý smartphone nemusí skončit v koši. 10 způsobů, jak ho ještě můžete využít

** Co dělat s vysloužilým chytrým telefonem? Neházejte ho do koše! ** Našli jsme pro vás deset možností, jak ho prakticky využít ** I stará zařízení tak mohou být užitečná

Karel Kilián | 47

Už desítky let se pokoušíme odposlouchávat mozek. Rusům se podařil kousek, ze kterého vám spadne brada

Už desítky let se pokoušíme odposlouchávat mozek. Rusům se podařil kousek, ze kterého vám spadne brada

** K odposlechu mozků používáme EEG ** To má ale žalostné informační rozlišení ** Rusům pomohla počítačová neuronová síť

Jakub Čížek | 28

Vyzkoušeli jsme chytrou čínskou zásuvku Sonoff S26 za tři stovky. Nevyhořeli jsme

Vyzkoušeli jsme chytrou čínskou zásuvku Sonoff S26 za tři stovky. Nevyhořeli jsme

** Je sice z Aliexpressu, ale funguje ** Můžete ji ovládat hlasem přes Amazon Echo nebo Google Home ** Za tři stovky zautomatizuje menší 230V spotřebič

Jakub Čížek | 101



Aktuální číslo časopisu Computer

Megatest 20 procesorů

Srovnání 15 True Wireless sluchátek

Vyplatí se tisknout fotografie doma?

Vybíráme nejlepší základní desky