Name: Lackmann Vorname: Frank Matr. Nr.: 338837 Beilage zur <strong>Diplomarbeit</strong> ERKLÄRUNG Erklärung Ich erkläre hiermit an Eides statt, dass ich die vorgelegte <strong>Diplomarbeit</strong> selbständig angefertigt und keine anderen als die angegebenen Hilfsmittel und ausschließlich die im Literaturverzeichnis angegebenen Schriften benutzt habe. ____________________ _____________________ Datum Unterschrift 99
Anhang Visual Basic Programm zur Ansteuerung des Koordinatentisches und automatisierten Aufnahme der Messdaten Declare Sub IX_SENDSTRING Lib "RSAPI.DLL" (ByVal ix%, ByVal a$) Declare Sub IX_OPENCOM Lib "RSAPI.DLL" (ByVal ix%, ByVal para$) Declare Sub IX_CLOSECOM Lib "RSAPI.DLL" (ByVal ix%) Option Explicit Declare Sub IX_SENDBYTE Lib "RSAPI.DLL" (ByVal ix%, ByVal Bytes%) Declare Sub IX_STRLENGTH Lib "RSAPI.DLL" (ByVal ix%, ByVal Bytes%) Declare Sub IX_TIMEOUT Lib "RSAPI.DLL" (ByVal ix%, ByVal Bytes%) Declare Sub TIMEINIT Lib "RSAPI.DLL" () Declare Function TIMEREAD Lib "RSAPI.DLL" () As Long Declare Function IX_STRREAD Lib "RSAPI.DLL" (ByVal ix%, ByVal Display$) As Integer Sub Zylinder_Profil() Dim delta_alpha, d_max, n, Zähler10, Zähler20, Spalte_a, Zeile_a, Iselinit, z, y Dim alpha, ai, Radien, Z1, Z2, Y1, Y2, ages, m, Meßzeile, Meßspalte Dim newHour, newMinute, newSecond, waitTime, Spalte_b, t1, t2 Dim Schrittez As Integer, Schrittey As Integer, Ursprungz, Ursprungy 'Dim aus Vorprogramm Dim Zähler1, Zähler2, Zähler3 Dim Display$, Verfahrwegz, Verfahrwegy Dim Endpunkt Dim Messdauer, Intervall, Zeit, Zeit_i, t, i, Zeile, Spalte Dim Zplus1, Zplus2, Zminus1, Zminus2, Yminus1, Yminus2, x, ZZähler, YZähler Dim Anfang1, Anfang2, Anfang3, ZZähler2$, YZähler2$ 'Anfang für Dateneintrag festlegen Meßzeile = 30 Meßspalte = 3 'Werte einlesen d_max = Tabelle1.Cells(4, 2).Value delta_alpha = Tabelle1.Cells(5, 2).Value n = Tabelle1.Cells(6, 2).Value t1 = Tabelle1.Cells(10, 6).Value t2 = Tabelle1.Cells(11, 6).Value 'Variablen setzen Zähler1 = 0 Zähler10 = 0 Zähler20 = 0 Anhang