that is working well with the bascom simulator
you have to use 2 loop
here I use a for--next loop, replace it by do--loop and remove the ' before ' Lightlevel = Getadc(0)
you make a mistake somewhere with > and < too
$regfile = "M168def.dat"
$crystal = 11052000
$hwstack = 32
$swstack = 32
$framesize = 32
'$baud = 19200 ' whit this statement port D.0 et D.1 are unuable as I/O port
' to generate one time-----------------------------------------------------------
$sim
Dim Lightlevel As Word
'*************remarque on blck or the other one*****************************************
'(
For Lightlevel = 103 To 1003 Step 100
Do
' Lightlevel = Getadc(0)
If Lightlevel > 102 And Lightlevel < 200 Then
Portb = &B01111111
Exit Do
Elseif Lightlevel > 199 And Lightlevel < 400 Then
Portb = &B10111111
Exit Do
Elseif Lightlevel > 399 And Lightlevel < 500 Then
Portb = &B11011111
Exit Do
Elseif Lightlevel > 499 And Lightlevel < 600 Then
Portb = &B11101111
Exit Do
Elseif Lightlevel > 599 And Lightlevel < 700 Then
Portb = &B11110111
Exit Do
Elseif Lightlevel > 699 And Lightlevel < 800 Then
Portb = &B11111011
Exit Do
Elseif Lightlevel > 799 And Lightlevel < 900 Then
Portb = &B11111101
Exit Do
Elseif Lightlevel > 899 And Lightlevel > 1022 Then
Portb = &B11111110
Exit Do
Else
End If
Loop
Print Portb
Print Lightlevel
Next
')
'**********************************************************************************
For Lightlevel = 103 To 1003 Step 100
Do
' Lightlevel = Getadc(0)
Select Case Lightlevel
Case 103 To 199
Portb = &B01111111
Exit Do
Case 200 To 399
Portb = &B10111111
Exit Do
Case 400 To 499
Portb = &B11011111
Exit Do
Case 500 To 599
Portb = &B11101111
Exit Do
Case 600 To 699
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum You cannot attach files in this forum You cannot download files in this forum