Второй планшетный бисерный принтер
-
- Станкостроитель
- Сообщения: 105
- Зарегистрирован: 03 фев 2013, 12:18
- Имя: artclonic
- Откуда: Волгоград
Второй планшетный бисерный принтер
Собрал второй вариант планшетного принтера, который печатает бисером. В ходе испытаний вылезла проблема искожения изображения(смещение по одной из осей). Программное обеспечение собственного производства - программированный порт ЛПТ (генерирую импульсы по средством программы Визаул Бейсик вот так
DlPortWritePortUchar &H378, 0
DlPortWritePortUchar &H378, 136
И т.д.
Контроллер собран на ULN20
Двигатели, зубчатые механизмы, ремни от трех принтеров Епсон
Логика работы следующая
1 дозатор кидает бисеренку
2 опускается игла (трубочка) ось Z
3поднимется игла ось Z
4 перемешение на величину одной бисеренки
И так в зигзагообразнои порядке..
Для исключения искажения перепробывал все - менял ШД, менял оси местами(управление) – не помогает… Искажает то в одну, то в другую сторону… Главное сначала нет смещения несколько рядков, а потом появляется плавно, четко на один или два шага. Думал в контроллере может сбой какойто (контактик отходит… или еще что нибудь) – поменял управление с двигателя другой оси – такая же петрушка…
Проверял смещение шестеренок….думал мож прокручиваются где нибудь – все надежно….
Короче нужен совет куда рыть дальше – столько времени и сил потратил – хочу завершить проект (дело принципа)
DlPortWritePortUchar &H378, 0
DlPortWritePortUchar &H378, 136
И т.д.
Контроллер собран на ULN20
Двигатели, зубчатые механизмы, ремни от трех принтеров Епсон
Логика работы следующая
1 дозатор кидает бисеренку
2 опускается игла (трубочка) ось Z
3поднимется игла ось Z
4 перемешение на величину одной бисеренки
И так в зигзагообразнои порядке..
Для исключения искажения перепробывал все - менял ШД, менял оси местами(управление) – не помогает… Искажает то в одну, то в другую сторону… Главное сначала нет смещения несколько рядков, а потом появляется плавно, четко на один или два шага. Думал в контроллере может сбой какойто (контактик отходит… или еще что нибудь) – поменял управление с двигателя другой оси – такая же петрушка…
Проверял смещение шестеренок….думал мож прокручиваются где нибудь – все надежно….
Короче нужен совет куда рыть дальше – столько времени и сил потратил – хочу завершить проект (дело принципа)
-
- Станкостроитель
- Сообщения: 844
- Зарегистрирован: 01 мар 2011, 01:00
- Имя: Сергей
- Откуда: РОССИЯ Крым
Re: Второй планшетный бисерный принтер
Так игла или трубочка?artclonic писал(а):опускается игла (трубочка) ось Z
Забавно придумано.
Фрезеровка, выжигатели, аэрографы, 3d принтеры (правда самоделок еще не видел), теперь бисер.
А можно подробнее про то каким образом бисер выкладывается?
Важно ли там отверстие в бисере?
Выкладывается на клейкую основу?
Сбор информации - анализ - принятие решений.
Делаю станок 2000*1500
Делаю станок 2000*1500
-
- Станкостроитель
- Сообщения: 105
- Зарегистрирован: 03 фев 2013, 12:18
- Имя: artclonic
- Откуда: Волгоград
Re: Второй планшетный бисерный принтер
Я иглой трубочку называю!
Выкладывается на прозрачную пленку с клейкой основой. Дозаторы их нет на фото в зависимости от необходимого пикселя кидают по одной бисеренке....Бисер без отверстия...
Выкладывается на прозрачную пленку с клейкой основой. Дозаторы их нет на фото в зависимости от необходимого пикселя кидают по одной бисеренке....Бисер без отверстия...
Re: Второй планшетный бисерный принтер
Похоже на потерю шагов. Временно можно лечить -увеличением тока на движек.
-
- Станкостроитель
- Сообщения: 105
- Зарегистрирован: 03 фев 2013, 12:18
- Имя: artclonic
- Откуда: Волгоград
Re: Второй планшетный бисерный принтер
Буду пробывать увеличивать ток на ШД, А какие еще могут быть причины?
И вот еще вопрос (из истоков станкостроения) я чет сегодня прозрел понял, что не знаю как устроен шаговый двигатель...Я\
Я все время думал что угол шага моих ШД - 45 градусов.... А вот сегодня прочитал:
Двигатель с постоянными магнитами.
Для осуществления непрерывного вращения нужно включать фазы попеременно. На практике двигатели с постоянными магнитами обычно имеют 48 – 24 шага на оборот (угол шага 7.5 – 15 град).
И в правде взял в руку ШД и начал крутить вал и насчитал 24 точек равновесия (щелчков) - Все в голове попуталось
Осуществлял алгоритм управления своими ШД по вот такому принципу "Полношаговый режим" И был уверен, что угол шага 45 градусов....
dom2.tv
Так какой же угол у моих ШД - мож я на них импульсы не в том порядке (или вообще не так) генерирую......?
И вот еще вопрос (из истоков станкостроения) я чет сегодня прозрел понял, что не знаю как устроен шаговый двигатель...Я\
Я все время думал что угол шага моих ШД - 45 градусов.... А вот сегодня прочитал:
Двигатель с постоянными магнитами.
Для осуществления непрерывного вращения нужно включать фазы попеременно. На практике двигатели с постоянными магнитами обычно имеют 48 – 24 шага на оборот (угол шага 7.5 – 15 град).
И в правде взял в руку ШД и начал крутить вал и насчитал 24 точек равновесия (щелчков) - Все в голове попуталось
Осуществлял алгоритм управления своими ШД по вот такому принципу "Полношаговый режим" И был уверен, что угол шага 45 градусов....
dom2.tv
Так какой же угол у моих ШД - мож я на них импульсы не в том порядке (или вообще не так) генерирую......?
-
- Станкостроитель
- Сообщения: 71
- Зарегистрирован: 28 сен 2011, 03:29
- Имя: Андрей
- Откуда: Калининград
Re: Второй планшетный бисерный принтер
у ваших движков шаг скорее всего 1.8 градуса, т.е. 200 шагов на оборот.
а смещение может быть из-за несоответствия шага шкивов и ремней. У меня на выжигателе так было - вроде на глаз шаг одинаковый, а при ручной протяжке слышен и ощущается щелчок - ремень проскакивает по шкиву.
а смещение может быть из-за несоответствия шага шкивов и ремней. У меня на выжигателе так было - вроде на глаз шаг одинаковый, а при ручной протяжке слышен и ощущается щелчок - ремень проскакивает по шкиву.
Подписываюсь крестиком...+
Re: Второй планшетный бисерный принтер
Берете движок, делаете ему диск на корпус и стрелку на вал, напротив стрелки рисуете риску и шагаете пока не сделает полный оборот. Потом можно посчитать.artclonic писал(а):Так какой же угол у моих ШД - мож я на них импульсы не в том порядке (или вообще не так) генерирую......?
Маловероятно, там стоят какие-то принтерные движки, у них обычно шаг больше.dixxi писал(а):у ваших движков шаг скорее всего 1.8 градуса, т.е. 200 шагов на оборот.
-
- Станкостроитель
- Сообщения: 105
- Зарегистрирован: 03 фев 2013, 12:18
- Имя: artclonic
- Откуда: Волгоград
Re: Второй планшетный бисерный принтер
Так я посчитал - 28 шагов (щелчков)! я не понимаю как на рисунке 4 шага на оборот, а в действительности 28 шагов Там что шестеренки внутри?
-
- Станкостроитель
- Сообщения: 105
- Зарегистрирован: 03 фев 2013, 12:18
- Имя: artclonic
- Откуда: Волгоград
Re: Второй планшетный бисерный принтер
Ремень, шкив, все родное проскальзований нет - 100%dixxi писал(а): а смещение может быть из-за несоответствия шага шкивов и ремней. У меня на выжигателе так было - вроде на глаз шаг одинаковый, а при ручной протяжке слышен и ощущается щелчок - ремень проскакивает по шкиву.
-
- Станкостроитель
- Сообщения: 71
- Зарегистрирован: 28 сен 2011, 03:29
- Имя: Андрей
- Откуда: Калининград
Re: Второй планшетный бисерный принтер
часто принтерные движки имеют шаг 7,5 градуса, т.е. 48 шагов на оборот
Подписываюсь крестиком...+
-
- Станкостроитель
- Сообщения: 105
- Зарегистрирован: 03 фев 2013, 12:18
- Имя: artclonic
- Откуда: Волгоград
Re: Второй планшетный бисерный принтер
Даже уже не важно, сколько шагов я физически не пойму, как их может быть больше 4 ех (как на рисунке)...
- Serjik
- Станкостроитель
- Сообщения: 757
- Зарегистрирован: 05 янв 2010, 01:00
- Откуда: Волгоград
- Контактная информация:
Re: Второй планшетный бисерный принтер
это на рисунке на роторе два полюса... это схематично... на самом деле обмотки в шаговом двигателе чередуются намного сложнее чем на рисунке.... это хорошо понятно если взять и вскрыть двигатель.... там полюсы как шестеренка... и получается что при подаче напряжения на одну обмотку (на самом деле на серию обмоток) - магнитные поля распределяются так что ротор поворачивается на свои 1.8 градусов (или 7.5 или сколько у него там) и натыкаются на поле другого знака- тем самым останавливаются как вкопаные.... потом меняем "серию" обмоток и еще сдвигаемсяartclonic писал(а):я физически не пойму, как их может быть больше 4 ех (как на рисунке)...
так понятнее стало?
ура! а вот и находка:
Показать/Спрятать
-
- Станкостроитель
- Сообщения: 105
- Зарегистрирован: 03 фев 2013, 12:18
- Имя: artclonic
- Откуда: Волгоград
Re: Второй планшетный бисерный принтер
Вот я даю собрал значит портал, а принцип действия ЩД не знал.... У меня ШД работают так - на 4 провода - поочередно подается импульс... Я щаз проверил -что при таком алгоритме управления у меня 12,5 шагов на оборот (стрелку на вал приклеел и количество циклов засекал). Так как же мне надо подавать импульсы??????
Re: Второй планшетный бисерный принтер
если 4 провода, значит 2 обмотки = 2 пары контактов - подавать на них по очереди +/-, +/-, -/+, -/+, и т. д.
- Serjik
- Станкостроитель
- Сообщения: 757
- Зарегистрирован: 05 янв 2010, 01:00
- Откуда: Волгоград
- Контактная информация:
Re: Второй планшетный бисерный принтер
надо в первую очередь определиться какие это двигатели - униполярные или биполярные. Посмотрите по поиску чем отличаются прозвоните обмотки и дальше уже думать как управлять.
-
- Станкостроитель
- Сообщения: 105
- Зарегистрирован: 03 фев 2013, 12:18
- Имя: artclonic
- Откуда: Волгоград
Re: Второй планшетный бисерный принтер
Двигатели с постоянными магнитами две независимые обмотки. Эти обмотки имеют отводы от середины. Замерял по сопротивлению....
И все таки непонятно про :
2 пары контактов - подавать на них по очереди +/-, +/-, -/+, -/+, и т. д.
И все таки непонятно про :
2 пары контактов - подавать на них по очереди +/-, +/-, -/+, -/+, и т. д.
-
- Смотрящий
- Сообщения: 614
- Зарегистрирован: 29 авг 2009, 00:00
- Имя: Олег
- Откуда: Край земли (Камчатка)
Re: Второй планшетный бисерный принтер
Если со средними обмотками, то это униполярные, ими управлять проще, к центральным отводам подключают питание(+), а крайние выводы, через ключи коммутируют на (-) в определенной последовательности.artclonic писал(а):Двигатели с постоянными магнитами две независимые обмотки. Эти обмотки имеют отводы от середины. Замерял по сопротивлению....
И все таки непонятно про :
2 пары контактов - подавать на них по очереди +/-, +/-, -/+, -/+, и т. д.
Вот, вдохновись: http://radionet.com.ru/shem/shem817.html
-
- Станкостроитель
- Сообщения: 105
- Зарегистрирован: 03 фев 2013, 12:18
- Имя: artclonic
- Откуда: Волгоград
Re: Второй планшетный бисерный принтер
Именно такой алгоритм я и использую в управлениями своими двигателями... И Я повторюсь, что когда я делаю 12 циклов (по 4 имульса на каждый провод в найденой опытным путем последовательности) - до полного оборота не хватает несколько градусов, а 13 циклов импульсов несколько больше оборота....Как же так ???
- Serjik
- Станкостроитель
- Сообщения: 757
- Зарегистрирован: 05 янв 2010, 01:00
- Откуда: Волгоград
- Контактная информация:
Re: Второй планшетный бисерный принтер
ааа... ну 12 циклов по 4 это и есть 48 шагов на оборот, т.е. шаг = 360/48 = 7,5 градуса
вот почему не хватает несколько градусов? ну так не делай 12 циклов... делай 48 шагов!!! в чем разница? в нулевом состоянии короче начинай считать не с нуля! у тебя в первый момент времени что на выходе? 0000 ? вот! а потом? 0001,0010,0100,1000 а потом?
вот почему не хватает несколько градусов? ну так не делай 12 циклов... делай 48 шагов!!! в чем разница? в нулевом состоянии короче начинай считать не с нуля! у тебя в первый момент времени что на выходе? 0000 ? вот! а потом? 0001,0010,0100,1000 а потом?
-
- Станкостроитель
- Сообщения: 105
- Зарегистрирован: 03 фев 2013, 12:18
- Имя: artclonic
- Откуда: Волгоград
Re: Второй планшетный бисерный принтер
А у меня так и идет,
вперед:
0001,0010,0100,1000
назад:
1000, 0100, 0010, 0001
(кстати по моему и шаги теряются на границе вперед назад)
Все равно не понимаю как может быть при 12 циклах не доходит до полного оборота, а 13 переходит оборот????
0000 - это какое положение? без подачи импульса ни на одну обмотку???
вперед:
0001,0010,0100,1000
назад:
1000, 0100, 0010, 0001
(кстати по моему и шаги теряются на границе вперед назад)
Все равно не понимаю как может быть при 12 циклах не доходит до полного оборота, а 13 переходит оборот????
0000 - это какое положение? без подачи импульса ни на одну обмотку???
- Serjik
- Станкостроитель
- Сообщения: 757
- Зарегистрирован: 05 янв 2010, 01:00
- Откуда: Волгоград
- Контактная информация:
Re: Второй планшетный бисерный принтер
так я про то и спросил есть ситуация в любой момент времени чтобы на двигателе было 0000 (все обмотки отключены), когда двигатель стоит (при развороте) обмотка под питанием?
тааак... ну давай увеличим эксперимент - давай не 12 циклов а 24, 36 и так далее... куда стрелка вернулась? погрешность наросла или нет?
эксперимент 2. крутим много циклов (хотя я бы все-таки ушел от понятия "циклы"... давай шагами мерить?!) сделали 48, 96, 144 шага - потом сделали столько же в обратную сторону.... вернулась стрелочка на прежнее место или нет?
А еще вот что! при смене направления - за какое время это происходит? чем управляешь все-таки... есть возможность уменьшить сильно скорость? может просто при развороте ему "ускорение" не позволяет развернуться и он теряет шаг! так как на картинке смещение в одну сторону всегда, как будто не довернули его... есть задержка по времени на развороте "каретки"? и вообще какая там скорость? потеря точно идет на развороте.... ток в обмотку на фазу сколько, чем это регулируется, есть возможность увеличить ток на момент эксперимента?
тааак... ну давай увеличим эксперимент - давай не 12 циклов а 24, 36 и так далее... куда стрелка вернулась? погрешность наросла или нет?
эксперимент 2. крутим много циклов (хотя я бы все-таки ушел от понятия "циклы"... давай шагами мерить?!) сделали 48, 96, 144 шага - потом сделали столько же в обратную сторону.... вернулась стрелочка на прежнее место или нет?
А еще вот что! при смене направления - за какое время это происходит? чем управляешь все-таки... есть возможность уменьшить сильно скорость? может просто при развороте ему "ускорение" не позволяет развернуться и он теряет шаг! так как на картинке смещение в одну сторону всегда, как будто не довернули его... есть задержка по времени на развороте "каретки"? и вообще какая там скорость? потеря точно идет на развороте.... ток в обмотку на фазу сколько, чем это регулируется, есть возможность увеличить ток на момент эксперимента?
-
- Станкостроитель
- Сообщения: 105
- Зарегистрирован: 03 фев 2013, 12:18
- Имя: artclonic
- Откуда: Волгоград
Re: Второй планшетный бисерный принтер
Через часок начну эксперименты
Re: Второй планшетный бисерный принтер
а не надежнее было бы нормальный контроллер сделать и не изобретать велосипед? хотя-бы на uln2003 или лучше l297+l298?
-
- Станкостроитель
- Сообщения: 105
- Зарегистрирован: 03 фев 2013, 12:18
- Имя: artclonic
- Откуда: Волгоград
Re: Второй планшетный бисерный принтер
Контроллер не простой он помимо 3-ех осей еще 16-тью дозатарами управляет....
Re: Второй планшетный бисерный принтер
Это не мешает для управления осями поставить L297, в которой есть правильная реализация управления биполярником в полном и полушаге.artclonic писал(а):Контроллер не простой он помимо 3-ех осей еще 16-тью дозатарами управляет....
-
- Станкостроитель
- Сообщения: 1892
- Зарегистрирован: 23 окт 2011, 00:21
- Откуда: Москва-Люберцы
Re: Второй планшетный бисерный принтер
Это тупиковый путь.
Берем плату Ардуино 1280 с RAMPS1.4. Из программы на Бэйсике посылаем команды на ЮСБ порт через Serial. В простом варианте отрабатывается каждая команда, в более сложном делается кольцевой буфер, который в случае бисера будет явным излишеством.
Ардуино управляет принтерными моторчиками через драйвера Pololu. Судя по имеющимся наработкам надо допрограммировать совсем немного. Здесь же дискретное перемещение, независимое от последовательности движения. Это не диагональные перемещения с разным ускорением в случае выжигалки.
Но в железо понятно надо вложить тыщи 4.5
ЗЫ RAMPS с драйверами это с нуля. У вас драйвера есть, поэтому надо всего лишь кинуть десяток проводков от Ардуины к драйверам даже без опторазвязки. Подпрограммы милли и микросекундных задержек там встроенные, поэтому далее совсем просто.
Берем плату Ардуино 1280 с RAMPS1.4. Из программы на Бэйсике посылаем команды на ЮСБ порт через Serial. В простом варианте отрабатывается каждая команда, в более сложном делается кольцевой буфер, который в случае бисера будет явным излишеством.
Ардуино управляет принтерными моторчиками через драйвера Pololu. Судя по имеющимся наработкам надо допрограммировать совсем немного. Здесь же дискретное перемещение, независимое от последовательности движения. Это не диагональные перемещения с разным ускорением в случае выжигалки.
Но в железо понятно надо вложить тыщи 4.5
ЗЫ RAMPS с драйверами это с нуля. У вас драйвера есть, поэтому надо всего лишь кинуть десяток проводков от Ардуины к драйверам даже без опторазвязки. Подпрограммы милли и микросекундных задержек там встроенные, поэтому далее совсем просто.
Мечта станкостроителя: приезжаешь в Сочи, а там на пляже станки, станки. станки...
-
- Станкостроитель
- Сообщения: 105
- Зарегистрирован: 03 фев 2013, 12:18
- Имя: artclonic
- Откуда: Волгоград
Re: Второй планшетный бисерный принтер
George164 я с тем чего достиг года разбирался (и как выяснилось не до конца) а Вы мне предлагаете Ардуино 1280 с RAMPS1.4. - эт надо с работы увольнятся....
У меня уже и так все работает я ж начал тему с искажения изображени (пропуск шагов) -вот щаз буду эксперементировать в каком порядке импульсы генерировать...
У меня уже и так все работает я ж начал тему с искажения изображени (пропуск шагов) -вот щаз буду эксперементировать в каком порядке импульсы генерировать...
-
- Станкостроитель
- Сообщения: 105
- Зарегистрирован: 03 фев 2013, 12:18
- Имя: artclonic
- Откуда: Волгоград
Re: Второй планшетный бисерный принтер
Результаты эксперимента
Нулевое положение
Первый шаг
DlPortWritePortUchar &H378, 33
Отключение питания первого шага
DlPortWritePortUchar &H378, 0
Второй шаг
DlPortWritePortUchar &H378, 34
Отключение питания второго шага
DlPortWritePortUchar &H378, 0
Третий шаг
DlPortWritePortUchar &H378, 36
Отключение питания третьего шага
DlPortWritePortUchar &H378, 0
Четвртый шаг
DlPortWritePortUchar &H378, 40
Отключение питания четвертого шага
DlPortWritePortUchar &H378, 0
Все шаги через задаваемую паузу.
Явно шаги разных градусов... И второй и четвертый шаг явно вне точки равновесия (после отключения на них питания -смещается)
Нулевое положение
Первый шаг
DlPortWritePortUchar &H378, 33
Отключение питания первого шага
DlPortWritePortUchar &H378, 0
Второй шаг
DlPortWritePortUchar &H378, 34
Отключение питания второго шага
DlPortWritePortUchar &H378, 0
Третий шаг
DlPortWritePortUchar &H378, 36
Отключение питания третьего шага
DlPortWritePortUchar &H378, 0
Четвртый шаг
DlPortWritePortUchar &H378, 40
Отключение питания четвертого шага
DlPortWritePortUchar &H378, 0
Все шаги через задаваемую паузу.
Явно шаги разных градусов... И второй и четвертый шаг явно вне точки равновесия (после отключения на них питания -смещается)
-
- Станкостроитель
- Сообщения: 1892
- Зарегистрирован: 23 окт 2011, 00:21
- Откуда: Москва-Люберцы
Я дело говорю. Вам только Ардуины достаточно. Генерировать микроимпульсы из Бэйсика под Виндами все равно хорошо не получится. Для этого надо на аппаратный уровень залезать. Врядли это проще чем освоить Си для Ардуины. Спросите у Юры как он с Пауком воюет. Мне не верится, что вы ее добьете. Подождем. Когда созреете пишите. Там действительно все просто.
Мечта станкостроителя: приезжаешь в Сочи, а там на пляже станки, станки. станки...
-
- Станкостроитель
- Сообщения: 105
- Зарегистрирован: 03 фев 2013, 12:18
- Имя: artclonic
- Откуда: Волгоград
Re: Второй планшетный бисерный принтер
George164 -я даже не понимаю, что такое Ардуино 1280 с RAMPS1.4.?????? Киньте ссылочку почитать о том, что Вы предлагаете, мож примеры какие то... так легче освоить... И что за Паук????
Это аппаратный уровень ? (вот так я управляю ШД):
' Работа на 1 ход каретки вперед '
For Y = 1 To H
DlPortWritePortUchar &H378, 17
'начало задержки
QueryPerformanceCounter pc0 'получить начальное значение счетчика
pc1 = pc0 + pf * U 'значение счетчика в конце интервала
Do
QueryPerformanceCounter pc0
Loop While pc0 < pc1 'цикл, пока значение счетчика не достигнет заданного
'конец задержки
DlPortWritePortUchar &H378, 0
DlPortWritePortUchar &H378, 18
'начало задержки
QueryPerformanceCounter pc0 'получить начальное значение счетчика
pc1 = pc0 + pf * U 'значение счетчика в конце интервала
Do
QueryPerformanceCounter pc0
Loop While pc0 < pc1 'цикл, пока значение счетчика не достигнет заданного
'конец задержки
DlPortWritePortUchar &H378, 0
DlPortWritePortUchar &H378, 20
'начало задержки
QueryPerformanceCounter pc0 'получить начальное значение счетчика
pc1 = pc0 + pf * U 'значение счетчика в конце интервала
Do
QueryPerformanceCounter pc0
Loop While pc0 < pc1 'цикл, пока значение счетчика не достигнет заданного
'конец задержки
DlPortWritePortUchar &H378, 0
DlPortWritePortUchar &H378, 24
'начало задержки
QueryPerformanceCounter pc0 'получить начальное значение счетчика
pc1 = pc0 + pf * U 'значение счетчика в конце интервала
Do
QueryPerformanceCounter pc0
Loop While pc0 < pc1 'цикл, пока значение счетчика не достигнет заданного
'конец задержки
DlPortWritePortUchar &H378, 0
Next Y
Это аппаратный уровень ? (вот так я управляю ШД):
' Работа на 1 ход каретки вперед '
For Y = 1 To H
DlPortWritePortUchar &H378, 17
'начало задержки
QueryPerformanceCounter pc0 'получить начальное значение счетчика
pc1 = pc0 + pf * U 'значение счетчика в конце интервала
Do
QueryPerformanceCounter pc0
Loop While pc0 < pc1 'цикл, пока значение счетчика не достигнет заданного
'конец задержки
DlPortWritePortUchar &H378, 0
DlPortWritePortUchar &H378, 18
'начало задержки
QueryPerformanceCounter pc0 'получить начальное значение счетчика
pc1 = pc0 + pf * U 'значение счетчика в конце интервала
Do
QueryPerformanceCounter pc0
Loop While pc0 < pc1 'цикл, пока значение счетчика не достигнет заданного
'конец задержки
DlPortWritePortUchar &H378, 0
DlPortWritePortUchar &H378, 20
'начало задержки
QueryPerformanceCounter pc0 'получить начальное значение счетчика
pc1 = pc0 + pf * U 'значение счетчика в конце интервала
Do
QueryPerformanceCounter pc0
Loop While pc0 < pc1 'цикл, пока значение счетчика не достигнет заданного
'конец задержки
DlPortWritePortUchar &H378, 0
DlPortWritePortUchar &H378, 24
'начало задержки
QueryPerformanceCounter pc0 'получить начальное значение счетчика
pc1 = pc0 + pf * U 'значение счетчика в конце интервала
Do
QueryPerformanceCounter pc0
Loop While pc0 < pc1 'цикл, пока значение счетчика не достигнет заданного
'конец задержки
DlPortWritePortUchar &H378, 0
Next Y