Форум программистов, компьютерный форум, киберфорум
Наши страницы
Basic
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Basic Найти квадраты нечетных чисел в множестве http://www.cyberforum.ru/basic/thread682843.html
задано множество целых чисел, как в этом множестве найти удвоенные нечетные числа. например:дано мн-во {1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,25,26.........}, где ...
Basic Перевод текстового значения в числовое в Small Basic
К сожалению не нашел раздела для Small Basic. Пользователь вводит какие-либо цифры, переменная отвечающая за текст считывает их, затем необходимо перевести их в числовое значение. Считывать сразу...
Макрос замены четных и нечетных слов местами Basic
помогите пожалуйста с таким заданием "сделать макрос для обмена четных и нечетных слов местами" заранее спасибо
Basic С помощью программы magnetism определите силовые линии магнитиого поля круговой петли с током Здравствуйте, помогите с решением одной программкой, есть у меня такая программка которая по задачке в ней "рассматривается круговая петля с током в плоскости x-z и рисуются силовые линии магнитного... http://www.cyberforum.ru/basic/thread677949.html
Basic Как определить ОС и имя пользователя http://www.cyberforum.ru/basic/thread676982.html
и имя пользователя. Так же хотелось бы узнать, где находится каталог с данными приложений.
Basic Создание раздела FreeBasic (голосование)
Приветствую всех форумчан!:) Многие из вас, наверное, заметили, что на форуме слишком мало подразделов языка Бейсик, особенно если сравнивать с Паскалем и си, в которых существуют свободные...
Самоуничтожения программы Basic
Здравствуйте, есть программа самоуничтожения программы при помощи bat файла на Дельфи кто-то делал на ВБ6? в чём там принцип? в ней четыре файла Unit1.dfm Unit1.pas Project1.dpr Project1.res...
Basic Mobile Basic: как найти длину строки Не нашел в списке такого ЯП, думаю, в этом разделе будет правильно задать вопрос. Вообщем, есть код, который позволяет выводить кириллицу в строках на экран: sub main a$ = "это моя контрольная... http://www.cyberforum.ru/basic/thread668460.html
Basic Открыть нужный html файл в IE и нажать кнопку в его MsgBox http://www.cyberforum.ru/basic/thread663085.html
Здравствуйте, пробую так Sub Открыть_нужный_html_файл() Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Navigate "J:\Просмотровщик дисков, папок, файлов.html",...
Basic Определить название месяца выбранного дня Доброе время суток помогите решить задачки пожалуйста. 1. По названию введенной физической величины, характеризующей движение тела (координата, скорость, ускорение, время, сила) вывести ее... http://www.cyberforum.ru/basic/thread658545.html
stabud
122 / 49 / 1
Регистрация: 26.10.2012
Сообщений: 84
02.11.2012, 20:34 0

Графика FreeBasic

02.11.2012, 20:34. Просмотров 6122. Ответов 34
Метки (Все метки)

Ответ

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

Перед тем как запустить пример , качаем библиотеку FbPng с моего сайта , устанавливаем файлы библиотеки и заголовки в соответствующие папки компилятора, или в папку с примером по желанию. Запускаем простой пример ниже:

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#include once "fbpng.bi"
 
Screen 14,32,2
ScreenSet 1
Color , &hffff
Cls
 
Dim As Integer y
dim as any ptr ImgBackGround = png_load( "tree.png")
dim as any ptr ImgSprite = png_load( "sprite.png")
 
Do
    Cls
    Put (10,10),ImgBackGround, Alpha
    Put (30,y),ImgSprite,Alpha
    y+=1
    If y>160 Then Exit do
    Sleep 30
    Pcopy
Loop Until MultiKey(1) ' esc
Кстати, как на этом форуме класть изображения в нужные мне места моего сообщения? Что-то я не нашел нужной иконки тега. Я пока что автоматом загружаю вложения и все это лежит в конце моего сообщения.

Вернуться к обсуждению:
Графика FreeBasic
2
Миниатюры
Графика FreeBasic  
Вложения
Тип файла: zip TestPng.zip (42.7 Кб, 33 просмотров)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.11.2012, 20:34
Готовые ответы и решения:

FreeBASIC
Заметил, что уже имеющиеся на форуме темы в разделах: - QBasic - Visual Basic - VBA - Pure...

Осваиваю (ем) FreeBasic
Решил больше не тянуть, а приступить сегодня. Если тема будет актуальна - возможно модераторы...

Немного о FreeBasic
Чаще всего при начальном использовании какого-то языка , люди стараются выбрать простую,...

FreeBASIC и сети
Здравствуй, форум. Всё дело в том, что есть одни сетевые функции, и для этих функций Я решил...

Синтаксические особенности FreeBasic
По совету Stabud создаю тему, в которой будем обсуждать семантику и синтаксис диалекта FreeBasic....

34
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru