Отправлено: 25.06.07 11:28. Заголовок: Программирование на PureBasic. Часть 1

 Отправлено: 07.08.07 10:28. Заголовок: Re:

vintik пишет:

цитата:

Петр, если есть инфа по основам

К сожалению инфы на русском по Пурику очень мало.
Кое что здесь найти можно, только там очень мало инфы и она для версии PB 2.90, а у нас PB 4.0

Все дело в том, что непопулярен у нас бейсик. Все пишут на Си или Дельфи.
Я вот на одним форуме видел что некоторые люди до сих пор считают бейсик интерплитатором и что на нём ничего толкового не напишешь. Это далеко не так. Конечно, Пурик уступает по возможностям Си и Дельфи, но его можно быстрее изучить. Скорость работы созданых с его помощью приложений не уступает таким же программам написаным на Си и во много раз превосходит программы написаные на Дельфи
У нас ещё это не "пронюхали", а вот за бугром уже многие на Пурик начали преходить.

 Отправлено: 07.08.07 12:54. Заголовок: Re:

Пётр пишет:

цитата:

Кое что здесь найти можно

Эта ссылка уже выставлялась, но всеравно спасибо.
Из тех материалов, что мне попадались выходит, что с ЛПТ портом на прямую не
поработаеш, а СОМ порта у меня нет.
По этому тяга, в этом направлении несколько поубавилась.

 Отправлено: 07.08.07 13:33. Заголовок: Re:

vintik пишет:

цитата:

Из тех материалов, что мне попадались выходит, что с ЛПТ портом на прямую не поработаешь,

Почему же можно, только проще работать через файл inpout32.dll.
В принципе в этом не ничего очень сложного. Через некоторое время выложу исходник и объясню как он работает.
Только вот полноценный COM на LPT реализовать трудно, мешает этому многозадачность Винды. Нужно будет у проги ставить высокий приоритет или приоритет реального времени.
Что не есть хорошо.

 Отправлено: 07.08.07 14:30. Заголовок: Re:

цитата:

Очень помогло бы, может ссылки на электронные варианты книг?

На русском языке инфу найти будет сложно, но на английском её должно быть много.
К сожалению, из-за того что я плохо английский знаю, по "забугровым" сайтам мало брожу. Это вопрос можно задать здесь Там на него объязательно ответят.

 Отправлено: 07.08.07 17:48. Заголовок: Re:

http://webfile.ru/1490952
http://ifolder.ru/2925080
http://slil.ru/24711921

На этих файлообмениках можно найти пример обмена информацией через LPT1.
В исходнике 4 процедуры.
Процедура OpenInpOut32() открывает ДЛЛ-ку. Её следует вызывать перед работой с портом.
Процедура CloseInpOut32() закрывает ДЛЛ-ку. Её следует вызывать когда порт больше не нужен, например, в конце программы.
Процедура InLPT считывает один байт с линий DATA0-DATA7.
Процедура OutLPT записывает один байт на линии DATA0-DATA7.

 Отправлено: 07.08.07 17:51. Заголовок: Re:

Пётр пишет:

цитата:

На русском языке инфу найти будет сложно,

Понятно, что за меня никто это не сделает

Р.С. Эх... Так хорошо было в отпуске...
Ладно, еще раз спасибо, пошел сгребать себя в кучу
Через пару дней в "рабство" опять на год

 Отправлено: 08.08.07 11:06. Заголовок: Re:

Пётр пишет:

цитата:

пример обмена информацией через LPT1

Несколько часов не мог понять почему инфа в порт поступает а из порта нет.
Оказалось, что паралельный порт не поддерживает EPP

 Отправлено: 08.08.07 12:37. Заголовок: Re:

Пётр пишет:

цитата:

не поддерживает EPP

Не ругайся
EPP это как..., или что?

При написании программы работы с портом ЛПТ, потом нужно отдельно ставить
драйвер для порта. Тоесть, имея программу нужно чтобы этот драйвер был вместе с ней.
В противном случае, при переустановке системы (винХП), этот драйвер теряется и программа
перестает работать.
Получается, что в отличии от СОМ, для ЛПТ нужен воз и еще маленькая тележка

 Отправлено: 08.08.07 13:18. Заголовок: Re:

Пётр пишет:

цитата:

Несколько часов не мог понять почему инфа в порт поступает а из порта нет.

Что-то я перепутал. Нужно читать так:
Несколько часов не мог понять почему инфа из порта поступает во внешнее устройство а в порт непоступает.

vintik пишет:

цитата:

EPP это как..., или что

Это режим работы порта.
Его можно задать в BIOS.
В моём компе есть два LPT порта. Один на ISA плате разширения, другой на системной плате. Так вот, тот что на плате разширения не поддерживает на аппаратном уровне режим EPP. А может и поддерживает, только на плате куча перемычек, попробуй определи какая для чего.

vintik пишет:

цитата:

При написании программы работы с портом ЛПТ, потом нужно отдельно ставить драйвер для порта

Для работы с LPT портом в качестве драйвера используется файл inpout32.dll. Причём он может быть как в системной папке, так и в папке с программой (без разницы). Можно сделать ещё круче. Берём этот файл, помещаем в тело программы, и при каждом запуске программы проверяем есть ли в системной папке файл inpout32.dll. Если его там нет, просто извлекаем из программы его и помещаем в системную папку.

 Отправлено: 08.08.07 13:31. Заголовок: Re:

Пётр пишет:

цитата:

Берём этот файл, помещаем в тело программы, и при каждом запуске программы проверяем есть ли в системной папке файл inpout32.dll. Если его там нет, просто извлекаем из программы его и помещаем в системную папку.

Так это совсем другое дело
На сколько понял, прога и inpout32.dll, будет одно целое -исполняемый файл хххх.ехе???

 Отправлено: 08.08.07 13:48. Заголовок: Re:

vintik пишет:

цитата:

На сколько понял, прога и inpout32.dll, будет одно целое -исполняемый файл хххх.ехе???

Да.

PS.
Сейчас готовлю 7 раздел учебника. В нём расказу о обмене инфой через LPT.

 Отправлено: 09.08.07 21:43. Заголовок: Re:

Спасибо получили, теперь слепить схемку как нарисунке, со светодиодами?

 Отправлено: 10.08.07 11:47. Заголовок: Re:

vintik пишет:

цитата:

теперь слепить схемку как нарисунке, со светодиодами?

Можно и ту схему слепить. Есть там ещё и схема с кнопками, её тоже сделать можно.

Вот это

цитата:

Берём этот файл, помещаем в тело программы, и при каждом запуске программы проверяем есть ли в системной папке файл inpout32.dll. Если его там нет, просто извлекаем из программы его и помещаем в системную папку

я ещё не реализовал. Для этого сначала следует с файлами разобраться (это будет следующий раздел).


PS.
К сожалению, я пока ещё не доконца разобрался как LPT порт работает, поэтому и так мало инфы о порте.

 Отправлено: 10.08.07 12:11. Заголовок: Re:

Пётр пишет:

цитата:

не доконца разобрался как LPT порт работает

у меня где-то есть информация по LPT, на выходных поищу, и если интересно, то в понедельник могу скинуть.

 Отправлено: 10.08.07 16:36. Заголовок: Re:

Alberto пишет:

цитата:

на выходных поищу, и если интересно

Интересно.
Я хочу подключить к порту м/с 24C64 и попробовать её прошить с помощью своей программы.

 Отправлено: 10.08.07 22:29. Заголовок: Re:

Alberto пишет:

цитата:

у меня где-то есть информация по LPT

Да конечно интересно, есть идея, управлять, (тактировать драйверы) шаговыми двпгателями.

 Отправлено: 11.08.07 10:52. Заголовок: Re:

Пётр пишет:

цитата:

Берём этот файл, помещаем в тело программы, и при каждом запуске программы проверяем есть ли в системной папке файл inpout32.dll

Если скопировать этот код в программу LPT.pb то больше не понадобится тащить файл inpout32.dll. Скрытый текст

Procedure SysLib() Path.s=Space(500) ; Узнаём путь к системной папке GetSystemDirectory_(@Path,500) SysLib.s=Path+"\inpout32.dll" ; Пытаемся открыть файл inpout32.dll в системной папке Lib=OpenLibrary(7,SysLib) If Lib=0 ; Если такого файла там нет, спрашиваем, установить его туда или нет. Result=MessageRequester("Отсутствует драйвер.","В системной папке отсутствует файл inpout32.dll"+Chr(10)+Chr(13)+"установить его?",#MB_YESNO | #MB_ICONQUESTION) If Result=#PB_MessageRequester_Yes ; Если ответ положительный, соэдаём в системной папке пустой файл inpout32.dll If CreateFile(32,SysLib) length = ?Dll_LibEnd-?Dll_Lib ; Считываем код из Дата-блока и записываем в созданный файл. WriteData(32,?Dll_Lib, length) ; Закрываем файл CloseFile(32) Else ; Если не удалось создать файл inpout32.dll, сообщаем об этом MessageRequester("Фатальная ошибка","Не удалось создать файл inpout32.dll в папке"+Chr(10)+Chr(13)+Path , #MB_OK | #MB_ICONERROR) EndIf EndIf Else ; Если же в системной папке существовал необходимый файл закрываем его. CloseLibrary(7) EndIf ; Начало Дата-блока DataSection Dll_Lib: ; Помещаем файл inpout32.dll в бинарном (двоичном) виде в Дата-блок IncludeBinary "inpout32.dll" Dll_LibEnd: ; Конец Дата-блока EndDataSection ; Конец процедуры EndProcedure ; Вызываем процедуру SysLib()

Помесить его следует в самое начало программы, просто скопировать.
При компиляции программы, файл inpout32.dll должен быть обязательно в одной папке с исходником. При этом, EXE-ник будет содержать в себе ДЛЛ-ку.
При каждом запуске, проверяться наличие файла inpout32.dll в системной папке (C:\WINDOWS\System32) и если его там не окажется, программа спросит Вас, установить его или нет.

 Отправлено: 13.08.07 12:10. Заголовок: Re:

Alberto пишет:

цитата:

у меня где-то есть информация по LPT

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

 Отправлено: 17.08.07 19:02. Заголовок: Re:

Петр, здравствуйте. У меня к Вам вопрос: не смогли бы Вы в Pure Basic написать программу, аналогичную программе Марова Николая Андреевича "Pause"? Я очень часто пользуюсь этой программой (думаю, что и не только я), и очень благодарен ему за неё! Хотелось-бы, чтобы в программе была возможность формировать код задержки не только в машинных циклах, но и формировать код по необходимому времени задержки в сек, мс, мкс, с возможность самому выбирать тактовую частоту используемого процессора вплоть до 20 МГц. Я писал письмо Марову Николаю, но он сообщил, что пока нет времени.

 Отправлено: 18.08.07 17:49. Заголовок: Re:

RW1ZK пишет:

цитата:

не смогли бы Вы в Pure Basic написать программу, аналогичную программе Марова Николая Андреевича "Pause"

Ничего не обещаю но постараюсь.

 Отправлено: 20.08.07 17:08. Заголовок: Re:

RW1ZK пишет:

цитата:

Вам вопрос: не смогли бы Вы в Pure Basic написать программу, аналогичную программе Марова Николая Андреевича "Pause"

Может для начала подойдёт простенький калькулятор, преобразующий частоту кварца и количество секунд в машинные циклы? А то начал я с этими задержками разбираться и наступил на "грабли".

Теперь об "Уроках программирования на PureBasic".
Судя по всему не всё понятно что я объяснял, возможно за это время скопилось много вопросов. Поэтому задавайте любые вопросы.

 Отправлено: 20.08.07 18:10. Заголовок: Re:

Пётр пишет:

цитата:

...Может для начала подойдёт простенький калькулятор...

А куда деваться? Конечно подойдёт... Правда лишние промежуточные операции...

 Отправлено: 21.08.07 17:51. Заголовок: Re:

Пётр пишет:

цитата:

простенький калькулятор, преобразующий частоту кварца и количество секунд в машинные циклы

Вот Beta версия калькулятора. только что закончил.
http://ifolder.ru/3066138
Здесь пока можно вводить только целые числа.

 Отправлено: 21.08.07 18:09. Заголовок: Re:

Сейчас пощупаем... Да, работает правильно. Уже легче!
Огромное спасибо!

 Отправлено: 24.08.07 16:55. Заголовок: Re:

Пётр пишет:

цитата:

Судя по всему не всё понятно что я объяснял, возможно за это время скопилось много вопросов. Поэтому задавайте любые вопросы.

Пётр
Нашёл у себя на диске PureBasic 3.51 - имеет ли смысл на нём работать, или это уже устаревшая версия?

 Отправлено: 24.08.07 17:13. Заголовок: Re:

kaligraf пишет:

цитата:

Нашёл у себя на диске PureBasic 3.51

Есть он у меня, именно с него я и начинал.
Вам же советую скачать PureBasic 4.0 он намного лучше.

Между ними есть следующие отличия:
PureBasic 3.51 некорректно работает с Русскими буквами, в PureBasic 4.0 этот глюк устранён.
Между этими версиями есть много различий, например, изменился синтаксис языка, правда несильно.
Есть много других отличий, которые перечислять долго.

 Отправлено: 24.08.07 17:21. Заголовок: Re:

Да чуть не забыл
Прога PureBasic не бесплатна! Производитель за неё хочет 99$
Но с выше указанного сайта её можно скачать бесплатно.

 Отправлено: 29.08.07 11:47. Заголовок: Re:

Пётр пишет:

цитата:

К сожалению, я пока ещё не доконца разобрался как LPT порт работает, поэтому и так мало инфы о порте

Вот что на данный момент нашёл
http://www.lptport.ru/index.htm
http://z-ol.chat.ru/port/ports.htm
Может ещё что то найду.

 Отправлено: 30.08.07 09:13. Заголовок: Re:

Скачал файлы с ramparc.narod.ru - запустил реаниматор - архив появился. При распаковке архив требует вторую часть (которой нет) Setup.sfx.part2.rar

Не пойму пока в чём дело, ошибка при скачивании файлов произошла, или что-то ещё?

 Отправлено: 30.08.07 11:24. Заголовок: Re:

С этого сайта следует скачать три файла Pure, Basic и REANIMATOR.exe расположив их в одной папке.
Затем, следует запустить программу REANIMATOR.exe, которая переименнует файл Pure в Setup.sfx.part1.exe а файл Basic в Setup.sfx.part2.rar
При необходимости эти файлы можно вручную переименовать.

 Отправлено: 30.08.07 13:42. Заголовок: Re:

Похоже была ошибка при скачивании программы. Скачал с http://www.rampark.70mb.ru/purebasic/ - там в виде целого архива файл лежит, установился нормально, буду осваивать.

 Отправлено: 03.09.07 22:04. Заголовок: Re:

kaligraf пишет:

цитата:

Скачал с http://www.rampark.70mb.ru/purebasic/

А там какая версия программы?
Когда я качал, была PureBasic 4.0

 Отправлено: 06.09.07 19:36. Заголовок: Re:

Пётр пишет:

цитата:

А там какая версия программы? Когда я качал, была PureBasic 4.0

То-же самое 4.0

 Отправлено: 10.09.07 13:18. Заголовок: Re:

Не совсем в тему, но может кому пригодится. Создание файла помощи (hlp - файл) для программ. Ссылка здесь:

http://www.rapidshare.ru/396152

 Отправлено: 29.09.07 22:18. Заголовок: Re:

Кто пробовал Пурик осваивать?
У кого какие успехи?

 Отправлено: 01.10.07 12:28. Заголовок: Re:

Пётр пишет:

цитата:

какие успехи?

пока не очень , времени мало... Хотел вывести график температуры от времени, но что-то не получается нарисовать график на белом фоне, только на черном. Правда надо бы еще посидеть, хочется разобраться самому .

 Отправлено: 04.10.07 16:41. Заголовок: Re:

Alberto пишет:

цитата:

не получается нарисовать график на белом фоне

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

 Отправлено: 04.10.07 17:05. Заголовок: Re:

Если не забуду, завтра скину. Все исходники у меня дома.

 Отправлено: 16.10.07 16:15. Заголовок: Re:

Alberto пишет:

цитата:

Если не забуду

И всё таки забыли.

 Отправлено: 16.10.07 17:07. Заголовок: Re:

Пётр пишет:

цитата:

И всё таки забыли.

каюсь, моя вина.