blijkbaar doe ik wat niet juist
Code: Selecteer alles
PAL.Loop := True ;
var uur : String ;
uur := FormatDateTime('hh', Now) ;
PAL.LockExecution; // Speed-up !
PAL.WaitForTime('+00:00:05'); // na start 5 seconden wachten
// Kijk of het aan tijd voorwaardes voldoet
// Copieer de regels en wijzig de tijden naar believen, maar zorg dat er niet meer dan 5 seconden tussenzit
while ((Now >= T['01:09:00']) and (Now <= T['01:09:05'])) or
((Now >= T['02:09:00']) and (Now <= T['02:09:05'])) or
((Now >= T['03:09:00']) and (Now <= T['03:09:05'])) or
((Now >= T['04:09:00']) and (Now <= T['04:09:05'])) or
((Now >= T['05:09:00']) and (Now <= T['05:09:05'])) or
((Now >= T['06:09:00']) and (Now <= T['06:09:05'])) or
((Now >= T['07:09:00']) and (Now <= T['07:09:05'])) or
((Now >= T['08:09:00']) and (Now <= T['08:09:05'])) or
((Now >= T['09:09:00']) and (Now <= T['09:09:05'])) or
((Now >= T['12:09:00']) and (Now <= T['12:09:05'])) or
((Now >= T['13:09:00']) and (Now <= T['13:09:05'])) or
((Now >= T['14:09:00']) and (Now <= T['14:09:05'])) or
((Now >= T['15:09:00']) and (Now <= T['15:09:05'])) or
((Now >= T['16:09:00']) and (Now <= T['16:09:05'])) or
((Now >= T['17:09:00']) and (Now <= T['17:09:05'])) or
((Now >= T['18:09:00']) and (Now <= T['18:09:05'])) or
((Now >= T['19:09:00']) and (Now <= T['19:09:05'])) or
((Now >= T['20:09:00']) and (Now <= T['20:09:05'])) or
((Now >= T['21:09:00']) and (Now <= T['21:09:05'])) or
((Now >= T['22:09:00']) and (Now <= T['22:09:05'])) or
((Now >= T['23:09:00']) and (Now <= T['23:09:05'])) or
((Now >= T['00:09:00']) and (Now <= T['00:09:05'])) do
BEGIN
PAL.UnLockExecution; // Slow-down
WriteLn('Huidig uur: '+ IntToStr(uur+0));
Cat['Klapper'].QueueTop(smLRP, NoRules);
WriteLn('klapper toegevoegd!');
PAL.WaitForTime('+00:00:05'); // 5 seconden wachten (pas aan naar wens)
PAL.LockExecution; // Speed-up !
aangepast door de zwijger