3wire Bascom, sterowanie kostki DS1802. Co jest źle w zamieszczonym kodzie?

Question

Witam!Mam problem z wysterowaniem kostki DS1802 http://pdfserv.maxim-ic.com/arpdf/ds1802.pdfPrzerobilem kod znajdujacy sie w watku https://www.ele...

zumek · Answer

Pierwsze co się rzuca w oczy to For Licznik = 0 To 16 , a powinno byc For Licznik = 1 To 16 .Piotrek

romek77r · Answer

Rzeczywiscie tego nie zauwazylem, jednak dalej nie dziala.Mozliwe, ze uklad nie wykrywa transmisji, bo przebiega ona zbyt szybko ?

zumek · Answer

Niemożliwe , bo ten scalaczek "wytrzymuje" do 10MHz na linii CLK.Ponieważ od rana nie chce mi sie za bardzo myśleć(czytaj tłumaczyć) , to podaję kodzik do przetestowania:Code: $regfile = "m8def.dat"$crystal = 4000000Declare Sub Wyslij&#40;byval A As Word&#41;Const Mute = 6Dim Nastaw As Word , Wiper0 As Byte At Nastaw Overlay , Wiper1 As Byte At Nastaw + 1 OverlayDim Licznik As ByteResset Alias Portc.1Zegar Alias Portc.4Dane Alias Portc.3Ddrc = &B00011010       'portc.1,portc.3,portc.4 -> outputReset Resset       'reset portu szeregowego DS1802Reset Zegar       ' stan niski na linii CLKWiper0 = 15Wiper1 = 31ClsDoReset Wiper0.mute       'wyzerowanie bitu mute dla wiper0Set Wiper1.mute       'ustawienie bitu mute dla wiper1Call Wyslij&#40;nastaw&#41;Wait 5Set Wiper0.mute       'ustawienie bitu mute dla wiper0Reset Wiper1.mute       'wyzerowanie  bitu mute dla wiper1Call Wyslij&#40;nastaw&#41;Wait 5Reset Wiper0.mute       'wyzerowanie bitu mute dla wiper0Reset Wiper1.mute       'wyzerowanie  bitu mute dla wiper1Call Wyslij&#40;nastaw&#41;Wait 5'itd. itp. ;&#41;LoopEndSub Wyslij&#40;byval A As Word&#41;Resset = 1For Licznik = 0 To 15       'LSB wiper0 -> MSB wiper0 -> LSB wiper1 -> MSB wiper1   Dane = A.licznik   Set Zegar &#58; Reset ZegarNextResset = 0End SubPiotrek

romek77r · Answer

Jest z ta linia problem podczas kompilacji - szukalem w pomocy i brak tam takiej mozliwosci

zumek · Answer

Skoro tak sie sprawy mają , to znaczy , że używasz Bascoma "staruszka" v 1.11.7.4 lub jeszcze starszej wersji. Spróbuj więc zmienić tę nieszczęsną linie na:Code: Dim Nastaw As Word At $60 , Wiper0 As Byte At $60 Overlay , Wiper1 As Byte At $61 OverlayJeśli będziesz korzystał z jeszcze innych zmiennych , to ta linia musi być 1-szą linią z Dim w kodzie,lub ... ale o tym potem. Jeśli tej linii Bascom też "nie zrozumie" , to napisz jaką masz wersję Bascoma , a poprawię kod. Piotrek

romek77r · Answer

Nowa linie bascom lyknal, a stara na wyzszej wersji tez chodzi

Jest natomiast inny problem - przy 1-4 glosnosc jest wysoka, natomiast w pozostalych pozycjach wogole sie nie zmienia. Nie dziala ponadto mute. Troszke rozbudowalem program i pozmienialem koncowki portow.

ps. jak zrobic najwydajniej przedzial glosnosci od 0 do 63 ?

Code:

$regfile = "m8def.dat"

$crystal = 4000000



'wyswietlacz



Config Lcd = 16 * 2

Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portb.0



' koniec ustawien wyswieltacza



' deklaracja zmiennych dla potka



Declare Sub Wyslij(byval A As Word)

Const Mute = 6



Dim Nastaw As Word At $60 , Wiper0 As Byte At $60 Overlay , Wiper1 As Byte At $61 Overlay

Dim Licznik As Byte



' koniec deklaracji zmiennych



' ustawinia dla RC5



$lib "mcsbyte.lbx"

Cursor Off

Config Pind.2 = Input

Portd.2 = 1

Config Rc5 = Pind.2

Dim A As String * 2                                         'Deklaracja umożliwiaj±ca działanie komendy GETRC5

Dim Address As Byte

Dim Command As Byte

Enable Interrupts



' koniec ustawien



' ustawienia 3wire



Resset Alias Portc.3

Zegar Alias Portc.5

Dane Alias Portc.4



Ddrc = &B00111000                                           'portc.3,portc.4,portc.5 -> output



Reset Resset                                                'reset portu szeregowego DS1802

Reset Zegar                                                 'stan niski na linii CLK



Wiper0 = 63

Wiper1 = 63



' koniec ustawien, potki na 63



Cls



Do



' zmiana glosnosci RC5



Getrc5(address , Command)

Command = Command And &B01111111





If Command = 17 Then

Wiper0 = Wiper0 - 1

Wiper1 = Wiper1 - 1

End If



If Command = 16 Then

Wiper0 = Wiper0 + 1

Wiper1 = Wiper1 + 1

End If



Cls

Locate 1 , 1 : Lcd "Pot0= " ; Wiper0

Locate 2 , 1 : Lcd "Pot1= " ; Wiper1



' koniec zmiany glosnosci





'Reset Wiper0.mute     'wyzerowanie bitu mute dla wiper0

'Set Wiper1.mute       'ustawienie bitu mute dla wiper1

'Call Wyslij(nastaw)

'Wait 5



'Set Wiper0.mute       'ustawienie bitu mute dla wiper0

'Reset Wiper1.mute     'wyzerowanie  bitu mute dla wiper1

'Call Wyslij(nastaw)

'Wait 5



Reset Wiper0.mute                                           'wyzerowanie bitu mute dla wiper0

Reset Wiper1.mute                                           'wyzerowanie  bitu mute dla wiper1

Call Wyslij(nastaw)

Wait 5



'itd. itp. ;)



Loop

End



' procedura ustawiania glosnosci



Sub Wyslij(byval A As Word)



Resset = 1

For Licznik = 0 To 15                                       'LSB wiper0 -> MSB wiper0 -> LSB wiper1 -> MSB wiper1

   Dane = A.licznik

   Set Zegar : Reset Zegar

Next

Resset = 0



End Sub



' koniec procedury

zumek · Answer

Teoretycznie , powinno działać , ale skoro tak nie jest , to:
a)daj rezystory podci±gaj±ce do VCC na wszystkich pinach magistrali
b)popraw program tak , by nie zapisywał danych do DS-a w każdym obiegu pętli , a tylko wtedy , kiedy warto¶ci Wiper0 lub Wiper1 , zmieni± się.
Nie posiadam takowego DS-a , więc nie mogę tego sprawdzić do¶wiadczalnie

Piotrek

PS
Na pocz±tek , zacznij od poprawki z punktu "b".

Leonti · Answer

Zamierzam sterować dym ds'em przez Atmega8, pod który jest podpięty oscylator 16 Mhz.Czy transmisja danych będzie przebiegać prawidłowo?

3wire Bascom, sterowanie kostki DS1802. Co jest Ľle w zamieszczonym kodzie?