Witam Na początku pragnę nadmienić iż dopiero dzisiaj poznałem język BASCOM więc mam w nim duże a nawet bardzo duże braki tak więc gdybym napisał coś żle to nie miejcie mi tego za złe
Napisałem prościutki programik na procka który po wciśnięciu odpowiednich przycisków (wpisaniu kodu) np. zapali diodę na 2 sekundy po czym ją zgasi.
Załóżmy że przycisków jest 6 (pind.0 - pind.5, pind.6 to wyjście) a kod to 245 (pind.1, pind.3, pind.4).
Po wpisaniu kodu przez dwie sekundy na pind.6 jest stan "1" po czym powraca do pierwotnego stanu, przyciski także wracają do stanu "0".
Wszystko ładnie (przynajmniej mam taką nadzieje) ale na przykład przychodzi ktoś kto nie zna kodu i naciska wszystkie przyciski byle jak, następnie przychodzę ja i nie wiem na których przyciskach jest jaki stan
Więc może macie na to jakiś pomysł
I tak w ogóle to SZCZĘŚLIWEGO NOWEGO ROKU!!!
Napisałem prościutki programik na procka który po wciśnięciu odpowiednich przycisków (wpisaniu kodu) np. zapali diodę na 2 sekundy po czym ją zgasi.
Załóżmy że przycisków jest 6 (pind.0 - pind.5, pind.6 to wyjście) a kod to 245 (pind.1, pind.3, pind.4).
Po wpisaniu kodu przez dwie sekundy na pind.6 jest stan "1" po czym powraca do pierwotnego stanu, przyciski także wracają do stanu "0".
$regfile = "attiny2313.dat"
$crystal = 1000000
config pind.0=input
config pind.1=input
config pind.2=input
config pind.3=input
config pind.4=input
config pind.5=input
config pind.6=output
portd.0=0
portd.1=0
portd.2=0
portd.3=0
portd.4=0
portd.5=0
portd.6=0
do
if pinb.0=0 and pind.1=1 and pind.2=0 and pind.3=1 and pind.4=1 and pind.5=0 then
pind.6=1
wait 2
pind.1=0
pind.3=0
pind.4=0
pind.6=0
endif
loop
end Wszystko ładnie (przynajmniej mam taką nadzieje) ale na przykład przychodzi ktoś kto nie zna kodu i naciska wszystkie przyciski byle jak, następnie przychodzę ja i nie wiem na których przyciskach jest jaki stan
Więc może macie na to jakiś pomysł
I tak w ogóle to SZCZĘŚLIWEGO NOWEGO ROKU!!!
