rezultat funkcji już działa i pobieranie Z ale odczyt w innej funkcji X i Y nie działa albo działa z opóźnieniem.
Mogę X i Y bo jest znany przed wywołaniem dać jako parametr ale chciałem mieć taka uniwersalna funkcje do zrzutu X Y Z do pliku

Pisze skrypt do skanowania powierzchni czystej PCB. Potem to będę chciał nałożyć na GCOD do grawerowania - ale to później

Teraz mam problem z VB i składnią.
Nie mogę nic zwrócić nic z funkcji - wywala błąd
w VB pisze pierwszy raz więc proszę o wyrozumiałość


Function Probe(ByVal X As Integer, ByVal Y as Integer) As Double

Dim ZPos as Double ' Nic nie daje
.......
ZPos = GetOEMDRO (802) 'Get Z

Return ZPos <- SYNTAX ERROR zaznacza mi zmienną
End Function

Dodane 2 godziny 21 minuty 7 sekundy:
W opisie MS jest Return wartość. Natomiast tu trzeba przypisać do nazwy funkcji
Probe = ZPos

Już całość działa ale mam błędne odczyty z osi X i Y

Osie X i Y dawno stoją a zapisują się wartości jak by była w trakcie ruchu.
Z Zapisuje poprawnie

x = GetOEMDRO (800)
y = GetOEMDRO (801)
z = GetOEMDRO (802)
Write #1, x , y, z