Diplomarbeit - FB 4 Allgemein - Fachhochschule Düsseldorf

alpha = 0
Zeile_a = 14
Spalte_a = 6
Ursprungz = 0
Ursprungy = 0
'Variablen für ISEL setzen
Z1 = "@0A0,3000,0,3000,"
Z2 = ",3000,0,1000"
Y1 = "@0A0,3000,"
Y2 = ",3000,0,3000,0,1000"
'Radien berechnen
If delta_alpha > 0 Then
Radien = (180 / delta_alpha) + 1
Else
Radien = (180 / -delta_alpha) + 1
End If
ages = d_max / 2
'Variablen für Mittelung setzen
Messdauer = 16500
Intervall = 1500
Zeit_i = 0
i = 0
t = 0
Zeile = 10
Spalte = 2
'COM1 Für ISEL-Steuerung öffnen
Iselinit = "@07"
IX_OPENCOM 1, "COM1,19200,N,8,1"
IX_SENDSTRING 1, Iselinit + Chr$(13)
'COM2 für den Gleichanteil öffnen
IX_OPENCOM 2, "COM2,9600,N,7,2"
IX_TIMEOUT 2, 1000 'TimeOut beim Lesen
IX_STRLENGTH 2, 56 'Länge der übertragenen Zeichenkette
'COM3 für den Wechselanteil öffnen
IX_OPENCOM 3, "COM3,9600,N,7,2"
IX_TIMEOUT 3, 1000 'TimeOut beim Lesen
IX_STRLENGTH 3, 56 'Länge der übertragenen Zeichenkette
'Meldung das Messung läuft
Tabelle1.Cells(13, 9).Value = "Die Messung läuft. Bitte warten !!!"
Range("I13").Select
Selection.Font.Bold = True
Selection.Font.ColorIndex = 3
Selection.Font.Size = 14
Range("C25").Select
Anhang