. Atmega8 - 8 PLN, DS1804 - ok. 13 PLN).Ustaw tak, by czas przerwań odpowiadał podwójnemu czasowi trwania procedury obsługi programowego PWM - w najgorszym wypadku w szystkimi prawdziwymi warunkami.M@ciej pisze:Będzie jedno przerwanie, jako wzorcowe. Nie wiem jeszcze, jaki ustawić preskaler,ale to najmniejszy problem. Trzeba będzie wiedzieć, ile cykli będzie trwało to przerwanie.
W takim wypadku możesz sobie zrobić 2 kanały i sterować oba pinami jednocześnie. Tylko sprawdź czy nie potrzebujesz czasu martwego (aby zmiany nie zachodziły na siebie).M@ciej pisze:W ten sposób będę mógł zaprogramować parę pinów odwróconą w fazie.
Kod: Zaznacz cały
$regfile = "m8def.dat"
$crystal = 8000000
Config Pind.0 = Output 'Konfiguracja 4 pinów wyjściowych PWM
Config Pind.1 = Output
Config Pind.2 = Output
Config Pind.3 = Output
Set Portd.2 'ustawiamy druga pare jako zanegowana
Set Portd.3
Config Timer0 = Timer , Prescale = 256 , Edge = Rising 'konfiguracja Timer0 jako timer
On Timer0 Przerwanie 'wywołanie procedury liczącej przy przerwaniu
Dim Wyp1 As Byte 'zmienne wypełnienia
Dim Wyp2 As Byte
Dim Wyp3 As Byte
Dim Wyp4 As Byte
Dim Licz1 As Byte
Dim Licz2 As Byte 'zmienne licznikowe
Dim Licz3 As Byte
Dim Licz4 As Byte
Dim Licz As Byte 'zmienna głównego licznika
Enable Interrupts 'włączamy przerwania
Enable Timer0 'włączamy Timer0
Wyp1 = 48 ' przykładowe wartości początkowe wypełnień
Wyp2 = 64
Wyp2 = 128
Wyp3 = 250
Do
Rem tu obsługa przycisków i wyświetlacza LCD
Loop
End
Przerwanie:
Incr Licz
Incr Licz1
Incr Licz2
Incr Licz3
Incr Licz3
If Licz1 >= Wyp1 Then Toggle Portd.0
If Licz2 >= Wyp2 Then Toggle Portd.1
If Licz3 >= Wyp3 Then Toggle Portd.2
If Licz4 >= Wyp4 Then Toggle Portd.3
If Licz > 254 Then
Licz = 0 'zerowanie zmiennych
Licz1 = 0
Licz2 = 0
Licz3 = 0
Portd.0 = 0 'zerowanie portów
Portd.1 = 0
Portd.2 = 1
Portd.3 = 1
End If
Return
Kod: Zaznacz cały
$regfile = "m8def.dat"
$crystal = 8000000
Config Pind.0 = Output 'Konfiguracja 4 pinów wyjściowych PWM
Config Pind.1 = Output
Config Pind.2 = Output
Config Pind.3 = Output
Reset Portd.0
Reset Portd.1
Set Portd.2 'ustawiamy druga pare jako zanegowana
Set Portd.3
Dim Wyp(4) As Byte 'zmienne wypełnienia
Dim Licz As Byte 'zmienna głównego licznika
Config Timer0 = Timer , Prescale = 64 'konfiguracja Timer0 jako timer
On Timer0 Przerwanie 'wywołanie procedury liczącej przy przerwaniu
Enable Timer0 'włączamy Timer0
Enable Interrupts 'włączamy przerwania
'###########################################
Wyp(1) = 48 ' przykładowe wartości początkowe wypełnień
Wyp(2) = 64
Wyp(3) = 128
Wyp(4) = 250
Do
Rem tu obsługa przycisków i wyświetlacza LCD
Loop
End
Przerwanie:
Incr Licz
If Licz = Wyp(1) Then Toggle Portd.0
If Licz = Wyp(2) Then Toggle Portd.1
If Licz = Wyp(3) Then Toggle Portd.2
If Licz = Wyp(4) Then Toggle Portd.3
If Licz = 0 Then
Portd.0 = 0 ' zerowanie portów
Portd.1 = 0
Portd.2 = 1
Portd.3 = 1
End If
ReturnKod: Zaznacz cały
If Licz = Wyp(4) Then Toggle Portd.3
If Licz = 100 Then
Licz = 0
Portd.0 = 0