эрозионный станок FW-1P ACTSPARK

Станки, создание станков, обсуждения, предложения.
keyy
Кандидат
Сообщения: 43
Зарегистрирован: 17 дек 2013, 07:12
Репутация: 3
Контактная информация:

Re: эрозионный станок FW-1P ACTSPARK

Сообщение keyy »

aleha писал(а):Позиционированием занимается.
Подвод до касания и отвод на рабочий зазор?
aleha
Мастер
Сообщения: 265
Зарегистрирован: 30 ноя 2013, 19:16
Репутация: 136
Настоящее имя: Алексей
Откуда: Алматы
Контактная информация:

Re: эрозионный станок FW-1P ACTSPARK

Сообщение aleha »

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
AlexTskan
Опытный
Сообщения: 184
Зарегистрирован: 08 янв 2014, 05:19
Репутация: 46
Контактная информация:

Re: эрозионный станок FW-1P ACTSPARK

Сообщение AlexTskan »

Может название темы сменить электрические методы обработки - это общее название.
ЭХО - это одно, а ЭЭО другое. Раз на третий прочитал всю тему и понял что тут ЭХО.
Что я отсюда вынес(поправьте если надо):
1.За базу взят готовый станок ЭХО в частности электрохимического анодного растворения металлов(раствором натриевой селитры? концентрация и как измеряете истощение раствора?).
2.К нему приделали сварочный транс на 400А (хотя промобразцы держат и 8кА в импульсе, это необходимо чтобы преодолеть "сопротивление" оксидной плёнки. Т.е. нормируется минимальный ток на заданную площадь), как я понял для 25кв.см. 400А достаточно(хотя надо просчитать)
3.Приделали контроллер перемещения который работает по такому алгоритму:
НЦ
подводит заготовку(анод) до контакта с электродом-моделью(катодом) - включен ли при этом вибратор?
отвод на рабочий зазор
включаем рабочий ток (и вибратор?)
выдержка для растворения.
КЦ

Ничего не упустил?

Вот только не понял а где тут проволока? или тут просто прошивка площадью?

(Кстати для степмастера хороший вариант прошивки можно сделать - пару пинов сделать по типу обратной связи-энкодера - фактическое усреднёное положение электрода содики этим и хвастаются, де оптимизирована скорость движения электрода - нет лишних дрыганий. у нас на работе я просто могу ограничить максимальную скорость реза - да, производительность поднимает)
Чудес не бывает. Бывает недопонимание субъектом процессов, часто осложнённое отсутствием самокритики и верой в непогрешимость своей системы знаний. Плохо когда ЧСВ ещё раздуто до степени судьи...
aleha
Мастер
Сообщения: 265
Зарегистрирован: 30 ноя 2013, 19:16
Репутация: 136
Настоящее имя: Алексей
Откуда: Алматы
Контактная информация:

Re: эрозионный станок FW-1P ACTSPARK

Сообщение aleha »

AlexTskan писал(а):Может название темы сменить электрические методы обработки - это общее название.
ЭХО - это одно, а ЭЭО другое. Раз на третий прочитал всю тему и понял что тут ЭХО.
Что я отсюда вынес(поправьте если надо):
1.За базу взят готовый станок ЭХО в частности электрохимического анодного растворения металлов(раствором натриевой селитры? концентрация и как измеряете истощение раствора?).
2.К нему приделали сварочный транс на 400А (хотя промобразцы держат и 8кА в импульсе, это необходимо чтобы преодолеть "сопротивление" оксидной плёнки. Т.е. нормируется минимальный ток на заданную площадь), как я понял для 25кв.см. 400А достаточно(хотя надо просчитать)
3.Приделали контроллер перемещения который работает по такому алгоритму:
НЦ
подводит заготовку(анод) до контакта с электродом-моделью(катодом) - включен ли при этом вибратор?
отвод на рабочий зазор
включаем рабочий ток (и вибратор?)
выдержка для растворения.
КЦ

Ничего не упустил?

Вот только не понял а где тут проволока? или тут просто прошивка площадью?

(Кстати для степмастера хороший вариант прошивки можно сделать - пару пинов сделать по типу обратной связи-энкодера - фактическое усреднёное положение электрода содики этим и хвастаются, де оптимизирована скорость движения электрода - нет лишних дрыганий. у нас на работе я просто могу ограничить максимальную скорость реза - да, производительность поднимает)


Да это ЭХО (прошивка площадью или копирование). Был и заводской для опытов. А второй с нуля построили -
взяли станину от токарного 16а16 посередине камера из фторопласта (в ней процесс происходит и промывка тоже в камеру проточно)
слева на эксцентрике модель вибрирует 27 герц (постоянно вибрирует хоть промывка хоть прожиг - но ток включается только в верхней мертвой точке на 4 мс ) справа каленая железяка винтом и шаговиком (10 шагов 1 микрон) подается.
Источник из 400 амперного китайского инвертора. 40 мм диаметра кое как травит.
Сейчас строю другой источник тоже на основе инвертора - но на выходе инвертора батарея кондеров и потом
ключ на 20 штуках irаз4668
Ответить

Вернуться в «Станки»