mam prosty prgram
$crystal = 11059200
$baud = 300
$timeout
Dim Znak As Integer
Do
Inputbin Znak Timeout = 100
If P1.7 = 1 Then
Reset P1.7
Else
Set P1.7
End If
Waitms 200
loop
end
na p1.7 jest dioda ktora sygnalizuje czy timeout dziala czy nie
no i wlasnie problem jest taki ze nie dziala!!! i nie wiem dlaczego?
Tak samo jest w symulatorze z Bascoma, program wisi na linijce input. Moze mi ktos wyjasnic o co chodzi????
Dodano po 54 [minuty]:
dziwna sprawa... ale znalazlem zrodlo problemu....
wystarczy zmienic typ zmiennej Znak
Dim Znak As Byte
i timeout dziala wtedy normalnie.
Moze ktos wie dlaczego????
$crystal = 11059200
$baud = 300
$timeout
Dim Znak As Integer
Do
Inputbin Znak Timeout = 100
If P1.7 = 1 Then
Reset P1.7
Else
Set P1.7
End If
Waitms 200
loop
end
na p1.7 jest dioda ktora sygnalizuje czy timeout dziala czy nie
no i wlasnie problem jest taki ze nie dziala!!! i nie wiem dlaczego?
Tak samo jest w symulatorze z Bascoma, program wisi na linijce input. Moze mi ktos wyjasnic o co chodzi????
Dodano po 54 [minuty]:
dziwna sprawa... ale znalazlem zrodlo problemu....
wystarczy zmienic typ zmiennej Znak
Dim Znak As Byte
i timeout dziala wtedy normalnie.
Moze ktos wie dlaczego????
