a moze znacie jeszcze jakies inne pomysly
moze podam moj programik
$regfile = "m8def.dat"
$crystal = 1000000
Config Portb = &B11111101
Portb = &B11111111
Config Portc = &B1111111
Portc = &B1111111
Config Portd = &B11111111
Portd = &B11111111
Do
If Pinb.1 = 0 Then 'jesli switch press
Portd.1 = 0 'dioda zielona ON
Portc.0 = 1 'przekaznik ON
Portc.5 = 1 'buzzer ON
Portd.0 = 1 'dioda czerwona OFF
Waitms 200
Portc.5 = 0
Wait 60
Portc.5 = 1
Waitms 100
Portc.5 = 0
Wait 60
Portc.5 = 1
Waitms 100
Portc.5 = 0
Wait 60
Portc.5 = 1
Waitms 100
Portc.5 = 0
Wait 60
Portc.5 = 1
Waitms 100
Portc.5 = 0
Wait 30
Portc.5 = 1
Waitms 100
Portc.5 = 0
Wait 10
Portc.5 = 1
Waitms 100
Portc.5 = 0
Wait 5
Portc.5 = 1
Waitms 100
Portc.5 = 0
Wait 5
Portc.5 = 1
Waitms 100
Portc.5 = 0
Wait 5
Portc.5 = 1
Waitms 100
Portc.5 = 0
Wait 5
Portc.5 = 1
Waitms 100
Portc.0 = 0 'przekaznik OFF
Portc.5 = 0 'buzzer OFF
Portd.1 = 1 'dioda zielona OFF
Portd.0 = 0 'dioda czerwona ON
End If
If Pinb.1 = 1 Then 'jesli switch OFF
Portc.0 = 0 'przekażnik OFF
Portc.5 = 0 'buzzer OFF
Portd.1 = 1 'dioda zielona OFF
Portd.0 = 0 'dioda czerwona ON
End If
Loop
'***** c.0 przekaznik *****
'***** c.5 buzzer *****
'***** d.0 dioda czerwona *****
'***** d.1 dioda zielona *****
'***** b.1 switch *****
'***** 0 OFF 1 ON *****
i teraz chce aby:
jeśli switch jest ON przez 5 sekund to
przekaznik OFF
buzzer OFF
dioda zielona OFF
dioda czerwona ON
a jesli chodzi o moj programik to jestem poczatkujacym elektronikiemi narazie w bascomie umiem podstawowe komendy