Diplomarbeit - FB 4 Allgemein - Fachhochschule Düsseldorf

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