szkoda bo bym ci objaśnił co i jak, udostępniłbym ci ekran i byś wszystko widział

zadzwon tak po 19 stej 793 693 779

[ Dodano: 2013-01-19, 22:00 ]
' makro wymiany narżedzia , definiujące całkowicie porty wyjściowe z zabespieczeniem czasowym przed
' przekroczeniem czasu poszukiwania włąsciwego slotu zmieniarki
' UWAGA!!! sciśle określona przynalerżność numerów narzędzi do imaków
' imak 1 narzedzia 1,2,3,4 imak 2 narzedia 5,6,7,8

'------------------------------------------------------------------------------------------------------------
' >>>imak 1<<<

Const czujimaka1 = Input2 'czujnik zamknięcia magazynu imak1 // narzedzia 1-4
Const delayimak1 = 3 'czas na zmiane narzedzia imak1 w s
Const zwlokaimak1 = 500 'pauza po wybraniu narzedzia imak1 w ms


'narzędzie port
Const narz1 = Output7
Const narz2 = Output8
Const narz3 = Output9
Const narz4 = Output10

'------------------------------------------------------------------------------------------------------------
' >>>imak2<<<

Const czujimaka2 = Input4 'czujnik zamknięcia magazynu imak2 // narzedzia 5-8
Const delayimak2 = 3 'czas na zmiane narzedzia imak2 w s
Const zwlokaimak2 = 500 'pauza po wybraniu narzedzia imak2 w ms

'narzędzie port
Const narz5 = Output12
Const narz6 = Output13
Const narz7 = Output14
Const narz8 = Output15

'------------------------------------------------------------------------------------------------------------
' >>>porty wspulne dla obu imaków<<<

Const blokada = Output11 'sygnał zezwalający na obrót imaka

'------------------------------------------------------------------------------------------------------------
'zmienne

Dim Curenttime As Single
Dim narzedzie As Integer
Dim ToolOld As Integer
Dim ToolNew As Integer

'------------------------------------------------------------------------------------------------------------

Sub Main

ToolOld = GetCurrentTool()
ToolNew = GetSelectedTool()



If (ToolNew = 0) Then
SetCurrentTool( ToolOld )
DoOEMButton(1003)
DoOEMButton(1002)
Sleep(150)
Message("W magazynie nie ma T00 !!!")
Sleep(150)
End
ElseIf (ToolNew > Then
SetCurrentTool( ToolOld )
DoOEMButton(1003)
DoOEMButton(1002)
Sleep(150)
Message("Magazyn mieści tylko" & toolnum & "oprawek")
Sleep(150)
End
ElseIf (ToolNew = ToolOld) Then
SetCurrentTool( ToolOld )
Sleep(150)
Message("Narzędzie jest już w uchwycie")
Sleep(150)
End
End If


Select Case ToolNew

Case 1
Call Ustaw(1, 0, 0, 0, 0, 0, 0, 0, 1)
Call czasimak1
Call Ustaw(0, 0, 0, 0, 0, 0, 0, 0, 0)
Case 2
Call Ustaw(0, 1, 0, 0, 0, 0, 0, 0, 1)
Call czasimak1
Call Ustaw(0, 0, 0, 0, 0, 0, 0, 0, 0)
Case 3
Call Ustaw(0, 0, 1, 0, 0, 0, 0, 0, 1)
Call czasimak1
Call Ustaw(0, 0, 0, 0, 0, 0, 0, 0, 0)
Case 4
Call Ustaw(0, 0, 0, 1, 0, 0, 0, 0, 1)
Call czasimak1
Call Ustaw(0, 0, 0, 0, 0, 0, 0, 0, 0)
Case 5
Call Ustaw(0, 0, 0, 0, 1, 0, 0, 0, 1)
Call czasimak2
Call Ustaw(0, 0, 0, 0, 0, 0, 0, 0, 0)
Case 6
Call Ustaw(0, 0, 0, 0, 0, 1, 0, 0, 1)
Call czasimak2
Call Ustaw(0, 0, 0, 0, 0, 0, 0, 0, 0)
Case 7
Call Ustaw(0, 0, 0, 0, 0, 0, 1, 0, 1)
Call czasimak2
Call Ustaw(0, 0, 0, 0, 0, 0, 0, 0, 0)
Case 8
Call Ustaw(0, 0, 0, 0, 0, 0, 0, 1, 1)
Call czasimak2
Call Ustaw(0, 0, 0, 0, 0, 0, 0, 0, 0)
End Select


SetCurrentTool( ToolNew )
Sleep(150)
Message("załadowano narzedzie nr" & ToolNew )
End Sub

'------------------------------------------------------------------------------------------------------------

Sub czasimak1

Curenttime = Timer

Do Until isActive(czujimaka1)

If Timer > Curenttime + delayimak1 Then
SetCurrentTool( ToolOld )
While IsMoving
Sleep(1)
Wend
DoOEMButton(1021)
Sleep(150)
Message"przekroczono czas wyboru " & ToolNew & " narzędzia > imak 1"
End
End If
Sleep(1)
Loop
Sleep(zwlokaimak1)

End Sub
'------------------------------------------------------------------------------------------------------------

Sub czasimak2

Curenttime = Timer

Do Until isActive(czujimaka2)

If Timer > Curenttime + delayimak2 Then
SetCurrentTool( ToolOld )
While IsMoving
Sleep(1)
Wend
DoOEMButton(1021)
Sleep(150)
Message"przekroczono czas wyboru " & ToolNew & " narzędzia > imak 2"
End
End If
Sleep(1)
Loop
Sleep(zwlokaimak2)

End Sub
'------------------------------------------------------------------------------------------------------------

Public Sub Ustaw (ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, ByVal d As Integer, ByVal e As Integer, ByVal f As Integer, ByVal g As Integer, ByVal h As Integer, ByVal i As Integer)

If a = 1 Then
ActivateSignal(narz1)
Else
DeactivateSignal(narz1)
End If

If b = 1 Then
ActivateSignal(narz2)
Else
DeactivateSignal(narz2)
End If

If c = 1 Then
ActivateSignal(narz3)
Else
DeactivateSignal(narz3)
End If

If d = 1 Then
ActivateSignal(narz4)
Else
DeactivateSignal(narz4)
End If

If e = 1 Then
ActivateSignal(narz5)
Else
DeactivateSignal(narz5)
End If

If f = 1 Then
ActivateSignal(narz6)
Else
DeactivateSignal(narz6)
End If

If g = 1 Then
ActivateSignal(narz7)
Else
DeactivateSignal(narz7)
End If

If h = 1 Then
ActivateSignal(narz8)
Else
DeactivateSignal(narz8)
End If

If i = 1 Then
ActivateSignal(blokada)
Else
DeactivateSignal(blokada)
End If

End Sub
'------------------------------------------------------------------------------------------------------------

coś kolega przekombinował

makro m6 ma gdzieś ofset

robisz tak że zakładasz pułapkę na wybranie narzędzia które już jest i w efekcie makro konczy swoje działanie prawie na początku makra a ofset swoją drogą jest wybierany

makro m6 patrzy tylko na T01 reszta ma w du....więc jak napiszesz tak

t0505
a za chwile w g kodzie
t0506

to dostaniesz odpowiedz narzędzie jest już w uchwycie a w rzeczywistosci bedziesz miał już ofset 06


i dlatego nie trzeba tu za wielkiej filozofii a magazyn się nie obraca nie potrzebnie

jak masz skype to zagadamy w sobotę wieczorem

makro już mam zrobione ładne tylko muszę cię troszkę przeszkolić z konfiguracji go

to zabezpieczenie przed wybraniem nie własciwego numeru narzędzia czaje

ale po co ten start cykl na 3 impucie on tam jest zbędny w takiej sytuacji

maszyna ma się zatrzymać i koniec , poprawiasz numerek narzędzia i startujesz od wymiany narzędzia

napisz mi jeszcze czy imak 1 ma narzędzia 1,2,3,4 a imak 2 ma narzedzia 5,6,7,8 ?????

skrypt taki porządny mam już ukończony tylko muszę usiąść w sobotę i niedziele i poszukać dziur tzn nie zabezpieczonych miejsc

[ Dodano: 2013-01-15, 23:04 ]
Dlaczego to masz tak rozwiązane i dlaczego sygnał sprawdzający jest input 2 potem 3 a potem 4

NewTool = GetSelectedTool()
OldTool = GetCurrentTool()
If (NewTool >8) Then
deActivateSignal(Output7)
deActivateSignal(Output8)
deActivateSignal(Output9)
deActivateSignal(Output10)
deActivateSignal(Output11)
deActivateSignal(Output12)
deActivateSignal(Output13)
deActivateSignal(Output14)
deActivateSignal(Output15)
SystemWaitFor (Input3)


to jest rozbite na 2 imaki ????? to dlaczego sa 3 sygnały wejsciowe?


w dodatku widzę ze to makro nie wybiera ci narzędzia w sensie że nie zmienia jego numeru , pracujesz wo gule na osobnych offsetach narzędzia????

odpowiedz bo prawie kończę pisać!!!!

ło matko niema żadnych zabezpieczeń ale to żadnych

podaj zasady działania magazynu sterownika plc , po prostu opisz jak to działa

niema mowy że mach olej m6 ,

pomogę w miarę czasu wolnego ale obsługa dla 2 magazynów to będzie troszkę myślenia by nie zrobić kuku fięc na szybkie rozwiązanie się nie nastawiaj , napisz czy używasz opcji front i rear

napisz z skąd jesteś