Obrotowy imak elektryczny z chin

Ma silnik krokowy. I już. Jeżeli dołoży krąńcówke, chociaż jedną to żadnych kłopotów nie będzie.
Fakt twojego dzwona jest dowodem na to że go zrobiłeś i niczego więcej nie dowodzi (wiesz ,uprzejmość, dobre formy w relacjach i inne eufemizmy).
Ale że jego guru to bezkrańcówkowy Kamar to będzie jak zrobi.
Choć jak dotąd nawet nie zauważyli że o różnych rzeczach rozmawiają.

Jasne, ma taki to niech zostawi.
Ale nie wprowadzaj ludzi w błąd, że krokowiec ma w tym zastosowaniu jakieś zalety.
Jak doda zabezpieczenia to dzwona nie będzie i warto je zrobić.

A wiecie co to jest ? To jest właśnie zabezpieczenie przed dzwonem z drugiej strony tego tematu - 2016 rok
Jakby co to 10 lat chodzi i nie dzwoni.

Głowica - imak
Ma jak najbardziej styki "przypisane" do każdej z 4 pozycji, tylko kable trzeba lutować, oczywiście jest to do zrobienia, nie wyrzekam się krańcówek limitów itd, bo wtej tokarce będą!

jarucki pisze: ↑

24 lut 2023, 12:27

tylko kable trzeba lutować,

Czegoś nie rozumiem, kupiłeś ten imak bez żadnych instrukcji, dokumentacji ?

jeżeli masz potwierdzenie pozycji to wyciągnij te przewody i je czytaj.
Może z tego coś skorzystasz

A wiecie co to jest?
głowica 6 gniazd zmieniana przez zawodnego Macha. I jak przez 5lat kręci to raz się zatrzymała na ostatnim komunikacie ( bo wtyczkabrzękła)


' wymiana narzędzia na głowicy
' tokarka m106.m1s

Sub main
Dim iToolNum As Integer ' maksymalna ilosc narzedzi
Dim iSelectTool As Integer ' narzędzie wybrane w programie
Dim iCurrentTool As Integer ' narzędzie aktualne w programie
Dim gniazdo As Integer ' narzędzie wskazywane przez głowicę C * 4 + B * 2 + A * 1
Dim licznik As Integer ' licznik bezpieczeństwa
Dim czas As Integer ' max czas krecenia tarczą narzędziową

'Konfiguracja
'pin2 - alarm triaków - oemTrigger#1
'pin3 - A input#1
'pin4 - B input#2
'pin5 - C input#3
'pin6 - OK input#4
'output#8 - start kręcenia silnikiem
'oemTrigger#6 -zapal leda głowica zaryglowana






iToolNum= 6 'maksymalna ilosc narzedzi
czas= 1000 '10s kręcenia
licznik= 1 'wartość startowa

' Najazd na punkt wymiany narzedzia
'Code "G90 G00 G53 Z-2 X-2"
'While IsMoving()
'Message "Najazd na ptk wymiany"
' sleep(100)
'Wend
sleep(200)
Message "bez najazdu na wymiane"
sleep (1000)

' Podstawienie nr narzędzi
iSelectTool = GetSelectedTool() 'narzędzie oczekiwane
iCurrentTool = GetCurrentTool() ' narzędzie aktualne


'

' kontrola poprawności danych
If (iSelectTool > iToolNum) Or (iSelectTool < 1) Then
Message "Numer Narzedzia z poza zakresu"
Code "M30"
End
End If

Message ("Wybrano Narzedzie nr = " & iSelectTool)
sleep(250)

Gniazdo = CInt (isActive (INPUT3))*-4 + CInt (isActive (INPUT2)) * -2 + CInt (isActive (INPUT1)) * -1

message"gniazdo="&gniazdo

If (gniazdo=7) Then
message "awaria BCD głowicy"
code "M30"
End
End If

If (iSelectTool=gniazdo) Then
a=0

Else

ActivateSignal(Output8)
message " ustawianie tarczy narzędziowej"



Do While a=0 '(iSelectTool=gniazdo)
Gniazdo = CInt (isActive (INPUT3))*-4 + CInt (isActive (INPUT2)) * -2 + CInt (isActive (INPUT1)) * -1
sleep(100)

'licznik = licznik+1

If (licznik>czas) Then
message " nie znaleziono nr narzedzia"
deActivateSignal(output7)
code "M30"
End
Else
message "szukam="&licznik
End If

Gniazdo = CInt (isActive (INPUT3)) * -4 + CInt (isActive (INPUT2)) * -2 + CInt (isActive (INPUT1)) * -1

message "gniazdo="&gniazdo

If (iSelectTool=gniazdo)Then
a=1
End If

Loop



deActivateSignal(output8)
sleep (1000) 'czekanie na zaryglowanie głowicy

End If
message "tool="&iSelectTool
sleep (2000)

If ((CInt (isActive (INPUT3))*-4 + CInt (isActive (INPUT2))*-2 + CInt (isActive (INPUT1))*-1)=iSelectTool) Then
'powtórna kontrola pozycji głowicy po zaryglowaniu

If (isactive (input4)) Then
a=0 'świeci lampka zaryglowanej głowicy zapalona sprzętowo
Else
message " głowica nie zaryglowana"
sleep (5000)
code "M30"
End If


Else
message " błąd procedtury zmiany narzędzia"
sleep (10000)
code "M30"
End If

SetCurrentTool(iSelectTool)
SetUserDRO(iHoldingDRO,iSelectTool)

Message ""

End Sub


Kol Kamar i tosam napisałem ( no z inspiracją tego forum, tu można wiele odszukać)

Dodane 1 minuta 35 sekundy:
tylko aby czytać jak tutaj to musisz sygnały pozycji podać zakodowane BCD - ale to tylko kilka diodek na płytce choć u Ciebie oszczędzi jedno wejście na porcie LPT.

No pięknie ale i tak zostanę przy swoim napisanym z głowy, inspirowany potrzebą

Ale to makro współpracuje z płytką sterowania silnikiem głowicy jest tylko jedno wyjście kręci/nie kręci które ustawia kierunek silnika i czas działania podczas ryglowania. Także wskazania są na indukcyjny a nie krokówk.

Dodane 1 minuta 35 sekundy:

kamar pisze: ↑

24 lut 2023, 12:51

No pięknie ale i tak zostanę przy swoim napisanym z głowy, inspirowany potrzebą

no tylko wskaż autorowi tematu różnicę pomiędzy wami. Bo Twoje dla Niego nie pasi. Tylko nie wie o tym

qqaz pisze: ↑

24 lut 2023, 12:54

no tylko wskaż autorowi tematu różnicę

Żeby odpowiedzialnie wskazać to trzeba ją znać . Anim go widział anim słyszał
Usunie starą blokadę a założy taką co blokuje w miejscu. Ile ja się nasłuchałem na temat swojej a działa tyle lat bezbłędnie i bezluzowo.

chopie torzecież od poczatk tu jest pokazywane że Twoje jest świetne i tu nie zadziała!!!