PureBasic

@PB · Регистрация: 13.03.2009

Студворк — интернет-сервис помощи студентам

Есть такая замечательная разновидность диалекта бейсика именуемая PureBasic.
Сайт разработчика http://www.purebasic.com/
Рускоязычное зеркало http://pbasic.spb.ru/

Как и любой другой бейсик он прост в освоении.
Заточен полностью под винду.
С его помощью можно разрабатывать консольные, окнонные (с поддержкой стиля XP) и игровые программы.
При этом не нужно знать как работает комп или искать инфу по API функциям, т. к. есть более 800 встроеных функций различного назначения, которых в большенстве случаев достаточно чтобы написать не сложную прогу. При необходимости можно использовать API (есть встроеная поддержка) или ассемблерные вставки. При необходимости можно добавить в среду дополнительные функции из внешних библиотек, большой выбор которых есть на страничке http://www.purearea.net/pb/english/userlibs.php

Вот простоейший пример программы отображающей надпись в окне

PureBasic
1
2
3
4
5
6
7
8
9
; Открываем окно
OpenWindow(1,200,250,300,50,"Заголовок окна",#PB_Window_MinimizeGadget)
CreateGadgetList(WindowID(1)) ; Создаём новый список гаджетов
TextGadget(2,80,20,180,15,"Демонстрационная программа") ;Отображаем текст
 
Repeat ; Начало главного цикла Repeat-Until
 Event=WaitWindowEvent() ; Получаем текущий идентификатор события
Until Event=#PB_Event_CloseWindow ; Прерываем цикл при попытке закрыть окно (щелчёк по крестику в заголовке окна)
End ; Завершаем работу программы

Размер скомпилированого файла всего 14КБ!

В архиве есть парочка примеров.

Высказывайте выше мнение об PureBasic

@PB · 19.10.2010, 18:17 **[ТС]**

Вызываемая процедура должна быть выше места ее вызова.

Но можно ее объявить в начале программы

PureBasic
1
Declare example()

@aristov-96 · 19.10.2010, 18:31

да с этим я разобрался, но вылазит следующие сообщение ТОЧНО ТАК ЖЕ И С loadsprite(в процедуре)(((

@PB · 19.10.2010, 19:11 **[ТС]**

В имени функции допущена ошибка. В тексте это LoadSpite
А должно быть LoadSprite

@aristov-96 · 19.10.2010, 19:24

ой вот что значит невнимательность))) но однако когда я запускаю при щелчке по кнопке ничего не отображается(

@PB · 19.10.2010, 19:41 **[ТС]**

Сообщение от aristov-96

при щелчке по кнопке ничего не отображается(

А где код отображения спрайта?
Я увидел только код загрузки.
Для отображения, нужно добавить это в главный цикл программы.

PureBasic
1
2
3
If IsSprite(60)
  DisplaySprite(60,500,500)
EndIf

@aristov-96 · 20.10.2010, 17:11

блин не выводит изображение вот глянь(процедуру вызываю в условие если файл открылся, отображаю на экран в условие если setting(0)=1 вот там ниже, пробывал множеством способов)

@PB · 20.10.2010, 18:06 **[ТС]**

Попробуй так.
Я сам не проверял, т. к. у меня нет всех требуемых файлов.

@aristov-96 · 20.10.2010, 19:57

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Procedure example() ; в процедуре хочу сдвигать картинку на +10, 10 раз
  LoadSprite(60, ProgPath+"abcd2.bmp")
  For e=1 To 10
    q+10
    w+10
    Delay(1000)
    Next
EndProcedure
Global e.I
q.I
     w.I
     q=1
     w=500
 If Setting(0)=1
       If IsSprite(60)
         DisplaySprite(60,q,w)
       EndIf
     EndIf
Circle(q,w,150,RGB(0, 0, 255))

программа работает нормально рисует тоже всё(круг синий всё как надо) но не двигается хотя по логике я правильно же сделал?

Добавлено через 6 минут
кстати при нажатии на кнопку ждать приходится(секунд 10) я убрал for to next вот это и всё быстро видимо неправильно что-то

@PB · 20.10.2010, 20:10 **[ТС]**

Этот код

Code
1
2
3
4
5
FOR e=1 TO 10
    q+10
    w+10
    Delay(1000)
    NEXT

остановит выполнение программы на 10 секунд.
Как вариант, можно выполнить цикл в отдельном потоке

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Procedure ShiftSprite(*xx)
Shared q, w
  For e=1 To 10
    q+10
    w+10
    Delay(1000)
  Next
EndProcedure
 
Procedure example() ; в процедуре хочу сдвигать картинку на +10, 10 раз
  LoadSprite(60, ProgPath+"abcd2.bmp")
  CreateThread(@ShiftSprite(),0)
EndProcedure
Global e.I
q.I
     w.I
     q=1
     w=500
 If Setting(0)=1
       If IsSprite(60)
         DisplaySprite(60,q,w)
       EndIf
     EndIf
Circle(q,w,150,RGB(0, 0, 255))

@aristov-96 · 21.10.2010, 17:23

вот смотри как я делаю
я не вызываю процедуру example а вызываю doexample вот она

PureBasic
1
2
3
4
5
6
7
8
9
10
Procedure doexample()
  For o=1 To 99999
  u=Random(1)
  Select u
    Case 0
      example()
  EndSelect  
  Delay(1)
  Next
  EndProcedure

по идеи будет постоянно рэндом делать 0 и 1 и когда будет 0 вызывается процедура, но у меня опять же программа стоит пока всё выполняется надо опять в отдельной процедуре написать?

@PB · 21.10.2010, 18:12 **[ТС]**

Сообщение от aristov-96

вызываю doexample вот она

Что в итоге нужно получить?

Ведь процедура example() будет создавать спрайт уничтожая предыдущий с тем-же ID и создавать параллельный поток, работающий (в течение 10 секунд) независимо от осовного.
Кстати, операционная система не сможет создать 9999 потоков, т. к. для этого, во первых, понадобится аж 10 ГБ оперативной памяти, а во вторых, есть лимит потоков для каждого приложения, и в третих, код будет сильно глючить, посколько во всех этих потоках передвигается один и тот же спрайт, точнее изменяются значения переменных, отвичающих за перемещение спрайта, но на деле он начнет двигатся после продолжения выполнения главного цикла, а это произойдёт после окончания работы процедуры doexample().

Добавлено через 5 минут
Рекомендую скачать архив исходных кодов http://www.purearea.net/pb/dow... 4-Beta.rar
И посмотреть исходные тексты в папке Games.
Нормальных игр там не много, но зато появится представление как их правильно делать.

@aristov-96 · 21.10.2010, 19:33

тогда объясни вот это, это не то что я писал но подобное тут потоко 10 тыщ всё норм работает в архиве нет только фоновой мелодии а так всё есть

@aristov-96 · 21.10.2010, 19:36

там и передвижение картинок и всё а мне надо что бы рэндом был если там переменная равна 1 то 1 процедура если двум то другая и т.д.

@PB · 21.10.2010, 20:31 **[ТС]**

Сообщение от aristov-96

тут потоко 10 тыщ

Там процедура example вызывается один раз и создается один поток, а не 10 тысяч.
А в этот код

PureBasic
1
2
3
4
5
6
7
8
9
10
Procedure doexample()
  FOR o=1 TO 99999
  u=RANDOM(1)
  SELECT u
    CASE 0
      example()
  EndSelect  
  Delay(1)
  NEXT
  EndProcedure

мог вызвать процедуру example до 99999 раз и при этом было бы созданно много потоков.

PS.
Этот код явно лишний, т. к. он не используется программой

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
  IncludeBinary "abcd.bmp"
  IncludeBinary "abcd2.bmp"
  IncludeBinary "abcd1.bmp"
  IncludeBinary "click3.WAV"
  IncludeBinary "выход из проги_0.bmp"
  IncludeBinary "выход из проги_1.bmp"
  IncludeBinary "pic1.bmp"
  IncludeBinary "pic2.bmp"
  IncludeBinary "pic16.bmp"
  IncludeBinary "pic17.bmp"
  IncludeBinary "pic20.bmp"
  IncludeBinary "pic21.bmp"
  IncludeBinary "pic22.bmp"
  IncludeBinary "pic23.bmp"
  IncludeBinary "pic24.bmp"
  IncludeBinary "pic25.bmp"
  IncludeBinary "Profile1.ini"

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

@aristov-96 · 22.10.2010, 18:56

слушай мне надо сделать условие если ни 1 кнопка не нажата то делать 1 процедуру если клавиша W нажата то постоянно пока не отпустишь делал процедуру другую, а там уже аналогично сделаю остальные клавишь

@PB · 22.10.2010, 19:33 **[ТС]**

Сообщение от aristov-96

если ни 1 кнопка не нажата то делать 1 процедуру если клавиша W нажата то постоянно пока не отпустишь

Это про клавиатуру?

Добавлено через 12 минут
В целом это делается так:

В главном цикле есть функция ExamineKeyboard.
После ее вызова, нужно вставить этот код

PureBasic
1
2
3
4
5
If KeyboardPushed(#PB_Key_All) = 0
  ; Тут код, который нужно выполнить если ниодна кнопка на клавиатуре не нажата
ElseIf KeyboardPushed(#PB_Key_W) = 1
  ; Тут код, который нужно выполнить при нажатии на кнопку W
endif

@aristov-96 · 22.10.2010, 19:59

блин ничего не понимаю раньше когда я нажимал на кнопку + рядом с характеристикам +3 можно было прибавлять на 1 уровне(записывал в файл всё как надо) если 3 раза прибавил удалял кнопки + а сейчас хоть сколько можно прибавлять хоть на 100 но при перезапуске он уже видит что быольше нельзя кнопки убирает почему сразу не уберёт???

@PB · 22.10.2010, 20:06 **[ТС]**

Сообщение от aristov-96

почему сразу не уберёт

Компьютер лишь выполняет программу.
Значит нужно искать причину с программе. Наверняка где-то нет требуемой проверки условия.

@aristov-96 · 23.10.2010, 18:17

Так вот именно всё проверил всё как было раньше ничего не изменилось

Добавлено через 21 час 34 минуты
я с этой темы скачал свой архив где нет процедуры движения и всё норм дописать не долго)

Добавлено через 16 минут
слушай

PureBasic
1
2
3
4
5
6
7
8
9
10
11
Procedure example()
  LoadSprite(60, ProgPath+"abcd2.bmp")
  doexample()
EndProcedure
 
Procedure doexample()
  If KeyboardPushed(#PB_Key_W) = 1
    q1+10
    q2+10
    EndIf
  EndProcedure

я хочу с каждым нажатием кнопки W сдвигалась картинка на 10 пикс вниз и вперёд почему не работает? видимо не проверяет постоянно нажата ли кнопка, 1 раз выполнил процедуру и закончил с ней, так?

@PB · 23.10.2010, 18:40 **[ТС]**

Смотря как и откуда вызывается процедура example.
Если она вызывается всего один раз, то не удивительно что не работает.
А если много раз, то появляется другой вопрос. Зачем много раз загружать один и тот же спрайт?
И ещё, функция KeyboardPushed работает в паре с ExamineKeyboard.
Это указанно в описании функции KeyboardPushed.

Новые блоги и статьи Все статьи Все блоги /
Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Video: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .	Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .
Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .	Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .

@aristov-96 12 / 12 / 0 Регистрация: 29.08.2010 Сообщений: 613
	19.10.2010, 18:31
	да с этим я разобрался, но вылазит следующие сообщение ТОЧНО ТАК ЖЕ И С loadsprite(в процедуре)((( 0

@PB Просто прогер 1292 / 1079 / 13 Регистрация: 13.03.2009 Сообщений: 2,502
	19.10.2010, 19:11 [ТС]
	В имени функции допущена ошибка. В тексте это LoadSpite А должно быть LoadSprite 1

@aristov-96 12 / 12 / 0 Регистрация: 29.08.2010 Сообщений: 613
	19.10.2010, 19:24
	ой вот что значит невнимательность))) но однако когда я запускаю при щелчке по кнопке ничего не отображается( 0

@aristov-96 12 / 12 / 0 Регистрация: 29.08.2010 Сообщений: 613
	21.10.2010, 19:36
	там и передвижение картинок и всё а мне надо что бы рэндом был если там переменная равна 1 то 1 процедура если двум то другая и т.д. 0

@aristov-96 12 / 12 / 0 Регистрация: 29.08.2010 Сообщений: 613
	22.10.2010, 18:56
	слушай мне надо сделать условие если ни 1 кнопка не нажата то делать 1 процедуру если клавиша W нажата то постоянно пока не отпустишь делал процедуру другую, а там уже аналогично сделаю остальные клавишь 0

@aristov-96 12 / 12 / 0 Регистрация: 29.08.2010 Сообщений: 613
	22.10.2010, 19:59
	блин ничего не понимаю раньше когда я нажимал на кнопку + рядом с характеристикам +3 можно было прибавлять на 1 уровне(записывал в файл всё как надо) если 3 раза прибавил удалял кнопки + а сейчас хоть сколько можно прибавлять хоть на 100 но при перезапуске он уже видит что быольше нельзя кнопки убирает почему сразу не уберёт??? 0

@PB Просто прогер 1292 / 1079 / 13 Регистрация: 13.03.2009 Сообщений: 2,502
	23.10.2010, 18:40 [ТС]
	Смотря как и откуда вызывается процедура example. Если она вызывается всего один раз, то не удивительно что не работает. А если много раз, то появляется другой вопрос. Зачем много раз загружать один и тот же спрайт? И ещё, функция KeyboardPushed работает в паре с ExamineKeyboard. Это указанно в описании функции KeyboardPushed. 1