also ich würde das so machen:

Code:
Sub Hoch 


      Portb.0 = 1 
      Waitms 30

      For i = 1 to 10
         Waitms 10
         W = Getadc(0) 
         If W > 120 Then 
             Waitms 10 
             W = Getadc(0) 
             If W > 120 Then 
                I = 11                       
             End If
         End if
       Next 
     
      Portb.0 = 0 
      End If 

    

    End Sub
soo... damit wird alle 10ms der strom überprüft... nach 10 durchgängen (10*10ms = 100ms) und den 30ms vom anfang also nach 130ms wird die schleife beendet, oder wenn der wert W größer als 120 ist.

MfG

Schoko