Например TDA7294

Форум РадиоКот • Просмотр темы - PureBasic для PC
Форум РадиоКот
Здесь можно немножко помяукать :)

Текущее время: Пт авг 08, 2025 05:31:26

Часовой пояс: UTC + 3 часа


ПРЯМО СЕЙЧАС:



Начать новую тему Ответить на тему  [ Сообщений: 128 ]    , , , , 5, ,  
Автор Сообщение
Не в сети
 Заголовок сообщения: Re: PureBasic для PC
СообщениеДобавлено: Вт мар 06, 2012 17:48:27 
Поставщик валерьянки для Кота
Аватар пользователя

Карма: 9
Рейтинг сообщений: 163
Зарегистрирован: Вс янв 09, 2011 16:51:39
Сообщений: 2335
Откуда: Санкт-Ленинград
Рейтинг сообщения: 0
А на форуме ПурБейсика Вы это выкладывали?

_________________
ICQ нет, и, в ближайшее время, не будет.


Вернуться наверх
 
Не в сети
 Заголовок сообщения: PureBasic
СообщениеДобавлено: Вт фев 05, 2013 18:23:38 
Родился

Зарегистрирован: Вт фев 05, 2013 18:08:04
Сообщений: 1
Рейтинг сообщения: 0
В поисках очень быстрого и простого языка натолкнулся на Purebasic 5 , но учебников на него очень мало , кто знает где есть стоящий бесплатный учебник в pdf буду благодарен ! И еще бенчи ищу , может кто встерчал . А так синтексис у него - пой и танцуй !


Вернуться наверх
 
Не в сети
 Заголовок сообщения: Re: PureBasic
СообщениеДобавлено: Вт фев 05, 2013 18:41:12 
Говорящий с текстолитом
Аватар пользователя

Карма: 11
Рейтинг сообщений: 143
Зарегистрирован: Пт дек 28, 2012 21:56:46
Сообщений: 1518
Откуда: St. Petersburg
Рейтинг сообщения: 0
БАТАН писал(а):
А так синтексис у него - пой и танцуй !

Ага, с бубном...

_________________
Изображение only pure true norwegian blackx Изображение


Вернуться наверх
 
Не в сети
 Заголовок сообщения: Re: PureBasic
СообщениеДобавлено: Вт фев 05, 2013 19:28:12 
Друг Кота
Аватар пользователя

Карма: 1
Рейтинг сообщений: 179
Зарегистрирован: Пн окт 11, 2010 19:00:08
Сообщений: 3379
Рейтинг сообщения: 0
На русском литературы действительно мало, но ее достаточно для изучения основ, а дальше все будет намного проще.
Для начала прочитайте эту подборку. http://www.cyberforum.ru/pure-basic/thread354195.html
http://purebasic.ucoz.ru/publ/uchebnye_ ... ra/4-1-0-9

Много полезной информации можно найти в справке.
Если с английским на вы, то есть русскоязычная онлайн справка и офлайн справка. Так же среду программирования не сложно русифицировать. http://www.cyberforum.ru/pure-basic/thread354222.html

После этого посмотрите примеры программ. http://www.cyberforum.ru/pure-basic/thread354254.html
Выберите какой-то пример по проще и попытайтесь понять как он работает. Когда поймете это, попробуйте доработать пример - что-то изменить в нем или даже улучшить.
Так постепенно и поймете что к чему.


Вернуться наверх
 
Не в сети
 Заголовок сообщения: Re: PureBasic
СообщениеДобавлено: Сб апр 19, 2014 21:30:48 
Друг Кота

Карма: 13
Рейтинг сообщений: 84
Зарегистрирован: Чт сен 20, 2007 14:08:00
Сообщений: 13796
Рейтинг сообщения: 0
решил поковырять его
и столкнулся с гимором

значит я там использую генератор форм и он генерит некий код

Код:
Procedure mainwindow()
  Window_0 = OpenWindow(#PB_Any, 0, 0, 140, 130, "", #PB_Window_SystemMenu)
  Text_0 = TextGadget(#PB_Any, 6, 5, 52, 25, "X pos.")
  Text_1 = TextGadget(#PB_Any, 6, 39, 54, 25, "Y pos.")
  Text_2 = TextGadget(#PB_Any, 6, 74, 54, 25, "Timeout")
  Text_3 = TextGadget(#PB_Any, 10, 100, 120, 22, "F10 to save all data")
  xpos = TextGadget(#PB_Any, 70, 10, 60, 20, "")
  timeout = StringGadget(#PB_Any, 70, 70, 60, 25, "")
  ypos = TextGadget(#PB_Any, 70, 39, 60, 25, "")
EndProcedure


потом я этот код сохраняю в файл pbf, который типа обычный исходник
потом в главном файле я этот файл подключаю

IncludeFile "mouse.pbf"

а потом вызываю функцию отрисовки окна

mainwindow()

While 1
Window_0_Events()
Wend

и получается ошибка в файле формы в строке Procedure mainwindow()
говорит типа syntax error

собственно в чем тут дело? :dont_know:
версия пб 5.11 с кряком

_________________
тематические ответы только в форуме, в приват не пишите


Вернуться наверх
 
Не в сети
 Заголовок сообщения: Re: PureBasic
СообщениеДобавлено: Вс апр 20, 2014 11:23:42 
Друг Кота
Аватар пользователя

Карма: 1
Рейтинг сообщений: 179
Зарегистрирован: Пн окт 11, 2010 19:00:08
Сообщений: 3379
Рейтинг сообщения: 0
Все нормально компилируется. В коде ошибок нет.
Код:
Procedure mainwindow()
  Window_0 = OpenWindow(#PB_Any, 0, 0, 140, 130, "", #PB_Window_SystemMenu)
  Text_0 = TextGadget(#PB_Any, 6, 5, 52, 25, "X pos.")
  Text_1 = TextGadget(#PB_Any, 6, 39, 54, 25, "Y pos.")
  Text_2 = TextGadget(#PB_Any, 6, 74, 54, 25, "Timeout")
  Text_3 = TextGadget(#PB_Any, 10, 100, 120, 22, "F10 to save all data")
  xpos = TextGadget(#PB_Any, 70, 10, 60, 20, "")
  timeout = StringGadget(#PB_Any, 70, 70, 60, 25, "")
  ypos = TextGadget(#PB_Any, 70, 39, 60, 25, "")
EndProcedure

mainwindow()

While 1
  ;Window_0_Events()
  If WaitWindowEvent() = #PB_Event_CloseWindow
    Break
  EndIf
Wend


Вернуться наверх
 
Не в сети
 Заголовок сообщения: Re: PureBasic
СообщениеДобавлено: Вс апр 20, 2014 20:03:22 
Друг Кота

Карма: 13
Рейтинг сообщений: 84
Зарегистрирован: Чт сен 20, 2007 14:08:00
Сообщений: 13796
Рейтинг сообщения: 0
срань господня, это глюки пб
вот еще прикол

Код:
  MainWindow = OpenWindow(#PB_Any, 439, 209, 104, 103, "mouse control", #PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_TitleBar|#PB_Window_BorderLess)

    Text_0 = TextGadget(#PB_Any, 5, 5, 45, 20, "X pos.")
    Text_1 = TextGadget(#PB_Any, 5, 30, 45, 20, "Y pos.")
    Text_2 = TextGadget(#PB_Any, 5, 55, 45, 20, "Timeout")
    Text_3 = TextGadget(#PB_Any, 5, 80, 95, 20, "F10 to save all data")
    xpos = TextGadget(#PB_Any, 55, 5, 45, 20, "")
    ypos = TextGadget(#PB_Any, 55, 30, 45, 20, "")
    timeout = StringGadget(#PB_Any, 55, 50, 45, 20, "")
    CreatePopupMenu(0) ; Создаём всплывающее меню
    MenuItem(0,"Выход") ; Добавляем пункт к меню


image = CatchImage(#PB_Any, ?mouse)
AddSysTrayIcon(1, WindowID(MainWindow), ImageID(image))
SysTrayIconToolTip(1, "Icon 1")

Repeat
  Event = WaitWindowEvent()
  Menu = EventMenu()
 
  Select Event
   Case #PB_Event_MinimizeWindow
    HideWindow(MainWindow,#True)
   
    Case #PB_Event_SysTray
    If  #PB_EventType_RightClick = EventType()
      Debug "dfg"
      DisplayPopupMenu(0, WindowID(MainWindow))
    EndIf
   
  Case #PB_Event_SysTray
    If EventType() = #PB_EventType_LeftClick
        HideWindow(MainWindow,#False)
        SetWindowState(MainWindow, #PB_Window_Normal)
        SetActiveWindow (MainWindow)
        DisplayPopupMenu(0, WindowID(MainWindow))
        Debug "левый клик"
    EndIf
 
    Default
   
EndSelect
 
 
 
Until Event = #PB_Event_CloseWindow
End

DataSection
  mouse: IncludeBinary "mouse.ico"
EndDataSection
 
 


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

в чем дело? :facepalm:

_________________
тематические ответы только в форуме, в приват не пишите


Вернуться наверх
 
Не в сети
 Заголовок сообщения: Re: PureBasic
СообщениеДобавлено: Вс апр 20, 2014 20:22:26 
Друг Кота
Аватар пользователя

Карма: 1
Рейтинг сообщений: 179
Зарегистрирован: Пн окт 11, 2010 19:00:08
Сообщений: 3379
Рейтинг сообщения: 0
kalobyte писал(а):
это глюки пб
Вряд ли. Иначе о них было известно. Скорее всего ошибка в коде.

kalobyte писал(а):
но не работает последняя секция селекта, где на трее левой кнопкой кликаю
В справке написано.
Цитата:
It will then compare this value to all of the Case <expression> values and if a given Case <expression> value is true, it will then execute the corresponding code and quit the Select structure.
Ищется первое совпадение и на этом заканчивается сравнение.
Код:
MainWindow = OpenWindow(#PB_Any, 439, 209, 104, 103, "mouse control", #PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_TitleBar|#PB_Window_BorderLess)

Text_0 = TextGadget(#PB_Any, 5, 5, 45, 20, "X pos.")
Text_1 = TextGadget(#PB_Any, 5, 30, 45, 20, "Y pos.")
Text_2 = TextGadget(#PB_Any, 5, 55, 45, 20, "Timeout")
Text_3 = TextGadget(#PB_Any, 5, 80, 95, 20, "F10 to save all data")
xpos = TextGadget(#PB_Any, 55, 5, 45, 20, "")
ypos = TextGadget(#PB_Any, 55, 30, 45, 20, "")
timeout = StringGadget(#PB_Any, 55, 50, 45, 20, "")
CreatePopupMenu(0) ; Создаём всплывающее меню
MenuItem(0,"Выход") ; Добавляем пункт к меню


image = CatchImage(#PB_Any, ?mouse)
AddSysTrayIcon(1, WindowID(MainWindow), ImageID(image))
SysTrayIconToolTip(1, "Icon 1")

Repeat
  Event = WaitWindowEvent()
  Menu = EventMenu()
 
  Select Event
    Case #PB_Event_MinimizeWindow
      HideWindow(MainWindow,#True)
     
    Case #PB_Event_SysTray
      If #PB_EventType_RightClick = EventType()
       
        Debug "dfg"
        DisplayPopupMenu(0, WindowID(MainWindow))
       
      ElseIf EventType() = #PB_EventType_LeftClick
       
        HideWindow(MainWindow,#False)
        SetWindowState(MainWindow, #PB_Window_Normal)
        SetActiveWindow (MainWindow)
        DisplayPopupMenu(0, WindowID(MainWindow))
        Debug "левый клик"
       
      EndIf
     
    Default
     
  EndSelect
 
 
 
Until Event = #PB_Event_CloseWindow
End

DataSection
  mouse: : IncludeBinary #PB_Compiler_Home+"Examples\Sources\Data\CdPlayer.ico"
EndDataSection


Вернуться наверх
 
Не в сети
 Заголовок сообщения: Re: PureBasic
СообщениеДобавлено: Вс апр 20, 2014 21:03:04 
Друг Кота

Карма: 13
Рейтинг сообщений: 84
Зарегистрирован: Чт сен 20, 2007 14:08:00
Сообщений: 13796
Рейтинг сообщения: 0
:facepalm: вот тебе и программирование
а на сях выполнение продолжается дальше, а чтобы не продолжалось, после каждого кейса ставят брейк
а я еще подумал, чего это брейка в примерах нигде нет

_________________
тематические ответы только в форуме, в приват не пишите


Вернуться наверх
 
Не в сети
 Заголовок сообщения: Re: PureBasic
СообщениеДобавлено: Пн апр 21, 2014 17:51:25 
Сверлит текстолит когтями

Карма: 6
Рейтинг сообщений: 275
Зарегистрирован: Пт авг 21, 2009 03:22:12
Сообщений: 1160
Рейтинг сообщения: 0
Я на пурике за много уже лет написал не одну программу, и, практически всегда, когда я думал про глюки в PB, глюки были у меня. :))
Не идеален он, конечно... как и мы сами.
И да, прежде чем писать программу, желательно почитать хотя бы основы языка. А то со "свиным рылом (С-шными замашками) да в калашный ряд" :)

А инфу по PB лучше искать на оф.форуме
http://www.purebasic.fr/english/
и двух наших
http://purebasic.info/phpBB3ex/index.php
http://purebasic.mybb.ru/


Вернуться наверх
 
Не в сети
 Заголовок сообщения: Re: PureBasic
СообщениеДобавлено: Пн апр 21, 2014 18:00:56 
Сверлит текстолит когтями

Карма: 6
Рейтинг сообщений: 275
Зарегистрирован: Пт авг 21, 2009 03:22:12
Сообщений: 1160
Рейтинг сообщения: 0
kalobyte писал(а):
...а я еще подумал, чего это брейка в примерах нигде нет

BREAK есть, только для другого - выйти из цикла. Вот сразу видно: ничего не читал, а туда же... глюки...


Вернуться наверх
 
Не в сети
 Заголовок сообщения: Re: PureBasic
СообщениеДобавлено: Пн апр 21, 2014 19:09:39 
Друг Кота
Аватар пользователя

Карма: 96
Рейтинг сообщений: 1472
Зарегистрирован: Вт мар 16, 2010 22:02:27
Сообщений: 15125
Откуда: ДОНЕЦК
Рейтинг сообщения: 0
Есть скан книжи
Вложение:
p000000 Копировать.jpg [117.71 KiB]
Скачиваний: 773

и кучка бейсиков под ДОС/винь98(с XP также пашут, но любят FAT32, a не NTFS диски).
Но токмо по е-mail. Как обработаю книжкин скан - выложу в "СУНДУК" (ежли примут :))) ).
:tea:


Вернуться наверх
 
Не в сети
 Заголовок сообщения: Re: PureBasic
СообщениеДобавлено: Пн апр 21, 2014 19:58:28 
Друг Кота
Аватар пользователя

Карма: 1
Рейтинг сообщений: 179
Зарегистрирован: Пн окт 11, 2010 19:00:08
Сообщений: 3379
Рейтинг сообщения: 0
BOB51 писал(а):
ДОС/винь98
Эти системы мало кто использует.
Даже с ХРюшы постепенно переходят на 7 и 8. Программы под DOS на них проблематично запускать.


Вернуться наверх
 
Не в сети
 Заголовок сообщения: Re: PureBasic
СообщениеДобавлено: Пн апр 21, 2014 22:02:37 
Друг Кота
Аватар пользователя

Карма: 96
Рейтинг сообщений: 1472
Зарегистрирован: Вт мар 16, 2010 22:02:27
Сообщений: 15125
Откуда: ДОНЕЦК
Рейтинг сообщения: 0
А в таком случае - визуал студио с наворотами от мелкософта ( включая визуал бейсик и прочее) или AutoIt.
Кому чего нравится в зависимости от поставленнрй задачи.
8)


Вернуться наверх
 
Не в сети
 Заголовок сообщения: Re: PureBasic
СообщениеДобавлено: Вт апр 22, 2014 13:35:41 
Сверлит текстолит когтями

Карма: 6
Рейтинг сообщений: 275
Зарегистрирован: Пт авг 21, 2009 03:22:12
Сообщений: 1160
Рейтинг сообщения: 0
BOB51 писал(а):
А в таком случае - визуал студио с наворотами от мелкософта ( включая визуал бейсик и прочее) или AutoIt
Ну ты горазд кидаться из крайности в крайность: или п.... пополам или х.. в дребезги :))
В свое время, когда искал бесплатный и доступный язык для не слишком навороченных программ в Win, перебрал много чего, в том числе и бейсики всякие и паскали с лазарусами. У всех общие недостатки: нестабильность, малое число примеров, немногочисленные и не очень дружелюбные форумы и т.д.
Пурик этих недостатков лишен, плюс генерит очень компактные программы, плюс очень легко и просто делается графический интерфейс программы (не совсем, конечно WYSIWYG, но приемлемо), плюс обширные библиотеки для разных разностей.
Сравни-ка 47 мегабайт - папка PB, против ХХХ гигабайт визуал студии. Даже CodeBlocks и то занимает в 5! раз больше места, чем пурик.

P.S. Я PB на радостях даже купил - евры тогда еще дешевле 37 руб. были, не то, что сейчас...


Вернуться наверх
 
Не в сети
 Заголовок сообщения: Re: PureBasic
СообщениеДобавлено: Вт апр 22, 2014 14:01:17 
Друг Кота
Аватар пользователя

Карма: 96
Рейтинг сообщений: 1472
Зарегистрирован: Вт мар 16, 2010 22:02:27
Сообщений: 15125
Откуда: ДОНЕЦК
Рейтинг сообщения: 0
Так поглянь про AutoIt - и махонький и фриваре и файлы в комплекте прицепляет в свой экзешник...
:)


Вернуться наверх
 
Не в сети
 Заголовок сообщения: Re: PureBasic
СообщениеДобавлено: Вт апр 22, 2014 15:31:46 
Друг Кота
Аватар пользователя

Карма: 1
Рейтинг сообщений: 179
Зарегистрирован: Пн окт 11, 2010 19:00:08
Сообщений: 3379
Рейтинг сообщения: 0
BOB51 писал(а):
Так поглянь про AutoIt
Годится разве что для автоматизации действий. У AutoIt много недостатков. Только некоторые из них.
Цитата:
AutoIt интерпретируемый и поэтому довольно медленно работает. Даже при создании EXE, не производится компиляция, а "склеивается" скрипт с интерпретатором. EXE никак не защищен от декомпиляции и исходник легко из него достать, т. е. о создании платного софта и речи быть не может - тут же взломают. А если "очень повезет", так еще перебьют копирайты и выдадут вашу разработку за свою. :shock: :kill:

AutoIt не поддерживает многопоточность.

AutoIt не позволяет создавать DLL и т. д., что понятно ведь ЯП интерпретируемый.

Нет нормальной IDE, с отладчиком и прочими фишками.
Из плюсов у AutoIt только поддержка автоматизации (оно и понятно, ведь для этого создавался). Больше плюсов не заметил.


Вернуться наверх
 
Не в сети
 Заголовок сообщения: Re: PureBasic
СообщениеДобавлено: Вт апр 22, 2014 16:20:04 
Друг Кота
Аватар пользователя

Карма: 96
Рейтинг сообщений: 1472
Зарегистрирован: Вт мар 16, 2010 22:02:27
Сообщений: 15125
Откуда: ДОНЕЦК
Рейтинг сообщения: 0
А разве этого в большинстве случаев для примитивного пользователя не достаточно? :)


Вернуться наверх
 
Не в сети
 Заголовок сообщения: Re: PureBasic
СообщениеДобавлено: Вт апр 22, 2014 16:47:50 
Сверлит текстолит когтями

Карма: 6
Рейтинг сообщений: 275
Зарегистрирован: Пт авг 21, 2009 03:22:12
Сообщений: 1160
Рейтинг сообщения: 0
Для примитивного пользователя это вообще не нужно - зачем ему AutoIt, он пальцами по клаве давить будет, переключать окошки и запускать программы.

У меня потребности в выполнении скриптов никогда не было, а вот общаться с приборами по COM порту - часто нужно. Или сделать снимок чего удаленного через IP камеру, например.

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

В AutoIt, как я понимаю, для этого нужно иметь программу, которая все это умеет, а уж он ее запустит - понажимает за меня кнопки.
А если такой программы нет - обломись, сам он этого не сделает. Или я не прав, посмотрев на скорую руку хелп к нему?

В любом случае, AutoIt - это несколько другое программирование, типа макросов в офисе. Хотя и в экселе умудряются играть в тетрис, но это, скорее, сродни извращению.
Инструмент лучше брать тот, что удобнее для решения конкретного круга задач, а не тот, что первым попался под руку.
Doom на макросах экселя не написать, и AutoIt тоже не поможет :)


Вернуться наверх
 
Не в сети
 Заголовок сообщения: Re: PureBasic
СообщениеДобавлено: Вт апр 22, 2014 19:47:07 
Друг Кота

Карма: 13
Рейтинг сообщений: 84
Зарегистрирован: Чт сен 20, 2007 14:08:00
Сообщений: 13796
Рейтинг сообщения: 0
я пб выбрал как раз за его быстродействие и малый код
очень трудно писать мелкие проги на плюсах, а на шарпе невыгодно - мелкий ехе запускает целый ворох длл за собой
а пб вызывает виндовые функции

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

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

аутоит мне понравился простотой и возможностью компилировать в ехе
на нем можно вполне писать мелкие проги на 1-2 действий без многопоточности

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

у меня есть индикатор раскладки клавиатуры и написан он в 2005 что ли на чистом си и винапи, так занимает 25к вроде
примерно столько же дает пб, но не надо копаться в винапи

bolek писал(а):
Или я не прав, посмотрев на скорую руку хелп к нему?

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

и для аутоит есть вроде библиотека для защиты своих прог

_________________
тематические ответы только в форуме, в приват не пишите


Вернуться наверх
 
Показать сообщения за:  Сортировать по:  Вернуться наверх
Начать новую тему Ответить на тему  [ Сообщений: 128 ]    , , , , 5, ,  

Часовой пояс: UTC + 3 часа


Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  


Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская поддержка phpBB
Extended by Karma MOD © 2007—2012 m157y
Extended by Topic Tags MOD © 2012 m157y