I've solved my encoder problem.
It was a 'brain-script' (what is/how works brain?)
After removing this all was right.
Now my new pokey works like a charm ;-)
My LCD is triggered by a VB-script via macropump. Can anybody look over this 'state of the art':
If GetOemLed(800) Then
SetUserLabel(100,"NOT-AUS!")
SetUserLabel(101,"Keine Bedienung!")
ElseIf GetOemLed(57) Then
SetUserLabel(100,"MPG-Modus auf:")
If GetOemLed(59) Then
SetUserLabel(101, "X-Achse " & Format(GetDro(0), "0.00;-0.00"))
ElseIf GetOemLed(60) Then
SetUserLabel(101, "Y-Achse " & Format(GetDro(1), "0.00;-0.00"))
ElseIf GetOemLed(61) Then
SetUserLabel(101, "Z-Achse " & Format(GetDro(2), "0.00;-0.00"))
End If
ElseIf Not IsActive(OEMTRIG3) Then
SetUserLabel(100, "Alle Achsen auf Null")
SetUserLabel(101, "")
Beep 200,200
Else
SetUserLabel(100,"X: " & Format(GetDro(0), "0.00;-0.00") & " Y: " & Format(GetDro(1), "0.00;-0.00")) 'prints the X & Y axis
SetUserLabel(101,"F: " & Format(GetOemDro(55), "0.0 ") & " S: " & Format(GetOemDro(817), "0.0")) ' prints the F & S
End If
Is this the 'correct' way or is there a cooler method?
A try like:
Function Fname()
SetUserLabel...
End Function
If GetOem... Then
Fname
End If
That wouldn't not work...?