Witam
Jak zrobić włącznik zmierzchowy na atmega8L w bascom? Proszę o schemat i program
Jak zrobić włącznik zmierzchowy na atmega8L w bascom? Proszę o schemat i program
Czy wolisz polską wersję strony elektroda?
Nie, dziękuję Przekieruj mnie tam$regfile = "m8def.dat"
$crystal = 1000000
Config Portd.7 = Output
Config Portd.6 = Output
Config Portd.0 = Output
' RGB
Config Portd.1 = Output
Config Portd.2 = Output
Do ' migacz
Set Portb.0 ' włączenie diody
Wait 1 ' czekaj 1 sekunde
Reset Portb.0 ' wyłączenie diody
Wait 5 ' czekaj 5 sekunde
Set Portb.7 ' włączenie diody
Wait 2 ' czekaj 2 sekunde
Reset Portb.7 ' wyłączenie diody
Wait 1 ' czekaj 1 sekunde
' migacz HELIKOPTER
Set Portb.6 ' włączenie diody
Waitms 650 ' czekaj 0,5 sekunde
Reset Portb.6 ' wyłączenie diody
Wait 3 ' czekaj 3 sekunde
' migacz RGB
Set Portb.1 ' włączenie diody
Wait 3
Set Portb.2 ' włączenie diody
Wait 3
Reset Portb.1 ' wyłączenie diody
Wait 3
Set Portb.2 ' włączenie diody
Wait 3
Loop
End$regfile = "attiny2313.dat"
$crystal = 1000000
config portb=input 'port b jako wejścia
config portd=output 'port d jako wyjścia
do 'pętla nieskończona
if pinb.0=1 then 'jeżeli brak światła w F1
portd.0=1 'zapal diode
endif
if pinb.1=0 then 'jeżeli brak światła w F2
portd.0=1 'zapal diode
endif
if pinb.2=0 then 'jeżeli brak światła w F3
portd.0=1 'zapal diode
endif
if pinb.3=0 then 'jeżeli brak światła w F4
portd.0=1 'zapal diode
endif
if pinb.4=0 then 'jeżeli brak światła w F2
portd.0=1 'zapal diode
endif
loop 'koniec pętli
end 'koniec programu $regfile = "attiny2313.dat"
$crystal = 1000000
config portb=input 'port b jako wejścia
config portd=output 'port d jako wyjścia
do 'pętla nieskończona
If Pinb.0 = 0 And Pinb.1 = 0 And Pinb.2 = 0 And Pinb.3 = 0 And Pinb.4 = 0 Then 'jeżeli brak światła w F1, F2, F3, F4, F5
portd.0=1 'zapal diode
End If
loop 'koniec pętli
End 'koniec programu