this code produced an error by syntax controll. I don't know why. What can I do? (Sorry for my bad english. I hope you understand me)
<<< error 61: line 57 label not found [_micro_delay] in file ..... pulsein.lib. >>>
$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 40
$framesize = 50
$lib "pulsein.lib"
Config Portb.1 = Input
Config Portb.0 = Output
Config Portb.2 = Output
Const Cpulsein_timeout = 0
dim bPulseIn_Delay as byte
bPulseIn_Delay = 10
Dim Zeitmessung As Word
Dim Entfernung As Word
Do
Pulseout Portb , 0 , 40
Pulsein Zeitmessung , Pinb , 1 , 1
Entfernung = Zeitmessung
If Entfernung > 0 Then
If Entfernung < 5 Then
Portb.2 = 1
Else
Portb.2 = 0
End If
End If
Waitms 100
Loop
[b:4ccc8844d2][color=red:4ccc8844d2](BASCOM-AVR version : 2.0.7.8 )[/b:4ccc8844d2][/color:4ccc8844d2]
↧