roboforum.ru

Подключил биполярный шаговый двигатель к MiniBot-у. Получилось.
Опишу подробно, может кому-то пригодится.

Использовал 2 двигателя - SPM-20 (шаговый двигатель для позиционирования головки в дисководах 5'25 Mitsumi) и EM-483 (от принтера Epson Stylus C86).

Сам я паять толком не умею, поэтому по совету Эда подцепил двигатель заместо колёс, каждая обмотка - соотвесвенно вместо левого и правого двигателя.
SPM-20 рассчитан на 12 вольт, поэтому вращался довольно здраво. EP-483 рассчитан на 30 вольт, там уже похуже, но всё равно вертится.

Код программы :

Код: Выделить всё

'$prog &HFF , &HBD , &HC9 , &H00       ' generated. Take care that the chip supports all fuse bytes.
$regfile = "m32def.dat"                                     ' файл спецификации Меги32
$crystal = 7372800                                          ' указываем на какой частоте будем работать
$baud = 115200                                              ' указываем скорость на которой будет работать уарт

$include "Config ports.bas"
$include "Sound.bas"

Dim Speed As Byte : Speed = 255
Dim Address_rc5 As Byte , Command_rc5 As Byte
Dim Adc_temp As Word , Akb As Single

Dim Tm1 As Word : Tm1 = 10

Waitms 200
Print "Start MiniBot v2.0"

Do
    If Knopka = 0 Then
       Gosub Dlb1 : Waitms Tm1
       Gosub Drb1 : Waitms Tm1
       Gosub Dlf1 : Waitms Tm1
       Gosub Drf1 : Waitms Tm1
    Else
       Gosub Drf1 : Waitms Tm1
       Gosub Dlf1 : Waitms Tm1
       Gosub Drb1 : Waitms Tm1
       Gosub Dlb1 : Waitms Tm1
    End If
Loop

$include "Gosubs.bas"



Dlf1:
   Gosub Стоп : Waitms Tm1
   Drl = 1 : Drr = 0 : Pwm1b = Speed : Pwm1a = 0:
Return

Dlb1:
   Gosub Стоп : Waitms Tm1
   Drl = 0 : Drr = 0 : Pwm1b = Speed : Pwm1a = 0:
Return


Drf1:
   Gosub Стоп : Waitms Tm1
   Drl = 0 : Drr = 1 : Pwm1b = 0 : Pwm1a = Speed:
Return

Drb1:
   Gosub Стоп : Waitms Tm1
   Drl = 0 : Drr = 0 : Pwm1b = 0 : Pwm1a = Speed:
Return

Задержку меньше 10 мсек ставить не стоит, из-за того что напряжение низкое. Если будет меньше - двигатель будет пропускать шаги.
При нажатии на кнопку крутится в другую сторону.

Видео моторчика с дисковода:


Видео моторчика с принтера:

с почином тебя!

Поздравляю!

Кстати униполярные движки можно переделывать в биполярные, это требует разборки двигателя и внутренней перекомутации обмоток.
Полуобмотки можно соеденить паралельно или последовательно, это дает выбор в пользу мощности или потребления.

а можно просто взяться за крайние точки обмоток забыв про средние...

А на Си нет исходника, а то не как не разберусь в этом.
подключил движок от сидирома так же, а прошиву написать не получается.

что именно тебе в этом коде не понятно?

Все!

Добавлено спустя 3 минуты 3 секунды:
Я пока что делал так:
while(1){
PORTB.0=0;
PORTB.2=1;
PORTB.4=0;
PORTB.5=1;
delay_ms(100);
PORTB.0=1;
PORTB.2=0;
PORTB.4=0;
PORTB.5=1;
delay_ms(100);
PORTB.0=1;
PORTB.2=0;
PORTB.4=1;
PORTB.5=0;
delay_ms(100);
PORTB.0=0;
PORTB.2=1;
PORTB.4=1;
PORTB.5=0;
delay_ms(100);

}

т.е. ваще ни одной строчки не понятно?

ну можно и так сказать.

ну тогда забей на васик
он через чур простой для твоего понимания

Так как же движок запустить?

написать соответствующий код

Вот в этом, то вся проблема.
Я уже привел часть кода:

Код: Выделить всё

while(1){
PORTB.0=0;      //B3
PORTB.2=1;      //B1
PORTB.4=0;      //A1
PORTB.5=1;      //A2
delay_ms(100);
PORTB.0=1;
PORTB.2=0;
PORTB.4=0;
PORTB.5=1;
delay_ms(100);
PORTB.0=1;
PORTB.2=0;
PORTB.4=1;
PORTB.5=0;
delay_ms(100);
PORTB.0=0;
PORTB.2=1;
PORTB.4=1;
PORTB.5=0;
delay_ms(100);
}

1. закрой код в тег "Code"
2. прочти в хелпе васика синтаксис "while"

как это сделаешь выложишь то что получилось только тогда продолжим