Diplomarbeit - FB 4 Allgemein - Fachhochschule Düsseldorf

'Pause von 2 Sekunden
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 2
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
'Schleife
Do Until Zähler20 = Radien
Do Until Zähler10 = n
z = Cos(alpha * 3.14159265358979 / 180) * Tabelle1.Cells(Zeile_a, 6).Value
y = Sin(alpha * 3.14159265358979 / 180) * Tabelle1.Cells(Zeile_a, 6).Value
'Schritte berechnen
Schrittez = z * 80
Schrittey = y * 80
'Zähler für die Ursprungsfahrt
Ursprungz = Ursprungz + Schrittez
Ursprungy = Ursprungy + Schrittey
'z fahren
IX_SENDSTRING 1, Z1
IX_SENDSTRING 1, Schrittez
IX_SENDSTRING 1, Z2 + Chr$(13)
'y fahren
IX_SENDSTRING 1, Y1
IX_SENDSTRING 1, Schrittey
IX_SENDSTRING 1, Y2 + Chr$(13)
'Pause von t1 Sekunden
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + t1
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
'Meßschleife für Mittelung
TIMEINIT
While TIMEREAD < Messdauer
Do
DoEvents
Loop Until TIMEREAD >= t
Zeit = TIMEREAD
Zeit_i = Zeit_i + Zeit
i = i + 1
Anhang