ATNEL tech-forum

Re: Nawijarka Cewek

2018-04-12T09:39:09+01:00

Sylwku kilka obrotow na sekunde juz jest dla mnie wystarczajace. Dzieki grzeniu 73 za poswiecony czas, juz mi sie troche wyjasnilo w glowie jak to zrobic, tymczasem projekt nawijarki na ATmega poszedl w las, na szybkosci zlozylem nawijarke oparta o sterownik cnc, oraz sterowana z Macha, i po nawinieciu pierwszych kilku cewek stwierdzam ze w zupelnosci mi wystarcza

Statystyki: Napisane przez piotrek_violin — 12 kwi 2018, o 09:39

Re: Nawijarka Cewek

2018-04-10T22:27:18+01:00

[syntax=basic4gl]$hwstack = 250
$swstack = 250
$framesize = 250

$regfile = "m328pdef.dat"

$crystal = 1000000
$baud = 38400

Config Portb = &B11111111 : Portb = &B11111110
Config Portc = &B11111111 : Portc = &B11111111
Config Portd = &B10111111 : Portd = &B11111111

Config Lcdpin = Pin , Rs = Portb.7 , E = Portb.6 , Db4 = Portb.5 , Db5 = Portb.4 , Db6 = Portb.3 , Db7 = Portb.2
Config Lcd = 16 * 2

Cls
Cursor Off Noblink

Config Timer0 = Timer , Prescale = 1
Enable Timer0 : On Timer0 Prztimer2

'==================================================================
Dim Flaga_5ms As Bit , Flaga_500ms As Bit , Flaga_1ms As Bit , Flaga_1s As Bit 'flagi przerwan
Dim Dzielnik(3) As Byte

'==================================================================
Enable Interrupts

Do

'-----------------------------------------------------------------------
If Flaga_5ms = 1 Then 'Co 5ms
Flaga_5ms = 0

' tu robisz co ma być co 5ms

End If
'*********************************************** co 500ms
If Flaga_500ms = 1 Then
Flaga_500ms = 0

'tu co 500ms

End If
'**************************************** co 1 sekunde
If Flaga_1s = 1 Then
Flaga_1s = 0

End If

Loop

End

' ===========================================================================

Prztimer2: '****************** przetimer 2

Timer0 = 6
Set Flaga_1ms
Incr Dzielnik(1)
If Dzielnik(1) = 20 Then
Dzielnik(1) = 0

Set Flaga_5ms
Incr Dzielnik(2)
If Dzielnik(2) = 100 Then
Dzielnik(2) = 0

Set Flaga_500ms
Incr Dzielnik(3)
If Dzielnik(3) = 2 Then
Dzielnik(3) = 0
Set Flaga_1s
End If
End If
End If
Return[/syntax]

Tu masz taka bazę. Jak się nie pomyliłem w obliczeniach to jest prawidłowy przelicznik przerwania. Reszta to tylko dodanie kilku zmiennych. W razie co pytaj

Statystyki: Napisane przez grzeniu 73 — 10 kwi 2018, o 22:27

Re: Nawijarka Cewek

2018-04-10T10:52:12+01:00

Aby uzyskać wysokie obroty często silnik zasilany jest napięciem rzędu kilkudziesięciu woltów aby szybciej odpowiedni prąd na uzwojeniach uzyskać. Twoim driverem raczej tak nie zrobisz... Co najwyżej kilka/kilkanaście obrotów na sekundę.

Statystyki: Napisane przez SylwekK — 10 kwi 2018, o 10:52

Re: Nawijarka Cewek

2018-04-10T09:25:46+01:00

Dzięki Sylwku za sugestię, faktycznie po poprawieniu programu silnik kręci się zdecydowanie szybciej przy obsłudze pełnego kroku program wygląda tak
[syntax=basic4gl]Sub Krok
A = 0
Do
Incr A
Set Portd.5
Set Portd.6
Waitus 700
Reset Portd.5
Set Portd.6
Waitus 700
If A = 200 Then
Incr Nawinieto
End If
If A = 200 Then
A = 0
End If
If Nawinieto = Il_zwojow Then
Call Nawijanie
End If
Loop
End Sub[/syntax]
Wygląda na to iż to jest maks, ponieważ przy czasie waitus 600 silnik gubi kroki, niepokoi mnie jednak to iż na wykonanie 1000 obrotów potrzeba czterech minut. Czytałem trochę o przerywaniach ale dalej to dla mnie czarna magia..
Ale chyba bez przerywań nie będę w stanie obracać dwoma silnikami na raz oraz wyświetlać postęp pracy na wyświetlaczu.
Moglibyście podsunąć jakieś sugestie odnośnie przerywań ? od czego zacząć ?

Statystyki: Napisane przez piotrek_violin — 10 kwi 2018, o 09:25

Re: Nawijarka Cewek

2018-04-09T19:44:11+01:00

"LCD" w bascom wykonuje się koszmarnie długo. Gdybyś ruch zrobił w przerwaniach i np. z timerem programowym to nie było by problemu z obracaniem.

Statystyki: Napisane przez SylwekK — 9 kwi 2018, o 19:44

Nawijarka Cewek

2018-04-09T15:38:36+01:00

Na wstępie nie będę ukrywał iż jestem początkującym w te klocki. Chcę zbudować nawijarkę do cewek sterowaną z ATmega16A. Do ATmegi podpinam dwa sterowniki EasyDriver A3967, podpięte mam również wyświetlacz oraz kilka przycisków do wprowadzania danych jak ilość zwojów itd. Menu wprowadzania danych mam już ogarnięte, problem natomiast pojawił się podczas prób sterowania silnikiem krokowym. Posiadam silniki Japan Servo 200 kroków na obrót, podpięte do sterownika zgodnie z instrukcją. Uruchomiając program wysyłający do sterownika sygnały step dir napotkałem problem
[syntax=basic4gl]Sub Krok
Do
Set Portd.5
Set Portd.6
Waitus 50
Reset Portd.5
Set Portd.6
Lcd "krece"
Locate 2 , 1
Loop
End Sub[/syntax]
Przy tak ustawionym waitus silnik obraca się bardzo powoli, próbowałem waitms początkowo ale było jeszcze gorzej.
ATmega taktowana jest wewnętrznym zegarem 1mhz.
Możecie mi podpowiedzieć w czym tkwi problem?

Statystyki: Napisane przez piotrek_violin — 9 kwi 2018, o 15:38