symulacja a rzeczywistosc

[rdt]

napiaslem malutki programik :
Wy Alias P3.7
Dim A As Word
P3 = 0
P1 = 0
Set Wy 'wlaczenie wstepne diody
Waitms 100 'swiecenie diody
Reset Wy
A = 10 'wylaczenie diody
Do
If P3.0 = 1 Then Incr A
If P3.1 = 1 Then Decr A
If A = 1 Then A = 2
Set Wy 'wlaczenie diody
Waitms A 'odczekanie momentu zaleznego od polozenia wlacznika
Reset Wy 'Wylaczenie diody
Waitms 10 'odczekanie 10 milisekund

Loop

i teraz tak
jak wlacze symulator programowy to wsio jest OK
niestety po zaprogramowaniu nic nie jest OK
stan na portach jest rowny 1 natomiast P3.7 miga tak ze jak sie P3.1 zewrze z masa to zaczyna migac coraz szybciej az prawie swieci ciagle po czym znowu zaczyna migotac w rownych odstepach czasu
co moze byc przyczyna ??
Aha dioda na dodatek nie swieci wstepnie (patrz opis w programie) wcale
wymuszenie jakiegokolwiek stanu poza wspomnianym nie wnosi zadnych zmian
programator to dl2tm ktory na innych prostych programach dziala bez zarzutu wiec wykluczam jakas jego niedoskonalosc

[slawko_k]

a end if to gdzie??

[ScauT]

hehe.......jesli jest tylko jedna instrukcja po IF...Then, to End Ifa nie trzeba

pzd.

[rdt]

ScauT
Juz jest lepiej ale to jeszcze nie to co sugerowales
dodalem takze end na koncu
skompilowalem na drugim komputerze -
Poprawa jest ale niewielka
aha wykorzystuje diode z wyswietlacza 8 segmentowego na plytce bascoma wiec steruje anoda