Witam
Mam problem z małym programem w bascom-ie, z którym nie mogę poradzić sobie.
Program jest prosty ale ja jako początkujący nie mogę sobie poradzić z nim, i mam do was prośbę kto pomorze mi w napisaniu takiego programu.
Program ma sterować dwoma przekaźnikami i ma działać następująco.
Gdy na wejściu portu PB.0 pojawi się stan niski załącza się przekaźnik K1, a po upłynięciu ok 2-4 sekund załącza sie drugi przekaźnik K2. (oba naraz mają działać)
Następnie gdy zniknie stan niski na porcie PB.0 przekaźnik K2 wyłącza się, a po upłynięciu 2-4 sekund włącza sie pierwszy przekaźnik K1.
Mam nadzieję że wiecie o co mi chodzi
Jak będzie wyglądał program w bascom-ie?
Poniżej schemat układu i mój programik który nie działa prawidłowo
Bo na porcie Pb.4 jest cały czas stan wysoki i na ułamek sekundy znika. W efekcie przekaźnik klapie.
Schemat Układu:
Kod programu:
Mam problem z małym programem w bascom-ie, z którym nie mogę poradzić sobie.
Program jest prosty ale ja jako początkujący nie mogę sobie poradzić z nim, i mam do was prośbę kto pomorze mi w napisaniu takiego programu.
Program ma sterować dwoma przekaźnikami i ma działać następująco.
Gdy na wejściu portu PB.0 pojawi się stan niski załącza się przekaźnik K1, a po upłynięciu ok 2-4 sekund załącza sie drugi przekaźnik K2. (oba naraz mają działać)
Następnie gdy zniknie stan niski na porcie PB.0 przekaźnik K2 wyłącza się, a po upłynięciu 2-4 sekund włącza sie pierwszy przekaźnik K1.
Mam nadzieję że wiecie o co mi chodzi
Jak będzie wyglądał program w bascom-ie?
Poniżej schemat układu i mój programik który nie działa prawidłowo
Bo na porcie Pb.4 jest cały czas stan wysoki i na ułamek sekundy znika. W efekcie przekaźnik klapie.
Schemat Układu:
Kod programu:
'$tiny
$regfile = "attiny13.dat" 'plik z definicjami procesora attiny13
$crystal = 1000000 'częstotliwość taktowania procka 1Mhz
Config Portb.0 = Input 'Wejście REM
Config Portb.4 = Output 'Przekaźnik GŁOŚNIK
Config Portb.3 = Output 'Przekaźnik REM
Set Portb.0
Reset Portb.3
Reset Portb.4
Dim Znacznik As Iram Byte
Znacznik = 0
Do
If Pinb.0 = 0 Then
If Znacznik <> 1 Then
Set Portb.4
Wait 2
Set Portb.3
Znacznik = 1
End If
Else
If Znacznik <> 2 Then
Reset Portb.3
Wait 2
Reset Portb.4
Znacznik = 2
End If
End If
Loop
End