Zmieniłem płytę do sterowania macha z LPT na USB. Wszystko działa niby ok (szybkość przesyłu danych pozostawia dużo do życzenia) oprócz ustawiania zera materiału. Po zerowaniu wg kodu poniżej zero materiału jest ~ 0,4 mm poniżej.
Kod: Zaznacz cały
Dim obecny_posow
Dim jakie_G
'---------------------------------
Const droga_pomiaru= 80 '
'---------------------------------
Const posow_pomiaru= 25 '
'---------------------------------
odczyt_F
odczyt_G
'----------------------------------------------------------------------------------------
'Zaczyna pomiar
SetOEMDro(824,1) ' ustawienie narzędzia na 1
Sleep(100)
DoOEMButton (1010) 'Zeruje dro osi Z
Code "G4 P2" ' odmierza czas
Code "G90"
Code "G31 Z-" & droga_pomiaru & "F" & posow_pomiaru 'Start pomiaru - jedzie w z do styku
czekam_na_wykonanie
Call SetDro (2, GetOEMDro(1300)) ' Wpisuje wysokość PODKŁADKI POMIAROWEJ
Code "G53 Z-1" & "F" & obecny_posow
'Styk_sondy = GetVar(2002)
-
'----------------------------------------------------------------------------------------
Sub odczyt_F ()
obecny_posow = GetOemDRO(818) 'odczyt aktualnego F
End Sub
'----------------------------------------------------------------------------------------
Sub odczyt_G ()
jakie_G = GetOemLED(48) 'odczyt G90 czy G91
End Sub
Sub czekam_na_wykonanie ()
While IsMoving()
Sleep(2)
Wend
End Sub
Amnon