22.07.2013 Aufrufe

Diplomarbeit - FB 4 Allgemein - Fachhochschule Düsseldorf

Diplomarbeit - FB 4 Allgemein - Fachhochschule Düsseldorf

Diplomarbeit - FB 4 Allgemein - Fachhochschule Düsseldorf

MEHR ANZEIGEN
WENIGER ANZEIGEN

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

Hurra! Ihre Datei wurde hochgeladen und ist bereit für die Veröffentlichung.

Erfolgreich gespeichert!

Leider ist etwas schief gelaufen!