Zeitliche Ablaufsteuerung

[Roboant]

Wie gesagt, hab erst mal nur den Teil mit dem Licht messen...der Rest fehlt noch, ich weiß nicht wie ich das bewerkstelligen soll, deshalb hier meine Frage. Außerdem schalte ich zur Zeit eine Led anstelle einer Sirene, das dürfte aber kein Problem darstellen, die Hardware ist für die Sirene schon ausgelegt.

$regfile = "m48def.dat"
$crystal = 12000000
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Dim Light As Word
Dim Bright As Word
Dim Dark As Word
Ldr Alias Getadc(0)
Licht Alias Portb.0
Config Licht = Output
Reset Licht
Light = 0
Dark = 400
Bright = 600

Do
   'Nacht
   If Ldr < Dark Then
      Wait 2
      If Ldr < Dark Then
         Light = 1
      End If
   End If
   'Tag
   If Ldr > Bright Then
      Wait 2
      If Ldr > Bright Then
         Light = 0
      End If
   End If
   If Light = 1 Then
      Licht = 1
   Else
      Licht = 0
   End If
 
Loop
End