ATNEL tech-forum

Re: 74HC595 SPI Bascom Czy to ma prawo działać?

2014-08-12T12:49:58+01:00

Zrobiłem to tak:
[syntax=basic4gl]$regfile = "m32def.dat"
$crystal = 16000000

Config Spi = Hard , Data Order = Msb , Master = Yes , Polarity = High , Clockrate = 4 , Noss = 1
Config Lcdpin = Pin , Rs = Porta.0 , E = Porta.1 , Db4 = Porta.2 , Db5 = Porta.3 , Db6 = Porta.4 , Db7 = Porta.5
Config Lcd = 16 * 2
Config Porta.6 = Output
Config Portd = Output
Config Portb = Output
Porta.6 = 0
Portd.4 = 0
Portd.5 = 1
Portb.5 = 1
Portb.7 = 1

Dim Bity As Word
Dim A As Byte
Bity = &B0000000000000000
Spiinit

Do
Toggle Portd.5
For A = 0 To 15
Bity.a = 1
Spiout Bity , 2
Portd.4 = 1
Wait 1
Portd.4 = 0
'Waitms 100
Bity.a = 0
Spiout Bity , 2
Portd.4 = 1
Wait 1
Portd.4 = 0
'Wait 1
Cls
Lcd Bity
Next
Loop
End[/syntax]
I otrzymałem zamierzony efekt. Świecący punkt wędruje po linijce led.
P.S.
Operacje na bitach muszę jeszcze trochę doczytać.
Zawsze ten twór może się komuś do czegoś przydać.
Dzięki za podpowiedzi
Pozdrawiam

Statystyki: Napisane przez pospiech — 12 sie 2014, o 12:49

Re: 74HC595 SPI Bascom Czy to ma prawo działać?

2014-08-12T11:05:20+01:00

Dobra. Już poprawiłem. Sorry wielkie. Pierwszy post i taki babol.
O.K. do rzeczy.
Wysłanie 2 bajtów to mi się wkradło bo wcześniej próbowałem z dwoma bajtami i zapomniałem poprawić. Zmienną miałem wtedy jako WORD. Tak czy inaczej nie działało. Postanowiłem linię SS wpiąć na PortD.4 i tym portem sterować LATCHem ale też nie dało efektu. Czasy oczywiście są tylko w fazie testów potem zamierzam je wyrzucić i zastąpię pętlą, która będzie sprawdzać czy bity zostały wsunięte do rejestru.
Cała zabawa polegać ma na tym, że każdy bit odpowiedzialny jest za włączenie należącego do niego przekaźnika. Chciałem za pomocą tego programu sprawdzić czy to będzie działać. Ściślej, chodziło mi o to. w jaki sposób mogę zmieniać stan każdego bitu w bajcie. Stąd też pętla FOR-NEXT, której zadaniem jest automatyczna zmiana stanu każdego bitu. W efekcie chciałem osiągnąć jeden świecący punkt wędrujący co sekundę i dlatego też wstawiłem WAIT 1.
Siedziałem nad tym cały dzień i nie ruszyło mi to. Dzisiaj ciąg dalszy zmagań z SPI. Oczywiście nie oczekuję gotowca, bo nie na tym to polega. Nie sztuką jest zrobić błąd, sztuką jest go znaleźć. Jednak czasami potrzebna jest wskazówka lub podpowiedź na co zwrócić uwagę. I na taką właśnie wskazówkę liczę z Twojej strony.
Pozdrawiam zainteresowanych moim tematem.

Statystyki: Napisane przez pospiech — 12 sie 2014, o 11:05

Re: 74HC595 SPI Bascom Czy to ma prawo działać?

2014-08-12T06:20:55+01:00

Do tego jeszcze tak długie waity w pętli głównej i najpierw ustawiasz portd.4 a od razu po chwili go resetujesz bez żadnych czasów opóźnień.

No i se namazałem z mojego myPhone Cube.

Statystyki: Napisane przez matrix — 12 sie 2014, o 06:20

74HC595 SPI Bascom Czy to ma prawo działać?

2014-08-12T10:44:21+01:00

[syntax=basic4gl]$regfile = "m32def.dat"
$crystal = 16000000

Config Spi = Hard , Data Order = Msb , Master = Yes , Polarity = High , Clockrate = 4 , Noss = 1
Config Lcdpin = Pin , Rs = Porta.0 , E = Porta.1 , Db4 = Porta.2 , Db5 = Porta.3 , Db6 = Porta.4 , Db7 = Porta.5
Config Lcd = 16 * 2
Config Porta.6 = Output
Config Portd = Output
Porta.6 = 0
Portd.4 = 0
Portd.5 = 0

Dim Bity As Byte
Dim A As Byte
Bity = &B00000000

Lcd "witaj"
Waitms 300
Spiinit
Spiout Bity , 2
Portd.4 = 1
Portd.4 = 0
Wait 1

Do
Toggle Portd.5
For A = 0 To 8
Bity.a = 1
Spiout Bity , 2
Portd.4 = 1
Portd.4 = 0
Wait 1
Bity.a = 0
Spiout Bity , 2
Portd.4 = 1
Portd.4 = 0
Wait 1
Cls
Lcd Bity
Next
Loop
End[/syntax][ Najpierw to panie kolego szanowny proszę zapoznaj się ztym: topic7402.html - jak wstawia się kody programów na forum ok? mirekk36 i popraw to - dobrze? taka prośba gorąca ]

Statystyki: Napisane przez pospiech — 11 sie 2014, o 23:18