Witam.
Zrobiłem prosty wł/wył żarówki na pilota oraz na przycisk, po uruchomieniu żarówka zaczęła migać w różnych odstępach czasu,więc pomiędzy port a masę dałem kondensator 33pF problem się rozwiązał, ale jak włącze żarówkę przyciskiem to na pilota nie reaguje żeby zgasić , dopiero po ponownym przyciśnięciu przycisku działa na pilota.
Przycisk jest podpięty do masy.
Oto kod programu:
Zrobiłem prosty wł/wył żarówki na pilota oraz na przycisk, po uruchomieniu żarówka zaczęła migać w różnych odstępach czasu,więc pomiędzy port a masę dałem kondensator 33pF problem się rozwiązał, ale jak włącze żarówkę przyciskiem to na pilota nie reaguje żeby zgasić , dopiero po ponownym przyciśnięciu przycisku działa na pilota.
Przycisk jest podpięty do masy.
Oto kod programu:
$regfile = "m8def.dat"
$crystal = 8000000
Config Rc5 = Pinb.1
Config Portc.5 = Output
Config Portd.0 = Output
Config Portb.2 = Input
Set Portb.2
Enable Interrupts
Dim Adres As Byte , Command As Byte
Do
Getrc5(adres , Command)
Command = Command And &B01111111
If Command = 12 Then 'włączenie pilotem
Toggle Portd.0 'dioda led
Toggle Portc.5 'przekaźnik
Waitms 400
End If
If Pinb.2 = 0 Then 'włączenie przyciskiem
Toggle Portc.5 'przycisk podłączony do masy
Waitms 150
End If
Loop
End