Diplomarbeit - FB 4 Allgemein - Fachhochschule Düsseldorf
Diplomarbeit - FB 4 Allgemein - Fachhochschule Düsseldorf
Diplomarbeit - FB 4 Allgemein - Fachhochschule Düsseldorf
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
'z fahren<br />
IX_SENDSTRING 1, Z1<br />
IX_SENDSTRING 1, Ursprungz<br />
IX_SENDSTRING 1, Z2 + Chr$(13)<br />
'y fahren<br />
IX_SENDSTRING 1, Y1<br />
IX_SENDSTRING 1, Ursprungy<br />
IX_SENDSTRING 1, Y2 + Chr$(13)<br />
'Variablen zurücksetzen<br />
Ursprungz = 0<br />
Ursprungy = 0<br />
Meßzeile = Meßzeile + 1<br />
Meßspalte = 3<br />
alpha = alpha + delta_alpha<br />
Zähler1 = 0<br />
Zähler10 = 0<br />
Zähler20 = Zähler20 + 1<br />
Zeile_a = 14<br />
'Pause von t2 Sekunden<br />
newHour = Hour(Now())<br />
newMinute = Minute(Now())<br />
newSecond = Second(Now()) + t2<br />
waitTime = TimeSerial(newHour, newMinute, newSecond)<br />
Application.Wait waitTime<br />
Loop<br />
'COM Ports schließen<br />
IX_CLOSECOM 1<br />
IX_CLOSECOM 2<br />
IX_CLOSECOM 3<br />
'Abschlußmitteilung<br />
Sheets("Gleichanteil").Select<br />
Range("I13").Select<br />
Selection.ClearContents<br />
m = MsgBox("Die Messung ist abgeschlossen !", 0, "Geschwindigkeitsprofil")<br />
End Sub<br />
Anhang