Hallo, bin total neu auf diesem Gebiet.
ich möchte mit Melfa Basic z.B. eine Nadel vermessen mit einer Laserlichtschranke und die Strecke mir in mm in einer Variable schreiben.
Danach möchte ich den Wert mit einer Vorgabe vergleichen.
Also Nadel unterbricht den Laser und fährt weiter bis Laser nicht mehr unterbrochen ist. Die Strecke von den beiden Punkten soll gemessen werden.
Hatte es damit versucht. Bekomme aber Syntax Error,was mache ich falsch?
Wäre super wenn mir jemand dabei helfen könnte.
'Nadel Durchmesser vermessen
Def Act 1, M_In(5)= 1 GoSub *Dm1 'Interrupt
Def Act 2, M_In(6)= 0 GoSub *DM2 'Interrupt
'
Spd 30 ' 30mm/s
'Aktivieren Interrupt
Act 1 = 1
Act 2 = 0
'Laser Durchfahrt
Mov P1
Dly 0.1
Mvs P2
'
PErgebnis = PD1 - PD0
PD3 = PEergebnis ' Ergebnis in Variable speichern
'Berechnung Tolleranz
If PD3 < 1.79 Then M_Out(7)=1 EndIf 'goto Homeposition
If PD3 > 1.81 Then M_Out(7)=1 EndIf 'goto Homeposition
'
END
'*******************************
*Dm1
PD0 = P_Curr 'Aktuelle Position XYZ Wert
Return 0
'
*Dm2
PD1 = P_Curr 'Aktuelle Position XYZ Wert
Return 0