Robie sobie lampke na programowym pwm. W sumie to takie sobie testy wiec prosze sie nie denerwowac ze basco i ze brzydko. Narazie mecze sie z problemami na warstwie podstawowej. Oto szczegoly:
Caly port D mam ustawiony na output.
Config Portd.0 = Output Config Portd.1 = Output Config Portd.2 = Output Config Portd.3 = Output Config Portd.4 = Output Config Portd.5 = Output Config Portd.6 = Output Config Portd.7 = Output albo tak (zadna roznica) Config Portd = Output
I potem w kodzie programu mam komende: Portd = &B11111111 diody pinow 0-4 i 6 sie zapalaja Portd = &B00000000 Pin 1 jest zapalony a reszta ciemna.
Inaczej: piny portu D sa:
0,2,3,4,6-toggle go przelacza. 1- zawsze wlaczony 5,7 zawsze wylaczonyPo przydlugim wstepie: Znalazlem na elektrodzie przyklad z ksiazki wiazani i tam nie trzeba nijak specjalnie inicjalizowac tego procka
Zweryfikowalem ze ULN2803 dziala ok i zapala diody jak trzeba.
Czy mam uwalony procek czy jednak gdzies cos trzeba zaptaszyc? wersja bascoma BASCOM-AVR IDE Version : 1.11.8.3 Compiler: Version 1.11.8.3
Podsylam poczatek mojego programiku:
$regfile = "attiny2313.dat" $crystal = 8000000 $baud = 9600 $hwstack = 32 ' default use 32 for the hardware stack $swstack = 10 ' default use 10 for the SW stack $framesize = 40
Config Portd.0 = Output Config Portd.1 = Output Config Portd.2 = Output Config Portd.3 = Output Config Portd.4 = Output Config Portd.5 = Output Config Portd.6 = Output Config Portd.7 = Output
Dim Takt1 As Byte Dim Takt2 As Byte 'Dim Opoznienie1 As Byte 'Dim Etap1 As Byte
Dim Led0 As Byte Dim Led1 As Byte Dim Led2 As Byte Dim Led3 As Byte Dim Led4 As Byte
Dim Tmp As Word Dim Suma As Word Dim Licznik1 As Word 'Dim Licznik2 As Word Dim Licznik3 As Byte 'Dim Okres1 As Word
Const Okres = 50 Const Okres2 = 400
Declare Function Jasnosc(byref Stopien As Word) As Byte
'Portd = &B11111111 Portd = &B00000000