loop until Bascom problem

awatar100 · Postautor: **awatar100** » 27 paź 2006, o 18:21

nie moge zrozumiec dlaczego ponzizszy kod nie dziala w uC (89s52) a wsymulatorze wszysko jest jak nalezy

$crystal = 6000000
Dim Y As Byte                                                 
Dim Z As Byte                                                
Y = 1
Z = 255                                                      
P2 = &B00000000

Do
wait 3
Y = 1

Do

   If P2.0 = 1 Then
    P2.7 = 1                                                  
    Wait 1
    P2.7 = 0                                                  
    End If

Wait 200
Wait 250
Wait 250

Y = Y + 1
Loop Until Z = Y

Loop
End

Press · Postautor: **Press** » 28 paź 2006, o 04:59

hmm, a co znaczy nie dziala?

tak na moj oko to ten program yjdzie Ci z pentli wewnetrznej DO - LOOP w przyblizeniu raz na 50 godzin, wiec wcale sie nei dziwie, ze na testach hardwerowych wyglada jakby nei dzialal.

awatar100 · Postautor: **awatar100** » 28 paź 2006, o 07:52

pomyllka przy przepisywaniu

winno byc waitms
teoretycznie podanie stanu wysokiegona p2.0 przez ok 710ms powinno dac reakce w postaci zmiany stanu p2.7 .... a czesto sie zdaza ze trzeba podac 2 krotnosc tego czasu ...

mw · Postautor: mw » 28 paź 2006, o 16:47

Czestotliwosc oscylatora jest prawidlowo zapisana w $crystal?

awatar100 · Postautor: **awatar100** » 28 paź 2006, o 16:48

tak 6mhz .....

[ Dodano: 29-10-2006, 11:02 ]
... pare dni nat tym siedzilem i nadal nie moge znalsc logicznego wyjasnienia czemu tak sie dzieje ....

Fredy · Postautor: **Fredy** » 31 paź 2006, o 18:06

a gdzie deklaracje pinów oraz ewentualne podciągnięcia wejść?

Nie zauważyłem że to nie jest AVR

loop until Bascom problem

Kto jest online