Otóż mam mały problem bo zaczynam programowanie i natknąłem się na problem bo chce aby na wyświetlaczu podawał mi wynik w procentach. Z góry dzięki, poniżej kod.
Poprawiłem tytuł.
[zumek]
$crystal = 4000000 'Deklaracja częstotliwości kwarcu
$regfile "attiny2313.dat" 'deklaracja modelu procesora
Config Lcd = 16 * 2
Declare Sub Zwieksz 'Deklaracja procedury zwiększającej stan rejestru porównania
Declare Sub Zmniejsz 'Deklaracja procedury zmniejszającej stan rejestru porównania
Config Timer1 = Pwm , Pwm = 8 , Prescale = 64 , Compare A Pwm = Clear Down 'Konfiguracja Timera
Config Portd = &B0000000 'Pd.0 i Pd.1 jako wejścia
Portd = &B0000111 'podciągnięte
Ddrb = &B11111111 'Odblokowanie globalnego wyjścia OC1
Cls : Lcd "Portal naukowy" : Lowerline : Lcd "Generator PWM" 'wstępny opis
Wait 3 'czekaj 3 sekundy
Pwm1a = 500 'wstępnie w rejestrze Pwm1 liczba 255 - niewielka moc
Do 'pętla nieskończona
If Pind.0 = 0 Then Zmniejsz 'S1 zmniejsza zawartość rejestru Pwm1a (=OCR1)
If Pind.1 = 0 Then Zwieksz 'S2 zwiększa zawartość rejestru Pwm1a (=OCR1)
Cls 'czyść wyświetlacz
Lcd "PWM1a " ; Pwm1a ; "%" 'wyświetl zawartość rejestru OCR1
'wyświetl zawartość licznika T/C1 (TCNT1)
Waitms 100 'czekaj 100 milisekundę
Loop : End
Sub Zwieksz 'procedury: zwiększająca i zmniejszająca stal rejestru porównania
Incr Pwm1a
Pwm1a = Pwm1a + 50
End Sub
Sub Zmniejsz
Decr Pwm1a
Pwm1a = Pwm1a - 50
End Sub Poprawiłem tytuł.
[zumek]
