signum писал(а):Есть планы сделать контроллер не на LPT а на СОМ кто что может по этому поводу посоветовать, программу для контроллера напишу, принципиалка тоже не проблема а вот что касается PC полная непонята. 1 можно ли в мач3 или нужна другая программа сконфигурировать COM. 2 как выглядят посылки на этот порт и др нюансы?
signum писал(а):Вернемся к моему вопросу
BoRtO писал(а):Ну если делать то уже сразу ЮСБ
в общем ШИМ заработал у меня только на осях Y и Z .
Idea_FIX писал(а):Давненько тут не был. Приятно, что тема жива))
to Signum: COM - порт последовательный, LPT - параллельный, придется мастрячить приблуду. Не вижу смысла в этом, т.к. станку, имхо, мобильность нужна в пределах квартиры/гаража. Без труда нашел в магазине новую MB от MSI (LGA1155, mATX) с портом LPT за 1500р. Пользуясь случаем, собрал рабочую лошадку на ее базе и прикрутил станок... Машинка маленькая, беззвучная, достаточно шустрая и экономичная. Найду старый ЖК на 15" - сделаю моноблок.
(без глюков),в эту схему можно смело ставить и радоваться работой. revlerik писал(а):Доброго времени суток,я обращался на этот форум с вопросом по мега16L,никто толкового ответа не дал,кого интересует:работает данный контроллер(в дип корпусе) без проблем даже при частоте 13.7мг
liv6125 писал(а):проблема там не из за драйверов. от самого микроконтроллера на одну ось поступает 1в. две другие оси работают как надо
Код: Выделить всё
$regfile = "m16def.dat"
$crystal = 12000000
' êîíôèãóðàöèÿ ïîðòîâ
Config Porta = Output
Config Portc = Output
Config Portb = Input
Config Portd = Input
' êîíôèãóðàöèÿ ïðåðûâàíèé
On Int0 Step_x
On Int1 Step_y
On Int2 Step_z
Config Int0 = Falling
Config Int1 = Falling
Config Int2 = Falling
Enable Interrupts
Enable Int0
Enable Int1
Enable Int2
' êîíôèãóðàöèÿ ØÈÌ
Config Timer0 = Pwm , Compare Pwm = Clear Down , Prescale = 1
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 1
' ïåðåìåííûå
Dim Dport As Byte
Dim D As Byte
Dim 2int As Bit
Dim X As Byte
Dim Y As Byte
Dim Z As Byte
Dim X1 As Byte
Dim Y1 As Byte
Dim Z1 As Byte
Dim Max_pwm As Byte
Dim Min_pwm As Byte
'óñòàíàâëèâàåì øèì
Max_pwm = 200 'ìåíÿÿ çíà÷åíèå ïîäáèðàåì íóæíûé òîê âî âðåìÿ äâèæåíèÿ
Min_pwm = 100 ' ìåíÿÿ çíà÷åíèå ïîäáèðàåì òîê óäåðæàíèÿ
Pwm1a = Max_pwm
Pwm1b = Max_pwm
Pwm2 = Max_pwm
'porta äâà ìîòîðà - portc îäèí ìîòîð 0-3
'ñäâèãàåì âñå äâèãàòåëÿ äëÿ íîðìàëüíîãî ðàñïîëîæåíèÿ ìàãíèòîâ
Waitms 0.1
Porta = &B00010001
Waitms 0.1
Porta = &B00110011
Waitms 0.1
Porta = &B00100010
Waitms 0.1
Porta = &B01100110
Waitms 0.1
Porta = &B01000100
Waitms 0.1
Porta = &B11001100
Waitms 0.1
Porta = &B10001000
Waitms 0.1
Porta = &B10011001
Waitms 0.1
Porta = &B00010001
Waitms 0.1
Portc = &B00000001
Waitms 0.1
Portc = &B00000011
Waitms 0.1
Portc = &B00000010
Waitms 0.1
Portc = &B00000110
Waitms 0.1
Portc = &B00000100
Waitms 0.1
Portc = &B00001100
Waitms 0.1
Portc = &B00001000
Waitms 0.1
Portc = &B00001001
Waitms 0.1
Portc = &B00000001
Waitms 0.1
'ñòàâèì øèì íà ìàëûé òîê óäåðæàíèÿ
Pwm1a = Min_pwm
Pwm1b = Min_pwm
Pwm2 = Min_pwm
'îñíîâíàÿ ïðîãà
'Dp0-dir_x, Dp1-dir_y, Dp6-dir_z Dp2-step_x Dp3-step_y Pb2-step_z
X1 = 1
Y1 = 1
Z1 = 1
Do
'êîíòðîëü x
If X = 1 Then
Pwm1a = Max_pwm
D = Dport
Shift D , Left , 7 'B00000001
Shift D , Right , 7
If D = 1 Then
Gosub Os_x1
Else
Gosub Os_x0
End If
X = 0
'ñìîòðèì íàëè÷èå step_y step_z
If 2int = 1 Then Z = 1
D = Dport
Shift D , Left , 4 'B00001000
Shift D , Right , 7
If D = 1 Then Y = 1
Pwm1a = Min_pwm
End If
'êîíòðîëü y
If Y = 1 Then
Pwm1b = Max_pwm
D = Dport
Shift D , Left , 6
Shift D , Right , 7
If D = 1 Then
Gosub Os_y1
Else
Gosub Os_y0
End If
Y = 0
'ñìîòðèì íàëè÷èå step_x step_z
If 2int = 1 Then Z = 1
D = Dport
Shift D , Left , 5 'B00000100
Shift D , Right , 7
If D = 1 Then X = 1
Pwm1b = Min_pwm
End If
'êîíòðîëü z
If Z = 1 Then
Pwm2 = Max_pwm 'B01000000
D = Dport
Shift D , Left , 1
Shift D , Right , 7
If D = 1 Then
Gosub Os_z1
Else
Gosub Os_z0
End If
Z = 0
'ñìîòðèì íàëè÷èå step_x step_y
D = Dport
Shift D , Left , 4 'B00001000
Shift D , Right , 7
If D = 1 Then X = 1
D = Dport
Shift D , Left , 5 'B00000100
Shift D , Right , 7
If D = 1 Then Y = 1
Pwm2 = Min_pwm
End If
Loop
'äåéñòâèÿ ïðè ïðåðûâàíèÿõ
Step_x:
Dport = Portd
2int = Portb.2
X = 1
Return
Step_y:
Dport = Portd
2int = Portb.2
Y = 1
Return
Step_z:
Dport = Portd
Z = 1
Return
'äâèæåíèå îñåé
Os_z0:
Incr Z1
If Z1 = 9 Then
Z1 = 1
End If
Select Case Z1
Case 1 : Do
Portc.0 = 1
Portc.1 = 0
Portc.2 = 0
Portc.3 = 0
Loop Until Z = 1
Case 2 : Do
Portc.0 = 1
Portc.1 = 1
Portc.2 = 0
Portc.3 = 0
Loop Until Z = 1
Case 3 : Do
Portc.0 = 0
Portc.1 = 1
Portc.2 = 0
Portc.3 = 0
Loop Until Z = 1
Case 4 : Do
Portc.0 = 0
Portc.1 = 1
Portc.2 = 1
Portc.3 = 0
Loop Until Z = 1
Case 5 : Do
Portc.0 = 0
Portc.1 = 0
Portc.2 = 1
Portc.3 = 0
Loop Until Z = 1
Case 6 : Do
Portc.0 = 0
Portc.1 = 0
Portc.2 = 1
Portc.3 = 1
Loop Until Z = 1
Case 7 : Do
Portc.0 = 0
Portc.1 = 0
Portc.2 = 0
Portc.3 = 1
Loop Until Z = 1
Case 8 : Do
Portc.0 = 1
Portc.1 = 0
Portc.2 = 0
Portc.3 = 1
Loop Until Z = 1
End Select
Return
Os_z1:
Decr Z1
If Z1 = 0 Then
Z1 = 8
End If
Select Case Z1
Case 1 : Do
Portc.0 = 1
Portc.1 = 0
Portc.2 = 0
Portc.3 = 0
Loop Until Z = 1
Case 2 : Do
Portc.0 = 1
Portc.1 = 1
Portc.2 = 0
Portc.3 = 0
Loop Until Z = 1
Case 3 : Do
Portc.0 = 0
Portc.1 = 1
Portc.2 = 0
Portc.3 = 0
Loop Until Z = 1
Case 4 : Do
Portc.0 = 0
Portc.1 = 1
Portc.2 = 1
Portc.3 = 0
Loop Until Z = 1
Case 5 : Do
Portc.0 = 0
Portc.1 = 0
Portc.2 = 1
Portc.3 = 0
Loop Until Z = 1
Case 6 : Do
Portc.0 = 0
Portc.1 = 0
Portc.2 = 1
Portc.3 = 1
Loop Until Z = 1
Case 7 : Do
Portc.0 = 0
Portc.1 = 0
Portc.2 = 0
Portc.3 = 1
Loop Until Z = 1
Case 8 : Do
Portc.0 = 1
Portc.1 = 0
Portc.2 = 0
Portc.3 = 1
Loop Until Z = 1
End Select
Return
Os_x0:
Incr X1
If X1 = 9 Then
X1 = 1
End If
Select Case X1
Case 1 : Do
Porta.0 = 1
Porta.1 = 0
Porta.2 = 0
Porta.3 = 0
Loop Until X = 1
Case 2 : Do
Porta.0 = 1
Porta.1 = 1
Porta.2 = 0
Porta.3 = 0
Loop Until X = 1
Case 3 : Do
Porta.0 = 0
Porta.1 = 1
Porta.2 = 0
Porta.3 = 0
Loop Until X = 1
Case 4 : Do
Porta.0 = 0
Porta.1 = 1
Porta.2 = 1
Porta.3 = 0
Loop Until X = 1
Case 5 : Do
Porta.0 = 0
Porta.1 = 0
Porta.2 = 1
Porta.3 = 0
Loop Until X = 1
Case 6 : Do
Porta.0 = 0
Porta.1 = 0
Porta.2 = 1
Porta.3 = 1
Loop Until X = 1
Case 7 : Do
Porta.0 = 0
Porta.1 = 0
Porta.2 = 0
Porta.3 = 1
Loop Until X = 1
Case 8 : Do
Porta.0 = 1
Porta.1 = 0
Porta.2 = 0
Porta.3 = 1
Loop Until X = 1
End Select
Return
Os_x1:
Decr X1
If X1 = 0 Then
X1 = 8
End If
Select Case X1
Case 1 : Do
Porta.0 = 1
Porta.1 = 0
Porta.2 = 0
Porta.3 = 0
Loop Until X = 1
Case 2 : Do
Porta.0 = 1
Porta.1 = 1
Porta.2 = 0
Porta.3 = 0
Loop Until X = 1
Case 3 : Do
Porta.0 = 0
Porta.1 = 1
Porta.2 = 0
Porta.3 = 0
Loop Until X = 1
Case 4 : Do
Porta.0 = 0
Porta.1 = 1
Porta.2 = 1
Porta.3 = 0
Loop Until X = 1
Case 5 : Do
Porta.0 = 0
Porta.1 = 0
Porta.2 = 1
Porta.3 = 0
Loop Until X = 1
Case 6 : Do
Porta.0 = 0
Porta.1 = 0
Porta.2 = 1
Porta.3 = 1
Loop Until X = 1
Case 7 : Do
Porta.0 = 0
Porta.1 = 0
Porta.2 = 0
Porta.3 = 1
Loop Until X = 1
Case 8 : Do
Porta.0 = 1
Porta.1 = 0
Porta.2 = 0
Porta.3 = 1
Loop Until X = 1
End Select
Return
Os_y0:
Incr Y1
If Y1 = 9 Then
Y1 = 1
End If
Select Case Y1
Case 1 : Do
Porta.4 = 1
Porta.5 = 0
Porta.6 = 0
Porta.7 = 0
Loop Until Y = 1
Case 2 : Do
Porta.4 = 1
Porta.5 = 1
Porta.6 = 0
Porta.7 = 0
Loop Until Y = 1
Case 3 : Do
Porta.4 = 0
Porta.5 = 1
Porta.6 = 0
Porta.7 = 0
Loop Until Y = 1
Case 4 : Do
Porta.4 = 0
Porta.5 = 1
Porta.6 = 1
Porta.7 = 0
Loop Until Y = 1
Case 5 : Do
Porta.4 = 0
Porta.5 = 0
Porta.6 = 1
Porta.7 = 0
Loop Until Y = 1
Case 6 : Do
Porta.4 = 0
Porta.5 = 0
Porta.6 = 1
Porta.7 = 1
Loop Until Y = 1
Case 7 : Do
Porta.4 = 0
Porta.5 = 0
Porta.6 = 0
Porta.7 = 1
Loop Until Y = 1
Case 8 : Do
Porta.4 = 1
Porta.5 = 0
Porta.6 = 0
Porta.7 = 1
Loop Until Y = 1
End Select
Return
Os_y1:
Decr Y1
If Y1 = 0 Then
Y1 = 8
End If
Select Case Y1
Case 1 : Do
Porta.4 = 1
Porta.5 = 0
Porta.6 = 0
Porta.7 = 0
Loop Until Y = 1
Case 2 : Do
Porta.4 = 1
Porta.5 = 1
Porta.6 = 0
Porta.7 = 0
Loop Until Y = 1
Case 3 : Do
Porta.4 = 0
Porta.5 = 1
Porta.6 = 0
Porta.7 = 0
Loop Until Y = 1
Case 4 : Do
Porta.4 = 0
Porta.5 = 1
Porta.6 = 1
Porta.7 = 0
Loop Until Y = 1
Case 5 : Do
Porta.4 = 0
Porta.5 = 0
Porta.6 = 1
Porta.7 = 0
Loop Until Y = 1
Case 6 : Do
Porta.4 = 0
Porta.5 = 0
Porta.6 = 1
Porta.7 = 1
Loop Until Y = 1
Case 7 : Do
Porta.4 = 0
Porta.5 = 0
Porta.6 = 0
Porta.7 = 1
Loop Until Y = 1
Case 8 : Do
Porta.4 = 1
Porta.5 = 0
Porta.6 = 0
Porta.7 = 1
Loop Until Y = 1
End Select
ReturnPS Если хочется приблуду на USB, стоит присмотреться к этому: http://www-user.tu-chemnitz.de/~heha/ba ... -15.htm.en (есть все - и печатки, и фотки, и прошивка, и дрова). Этот девайс, втыкаемый в USB, создает виртуальный LPT - через него можно и шить микрухи, и станком рулить. Минус в том, что одновременно к одному компу можно подключить только один такой девайс. Собрано на AtMega 8. Сам пока не делал, но потом попробую. Печатка не самая простая, но не невыполнимая.
одни сплошные затыки, причём в основном пропуски шагов, смотрел осцилографом нет сигнала там по таймеру заморочки, не успевает когда команд много и подряд, особенно когда две оси работают пропуски особенно видны..... пожалуй лучше не скажешь:GreyCat 1 августа 2011, 11:16
У меня стойкое дежа вю — примерно раз в несколько месяцев на хабре появляется такой вот новый топик от очередного человека, который задался вопросом «как же сделать USB на AVR». Человек приходит к трем вариантам выбора (через Serial-to-USB конверетер, через AVR с аппаратным USB, через дешевый AVR в эмуляции), всегда делает один и тот же выбор «через эмуляцию», затем всегда смотрит на одни и те же V-USB и USBtiny, почти всегда делает выбор в пользу V-USB… Дальше, в лучшем случае человек постит получившиеся схемы и исходники прошивки и драйверов для очередного проекта, по сложности сопоставимого с helloworld, иногда что-то объясняя в этих исходниках в процессе.
В чем смысл таких топиков — для меня, к сожалению, загадка…
всё просто разные потенциалы относительно заземления, на БП относительно небольшой примерно в 10-150мVну может до 1V, а вот на корпусе компа обычно доходит до 5V и выше, относительно заемлиа если только коснуться масой разъема к шасси пк или ставить разъем в порт то бп сразу входит в прегруз и отрубаеться.
нужно просто заземлить оба устройства и будет Вам порядок 
мы же не звери