Подвод до касания и отвод на рабочий зазор?aleha писал(а):Позиционированием занимается.
эрозионный станок FW-1P ACTSPARK
Re: эрозионный станок FW-1P ACTSPARK
-
- Мастер
- Сообщения: 265
- Зарегистрирован: 30 ноя 2013, 19:16
- Репутация: 136
- Настоящее имя: Алексей
- Откуда: Алматы
- Контактная информация:
Re: эрозионный станок FW-1P ACTSPARK
Да это - плюс включение рабочего тока и выдержка времени прожига.keyy писал(а):Подвод до касания и отвод на рабочий зазор?aleha писал(а):Позиционированием занимается.
Плюс на ускореной подаче джойстиком можно двигать
Программа на бейсике выкладываю чтоб чисто похвастаться
Код: Выделить всё
$regfile = "m16adef.dat"
$crystal = 11592000
'define the custom library
'uses 184 hex bytes total
$lib "lcd4busy.lib"
'define the used constants
'I used portA for testing
Const _lcdport = Portd
Const _lcdddr = Ddrd
Const _lcdin = Pind
Const _lcd_e = 2
Const _lcd_rw = 1
Const _lcd_rs = 0
Const Max_speed_manual = 240
Dim Position As Long
Dim Nastr_n As Byte
Dim Nastr_vn As Byte
Nastr_n = 0
Nastr_vn = 0
Dim Tik_word As Word
Dim Counter_otskok_za_null As Integer ' Счетчик Отскоков Для Промывки
Dim Otskok_za_null As Word
Dim Fst_progig As Byte
Fst_progig = 1
Dim Rel_position As Long
Dim Tik As Byte
Dim Clear_ind As Byte
Dim B As Byte
Dim Num_stepovo As Word
Rele_1 Alias Portc.0
Rele_2 Alias Portc.1
Kontakt Alias Pinb.2
Krasn Alias Portc.5
Zelen Alias Portc.6
Led_otladka Alias Portc.4
Num_stepovo = 10
Cha Alias Pinb.0
Chb Alias Pinb.1
Di_r Alias Portc.3
Ste_p Alias Portc.2
Dj_vverh Alias Pina.5
Dj_vniz Alias Pina.4
Dj_vpravo Alias Pina.6
Dj_vlevo Alias Pina.7
Knopka Alias Pinb.4
Dim Encounter As Integer
Dim Time_prog As Integer
Dim Otskok As Integer
Dim Prom_otskok As Integer 'количество шагов пром.отскок
Prom_otskok = 5
Dim Counter_prom_otskok As Integer
Dim Prohod As Integer
Dim Luft As Integer
Dim E_time_prog(3) As Eram Integer
Dim E_otskok(3) As Eram Integer
Dim E_prohod(3) As Eram Integer
Dim E_luft As Eram Integer
' E_otskok(1) = 300
' E_prohod(1) = 5
' E_otskok(2) = 300
' E_prohod(2) = 6
' E_otskok(3) = 300
' E_prohod(3) = 7
' E_time_prog(1) = 1
' E_time_prog(2) = 2
' E_time_prog(3) = 3
' E_luft = 10
Dim Stup As Byte
Dim Napr As Bit
Dim Old_key As Byte
Dim Temp_key As Byte
Dim Temp_byte As Byte
Dim Rezgim As Byte
Dim Stupen As Byte
Dim Neprer As Byte
Dim Stepovo As Byte
Dim Skorost As Byte
Config Timer2 = Timer , Prescale = 256
Config Timer0 = Timer , Prescale = 64
On Ovf2 Key_opros
On Ovf0 Steping
Enable Timer0
Stop Timer0
Enable Timer2 ' enable the timer interrupt
Enable Interrupts 'allow interrupts to occur
Config Portb = Input
Config Porta = Input
Config Portc = Output
Portb = &B00010111
Porta = 255
Portc = 0
'this is like always, define the kind of LCD
Config Lcd = 16 * 4
Cursor Off
Cursor Noblink
'and here some simple lcd code
Do
'флаг очистить индикатор
If Clear_ind = 1 Then
Cls
Clear_ind = 0
End If
Select Case Rezgim
Case 3 : Locate 1 , 1
Lcd "P©«HOE "
'Locate 2 , 8
'Lcd " "
Locate 2 , 8
Lcd Position
Select Case Neprer
Case 128 : Locate 2 , 1
Lcd "BЁPABO "
Incr Skorost
If Skorost >= Max_speed_manual Then Skorost = Max_speed_manual
Set Napr
Set Portc.3
Start Timer0
Case 64 : Locate 2 , 1
Lcd "B§EBO "
Incr Skorost
If Skorost >= Max_speed_manual Then Skorost = Max_speed_manual
Reset Portc.3
Reset Napr
Start Timer0
Case 192 : Stop Timer0
Skorost = 0
End Select
Select Case Stepovo
Case 16 :
If Num_stepovo = 0 Then Goto End_stepovo
Locate 2 , 1
Lcd "BЁPABO "
Set Napr
Set Portc.3
Gosub Steping
Decr Num_stepovo
'Start Timer0
Case 32 :
If Num_stepovo = 0 Then Goto End_stepovo
Locate 2 , 1
Lcd "B§EBO "
Reset Portc.3
Reset Napr
Gosub Steping
Decr Num_stepovo
'Start Timer0
Case 48 :
If Stupen = 12 Then Num_stepovo = 100
If Stupen = 4 Then Num_stepovo = 800
If Stupen = 8 Then Num_stepovo = 10
'если кнопка на энкодере нажата сбосить позицию
If Pinb.4 = 0 Then
Position = 0 'Stop Timer0
Cls
End If
End Select
End_stepovo:
'если режим насройки
Case 2 :
'выясняем какая ступень включена
Select Case Stupen
Case 8 : Stup = 1
Case 12 : Stup = 2
Case 4 : Stup = 3
End Select
'читаем из ерома соотв. параметры
Time_prog = E_time_prog(stup)
Otskok = E_otskok(stup)
Prohod = E_prohod(stup)
'вход в настройки
Nastr_vn = 1
'теперь бесконечно пока Nastr_vn = 1 (пока не нажата ентер )
Nastroika:
'Locate 4 , 1
'Lcd Pinb
Debounce Dj_vverh , 0 , Vverh , Sub
Debounce Dj_vniz , 0 , Vniz , Sub
Debounce Dj_vpravo , 0 , Uvel , Sub
Debounce Dj_vlevo , 0 , Umensh , Sub
'стрелочку напротив настр. параметра
Select Case Nastr_vn
Case 1 : Locate 2 , 14
Case 2 : Locate 3 , 14
Case 3 : Locate 4 , 14
End Select
Lcd "<--"
'выводим на индикатор параметры
Locate 1 , 1
Lcd "HACTPO¦KA " ; Stup ; " CT "
Locate 2 , 1
Lcd "OTCKOK " ; Otskok
Locate 3 , 1
Lcd "ЁPOXOа " ; Prohod
Locate 4 , 1
Lcd "BPEM± " ; Time_prog
'если нажата ентер выходим из меню
Debounce Knopka , 0 , Vihod_menu , Sub
'уходим вверх
If Nastr_vn > 0 Then Goto Nastroika
'Режим автоматический
Case 1 : Locate 1 , 1
Lcd "ABTOMAT"
Select Case Stupen
Case 8 : Locate 1 , 9
Lcd "CT 1"
Stup = 1
Time_prog = E_time_prog(stup)
Otskok = E_otskok(stup)
Prohod = E_prohod(stup)
Locate 2 , 1
Lcd "BPEM± " ; Time_prog
Locate 3 , 1
Lcd "OTCKOK " ; Otskok
Locate 4 , 1
Lcd "ЁPOXOа " ; Prohod
'Rel_position = 0
Debounce Knopka , 0 , Avtomat , Sub
Case 12 : Locate 1 , 9
Lcd "CT 2"
Stup = 2
Time_prog = E_time_prog(stup)
Otskok = E_otskok(stup)
Prohod = E_prohod(stup)
Locate 2 , 1
Lcd "BPEM± " ; Time_prog
Locate 3 , 1
Lcd "OTCKOK " ; Otskok
Locate 4 , 1
Lcd "ЁPOXOа " ; Prohod
'Rel_position = 0
Debounce Knopka , 0 , Avtomat , Sub
Case 4 : Locate 1 , 9
Lcd "CT 3"
Stup = 3
Time_prog = E_time_prog(stup)
Otskok = E_otskok(stup)
Prohod = E_prohod(stup)
Locate 2 , 1
Lcd "BPEM± " ; Time_prog
Locate 3 , 1
Lcd "OTCKOK " ; Otskok
Locate 4 , 1
Lcd "ЁPOXOа " ; Prohod
'Rel_position = 0
Debounce Knopka , 0 , Avtomat , Sub
End Select
End Select
'Locate 4 , 1
'Lcd Rezgim ; " " ; Stupen ; " " ; Stepovo ; " " ; Neprer ; " " ; Num_stepovo
Loop
'the following code is executed when the timer rolls over
Key_opros:
Krasn = Kontakt
Toggle Zelen
Temp_key = Pina
If Temp_key = Old_key Then Goto Vih_key_opros
'Toggle Portc.4
Temp_byte = Temp_key And &B00000011
Rezgim = Temp_byte
If Rezgim <> 2 Then Nastr_vn = 0
Temp_byte = Temp_key And &B00001100
Stupen = Temp_byte
Temp_byte = Temp_key And &B00110000
Stepovo = Temp_byte
Temp_byte = Temp_key And &B11000000
Neprer = Temp_byte
Clear_ind = 1
Vih_key_opros:
Old_key = Temp_key
Return
Steping:
Timer0 = Skorost
Toggle Portc.2
If Napr = 1 Then Incr Position
If Napr = 0 Then Decr Position
Return
Avtomat:
Fst_progig = 1
'сюда попадаем когда в автомате обработка
'Rel_position = 0
Otskok = E_otskok(stup)
Prohod = E_prohod(stup)
Time_prog = E_time_prog(stup)
Luft = E_luft
'пока не завершилось кол-во проходов
Ind_avtomat:
Cls
Locate 1 , 1
Lcd "O PA OTKA " ; Stup ; " - CT"
Decr Prohod
Locate 2 , 1
Lcd "OTCKOK " ; Otskok
Locate 3 , 1
Lcd "ЁPOXOа " ; Prohod
Locate 4 , 1
Lcd Rel_position
Pozisionirovanie:
V_minus:
:
'до касания едем в минус
While Pinb.2 = 0
Reset Di_r
Decr Rel_position
Toggle Ste_p
Waitms 4
Wend
'здесь надо отскочить на 5 шагов и продолжаь отскакиваь пока 1сек не будет касания
'отскакиваем на сколько заданно
Label_prom_otskok:
For Tik = 1 To Prom_otskok
Waitms 1
Incr Rel_position
Set Di_r
Toggle Ste_p
Next Tik
Counter_prom_otskok = 0
Do
Waitms 1
If Pinb.2 = 1 Then Goto Label_prom_otskok
Incr Counter_prom_otskok
If Counter_prom_otskok >= 1000 Then Goto End_label_prom_otskok
Loop
End_label_prom_otskok:
'если прожиг первый обнуляем относительную глубину
If Fst_progig = 1 Then
Rel_position = 0
Fst_progig = 0
Counter_otskok_za_null = 0
End If
'отскакиваем на сколько заданно
For Tik = 1 To Otskok
Waitms 1
Incr Rel_position
Set Di_r
Toggle Ste_p
Next Tik
''
'здесь надо включить источник и подождать окончания прожига
Incr Counter_otskok_za_null 'промывка после 10 прожигов
Set Rele_1
Set Led_otladka
Wait Time_prog
'Cls
Reset Rele_1
Reset Led_otladka
'Промывка Каждые 10 Прожигов
'после того как потравили и выключили источник надо отъехать
'и сразу вернутся на 2000 шагов
If Counter_otskok_za_null >= 10 Then
Otskok_za_null = Rel_position * 2
Otskok_za_null = 4000 - Otskok_za_null
Locate 4 , 7
Lcd Otskok_za_null
For Tik_word = 1 To Otskok_za_null
Waitus 500
Incr Tik_word
Set Di_r
Toggle Ste_p
Next Tik_word
Waitms 500
For Tik_word = 1 To Otskok_za_null
Waitus 500
Incr Tik_word
Reset Di_r
Toggle Ste_p
Next Tik_word
Counter_otskok_za_null = 0
End If
'Wait 1
'пока не доделали заданное кол-во проходов
If Prohod <> 0 Then Goto Ind_avtomat
Return
Enter:
Nastr_n = 0
'Incr Nastr_nv
Return
' указатель меню выше
Vverh:
Cls
Incr Nastr_vn
If Nastr_vn > 3 Then Nastr_vn = 3
Return
'указатель меню ниже
Vniz:
Cls
Decr Nastr_vn
If Nastr_vn < 1 Then Nastr_vn = 1
Return
'увеличить редактируемый параметр
Uvel:
Cls
Select Case Nastr_vn
Case 1 : Incr Otskok
Case 2 : Incr Prohod
Case 3 : Incr Time_prog
End Select
Return
'уменьшить редактируемый параметр
Umensh:
Cls
Select Case Nastr_vn
Case 1 : Decr Otskok
Case 2 : Decr Prohod
Case 3 : Decr Time_prog
End Select
Return
Vihod_menu:
'Toggle Portc.4
'чтобы выйти из меню
Nastr_vn = 0
'записать настройки в ером
E_otskok(stup) = Otskok
E_prohod(stup) = Prohod
E_time_prog(stup) = Time_prog
Return
End
-
- Опытный
- Сообщения: 184
- Зарегистрирован: 08 янв 2014, 05:19
- Репутация: 46
- Контактная информация:
Re: эрозионный станок FW-1P ACTSPARK
Может название темы сменить электрические методы обработки - это общее название.
ЭХО - это одно, а ЭЭО другое. Раз на третий прочитал всю тему и понял что тут ЭХО.
Что я отсюда вынес(поправьте если надо):
1.За базу взят готовый станок ЭХО в частности электрохимического анодного растворения металлов(раствором натриевой селитры? концентрация и как измеряете истощение раствора?).
2.К нему приделали сварочный транс на 400А (хотя промобразцы держат и 8кА в импульсе, это необходимо чтобы преодолеть "сопротивление" оксидной плёнки. Т.е. нормируется минимальный ток на заданную площадь), как я понял для 25кв.см. 400А достаточно(хотя надо просчитать)
3.Приделали контроллер перемещения который работает по такому алгоритму:
НЦ
подводит заготовку(анод) до контакта с электродом-моделью(катодом) - включен ли при этом вибратор?
отвод на рабочий зазор
включаем рабочий ток (и вибратор?)
выдержка для растворения.
КЦ
Ничего не упустил?
Вот только не понял а где тут проволока? или тут просто прошивка площадью?
(Кстати для степмастера хороший вариант прошивки можно сделать - пару пинов сделать по типу обратной связи-энкодера - фактическое усреднёное положение электрода содики этим и хвастаются, де оптимизирована скорость движения электрода - нет лишних дрыганий. у нас на работе я просто могу ограничить максимальную скорость реза - да, производительность поднимает)
ЭХО - это одно, а ЭЭО другое. Раз на третий прочитал всю тему и понял что тут ЭХО.
Что я отсюда вынес(поправьте если надо):
1.За базу взят готовый станок ЭХО в частности электрохимического анодного растворения металлов(раствором натриевой селитры? концентрация и как измеряете истощение раствора?).
2.К нему приделали сварочный транс на 400А (хотя промобразцы держат и 8кА в импульсе, это необходимо чтобы преодолеть "сопротивление" оксидной плёнки. Т.е. нормируется минимальный ток на заданную площадь), как я понял для 25кв.см. 400А достаточно(хотя надо просчитать)
3.Приделали контроллер перемещения который работает по такому алгоритму:
НЦ
подводит заготовку(анод) до контакта с электродом-моделью(катодом) - включен ли при этом вибратор?
отвод на рабочий зазор
включаем рабочий ток (и вибратор?)
выдержка для растворения.
КЦ
Ничего не упустил?
Вот только не понял а где тут проволока? или тут просто прошивка площадью?
(Кстати для степмастера хороший вариант прошивки можно сделать - пару пинов сделать по типу обратной связи-энкодера - фактическое усреднёное положение электрода содики этим и хвастаются, де оптимизирована скорость движения электрода - нет лишних дрыганий. у нас на работе я просто могу ограничить максимальную скорость реза - да, производительность поднимает)
Чудес не бывает. Бывает недопонимание субъектом процессов, часто осложнённое отсутствием самокритики и верой в непогрешимость своей системы знаний. Плохо когда ЧСВ ещё раздуто до степени судьи...
-
- Мастер
- Сообщения: 265
- Зарегистрирован: 30 ноя 2013, 19:16
- Репутация: 136
- Настоящее имя: Алексей
- Откуда: Алматы
- Контактная информация:
Re: эрозионный станок FW-1P ACTSPARK
AlexTskan писал(а):Может название темы сменить электрические методы обработки - это общее название.
ЭХО - это одно, а ЭЭО другое. Раз на третий прочитал всю тему и понял что тут ЭХО.
Что я отсюда вынес(поправьте если надо):
1.За базу взят готовый станок ЭХО в частности электрохимического анодного растворения металлов(раствором натриевой селитры? концентрация и как измеряете истощение раствора?).
2.К нему приделали сварочный транс на 400А (хотя промобразцы держат и 8кА в импульсе, это необходимо чтобы преодолеть "сопротивление" оксидной плёнки. Т.е. нормируется минимальный ток на заданную площадь), как я понял для 25кв.см. 400А достаточно(хотя надо просчитать)
3.Приделали контроллер перемещения который работает по такому алгоритму:
НЦ
подводит заготовку(анод) до контакта с электродом-моделью(катодом) - включен ли при этом вибратор?
отвод на рабочий зазор
включаем рабочий ток (и вибратор?)
выдержка для растворения.
КЦ
Ничего не упустил?
Вот только не понял а где тут проволока? или тут просто прошивка площадью?
(Кстати для степмастера хороший вариант прошивки можно сделать - пару пинов сделать по типу обратной связи-энкодера - фактическое усреднёное положение электрода содики этим и хвастаются, де оптимизирована скорость движения электрода - нет лишних дрыганий. у нас на работе я просто могу ограничить максимальную скорость реза - да, производительность поднимает)
Да это ЭХО (прошивка площадью или копирование). Был и заводской для опытов. А второй с нуля построили -
взяли станину от токарного 16а16 посередине камера из фторопласта (в ней процесс происходит и промывка тоже в камеру проточно)
слева на эксцентрике модель вибрирует 27 герц (постоянно вибрирует хоть промывка хоть прожиг - но ток включается только в верхней мертвой точке на 4 мс ) справа каленая железяка винтом и шаговиком (10 шагов 1 микрон) подается.
Источник из 400 амперного китайского инвертора. 40 мм диаметра кое как травит.
Сейчас строю другой источник тоже на основе инвертора - но на выходе инвертора батарея кондеров и потом
ключ на 20 штуках irаз4668