První časovač

jojocri
Offline
Začátečník

Více

10 roků 11 měsíců zpět - 10 roků 11 měsíců zpět #315 od jojocri

Odpověděl jojocri pro téma Re: První časovač

Koudy,
kusok by som to upravil, pridaval by som 1s, 2s, 4s, a 8s a časovač by mal rozpätie 0 - 15 s pri použití rovnakého počtu spínačov. Ak sa na to pozrieš, ide o mocniny 2, teda 2 na 0, 2 na 1 ....... , čo sa dá využiť aj pri programovaní.

zpozdeni: ;dotaz na propojky JUMPER
let w0 = 0
let m = 0
if pin1=1 then let n=m+1 and w0=w0 +(2 na( n - 1)) endif ;při propojení přidá 1s
if pin2=1 then let n=m+2 and w0=w0 +(2 na( n - 1)) endif ;při propojení přidá 2s
if pin3=1 then let n=m+3 and w0=w0 +(2 na( n - 1)) endif ;při propojení přidá 4s
if pin4=1 then let n=m+4 and w0=w0 +(2 na( n - 1)) endif ;při propojení přidá 8s
if w0<>0 then let w0 = w0 x 1000 endif
return ;návrat ze skoku

Nemám celkom preštudovaný tento konkrétny Basic, ale dúfam , že moja myšlienka je pochopiteľná. Parameter m slúži na jednoduchú zmenu časového intervalu, ak m= 1 potom sa bude dať nastaviť na 0, 2, 4, ... 30 s.

Jojo

Poslední změna: 10 roků 11 měsíců zpět uživatelem jojocri.

Prosím Přihlásit se nebo Vytvořit účet připojte se ke konverzaci.

Koudy
Autor tématu
Offline
Moderátor

Více

10 roků 11 měsíců zpět - 10 roků 11 měsíců zpět #313 od Koudy

První časovač vytvořil uživatel Koudy

Dělám časovač podobný jako od Honzy.

Bude umět zpoždění 0-11 sekund po 1 sekundě a to přepínačem.

1. přidá 1 sekundu
2. přidá 2 sekundy
3. přidá 3 sekundy
4. přidá 5 sekund
A tím vznikají různé kombinace.

Dále spínač akcelerace z tohoto časovače

Doplněné o kontrolu sepnutí z důvodu třeba klepnutí raketou o zem a nechtěnému výmetu.

Zatím první verze programu který si můžete na svém PC spustit i vy v Programovacím editoru.

;*** Program časovače ***
;www.raketaci.cz
;pro výmet padáku z rakety
;zpoždění 0 - 11 sekund


symbol aa = w0					;proměná

casovac:						;časovač
gosub zpozdeni					;skok pro zjištění času				
if pin5=1 then sepnuti 				;podmínka - sepnutí tlačítka
goto casovac					;na začátek


zpozdeni:						;dotaz na propojky JUMPER
let w0 = 0
if pin1=1 then let w0 = w0 + 1000 endif        ;při propojení přidá 1s
if pin2=1 then let w0 = w0 + 2000 endif	        ;při propojení přidá 2s
if pin3=1 then let w0 = w0 + 3000 endif        ;při propojení přidá 3s
if pin4=1 then let w0 = w0 + 5000 endif  	;při propojení přidá 5s
return						;návrat ze skoku

sepnuti:						;výstup - sepnutí
pause aa						;nastavené zpoždění
high 0						;sepnutí výstupu
pause 500						;sepnuto 0.5s
low 0							;rozepnutí výstupu
goto casovac					;návrat do hlavního programu