Пост N: 259
Зарегистрирован: 12.01.07
Откуда: Приднестровье
Рейтинг:
1
Отправлено: 22.06.07 13:50. Заголовок: Re:
vintik пишет:
цитата:
А где можно качнуть PureBasic?
Для начала, зайди сюда Там есть ссылка на учебник и форум Скачать грограмму можно отсюда http://www.rampark.narod.ru/ текущая версия 4.0, вес 8.2 Мб
vintik пишет:
цитата:
Подкупило, что можно управлять COM портом.
На PureBasic тоже можно, причём для этого совсем не объязатально знать как этот порт работает. Правда в самом компиляторе функций для работы с портами нет, но можно установить дополнительную библиотеку с требуемыми функциями.
Пост N: 263
Зарегистрирован: 12.01.07
Откуда: Приднестровье
Рейтинг:
1
Отправлено: 23.06.07 11:27. Заголовок: Re:
Evgeny Korabelnikov пишет:
цитата:
Петр, как на счет "затравки" в виде первичного "въезда" в PureBasic?
Первичный "въезд" думаю организовать так: Сначала следует скачать программу PureBasic 4.0 (ссылка была дана выше). русификатор Затем, следует ознакомится с учебником Именно с его помощью я и начал изучать этот язык. В этом учебнике информация изложена толково, жаль только что её (информации) очень мало. Далее нужно будет организовать специальный раздел где я мог бы вылаживать набольшие программки и объяснять как они работают. Это можно сделать на нашем форуме или Здесь Кстати на этом форуме есть тема "COM порт".
Пост N: 267
Зарегистрирован: 12.01.07
Откуда: Приднестровье
Рейтинг:
1
Отправлено: 24.06.07 10:25. Заголовок: Re:
MAZ пишет:
цитата:
Как подключать к тексту программы Vizual Designer не понял?
В меню "Projeck" следует выбрать пункт "PureBasic Editor". В этом случае будет сгенерирован код и помещён в окно редактора. Только если Вы попытаетесь его скомпилировать, окно не увидите. Дело в том что текст представлен в виде процедуры и для того чтобы увидеть это окно, предварительно следует её вызвать. Делается это следующим образом: Ищем строку содержащую в слово Procedure. После него указанно имя этой процедуры (например, Open_Window_0() ). Теперь берём это слово (в месте со скобками) и помещаем в конец текста. Должно получится примерно следующее: (окно пустое)
Enumeration #Window_0 EndEnumeration
Procedure Open_Window_0() If OpenWindow(#Window_0, 216, 0, 600, 300, "New window ( 0 )", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar ) If CreateGadgetList(WindowID(#Window_0))
EndIf EndIf EndProcedure
Open_Window_0()
Вот теперь окно уже появится, но только на долю секунды. Дело в том что был выполнен весь код до самого конца. Для того чтобы зделать окно устойчивым, следует добавить так называемый "цикл окна" Добавте в конец текста такой код:
Repeat Event=WaitWindowEvent() If Event=#PB_Event_CloseWindow exit=1 EndIf
Until exit=1
В общем должно получится:
Enumeration #Window_0 EndEnumeration
Procedure Open_Window_0() If OpenWindow(#Window_0, 216, 0, 600, 300, "New window ( 0 )", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar ) If CreateGadgetList(WindowID(#Window_0))
EndIf EndIf EndProcedure
Open_Window_0()
Repeat Event=WaitWindowEvent() If Event=#PB_Event_CloseWindow exit=1 EndIf
Until exit=1
Теперь окно не только устойчивое, но его ещё можно закрыть, щёлкнув по крестику в заголовке окна.
Более подробно объясню как это всё работает чуть позже. Объяснять буду по принципу "от простого к сложному", а пока можете посмотреть примеры программ, в папке "Examples".
Пост N: 270
Зарегистрирован: 12.01.07
Откуда: Приднестровье
Рейтинг:
1
Отправлено: 25.06.07 11:48. Заголовок: Re:
vintik пишет:
цитата:
но ничего не нашел ни по COM
Посмотри здесь Там правда есть только ссылка на нужную библиотеку с функциями и больше ничего. Думаю пока рано думать о порте, сначала язык освоить нужно.
vintik пишет:
цитата:
Мне сдается, что если на форуме будеш вести тему по "пурику"...
Естествено буду. Только на форуме сложно будет размещать, допустим таблицы, так что несколько первых разделов нужно по почте отправлять.
Пост N: 179
Зарегистрирован: 26.12.06
Откуда: Одесса
Рейтинг:
0
Отправлено: 25.06.07 20:22. Заголовок: Re:
Получил рассылку с первой статьей, круто, если учесть что написана в короткий срок да еще и с примерами... Боюсь перехвалить Есть первый вопрос(ы): Довольно часто попадается текст, не выровненный по левой стороне. Напоминает елочку, это делается специально для читабельности?
Потом вот такая строка: If OpenWindow(0, 100, 100, 350, 400, "Заголовок", #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget) And CreateGadgetList(WindowID(0)) она должна писаться в одну строку? И как посмотреть выполнение программы в пошаговом режиме, с первой строки? Ну и насколько сложно переделать USART.exe под ЛПТ?
Пост N: 271
Зарегистрирован: 12.01.07
Откуда: Приднестровье
Рейтинг:
1
Отправлено: 25.06.07 22:04. Заголовок: Re:
vintik пишет:
цитата:
Потом вот такая строка: If OpenWindow(0, 100, 100, 350, 400, "Заголовок", #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget) And CreateGadgetList(WindowID(0)) она должна писаться в одну строку?
Да, хотя можно и записать в две строки. Примерно так:
В следующем разделе, я разберу на молекулы создание окон.
vintik пишет:
цитата:
Довольно часто попадается текст, не выровненный по левой стороне. Напоминает елочку, это делается специально для читабельности?
Да, так проще найти нужный фрагмент текста.
vintik пишет:
цитата:
И как посмотреть выполнение программы в пошаговом режиме, с первой строки?
По правде говоря, такой необходимости пока небыло. Если мне нужно было узнать какие значения принимают переменные в определённом месте программы, я использовал контрольную точку. Для её установки, следует поместить курсор на нужную сторку и нажать на кнопку "F9". Далее запускаем программу и как только рабочая точка программы переместится на нужную позицию, работа программы остановится. Чтобы посмотреть что какие значения записаны в переменные, следует в меню "Отладчик" выбрать пункт "Переменные" Сейчас попробую разобратся с пошаговым режимом.
vintik пишет:
цитата:
Ну и насколько сложно переделать USART.exe под ЛПТ?
Это будет посложнее. Во первых, пока не смог найти библиотеку с функциями для LPT порта, а во вторых, программо реализовать последовательный интерфейс будет сложно.
vintik пишет:
цитата:
Уже кое чего слепил
Поздравляю с первым успехом! Помню, я тоже радовался когда написал свою первую программу, можно так сказать "укротил" комп.
Пост N: 272
Зарегистрирован: 12.01.07
Откуда: Приднестровье
Рейтинг:
1
Отправлено: 25.06.07 22:24. Заголовок: Re:
vintik пишет:
цитата:
как посмотреть выполнение программы в пошаговом режиме
Делается это следующим образом: "Ставим" курсор на нужную стоку (в данном случае, первую) и нажимаем на кнопку "F9". Запускаем программу. Поскольку контрольная точка установлена в первой строке, программа будет остановлена. Далее нажимаем на кнопку "F8". Каждое нажатие производит один шаг.
Пост N: 181
Зарегистрирован: 26.12.06
Откуда: Одесса
Рейтинг:
0
Отправлено: 25.06.07 22:30. Заголовок: Re:
Полез в справку посмотреть что такое Debug, и .... споткнулся, о команду DebugLevel, не хочется тебя дергать за каждым разом, попробую разобраться сам Дааа, если БЫ справка к басику была написана тобой, то почитателей этой программы намного бы преувеличила все ожидания ее создателей
Пост N: 274
Зарегистрирован: 12.01.07
Откуда: Приднестровье
Рейтинг:
1
Отправлено: 26.06.07 09:51. Заголовок: Re:
vintik пишет:
цитата:
Потом вот такая строка: If OpenWindow(0, 100, 100, 350, 400, "Заголовок", #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget) And CreateGadgetList(WindowID(0)) она должна писаться в одну строку?
А, тебя насторожило то, что в этой строке две функции разделены оператором "And"? Сделано это вот для чего: Почти каждая функция после завершения своей работы, возвращает какой-либо результат. Причём он равен нулю если во время работы функции произошла ошибка (например, почему то неудалось открыть окно). Для того чтобы было проще понять, оставлю от имён функций только одну первую букву. Получилось следующее: If O And C Компилятор воспринимает это как If O>0 And C>0 Из этого следует, что код расположенный между операторами If и EndIf будет выполнен только в том случае, если результат работы этих функций будет больше нуля. Это необходимо для блокировки обращений к окну, в том случае если его не удалось создать.
Пост N: 183
Зарегистрирован: 26.12.06
Откуда: Одесса
Рейтинг:
0
Отправлено: 26.06.07 11:30. Заголовок: Re:
Понятно, дело в том, что этих "#PB_Window_....." гаджетов целая куча. И если их писать в одну строку, то строчка выходит за поле редактора, тем самым усложняя обзор. Ну я и подумал, что можно продолжать с новой строки, только отступив. И ... вобщем вижу, что заблуждался
Пост N: 277
Зарегистрирован: 12.01.07
Откуда: Приднестровье
Рейтинг:
1
Отправлено: 26.06.07 13:29. Заголовок: Re:
Ну да. С помощью функции WaitWindowEvent() узнаём какое произошло событие. Если возвращается число равное константе #PB_Event_CloseWindow , тогда присваеваем переменной Exit значение равное единице (по умолчанию, все переменные обнулены). При этом выполняется условие в стрке Until Exit=1 и работа программы завершается. Если условие не выполняется т. е. в переменной Exit число отличное от единицы, Программа зацикливается между операторами Repeat и Until. У функции WaitWindowEvent() есть ещё одно важное назначание - она позволяет эканомить процессорное время. Попробуй её заменить на WindowEvent() при этом программа полностью работоспособна. Получиться следующее:
If OpenWindow(0, 100, 100, 350, 400, "Заголовок", #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget) If CreateGadgetList(WindowID(0)) Repeat Event = WindowEvent() If Event = #PB_Event_CloseWindow Exit=1 EndIf Until Exit=1 EndIf EndIf End
Перед запуском этой программы, открой "Деспетчер задач" (Ctrl+Alt+Del). Посмотри как "грузит" систему программа с функцией WaitWindowEvent() и с функцией WindowEvent()
Пост N: 188
Зарегистрирован: 26.12.06
Откуда: Одесса
Рейтинг:
0
Отправлено: 27.06.07 23:55. Заголовок: Re:
Спасибо качнул.
Качнул КодАрхив, стал запускать прграмы(приложения), потом некоторые не смог закрыть. Alt+F4 не срабатывала, только через заветные три кнопки. Это считается в порядке вещей?
Пост N: 282
Зарегистрирован: 12.01.07
Откуда: Приднестровье
Рейтинг:
1
Отправлено: 28.06.07 11:40. Заголовок: Re:
vintik пишет:
цитата:
некоторые не смог закрыть.
Если в программе не предусмотрен код, закрывающий программу, закрыть обычным способом не получится. А какой исходник не хотел закрываться? Да, кстати, Программы можно ещё "убивать" с помощью кнопки с черепом, которая расположена последней на панели инструментов.
Пост N: 189
Зарегистрирован: 26.12.06
Откуда: Одесса
Рейтинг:
0
Отправлено: 28.06.07 13:42. Заголовок: Re:
Игрался с кнопками и заметил, что программа выполняется не последовательно, скачет в теле цикла. При закрытии окна мессаги "Была нажата кнопка", по плану должна выскочить мессага ("Предупреждение","Вы уверенны что хотите выйти?"), а выводится ("Сообщение","Вы снова нажали на кнопку")
If Event=#PB_Event_Gadget And Gadget=8 MessageRequester("Сообщение","Была нажата кнопка") EndIf
If Event = #PB_Event_CloseWindow MessageRequester("Предупреждение","Вы уверенны что хотите выйти?") EndIf
If Event = #PB_Event_CloseWindow MessageRequester("Сообщение","Тогда нажмите на красный крестик?") EndIf
If Event = #PB_Event_CloseWindow MessageRequester("Сообщение","Да да надо повторить") EndIf
If Event=#PB_Event_Gadget And Gadget=8 MessageRequester("Сообщение","Вы снова нажали на кнопку") EndIf
If Event = #PB_Event_CloseWindow Exit=1 EndIf Until Exit=1 EndIf End
Пётр пишет:
цитата:
Гений Квитали подбросил мне инфу
Сейчас тоже гляну.
цитата:
можно ещё "убивать" с помощью кнопки с черепом
Была рога по графике, на весь экран. На голубом фоне какачто надпись, когда водиш курсором, то типа ластика в пейнте, голубой фон с надписью стирается, а под ним черный фон с дугим текстом. Ну и все стер и точка выйти нелья, только три кнопки спасли, появился рабочий стол с пуриком в нем я ее и убил.
Пост N: 283
Зарегистрирован: 12.01.07
Откуда: Приднестровье
Рейтинг:
1
Отправлено: 28.06.07 13:48. Заголовок: Re:
Сейчас вот, готовлю третью часть учебника. Уже написал две программки. Одна из этих программ - конвертер чисел (HEX/DEC/BIN) Получилась программа относительно небольшая, 32 строки. Осталось только описать принцип их работы.
Пост N: 284
Зарегистрирован: 12.01.07
Откуда: Приднестровье
Рейтинг:
1
Отправлено: 28.06.07 14:06. Заголовок: Re:
vintik пишет:
цитата:
Была прога по графике, на весь экран.
Тогда попробуй нажать на кнопку "AP2" vintik пишет:
цитата:
Игрался с кнопками и заметил
Всё совсем не так. Сообщение Предупреждение","Вы уверенны что хотите выйти появится только в том случае если будет в переменную Event, записанно число эквивалентное числу в константе #PB_Event_CloseWindow, а в данный момент там число эквиволентное константе #PB_Event_Gadget .
цитата:
выводится ("Сообщение","Вы снова нажали на кнопку")
Потому что условие If Event=#PB_Event_Gadget And Gadget=8 выполняется. Чуть позже, я переделаю эту программу так чтобы было как задумано.
Пост N: 190
Зарегистрирован: 26.12.06
Откуда: Одесса
Рейтинг:
0
Отправлено: 28.06.07 15:31. Заголовок: Re:
Прочитал статью про ЛРТпорт, былобы здорово, если бы ее реределать под пурик. Заглянул в BIOS у меня выставлено так:
I/O Device Configuration -------------------------------------------------- Parallel port: Disabled v Enabled Auto -------------------------------------------------- Mode: Output only Bi – directional EPP v ECP -------------------------------------------------- Base I/O address: v 378 278 -------------------------------------------------- Interrupt: v IRQ 7 -------------------------------------------------- DMA channel: v DMA1 DMA3 --------------------------------------------------
EPP режим есть, и порт может работать на прием и на передачу. С окошками еще разбираюсь, так что сильно не "гони лошадей" Информация находится во взвешенном состоянии, и нужно немного времени, чтобы все "устаканилось"
ЗЫ: Что то не получилось красиво вывести таблицу с BIOSa
Пост N: 191
Зарегистрирован: 26.12.06
Откуда: Одесса
Рейтинг:
0
Отправлено: 28.06.07 15:52. Заголовок: Re:
Таблица из ВОРДа всавляется не корректно, после блокнота ставится нормально По окошкам, не совсем понял, где выполняются окошки из программы, а где с винды(хрюши). Получается, что MessageRequester("Сообщение","Была нажата кнопка") , это "хрюшино" окошко??? Ведь мы нигде не задавали ни координат нового окна ни кнопок. Только название окна и текст в окне.
Пост N: 285
Зарегистрирован: 12.01.07
Откуда: Приднестровье
Рейтинг:
1
Отправлено: 28.06.07 17:33. Заголовок: Re:
Пётр пишет:
цитата:
Чуть позже, я переделаю эту программу так чтобы было как задумано.
Переделал. Давай разберёмся, почему код работает не так как нужно? Всё дело в том что в пределах одного цикла располагаются несколько операторов If с одинаковыми условиями. По этой причине происходит не то что было задумано. Например, за один виток цикла встречаются 4 одинаковых строки If Event = #PB_Event_CloseWindow и если в переменной Event будет число эквивалентное константе #PB_Event_CloseWindow, код между оператором If и завершающим его оператором EndIf будет выполнен.
Для того чтобы программа в этой ситуации работала как надо, следует организовать счётчик, который будет считать количество нажатий на кнопку и уже в зависимости от результата в этом счётчике, выводить нужное сообщение. программа должна выглядеть так: Скрытый текст
If Event=#PB_Event_Gadget And Gadget=8 If knopka=0 MessageRequester("Сообщение","Была нажата кнопка") knopka=1 Else ; knopka=0 MessageRequester("Сообщение","Вы снова нажали на кнопку") EndIf ; knopka=0 EndIf ; Event=#PB_Event_Gadget And Gadget=8
If Event = #PB_Event_CloseWindow
Select close Case 0 MessageRequester("Предупреждение","Вы уверенны что хотите выйти?") close=close+1 Case 1 MessageRequester("Сообщение","Тогда нажмите на красный крестик?") close=close+1 Case 2 MessageRequester("Сообщение","Да да надо повторить") close=close+1 Case 3 Exit=1 EndSelect
EndIf ; Event = #PB_Event_CloseWindow
Until Exit=1 EndIf ; Создаём окно End
Теперь разберёмся что и как работает. Перед оператором начала цикла Repeat мы присваеваем переменным knopka и closeclose нулевые значания. Это будущие счётчики.
После того как будет нажата кнопка и в строке If Event=#PB_Event_Gadget And Gadget=8 условие будет выполнено, проверяется равна ли переменная нулю. Если да (т. е. это первое нажатие на кнопку) выводится сообщение "Была нажата кнопка" и присваевается переменной knopka значение 1. При последующих нажатиях на эту кнопку, условие If knopka=0 уже не выполняется, поскольку в этой переменной находится число 1 и появится сообщение расположенное после оператора Else.
Примерно тоже самое нужно сделать и с кнопкой "закрыть окно", но поскольку там несколько сообщений, выгоднее использовать не операторы If EndIf а Select Case EndSelect. Работают эти операторы следующим образом: Оператор Select запоминает значение переменной (в данном случае это close ), далее это значение поочерёдно сравнивается в операторах Case. Если будет совпадение числа в переменной с числом в одном из операторов Case, будет выполнен код расположеный после этого оперетора и до следующего оператора. Например, если в переменной число 1, будет выполнен этот код: MessageRequester("Сообщение","Тогда нажмите на красный крестик?") close=close+1
вторая строчка этого кода увеличивает значение в переменной на единицу Т. Е. прикаждом нажатии на "крестик" в заголовке окна, будет увеличиватся число в переменной close и будет выполнен код, сначала после Case 0 потом после Case 1 и т. д. Когда в переменной окажется число 3, переменной Exit будет присвоено значение 1 и приграмма закроется.
Насчёт MessageRequester это окно создаёт система. Нужно оно в основном для вывода сообщений. У этой функции есть ещё и флаги #PB_MessageRequester_YesNo - кнопки да, нет #PB_MessageRequester_YesNoCancel - кнопки да, нет, отмена #PB_MessageRequester_Ok - кнопка Ок
Есть ещё флаги #MB_ICONERROR #MB_ICONQUESTION #MB_ICONWARNING #MB_ICONINFORMATION
Можно например эту функцию записать так: MessageRequester("Сообщение","Тогда нажмите на красный крестик?",#PB_MessageRequester_Ok|#MB_ICONWARNING ) Должено быть только по одину флагу из первого и второго списка или только из первого списка! Подробнее можно узнать из справки, в разделе Requester есть описание этой функции.
vintik пишет:
цитата:
былобы здорово, если бы ее реределать под пурик
Там же есть пример, файл UsingPrinterPort.pb С его помощью, удалось "поморгать" светодиодами в программаторе.
Пост N: 194
Зарегистрирован: 26.12.06
Откуда: Одесса
Рейтинг:
0
Отправлено: 28.06.07 18:21. Заголовок: Re:
Пётр пишет:
цитата:
Там же есть пример
А что в окошко писать? И что за кнопки, (немецкого переводчика нет). Вроде светодиодов, как и выходов (D0-D7)должно быть 8, а в окошко входит только 7цифр.
Пост N: 196
Зарегистрирован: 26.12.06
Откуда: Одесса
Рейтинг:
0
Отправлено: 28.06.07 22:30. Заголовок: Re:
Пётр пишет:
цитата:
есть пример, файл UsingPrinterPort.pb
Похоже, что в (UsingPrinterPort.pb) что то не так. Вот эта строчка: If OpenLibrary(0, "INPOUT32.DLL") должна высветить гдето надпись "INPOUT32.DLL", а нигде этого не происходит. И такого текста, пол программы. А DLL, вытащил из паки, и никаких тебе ошибок, как будто к ней никто и не обращался.
Пост N: 287
Зарегистрирован: 12.01.07
Откуда: Приднестровье
Рейтинг:
1
Отправлено: 29.06.07 11:24. Заголовок: Re:
vintik пишет:
цитата:
должна высветить где-то надпись "INPOUT32.DLL"
Функция OpenLibrary открывает динамическую библиотеку для последующего использования её подпрограмм. Никакой надписи она не выводит. Можешь посмотреть описание этой функции в разделе Library справки.
vintik пишет:
цитата:
А DLL, вытащил из паки, и никаких тебе ошибок
А вот это действительно странно! Поиск библиотек эта функция осуществляет следующим образом: Сначала производится поиск в той же папке где EXE-шник, а если там отсутствует требуемый файл, он ищется в системной папке (System32). Только я там этот файл тоже не нашёл. Сейчас спрошу об этом на форуме
Пост N: 198
Зарегистрирован: 26.12.06
Откуда: Одесса
Рейтинг:
0
Отправлено: 29.06.07 12:03. Заголовок: Re:
У меня очевидно установилось с какойто программой. Специально не ставил. Ктати, поищи эту дллку и попадеш в интересную папку, с кучей программ под СОМ и LPT
Пост N: 289
Зарегистрирован: 12.01.07
Откуда: Приднестровье
Рейтинг:
1
Отправлено: 29.06.07 13:27. Заголовок: Re:
vintik пишет:
цитата:
У меня очевидно установилось с какойто программой
Скорее всего так и было. Если я убираю ДЛЛ-ку из папки, появляется сообщение что она отсутствует. Вчера оно не появлялось только потому что эта ДЛЛ-ка была загружена в память. vintik пишет:
цитата:
попадеш в интересную папку, с кучей программ под СОМ и LPT
Пост N: 292
Зарегистрирован: 12.01.07
Откуда: Приднестровье
Рейтинг:
1
Отправлено: 29.06.07 14:56. Заголовок: Re:
На обычной кнопке изменить цвет нельзя (по крайней мере с помощью функций "пурика"). В самом низу описания функции SetGadgetColor есть список поддерживаемых гаджетов, ButtonGadget туда не входит. При использовании строки SetGadgetColor(1, #PB_Gadget_FrontColor, $FFFF00) должно появиться сообщение об ошибке а сама строка окрасится в красный цвет. Почему так происходит? Всё дело в том, что функции начинающиеся с Get или Set - это функции считывающие и записывающие информацию в гаджеты. В них в качестве идентификатора, следует указать тот, что у требуемого гаджета, т. е. должна быть цифра 8. Это касается всех функций начинающихся с Get или Set из раздела Gadget
Строка должна быть такой: SetGadgetColor(8, #PB_Gadget_FrontColor, $FFFF00) Теперь ошибки не будет, но цвет на кнопке всё равно будет чёрным.
Пост N: 293
Зарегистрирован: 12.01.07
Откуда: Приднестровье
Рейтинг:
1
Отправлено: 29.06.07 15:05. Заголовок: Re:
vintik пишет:
цитата:
;SetGadgetColor(1, #PB_Gadget_FrontColor, $FFFF00) ;Как эту строчку прилепить?
Замени идентификатор 1 на 0. Поскольку собираешься изменять цвет текста в гаджете StringGadget, а у него идентификатор 0 т. е. нужно указать в каком гаджете следует цвет менять.
Пост N: 294
Зарегистрирован: 12.01.07
Откуда: Приднестровье
Рейтинг:
1
Отправлено: 29.06.07 18:01. Заголовок: Re:
vintik пишет:
цитата:
Хотел на кнопке изменить цвет надписи, посбивал все колени, нашел SetGadgetColor(1, #PB_Gadget_FrontColor, $FFFF00)
Вижу, начал гаджеты осваивать. Чтобы помочь, "слепил" такой код: Скрытый текст
string1.s : string2.s If OpenWindow(0,0,0,200,200,"Сложение чисел",#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
If event=#PB_Event_Gadget And gadget=3 string1=GetGadgetText(0) a1=Val(string1) string2=GetGadgetText(2) a2=Val(string2) result=a1+a2 text.s=Str(result) SetGadgetText(4,text) EndIf
If event=#PB_Event_CloseWindow exit=1 EndIf
Until exit=1
EndIf End
Эта программа складывает два числа. Пользоваться ней очень просто, следует ввести два числа и нажать на кнопку "Равно".
Работает она следующим образом: В самом начале, объявляются дле переменные строкового типа, т. е. к имени переменной просто добавляется тип, в данном случае это ".s" означающий что это строковая переменная и в ней в последствие будет хранится строка текста. Далее открывается окно. После чего создаются 5 гаджетов. StringGadget - поле для ввода текста, таких гаджета два. TextGadget - Гаджет, отображающий текст в окне. ButtonGadget - кнопка
Синтаксис у них одинаков за исключением флагов. Первый параметр - уникальный идентификатор. Второй и третий параметр - координаты гаджета относительно окна. Четвёртый и пятый параметр - ширина и высота гаджета. Шестой параметр - Текст в кавычках или переменная строкового типа.
Так чтоже происходит после нажатия кнопки "Равно"? В двух словах, считывается информация из двух полей для ввода текста, потом складывается и записывается в TextGadget с идентификатором 4.
Теперь разберёмся более подробно как это происходит.
Нам нужно прочитать информацию из StringGadget, открываем в справке раздел Gadget и ищем описание этой функции. Смотрим, информацию можно прочитать с помощью GetGadgetText. Переходим по гиперссылке на описание этой функции. Она требует указать идентификатор гаджета с которого требуется считать информацию, вот только она возвращает результат в виде текста. Приехали!! Если мы попытаемся складывать строковые переменные, то получится не то что нам нужно! Значит, перед тем как складывать, следует преобразовать стороковые данные в числовые. Послольку нам предстоит работать со строкой, переходим в раздел String справки. Ищем там функцию, преобразующую текст в число. Это делает функция Val. Считываем текст из двух полей и преобразовываем этот текст в число. Далее мы эт два числа складываем, после чего выводим результат. Его записываем в TextGadget с идентификатором 4. Смотрим описание этой функции. Для того чтобы поместить туда какую либо информацию, нужно использовать функцию SetGadgetText, тоько вот записать туда можно строку а не число, значит это число следует преобразовать в строку текста. Функцию выполняющую это преобразование ищем в разделе String справки. Нам подходит Str. После преобразования, записываем информацию.
Пост N: 202
Зарегистрирован: 26.12.06
Откуда: Одесса
Рейтинг:
0
Отправлено: 29.06.07 20:30. Заголовок: Re:
Пётр пишет:
цитата:
Чтобы помочь, "слепил" такой код:
Да, так все поня тно...
Так что, надо весь "хелр" перевести Или ставить конкретную задачу, потом искать приблизительно похожие примеры в исходниках Пока в голове сплошная муть. Откуда было бы мне узнать, что
цитата:
перед тем как складывать, следует преобразовать стороковые данные в числовые
что "пурик" их не различает. Что-то не могу найти методики поиска ответов
Пост N: 295
Зарегистрирован: 12.01.07
Откуда: Приднестровье
Рейтинг:
1
Отправлено: 29.06.07 21:50. Заголовок: Re:
vintik пишет:
цитата:
перед тем как складывать, следует преобразовать стороковые данные в числовые
Дело в том что если выполнить сложение строковых данных, например, "2"+"3", получится "23", а это не то что нужно.
vintik пишет:
цитата:
Пока в голове сплошная муть.
Когда я "въежал" в "пурик" тоже сложно было, учился на собственых ошибках. Но как только понял суть языка, стало намного проще.
vintik пишет:
цитата:
Или ставить конкретную задачу
Так следует делать, по крайней мене в начале, потом проще будет.
vintik пишет:
цитата:
Так что, надо весь "хелр" перевести
Так я в начале и делал. Очень сложно. Прерводил с помощью "Сократ интернет 3.0" и записывал в тетрадь. А потом понял, что без практики это делать почти бесполезно. Забросил тетрадь, начал ставить перед собой конкретную задачу и выполнять её. Первая программа которую я написал - конвертер для HD44780. Когда писал эту программу, хелп изрядно "перелопатил" но урок получил хороший. Чем больше писал программ, тем проще было, сложно было только в начале.
Пост N: 299
Зарегистрирован: 12.01.07
Откуда: Приднестровье
Рейтинг:
1
Отправлено: 03.07.07 21:35. Заголовок: Re:
Завтра продолжу писать "Учебник..."
PS. Я за это время сделал конвертер систем исчисления, он войдёт в следующую версию AsmEditor'а Он отличается от BCONV32.exe тем что позволяет работать 7-мю байтами и преобразует также двоичные числа.
Наверное, мое мнение здесь… В общем, большинство людей пока не готовы приступить к изучению пурика. Ведь они сейчас читают разделы самоучителя и не могут отвлекаться на такие глобальные темы. Но это совсем не значит, что им не интересно, прейдет время и труды Петра окажут им бесценную помощь. Просто не все сразу. А пока для большинства работа Петра это уровень, к которому стремишься. Лично для меня подключение самодельного устройства к компьютеру это горизонт мечтаний, и в тоже время стимул который тянет вперед.
Пост N: 203
Зарегистрирован: 12.02.07
Откуда: Argentina, Lincoln
Рейтинг:
1
Награды:
Отправлено: 23.07.07 19:47. Заголовок: Re:
MAZ пишет:
цитата:
Ага, Лето. Ничего не успеваю.
везет же людям, а у нас зима... но тоже не успеваю. А за двумя зайцами погонишься... Но тема очень актуальная. В принципе все понятно, вот только руку набить нужно. И здесь я с Петром полностью согласен: нужна конкретная задача и уже от нее плясать: легче искать пути к цели пусть и далекой, и в тумане, чем просто тыкаться влево-вправо. vintik пишет:
цитата:
Откуда было бы мне узнать, что... стороковые данные... и числовые "пурик" их не различает.
тут бы очень помогла любая книжка по Бейсику, можно и N-летней давности. Я в свое время писал программы на Клиппере (еще под ДОС), некоторые вещи понятны только потому что я уже прошел через это. Гляну есть ли у меня литература по Бейсику. Основы они и в Африке основы.
Пост N: 304
Зарегистрирован: 12.01.07
Откуда: Приднестровье
Рейтинг:
1
Отправлено: 23.07.07 21:34. Заголовок: Re:
Alberto пишет:
цитата:
везет же людям, а у нас зима...
Ещё неизвестно кому повезло. У меня уже больше недели термометр зашкаливает за 40 градусов в тени. На солнце примерно +60
Alberto пишет:
цитата:
тут бы очень помогла любая книжка по Бейсику
Ага, есть у меня описания интерплетатора языка Бейсик для компьютера "Вектор 06Ц". Так там почти всё что касается функций работы со строками соответствует описанию аналогичных функций из раздела "String" справки пурика. Подойдёт также описание Бейсика для компьютера "Радио 86РК", которое можно найти в журналах "Радио".
Пост N: 204
Зарегистрирован: 12.02.07
Откуда: Argentina, Lincoln
Рейтинг:
1
Награды:
Отправлено: 24.07.07 14:22. Заголовок: Re:
Пётр пишет:
цитата:
уже больше недели термометр зашкаливает за 40 градусов в тени.
прошлым летом у нас больше месяца температура была под 45 градусов... а сейчас зима... впервые за 89 лет в наших широтах снег выпал, правда через пару часов растаял, но все-таки... Пётр пишет:
цитата:
описание Бейсика... в журналах "Радио".
а вот про это я и не подумал. Действительно хорошее подспорье. На выходных хочу попробовать связать 877-ой ПИК с компом, так что ждите МНОГО вопросов .
Пост N: 305
Зарегистрирован: 12.01.07
Откуда: Приднестровье
Рейтинг:
1
Отправлено: 24.07.07 16:45. Заголовок: Re:
Alberto пишет:
цитата:
ждите МНОГО вопросов
Жду. А пока скачайте библиотеку с функциями для работы с COM портом MVCOM_LIBRARYV12 и установите её. Если нужно, вышлю исходник программы USART.exe (раздел 6_2_4 практикума). Правда, там всё так запутано я эту программу писал, когда только начал изучать PureBasic.
Если Вас заинтерисовал пурик (PureBasic), можете зайти на форум http://pbasic.spb.ru/phpBB2/index.php там найдёте очень много ответов на различные вопросы. Если бы не этот форум, я скорее всего так и не освоил пурик, ведь при малейшем затруднении, которое не мог решить самостоятельно, обращался туда и всегда получал ответ.
PS. До связи компа с ПИКом, я дойду через несколько разделов. Текущая тема - работа с файлами, затем планирую рассказать о подпрограммах и процедурах. После чего, рассказу как создавать меню. И уже после этого, перейду к связи компа с ПИКом.
Пост N: 206
Зарегистрирован: 12.02.07
Откуда: Argentina, Lincoln
Рейтинг:
1
Награды:
Отправлено: 24.07.07 17:36. Заголовок: Re:
Библиотеку скачал... Исходник ОЧЕНЬ интересно посмотреть, буду благодарен. Пока же есть один вопрос, хотел создать выпадающее меню, типа такого: но вместо менюшки только тонкая черная линия, при щелчке по ней идет выборка, но... что не так? Вот кусок кода:
Я эту программу писал, когда только начал изучать пурик, так что там всё довольно сильно запутано нет комментариев. Это так для ознакомления. Сообщите с какого файлообменника скачаете исходник и я туда через некоторое время залью этот исходник но уже с комментариями.
PS. Возможно (уже точно не помню что использовал) при компиляции появиться сообщение, об ошибке, что то типа is not a function array macro or linked list. Для его устранения, установите библиотеки с функциями Droopy Library и PBOSL. Инструкция по установке есть в 4 разделе "Учебника...".
Пост N: 307
Зарегистрирован: 12.01.07
Откуда: Приднестровье
Рейтинг:
1
Отправлено: 25.07.07 11:22. Заголовок: Re:
Начал разбираться с исходником USART и понял что толково объяснить работу программмы с помощью комментариев будет непросто. Поэтому сделал более простой вариант. http://ifolder.ru/2783041 там есть исходник и скомпилированая программа (exe-шник) На тот случай если не получится скачать, вылаживаю программу здесь Скрытый текст
; Объявляем переменную ComId глобальной. Global ComId=0 ; В этой процедуре осуществляется приём байта из COM порта. Procedure InCom() ; Проверяем, был ли открыт порт. If ComId>0 ; Если порт открыт, узнаём поступил и новый байт. If ComInputBufferCount(ComId)>0 ; Если новый байт есть, помещаем его в переменную Buf. ComRead(ComId,@Buf,1) ; И выводим на экран в десятичном формате. SetGadgetText(4,Str(Buf)) EndIf EndIf EndProcedure
; Открываем окно. If OpenWindow(0, 200, 200, 290, 130,"",#PB_Window_MinimizeGadget) ; Создаём новый список гаджетов. If CreateGadgetList(WindowID(0)) ; Выводим в окно падпись "Порт". TextGadget(0,20,12,25,15,"Порт") ; Создаём выпадающий список. ComboBoxGadget(1,80,10,70,30,#PB_ComboBox_UpperCase) ; И заполняем его названиями портов. AddGadgetItem(1, -1, "COM1") AddGadgetItem(1, -1, "COM2") AddGadgetItem(1, -1, "COM3") AddGadgetItem(1, -1, "COM4") ; Устанавливаем активным нулевой пункт выпадающего списка. SetGadgetState(1,0) ; Здесь будет отображаться результат открытия порта. TextGadget(2,175,12,100,15,"") ; Выводим в окно надпись "Приём". TextGadget(3,20,53,50,15,"Приём") ; Здесь будет отображаться принимаемый байт в десятичном формате. TextGadget(4,90,50,50,20,"",#PB_Text_Border) ; Выводим в окно надпись "Передача". TextGadget(5,20,90,50,15,"Передача") ; Создаём поле для ввода передаваемого байта в десятичном формате. StringGadget(6,90,87,50,20,"",#PB_String_Numeric) ; Устанавливаем максимальное количество символов в поле для ввода. SendMessage_(GadgetID(6), #EM_LIMITTEXT, 3, 0) ; Создаём кнопку. ButtonGadget(7,170,87,70,20,"Отправить")
ComboBox.s=GetGadgetText(1) : CB_Temp.s=ComboBox ; Открываем порт Gosub SelectPort ; Создаём таймер, по которому будет вызываться процедура InCom() ; через каждые 100 мс. SetTimer_(WindowID(0),0,100,@InCom() ) ; Начало цикла Repeat - Until, где рабочая точка программы будет находиться ; большую часть времени. Repeat ; Помещаем в переменные тип события и идентификатор активного ; гаджета, на каждом витке цикла. Event=WaitWindowEvent() Gadget=EventGadget() Type=EventType() ; Условие будет выполнено, если в одном из гаджетов произойдёт событие. If Event=#PB_Event_Gadget ; Запоминаем число из переменной Gadget для последующего сравнения ; в операторах Case Select Gadget
; Код после этого оператора Case будет выполнятся при манипуляциях ; с выпадающим списком. Case 1 ; Считываем текст из текущего пункта выпадающего списка. ComboBox.s=GetGadgetText(1) ; Код между операторами If и EndIf будет выполнен только если ; текст текущего пункта отличается от ранее выбранного. If ComboBox<>CB_Temp CB_Temp=ComboBox ; Переходим на подпрограмму закрывающую текущий порт ; и открывающую выбранный. Gosub SelectPort EndIf
;Код после этого оператора Case будет выполнятся при нажатиях. ; на кнопку. Case 7 ; Считываем текст из поля для ввода передаваемого байта. String.s=GetGadgetText(6) ; Переходим на подпрограмму передачи байта. Gosub ComOut ; Этот оператор завершающий для оператора Select. EndSelect
EndIf
; Условие будет выполнено при попытке закрыть окно. If Event=#PB_Event_CloseWindow ; Если окно нужно закрыть, присваиваем переменной Exit значение 1. Exit=1 EndIf ; Цикл прервётся только если в переменной Exit значение 1. Until Exit=1
EndIf EndIf
; Если порт открыт, закрываем его If ComId>0 ComClose(ComId) EndIf ; Выполнение программы завершено и она закроется. End
; Подпрограмма выбора порта SelectPort:
; Устанавливаем скорость равную 9600 Б/с. Skorost.s="9600" ; В переменную Port помещается имя порта, скорость, и др. параметры. Port.s=ComboBox+":"+Skorost+",N,8,1" ; Если порт открыт, закрываем его If ComId>0 ComClose(ComId) ComId=0 EndIf ; Открываем порт ComId=ComOpen(Port,#HandShakeModeNone,255,255)
; Выводим результат открытия порта. If ComId>0 SetGadgetText(2,"Порт открыт") SetGadgetColor(2,#PB_Gadget_FrontColor,RGB(12, 2, 202)) Else SetGadgetText(2,"Ошибка") SetGadgetColor(2,#PB_Gadget_FrontColor,RGB(253, 4, 2)) EndIf ; Выход из подпрограммы Return
; Подпрограмма передачи одного байта. ComOut:
; Проверяем чтобы порт был открыт. Если он закрыт - выполняем ; часть кода после оператора Else If ComId>0 ; Проверяем чтобы в переменной String было число не больше 255. If Val(String)>255 String="255" EndIf ; Преобразовываем строку в символьный вид и передаём её. Out.s=Chr(Val(String)) ComWrite(ComId,@Out,1)
Else ; Выводим сообщение об ошибке, при попытке передать байт ; если ни один порт не открыт. MessageRequester("Ошибка","Ни один порт не выбран",#MB_ICONERROR) EndIf ; Выход из подпрограммы. Return
Я эту программу разберу подробно в следующем разделе "Учебника..." поскольку ещё не рассказал о подпрограммах и процедурах.
Пост N: 208
Зарегистрирован: 12.02.07
Откуда: Argentina, Lincoln
Рейтинг:
1
Награды:
Отправлено: 25.07.07 12:45. Заголовок: Re:
Скачал все. Правда на http://webfile.ru/1477964 похоже уже удалили. Два других файлообменника работают. Большое спасибо . То что запутано, так это не страшно: главное принцып, я вроде бы понял, но нужна проверка на реальном устройстве. Буду заниматься этим уже дома, на работе работа (извиняюсь) подвалила. Пётр пишет:
цитата:
Хотелось-бы взглянуть на всю программу.
вообще - то это калькулятор для расчета веса листовой стали. В двух окошках вводятся размеры, а в выпадающем меню выбирается толщина (американскя система мер, наверняка будет не совсем понятно), результат в кг отображается в своем окошке. Я ее еще не доделал: неправильно считываются данные (вернее привязка к весу: кг/м2) из выпадающего списка, но если интересно, то исходник здесь: http://up-file.com/download/2ec119128094/calculator.zip.html может закончу сегодня на работе (вроде понял в чем причина), если нет, то доделаю уже вечером дома. По правде говоря вещь не нужная, но мне больше нравится решать какую-то конкретную задачу, так проще если значешь чего хочешь. Хотя это лично мое мнение.
Пост N: 308
Зарегистрирован: 12.01.07
Откуда: Приднестровье
Рейтинг:
1
Отправлено: 25.07.07 13:37. Заголовок: Re:
Посмотрел исходник прогресс большой!
Alberto пишет:
цитата:
неправильно считываются данные (вернее привязка к весу: кг/м2)
Привязка есть, только вот при изменении пункта в выпадающем списке не происходит перерассчёт результата. Я немного изменил программу. Теперь рассчёт происходит в подпрограмме. Также немного доработал обработку событий от выпадающего списка.http://ifolder.ru/2784652
Alberto пишет:
цитата:
мне больше нравится решать какую-то конкретную задачу, так проще если значешь чего хочешь. Хотя это лично мое мнение.
Пост N: 309
Зарегистрирован: 12.01.07
Откуда: Приднестровье
Рейтинг:
1
Отправлено: 25.07.07 14:19. Заголовок: Re:
Alberto пишет:
цитата:
главное принцип, я вроде бы понял
Чтобы Вы не наступили на "грабли" при приёме байта от контроллера, расскажу об одной особенности. Если код, принимающий инфу от порта, поместить внутрь цикла Repeat - Until, можно наблюдать такую картину: информация принимается только когда перемещаете курсор (стрелку) мышки в пределах окна этой программы, а когда курсор за пределами окна информация не принимается! Это происходит потому что рабочая точка программы находится внутри функции WaitWindowEvent до тех, пока не произойдёт в программе какое-либо событие. Для того чтобы можно было принимать информацию из порта, следует соответствующий код поместить в процедуру, которую будем вызывать по таймеру. Чтобы проще было понять, представьте что эта процедура вызывается от прерываний аппаратного таймера аналогично ПП прерываний от TMR0 у ПИКа.
Таймер создаётся с помощью функции SetTimer_, а уничтожается с помощью KillTimer_. Это API функции на что указывает нижний пробел ("_"), таких функций в языке PureBasic нет!
Синтаксис у них таков: SetTimer_(Windowid , Number , time , @Procedure() ) Windowid - Системный идентификатор окна Number - Номер таймера, используется для его последующего отключения time - Время в миллисекундах через которое будет вызываться процедура Procedure() - Имя процедуры. Собачка обязательно должна быть!
KillTimer_(Windowid , Number) Windowid - Системный идентификатор окна Number - Номер таймера, который следует отключить.
Обычно функцию KillTimer_ помещают перед директивой end
Есть и другие функции создающие таймер. Например, в программе USART были использованы функции StartTimer и EndTimer из библиотеки с функциями PBOSL
Пост N: 210
Зарегистрирован: 12.02.07
Откуда: Argentina, Lincoln
Рейтинг:
1
Награды:
Отправлено: 25.07.07 14:31. Заголовок: Re:
Привязка есть, но она неправильная. И то что перерасчет не производится при выборе пункта из выпадающего меню тоже верно, но это на потом. Пётр пишет:
цитата:
Я немного изменил программу.
пока что не смотрел (хочу дойти сам, а вечером посмотрю: чужой опыт великая сила), но переделал свою программу, правда пока что без перерасчета, но привязка правильная. Теперь все работает как надо: http://up-file.com/download/2ec119753486/calculator.zip.html Спасибо за советы и реальную помощь . Теперь надо добавить пунктик выбора типа стали: гальванизированная, черная, перерасчет при выборе из выпадающего списка и будет то, что я и хотел сделать. Вечером займусь детальным въездом в программу USART. Еще раз спасибо.
Пост N: 310
Зарегистрирован: 12.01.07
Откуда: Приднестровье
Рейтинг:
1
Отправлено: 25.07.07 15:47. Заголовок: Re:
Насколько я понял в полях Largo и Ancho можно вводить только цифры. Тогда добавте к StringGadget где будут вводиться цифры, флаг #PB_String_Numeric, а то в данном случае можно вводить и буквы тоже.
Например так StringGadget(#String_0, 130, 80, 90, 20, "",#PB_String_Numeric) StringGadget(#String_1, 130, 120, 90, 20, "",#PB_String_Numeric)
Ещё могу порекомендовать включить стиль XP. Для этого загрузите исходник в компилятор и в меню "Компилятор" выберите "Настройки компилятора". В открывшемся окне, поставте галочку в пункте "Поддержка стиля XP".
Если Вы хотите чтобы стиль XP был установлен по умолчанию для всех создаваемых исходников, вменю "файл" выберите пункт "настройки". В открывшемся окне, откройте список "Редактор" и перейдите на пункт "по умолчанию". Там поставьте галочку в пункте "Поддержка стиля XP".
Пост N: 311
Зарегистрирован: 12.01.07
Откуда: Приднестровье
Рейтинг:
1
Отправлено: 26.07.07 10:34. Заголовок: Re:
Alberto пишет:
цитата:
как запретить изменение размера окна?
Для того чтобы запретить изменение размера окна с помощью курсора мыши (когда подводите курсор к краю окна, он превращается в двойную стрелку и если нажать на кнопку мышки, то можно изменять размер окна), следует убрать флаг #PB_Window_SizeGadget из функции OpenWindow.
Alberto пишет:
цитата:
как к единственному профи по Бейсику
Ну это только наверное на нашем форуме, возможно через некоторое время я здесь буду не единственый профи.
Всё забывал написать. Есть в пурике одна хитрость, которая позволит быстрее его изучить. Предположим, встретилась функция, назначение которой Вам неизвестно. Чтобы не переворачивать на изнанку всю справку при поиске описания функции, можно сделать следующее: просто выделяете имя функции (например, ButtonGadget) и нажимаете на кнопку F1. При этом будет открыта справка с описанием этой функции.
Пост N: 214
Зарегистрирован: 12.02.07
Откуда: Argentina, Lincoln
Рейтинг:
1
Награды:
Отправлено: 26.07.07 13:47. Заголовок: Re:
Пётр пишет:
цитата:
следует убрать флаг
спасибо, Пётр, я уже вчера нашел сам. Еще раз все прсмотрел и... я искал флаг "запретить изменение размера окна", а надо было просто убрать флаг "разрешить..." . Ну, что сказать? Невнимательность... Все равно, спасибо. Вчера же родилась и окончательная версия, кое-что взял из Вашего примера. Если интересно, то исходник здесь: http://up-file.com/download/c73973402942/Calculator-1.zip.html Пётр пишет:
цитата:
Есть в пурике одна хитрость
хорошая вещь, она уже была реализована в FoxPRO под Винды, а я вот напрочь забыл про эту возможность .
Пост N: 215
Зарегистрирован: 12.02.07
Откуда: Argentina, Lincoln
Рейтинг:
1
Награды:
Отправлено: 27.07.07 18:35. Заголовок: Re:
Пётр пишет:
цитата:
Поэтому сделал более простой вариант.
Разобрался с программой COM.pb, там настолько все подробно расписано, что другого описание просто и не нужно. Здорово. Правда остался один вопрос (я не силен в API-функциях): перед выходом из программы нужно убивать таймер (ведь порт же мы зачем-то закрываем) может ли таймер продолжать работать после закрытия программы? Я на всякий случай вписал команду KillTimer_(WindowID(0),0) перед командой end.
Пост N: 214
Зарегистрирован: 26.12.06
Откуда: Одесса
Рейтинг:
0
Отправлено: 06.08.07 23:24. Заголовок: Re:
Alberto пишет:
цитата:
Гляну есть ли у меня литература по Бейсику. Основы они и в Африке основы.
Очень помогло бы, может ссылки на электронные варианты книг?
Петр, если есть инфа по основам, то тоже выложи пожалуйста. Согласитесь, лопатить кучу литературы, а потом выяснить, что гдето есть лучше и доходчивей...
Пост N: 326
Зарегистрирован: 12.01.07
Откуда: Приднестровье
Рейтинг:
1
Отправлено: 07.08.07 10:28. Заголовок: Re:
vintik пишет:
цитата:
Петр, если есть инфа по основам
К сожалению инфы на русском по Пурику очень мало. Кое что здесь найти можно, только там очень мало инфы и она для версии PB 2.90, а у нас PB 4.0
Все дело в том, что непопулярен у нас бейсик. Все пишут на Си или Дельфи. Я вот на одним форуме видел что некоторые люди до сих пор считают бейсик интерплитатором и что на нём ничего толкового не напишешь. Это далеко не так. Конечно, Пурик уступает по возможностям Си и Дельфи, но его можно быстрее изучить. Скорость работы созданых с его помощью приложений не уступает таким же программам написаным на Си и во много раз превосходит программы написаные на Дельфи У нас ещё это не "пронюхали", а вот за бугром уже многие на Пурик начали преходить.
Пост N: 215
Зарегистрирован: 26.12.06
Откуда: Одесса
Рейтинг:
0
Отправлено: 07.08.07 12:54. Заголовок: Re:
Пётр пишет:
цитата:
Кое что здесь найти можно
Эта ссылка уже выставлялась, но всеравно спасибо. Из тех материалов, что мне попадались выходит, что с ЛПТ портом на прямую не поработаеш, а СОМ порта у меня нет. По этому тяга, в этом направлении несколько поубавилась.
Пост N: 327
Зарегистрирован: 12.01.07
Откуда: Приднестровье
Рейтинг:
1
Отправлено: 07.08.07 13:33. Заголовок: Re:
vintik пишет:
цитата:
Из тех материалов, что мне попадались выходит, что с ЛПТ портом на прямую не поработаешь,
Почему же можно, только проще работать через файл inpout32.dll. В принципе в этом не ничего очень сложного. Через некоторое время выложу исходник и объясню как он работает. Только вот полноценный COM на LPT реализовать трудно, мешает этому многозадачность Винды. Нужно будет у проги ставить высокий приоритет или приоритет реального времени. Что не есть хорошо.
Пост N: 328
Зарегистрирован: 12.01.07
Откуда: Приднестровье
Рейтинг:
1
Отправлено: 07.08.07 14:30. Заголовок: Re:
цитата:
Очень помогло бы, может ссылки на электронные варианты книг?
На русском языке инфу найти будет сложно, но на английском её должно быть много. К сожалению, из-за того что я плохо английский знаю, по "забугровым" сайтам мало брожу. Это вопрос можно задать здесь Там на него объязательно ответят.
На этих файлообмениках можно найти пример обмена информацией через LPT1. В исходнике 4 процедуры. Процедура OpenInpOut32() открывает ДЛЛ-ку. Её следует вызывать перед работой с портом. Процедура CloseInpOut32() закрывает ДЛЛ-ку. Её следует вызывать когда порт больше не нужен, например, в конце программы. Процедура InLPT считывает один байт с линий DATA0-DATA7. Процедура OutLPT записывает один байт на линии DATA0-DATA7.
Пост N: 222
Зарегистрирован: 26.12.06
Откуда: Одесса
Рейтинг:
0
Отправлено: 08.08.07 12:37. Заголовок: Re:
Пётр пишет:
цитата:
не поддерживает EPP
Не ругайся EPP это как..., или что?
При написании программы работы с портом ЛПТ, потом нужно отдельно ставить драйвер для порта. Тоесть, имея программу нужно чтобы этот драйвер был вместе с ней. В противном случае, при переустановке системы (винХП), этот драйвер теряется и программа перестает работать. Получается, что в отличии от СОМ, для ЛПТ нужен воз и еще маленькая тележка
Пост N: 332
Зарегистрирован: 12.01.07
Откуда: Приднестровье
Рейтинг:
1
Отправлено: 08.08.07 13:18. Заголовок: Re:
Пётр пишет:
цитата:
Несколько часов не мог понять почему инфа в порт поступает а из порта нет.
Что-то я перепутал. Нужно читать так: Несколько часов не мог понять почему инфа из порта поступает во внешнее устройство а в порт непоступает.
vintik пишет:
цитата:
EPP это как..., или что
Это режим работы порта. Его можно задать в BIOS. В моём компе есть два LPT порта. Один на ISA плате разширения, другой на системной плате. Так вот, тот что на плате разширения не поддерживает на аппаратном уровне режим EPP. А может и поддерживает, только на плате куча перемычек, попробуй определи какая для чего.
vintik пишет:
цитата:
При написании программы работы с портом ЛПТ, потом нужно отдельно ставить драйвер для порта
Для работы с LPT портом в качестве драйвера используется файл inpout32.dll. Причём он может быть как в системной папке, так и в папке с программой (без разницы). Можно сделать ещё круче. Берём этот файл, помещаем в тело программы, и при каждом запуске программы проверяем есть ли в системной папке файл inpout32.dll. Если его там нет, просто извлекаем из программы его и помещаем в системную папку.
Пост N: 223
Зарегистрирован: 26.12.06
Откуда: Одесса
Рейтинг:
0
Отправлено: 08.08.07 13:31. Заголовок: Re:
Пётр пишет:
цитата:
Берём этот файл, помещаем в тело программы, и при каждом запуске программы проверяем есть ли в системной папке файл inpout32.dll. Если его там нет, просто извлекаем из программы его и помещаем в системную папку.
Так это совсем другое дело На сколько понял, прога и inpout32.dll, будет одно целое -исполняемый файл хххх.ехе???
Пост N: 334
Зарегистрирован: 12.01.07
Откуда: Приднестровье
Рейтинг:
1
Отправлено: 10.08.07 11:47. Заголовок: Re:
vintik пишет:
цитата:
теперь слепить схемку как нарисунке, со светодиодами?
Можно и ту схему слепить. Есть там ещё и схема с кнопками, её тоже сделать можно.
Вот это
цитата:
Берём этот файл, помещаем в тело программы, и при каждом запуске программы проверяем есть ли в системной папке файл inpout32.dll. Если его там нет, просто извлекаем из программы его и помещаем в системную папку
я ещё не реализовал. Для этого сначала следует с файлами разобраться (это будет следующий раздел).
PS. К сожалению, я пока ещё не доконца разобрался как LPT порт работает, поэтому и так мало инфы о порте.
Пост N: 338
Зарегистрирован: 12.01.07
Откуда: Приднестровье
Рейтинг:
1
Отправлено: 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) и если его там не окажется, программа спросит Вас, установить его или нет.
Пост N: 248
Зарегистрирован: 12.02.07
Откуда: Argentina, Lincoln
Рейтинг:
1
Награды:
Отправлено: 13.08.07 12:10. Заголовок: Re:
Alberto пишет:
цитата:
у меня где-то есть информация по LPT
надо было сначала посмотреть, а потом обещать выложить , информация - то есть, но все что я нашел на настоящий момент на испанском , было где-то и на русском (хотя может и ошибаюсь, просто не обратил внимание на язык), одним словом буду искать.
Пост N: 211
Зарегистрирован: 26.12.06
Откуда: Россия, Заозерск, Мурманской обл.
Рейтинг:
1
Отправлено: 17.08.07 19:02. Заголовок: Re:
Петр, здравствуйте. У меня к Вам вопрос: не смогли бы Вы в Pure Basic написать программу, аналогичную программе Марова Николая Андреевича "Pause"? Я очень часто пользуюсь этой программой (думаю, что и не только я), и очень благодарен ему за неё! Хотелось-бы, чтобы в программе была возможность формировать код задержки не только в машинных циклах, но и формировать код по необходимому времени задержки в сек, мс, мкс, с возможность самому выбирать тактовую частоту используемого процессора вплоть до 20 МГц. Я писал письмо Марову Николаю, но он сообщил, что пока нет времени.
Пост N: 345
Зарегистрирован: 12.01.07
Откуда: Приднестровье
Рейтинг:
2
Отправлено: 20.08.07 17:08. Заголовок: Re:
RW1ZK пишет:
цитата:
Вам вопрос: не смогли бы Вы в Pure Basic написать программу, аналогичную программе Марова Николая Андреевича "Pause"
Может для начала подойдёт простенький калькулятор, преобразующий частоту кварца и количество секунд в машинные циклы? А то начал я с этими задержками разбираться и наступил на "грабли".
Теперь об "Уроках программирования на PureBasic". Судя по всему не всё понятно что я объяснял, возможно за это время скопилось много вопросов. Поэтому задавайте любые вопросы.
Пост N: 352
Зарегистрирован: 12.01.07
Откуда: Приднестровье
Рейтинг:
2
Отправлено: 24.08.07 17:13. Заголовок: Re:
kaligraf пишет:
цитата:
Нашёл у себя на диске PureBasic 3.51
Есть он у меня, именно с него я и начинал. Вам же советую скачать PureBasic 4.0 он намного лучше.
Между ними есть следующие отличия: PureBasic 3.51 некорректно работает с Русскими буквами, в PureBasic 4.0 этот глюк устранён. Между этими версиями есть много различий, например, изменился синтаксис языка, правда несильно. Есть много других отличий, которые перечислять долго.
Пост N: 365
Зарегистрирован: 12.01.07
Откуда: Приднестровье
Рейтинг:
2
Отправлено: 30.08.07 11:24. Заголовок: Re:
С этого сайта следует скачать три файла Pure, Basic и REANIMATOR.exe расположив их в одной папке. Затем, следует запустить программу REANIMATOR.exe, которая переименнует файл Pure в Setup.sfx.part1.exe а файл Basic в Setup.sfx.part2.rar При необходимости эти файлы можно вручную переименовать.
Пост N: 71
Зарегистрирован: 19.07.07
Откуда: Россия, Челябинская обл.
Рейтинг:
0
Отправлено: 30.08.07 13:42. Заголовок: Re:
Похоже была ошибка при скачивании программы. Скачал с http://www.rampark.70mb.ru/purebasic/ - там в виде целого архива файл лежит, установился нормально, буду осваивать.
Пост N: 303
Зарегистрирован: 12.02.07
Откуда: Argentina, Lincoln
Рейтинг:
1
Награды:
Отправлено: 01.10.07 12:28. Заголовок: Re:
Пётр пишет:
цитата:
какие успехи?
пока не очень , времени мало... Хотел вывести график температуры от времени, но что-то не получается нарисовать график на белом фоне, только на черном. Правда надо бы еще посидеть, хочется разобраться самому .
Пост N: 328
Зарегистрирован: 12.02.07
Откуда: Argentina, Lincoln
Рейтинг:
2
Награды:
Отправлено: 17.10.07 16:00. Заголовок: Re:
Принес и только сейчас вспомнил... Исходник (тот кусок на котором я издевался) здесь: http://www.rapidshare.ru/434349 буду благодарен за любые намеки на мою проблему.
Пост N: 405
Зарегистрирован: 12.01.07
Откуда: Приднестровье
Рейтинг:
2
Отправлено: 17.10.07 16:51. Заголовок: Re:
Как вариант, можно использовать функцию Box, предназначеную для создания прамоугольных фигур. Для этого параметры x и y делаем нулевыми, а размеры прямоугольника делаем равными размерам рисунка и устанавлеаваем нужный цвет. http://ifolder.ru/3772343 Этот вариант неидеален, потому что, если понадобится изменить цвет фона, то понадобится полностью переделывать рисунок. Я ещё покопаюсь, может что то лучшее найду.
Пост N: 330
Зарегистрирован: 12.02.07
Откуда: Argentina, Lincoln
Рейтинг:
2
Награды:
Отправлено: 17.10.07 17:22. Заголовок: Re:
В принципе я понял насчет БОКСА, согласен, такой вариант можно использовать, я хочу чтобы менялся цвет линии от заданных пределов температуры, т.е. если ниже порогра - синий цвет точек, выше - красный, норма - зеленый или белый, так что вариант с Боксом прокатит, но ведь должен же быть параметр задающий цвет фона всего рисунка. Я еще тоже покопаюсь. А пока что, спасибо за идею.
Пост N: 352
Зарегистрирован: 12.02.07
Откуда: Argentina, Lincoln
Рейтинг:
3
Награды:
Отправлено: 31.10.07 19:51. Заголовок: Надеюсь, что это то ..
Надеюсь, что это то что надо. Мне только видимые окна и нужны. Я так понимаю, что на каждом витке программы будет выводиться новый идентификатор, т.е. он сам перебирает ID и завершается если нет ни одного нового открытого окна? Спасибо, Пётр, ты мне здорово помог. Вечером проверю одну идею.
Пост N: 424
Зарегистрирован: 12.01.07
Откуда: Приднестровье
Рейтинг:
2
Отправлено: 31.10.07 22:28. Заголовок: Alberto пишет: каж..
Alberto пишет:
цитата:
каждом витке программы будет выводиться новый идентификатор
Да. Вообще зная системный ID окна (Handle) можно сделать очень многое. Например, можно узнать какой проге пренадлежит данное окно Изменить приоритет проги, создавшей это окно. Закрыть окно. Закрыть прогу, которой пренадлежит окно. Сделать окно активным. И многое другое.
Прогу, которая изменяет приоритет у программы с текущим активным окном можно найти здесь Может пригодится.
Пост N: 355
Зарегистрирован: 12.02.07
Откуда: Argentina, Lincoln
Рейтинг:
3
Награды:
Отправлено: 01.11.07 13:09. Заголовок: Пётр пишет: можно с..
Пётр пишет:
цитата:
можно сделать очень многое... закрыть окно... закрыть прогу...
вот именно это я и сделал, поставил на одни машины програмку которая делает окна невидимыми и сворачивает их, а через секунд 20-30 восстанавливает, на других окна активируются по кругу и т.д. Утро прошло весело .
Все даты в формате GMT
3 час. Хитов сегодня: 8
Права: смайлы да, картинки да, шрифты нет, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет