Fehlermeldung: alles klar, logisch. Vollversion kostet ~80 € (weiss nicht genau)
Code:
Dim Us As Word

Do
  Ad1 = Getadc(1)
  Select Case Ad1
  Case Is < 32 : Us = 600
  Case Is < 64 : Us = 656
  Case Is < 96 : Us = 712
  Case Is < 128 : Us = 768
.....
  End Select

  Portb.1 = 1
  Waitus Us
  Portb.1 = 0
  Waitus 20000
versuch mal, ob das noch geht.


ausserdem glaub' ich, daß man die Zeit auch errechnen könnte
us = ad1 * faktor + basis