Prubuje napisać program do obsługi migomatu na atmega8 w BASCOMIE. Mam takie cos:
Program nie działa jak należy tzn. dioda szaleje i przekaźniki też włączają się i wyłączają bez włączenia przycisku (PD1). Mógłby ktoś sprawdzić co jest nie tak.
$regfile = "m8def.dat"
$crystal = 1000000
Config Portd = &B11111101
Portd = &B00000000
Do
If Pind.1 = 1 Then 'jeżeli uchwyt wciśnięty
Waitms 30 'drganie styków
Portd.0 = 1 'zapal diode spawania
Portd.5 = 1 'włącz gaz
Waitms 250 'czekaj Xms
Portd.6 = 1 'włącz prąd
Portd.7 = 1 'włącz podajnik
Do
If Pind.1 = 0 Then 'jeżeli uchwyt puszczony
Portd.0 = 0 'zgaś diode spawania
Portd.7 = 0 'wyłącz drut
Waitms 300 'czekaj Xms
Portd.6 = 0 'wyłącz prąd
Waitms 500 'czekaj Xms
Portd.7 = 0 'wyłącz gaz
End If
Loop Until Pind.1 = 0
End If
Loop
EndProgram nie działa jak należy tzn. dioda szaleje i przekaźniki też włączają się i wyłączają bez włączenia przycisku (PD1). Mógłby ktoś sprawdzić co jest nie tak.