Probier mal sowas (nicht geprüft):

Code:
$regfile = "M8def.dat"
$crystal = 1000000
$hwstack = 100
$swstack = 100
$framesize = 100

Dim I As Word
Dim Messen_an As Byte

Config Timer0 = Timer , Prescale = 8
Const Startwert = 138                             'Für 1 ms
Timer0 = Startwert
On Timer0 Tim0_isr
Enable Interrupts

Messen_an = False
I = 0

Do
   'Messung für 3 Sek. starten:
   I = 0
   Messen_an = True

   While Messen_an = True
      'Messwerte aufnehmen
   Wend

   'Messwerte verarbeiten
   'Z.B. 10 s warten auf nächste Messung:
   Wait 10

Loop
End



Tim0_isr:                                         '1000 Hz (1 ms)
Timer0 = Startwert
I = I + 1
If I > 3000 Then                                  'nach 3 Sek.
   Messen_an = False
End If
Return
Gruß Dirk