For...Next Schleife im Script Dac-Treiber

[Dominik@RW]

Hallo zusammen,

ich möchte im VBS Script Dac-Treiber eine Variable mit 1Hz um einen bestimmten Wert erhöhen. Im DAC ist der VBS Script Dac-Block an einen Systemtakt von 1Hz angeschlossen.

Mein Problem: Die For Next Schleife wird aber viel schneller durchlaufen.

Jede Sekunde soll dieTemperatur T_SP  um  den Eingangskanal InputListV(11) inkrementiert werden, bis T_SP den Wert von InputListV(1) angenommen hat.

Hier mal ein Ausschnitt aus dem Script:

************************************************************************************

Sub Aufheizen (T_SP, InputListV)
        For T_SP = InputListV(0) To (InputListV(1)) (InputListV(11))
        Next
End Sub

Sub SFD_ProcessChannel( ChannelNumberP, InputListV, ParamP, DataP, ErrorP )

If InputListV(10) = 1 Then                                '----- Startfreigabe
      If T_SP < InputListV(1) Then
      Call Aufheizen (T_SP, InputListV)
      End if
Else
T_SP = InputListV(0)
End If

Select Case (ChannelNumberP)
  Case "0" DataP = T_SP
  Case "1" DataP = Zyklen_IST
  Case "2" DataP = Fertig
  Case "3" DataP = Stoppuhr
   
  Case else 
  end select
End Sub

************************************************************************************

Danke für Eure Hilfe!

Gruß

Dominik

[Marco_Brauner]

Hallo,

Wenn Sie mit Script-DAC arbeiten wird die entspr. Prozedur z.B.  "Process..."
im in DAC angegebenen Takt ausgeführt, nicht irgendwelche Schleifen in der Prozedur selbst.
Da muss extra ein Wait rein.


mfg

Marco Brauner NIG

[nimic]

Hallo
Eine denkbare Lösung ist auch hier den Betriebssystemtimer zu verwenden:

WaitSecs = 1

Stoptime = now + WaitSecs/86400
'Wie von Excel bekannt, wird (now) jeden Tag um 1.0 größer
' 1 Sekunde ist also 1 Tag / 24 (h/Tag) / 3600 (sec/h)
do
loop until (now > stoptime)

Damit wird, so schnell wie das Skript arbeitet, die systemuhr abgefragt und nach der gewünschten Anzahl von Sekunden geht es weiter