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 wylaczony


Po przydlugim wstepie:
Znalazlem na elektrodzie przyklad z ksiazki wiazani i tam nie trzeba nijak
specjalnie inicjalizowac tego procka
http://www.elektroda.pl/rtvforum/topic1572355.html zeby wszystkie piny dzialaly.

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


--
Lukasz Sczygiel

--
Wysłano z serwisu OnetNiusy: http://niusy.onet.pl