Witam
Mam taki program w symulatorze działa tak jak bym chciał czyli po nacisnięciu przycisku dioda sie zapala i po kilku sekundach gasnie ale po wgraniu do atmegi 8 niedziała prawidłowo czyli diode można zgasic i zapalić ale już nie gasnie po kilku sekundach.Czy ktoś wie czemu???
Proszę poprawić treść postu - regulamin p.15
[zumek]
Mam taki program w symulatorze działa tak jak bym chciał czyli po nacisnięciu przycisku dioda sie zapala i po kilku sekundach gasnie ale po wgraniu do atmegi 8 niedziała prawidłowo czyli diode można zgasic i zapalić ale już nie gasnie po kilku sekundach.Czy ktoś wie czemu???
$regfile = "m8def.dat"
$crystal = 1000000
Config Portb = &B11111111
Portb = &B11111111
Config Portd = &B1111100
Portd = &B1110111
Config Timer0 = Timer , Prescale = 64
On Timer0 Przerwanie:
Dim Licznik As Long
Enable Interrupts
Enable Timer0
Timer0 = 6
Licznik = 0
Do
If Pind.0 = 0 Then
If Portb.1 = 1 Then
Toggle Portb.7
Portb.1 = 0
End If
If Pinb.7 = 0 Then
Gosub Przerwanie:
End If
Else
Portb.1 = 1
End If
Loop
End
Przerwanie:
Counter0 = Counter0 + 6
Incr Licznik
If Licznik = 90000 Then
Portb.7 = 1
Licznik = 0
End If
Return
Proszę poprawić treść postu - regulamin p.15
[zumek]
