???? AVT 2501 ????

[piotrs]

Witam
Czy mial ktos kiedykolwiek problem z symulatorem AVT 2501 .
np z tym programem przy odczytywaniu danych calkowicie glupieje , pokazuje glupoty.Jest to program z kursu Bascoma. Przy odczytywaniu z pamieci pokazuje dane jakie mu sie podoba


Config Sda = P1.6
Config Scl = P1.7
Config Lcd = 20 * 2
Declare Sub Write_eeprom(adres As Byte , Value As Byte)
Declare Sub Read_eeprom(adres As Byte , Value As Byte)
Dim R As Byte
Dim Value As Byte , Adres As Byte
For R = 0 To 5

Print "podaj wartosc " ; R ; "[0...255]"
Input Value
Value = 10 * R
Call Write_eeprom , R , Value
Next R

Print "Werifikacja zapisu"
For R = 0 To 5
Call Read_eeprom , R , Value
Print "Wartosc" ; R ; "=" ; Value
Next R
End

Sub Write_eeprom(adres As Byte , Value As Byte)

I2cstart
I2cwbyte 160
I2cwbyte Adres
I2cwbyte Value
I2cstop
Waitms 10
End Sub


Sub Read_eeprom(adres As Byte , Value As Byte)

I2cstart
I2cwbyte 160
I2cwbyte Adres
I2cstart
I2cwbyte 161
I2crbyte Value , 9
I2cstop
End Sub

Z gory dzieki za odpowiedz

[piotrs]

Witam !
Czy nnikt nigdy nie urzywal symulatora AVT-2501 ? Jestem pewien , ze ktos musial kiedys ! Jesli tak to napisz.
Pzdr

[mw]

Ja uzywalem. Co sie dokladnie dzieje?

[piotrs]

Witam !
Tak jak juz wspomnialem wczesniej, program (to jest tylko jeden z przykladow) ktory wzialem z Bascom kursu nie dziala poprawnie z symulatorem .Gdy np . podasz zmienna 100 to po odczycie (veryfikacji) z eepromu pokazuje calkiem inna cyfre np 250 . Na samym poczatku kursu , byl podany maly przyklad jak sparawdzic czy symulator funkcjonuje , byl to przyklad z wyswietlaczem - moj symulator chodzi bez zarzutow w tym przypadku . Cos mi sie wydaje, ze cos sie dzieje z informacja ktora wraca przez symulator do Bascoma . Chcialbym sie dowiedziec czy to jest normalne , czy moze cos robie nie tak ? Z gory dzieki za pomoc !
pzdr

[mw]

To mozliwe ze zle ci sie program komunikuje z pamiecia eeprom. Moze ma inny adres. Przynajmniej na to wyglada.

[piotrs]

Nie sadze zeby byl inny adres .Przerobilem troche ten program , zeby moc sprawdzic czy jest dodra komunikacja z eeprom . Z zaprogramowanym scalakiem wszystko jest OK , ale z symulatorem nie potwierdz dobrych wartosci -z reguly pokazuje 255 lub podobnie . Tu jest ten program :

Config Sda = P1.6
Config Scl = P1.7
S1 Alias P1.4
S2 Alias P1.5
S3 Alias P1.6

Config Lcd = 20 * 2
Declare Sub Write_eeprom(adres As Byte , Value As Byte)
Declare Sub Read_eeprom(adres As Byte , Value As Byte)
Declare Sub Ujac
Declare Sub Dodac
Dim R As Byte
Dim Value As Byte , Adres As Byte
R = 0
Value = 10

Do
'For R = 0 To 5
If S1 = 0 And S2 = 1 Then
Waitms 250
Call Ujac
End If
If S1 = 1 And S2 = 0 Then
Waitms 251
Call Dodac
End If
If S3 = 0 Then
Cls
Lcd "wpisuje" ; R
Wait 1
Call Write_eeprom , R , Value
R = R + 1
Cls
Lcd Value ; "R=" ; R
End If
Loop Until R = 6
R = 0
For R = 0 To 5
Call Read_eeprom , R , Value
Cls
Lcd "Wartosc" ; R ; "=" ; Value
Wait 3
Next R
End

Sub Write_eeprom(adres As Byte , Value As Byte)

I2cstart
I2cwbyte 160
I2cwbyte Adres
I2cwbyte Value
I2cstop
Waitms 10
End Sub


Sub Read_eeprom(adres As Byte , Value As Byte)

I2cstart
I2cwbyte 160
I2cwbyte Adres
I2cstart
I2cwbyte 161
I2crbyte Value , 9
I2cstop
End Sub

Sub Ujac
Decr Value
Cls
Lcd Value ; "R=" ; R
'Wait 1
End Sub

Sub Dodac
Incr Value
Cls
Lcd Value ; "R=" ; R
'Wait 1
End Sub

Przelacznikiem s1 dodajemy , s2 odejmujemy a s3 wpisujemy do pamieci
pzdr

[krzepki]

Odepnij zegar PCF8583 od magistrali I2C na AVT-2500.
Bliżej to wyjaśniam na mojej stronie www.dziadek.one.pl
Pozdr

[piotrs]

CZesc!
Chyba to nie bedzie to , bo po pierwsze nie urzywam jeszcze pcf na swojej plytce a po drugie jak wspominalem wczesniej po skompilowaniu mojego programu i z zaprpgramowanym procesorkiem wszystko chodzi dobrze . Ale dzieki za wzmianke o problemie z pcf bo wlasnie bede teraz sie z nim bawil - i chyba bylbym w duzym klopocie .
pozdr

[mw]

A jak zachowuje sie ten symulator z innymi przykladami?
Dziala poprawnie?

[piotrs]

CZesc
Tzn zalezy w jakim ukladzie ma pracowac . Jesli tylko ma sluzyc do sterowania diod czy wyswietlacza to jest OK .Ale jak jest juz przycisk w ukladzie z program potrzebuje jakiejs wiadomosci to raz dziala a raz nie , a zEEpromem to juz calkowita klapa .
pzdr

[mw]

A linie portow ktore maja byc wejsciem masz ustawione w stan wysoki by pracowaly jako wejscia?
W jaki sposob masz dolaczone te przyciski?

[piotrs]

Czesc !
Podam Ci krociutki program przy ktorym symulator szwankuje :
$sim
Config Lcd = 16 * 1a
Cls
Lcd "*** elektronika ***"
cls
Dim A As Word

Do
P3 = 255
If P3 <> 255 Then
For A = 1 To 1000 : Next A
'Waitms 250
Print P3 ; " ";
Print P3.7 ; P3.6 ; P3.5 ; P3.4 ; P3.3 ; P3.2 ; P3.1 ; P3.0
Lcd P3 ; " " ; P3.7 ; P3.6 ; P3.5 ; P3.4 ; P3.3 ; P3.2 ; P3.1 ; P3.0
For A = 1 To 1000 : Next A
'Waitms 250
Cls
End If
Loop
Gdyby ktos mial ten symulator i mogl go sprawdzic z tym programem, to bylbym bardzo wdzieczny
pzdr

[mw]

Sprawdz ten program:

$sim
Config Lcd = 16 * 1a
Cls
Lcd "*** elektronika ***"
cls
Dim A As Word

P3 = 255
Do
If P3 <> 255 Then
'Waitms 250
Print P3 ; " ";
Printbin P3
Lcd P3 ; " " ; P3.7 ; P3.6 ; P3.5 ; P3.4 ; P3.3 ; P3.2 ; P3.1 ; P3.0
Cls
End If
Loop

[piotrs]

Czesc !
Sprawdzilem program i musze stwierszic , ze nie ma zbytniej poprawy . Zwieralem wszystkie piny P3 i tylko przy zwieraniu P3.7 mialem dobre wyniki tzn. 127 01111111 a z reszta pinow to mi pokazywalo najczesciej 255 11111111 . Czy ty sprawdzilem ten program ze swoim symulatorem ?
pzdr

[mw]

Sprawdz sama te czesc co podsylam czy dziala poprawnie:

P3 = 255
Do
If P3 <> 255 Then
'Waitms 250
Print P3 ; " ";
Printbin P3
End If
Loop

[piotrs]

Czesc !
Sprawdzilem i znowu robi to samo . Tylko pin p3.7 pokazuje w porzadku 127 .
pzdr

[piotrs]

czesc!
Nareszcie doszedlem co jest z moim symulatorem - teraz juz chodzi wspaniale . Co sie okazalo , kabel ktorego urzywalem pomiedzy komputerem a symulatorem musial zbierac jakies zaklocenia - dosc dlugi bo 2m-trowy .Zrobilem teraz krotkie polaczenie i symulator chodzi bez zarzutow .Dla wiadomosci innych , wszystkie symulacje z Eeprom , pcf powinny dzialac bez problemu .Niech to bedzie przestroga dla innych poczatkujacych !
pzdr