Всё о создании игр

Уроки, документация по DarkBasic

cann — Mon, 07 Jun 2021 17:59:10 GMT

Добрый день!

Понимаю, что язык DarkBasic устарел, но может у кого-нибудь есть завалявшиеся уроки, документация в электронном виде для изучения? Можете поделится, а то в Интернет очень мало информации?

Спасибо.

Small Basic

Nimphomaniak — Mon, 16 Nov 2020 11:10:40 GMT

Small Basic – это проект, призванный вернуть элементы игры в программирование. При помощи компактного и простого для изучения языка программирования, встроенного в привлекательную и дружественную среду разработки, Small Basic превращает программирование в забаву. Идеальный как для детей, так и для взрослых, Small Basic поможет начинающим сделать первые шаги в удивительный мир программирования.
Small Basic получил развитие от своего старшего брата – языка BASIC и базируется на платформе Microsoft .NET. Он действительно компактен: поддерживает всего 15 ключевых слов и минимум концепций, чтобы удержать барьер для начала обучения как можно более низком уровне.
Не смотря на то, что среда разработки Small Basic интуитивно проста, она предоставляет мощные и современные сервисы, такие, как IntelliSense и встроенную систему контекстно-зависимой помощи.
Независимые разработчики могут создавать дополнительные внешние библиотеки для Small Basic, легко интегрирующиеся в систему, тем самым расширяя его функциональность и предоставляя сообществу разработчиков возможность поучаствовать в этом веселом и интересном занятии.

Играйте, изучайте, работайте со Small Basic!
скачать Small Basic – это проект, призванный вернуть элементы игры в программирование. При помощи компактного и простого для изучения языка программирования, встроенного в привлекательную и дружественную среду разработки, Small Basic превращает программирование в забаву. Идеальный как для детей, так и для взрослых, Small Basic поможет начинающим сделать первые шаги в удивительный мир программирования.
Small Basic получил развитие от своего старшего брата – языка BASIC и базируется на платформе Microsoft .NET. Он действительно компактен: поддерживает всего 15 ключевых слов и минимум концепций, чтобы удержать барьер для начала обучения как можно более низком уровне.
Не смотря на то, что среда разработки Small Basic интуитивно проста, она предоставляет мощные и современные сервисы, такие, как IntelliSense и встроенную систему контекстно-зависимой помощи.
Независимые разработчики могут создавать дополнительные внешние библиотеки для Small Basic, легко интегрирующиеся в систему, тем самым расширяя его функциональность и предоставляя сообществу разработчиков возможность поучаствовать в этом веселом и интересном занятии.

Скачать Small Basic 0.7
руский форум поддержки
скачать документацию на русском языке (PDF)
скачать документацию на русском языке (doc)
задавайте здесь любые интерисующие вас вопросы!!!

Где скачать visual basik 6.0?

InFurions — Wed, 12 Aug 2020 12:19:36 GMT

Форум: Basic
Описание темы: бейсик
Автор темы: InFurions
Автор последнего сообщения: -Mikle-
Количество ответов: 24

RFO-Basic ( Basic! )

victus1961 — Mon, 09 Mar 2020 09:16:19 GMT

BASIK для АНДРОИД!
Это новый язык и к сожалению распространен в не
русско язычных странах. А также пока отсутствует литература.
Но посмотрев примеры и попробывал его - мне понравился.
Есть возможность работать в текстовом или графическом экранах.
Текстовый для быстрых расчетов, а графический для графики и текста.
Также отличная скорость работы. Возможность конвертировать в арк.
Но главное он использует все возможные устройства и сенсоры смартфона
и т.д..

Добавлено (27 августа 2015, 12:56)
---------------------------------------------
В RFO-Basic пишется программа, отлаживается и если все нормально, то сбрасывается
на ПК и в Eclipse собирается в apk .
Смотреть готовые программы на RFO-Basic и они же собраные в apk здесь:
http://laughton.com/basic/programs/games/

Добавлено (27 августа 2015, 15:50)

---------------------------------------------
Пример программы :

REM Start of BASIC! Program
REM Цветные шарики со звуком и без

GR.OPEN 255,200,200,200
GR.ORIENTATION 0
GR.SCREEN w,h

start:
gr.cls
cx=20
cy=h/2

loop:
r=255*((sgn(rnd()-0.5)+1))
g=255*((sgn(rnd()-0.5)+1))
b=255*((sgn(rnd()-0.5)+1))
GR.COLOR 255,r,g,b,1
dx=(rnd()-0.3)*30
dy=(rnd()-0.5)*40
cx=cx+dx
cy=cy+dy

! tone 3300-cy*10,186 % если убрать "!" будет звук
! 186 минимум миллисекунд данного устройства

GR.CIRCLE nc,cx,cy,8
if cy<0 then goto start
if cy>h then goto start
if cx>w then goto start
GR.RENDER

goto loop

В программе выше для каждого устройства свои миллисекунды!
Они определяются : запускаем набранную программу командой RUN и она если
находит не соответствие выдает ОШИБКУ в которой указывает нужные миллисекунды.

Добавлено (09 сентября 2015, 10:06)
---------------------------------------------

Помогите Please на Blitz Basic3D

sanya9411 — Wed, 09 Jan 2019 07:28:46 GMT

Graphic0 3D 320,200
SetBuffer BackBuffer( )
camera=CreateCamera( )
light=CreateLight( )
sp=CreateSphere( )
PositionEntity sp, 0,0,5
tex=LoadTexure( "Earth.gpj" )
EntityTexure sp, tex
While Not KeyDown ( 1 )
TurnEntity sp, 0,-1, 0
RenderWorld
Flip
Wend
End
что у меня не правильно?

Программирование игр на компьютер ZX Spectrum

TLT — Tue, 30 Oct 2018 20:23:28 GMT

Форум: Basic
Описание темы: ZX Spectrum - классика! КНИГИ!
Автор темы: TLT
Автор последнего сообщения: Vladimir1982
Количество ответов: 17

Gambas2

JackASS — Tue, 30 Oct 2018 19:52:04 GMT

Форум: Basic
Описание темы: A graphical Basic language for Linux with objects and plugin
Автор темы: JackASS
Автор последнего сообщения: Vladimir1982
Количество ответов: 12

Снова Blitz3D

STVRLIGHT — Tue, 19 Jun 2018 14:05:31 GMT

Так ничего и не получается, что очень странно. Решил попробовать написать маленькую программку, чтобы проработать запись в .txt:

a=1
b=1

Dim array$(100)

test1=ReadFile("test1.txt")
test2=ReadFile("test2.txt")

For i=1 To Eof
array$(a)=ReadLine(test1)
a=a+1
Next

For i=1 To Eof
array$(a)=ReadLine(test2)
a=a+1
Next

CloseFile(test1)
CloseFile(test2)

test3=WriteFile("test3.txt")

For i=1 To a
WriteLine(test3,array$(b))
b=b+1
Next

CloseFile(test3)

В test1 и test2 уже занесены данные. Программа выполняется, test3 так и остается пустым...

таблица синтаксиса языка vbs

gemcd — Thu, 19 Apr 2018 19:58:25 GMT

СИНТАКСИС ПРИМЕР ОПИСАНИЕ
Операторы работы с массивами.

Код

Dim

имя_массива (индексы)

Код

dim a(10),b(20,30)

Объявление массива

Код

Erase

имя_массива

Код

erase a

Очистка содержимого массива
Операторы присваивания.

переменная = значение

Код

a=137 a=b c="привет"

Присваивание

Код

Set

переменная = объект

Код

set a=document.forma1

Присваивание переменной значени ссылки на объект.
Комментарии.

' комментарии ' текст

Код

Rem

комментарии

Код

rem

текст
Константы Boolean.

переменная =

Код

False if a=false then ...

Значение типа boolean равное 0
переменная =

Код

True if a=true then ...

Значение типа boolean равное -1
Функции.

Код

Abs

(число)

Код

a = abs(-1.34) ... a=1.34

Абсолютное значение числа

Код

Asc

(символ)

Код

a = asc("s") ... a=115 ANSI

код символа

Код

Chr

(число)

Код

a = chr(115) ... a="s"

Символ соответствующий коду

Код

Fix

(число)

Код

a = fix(-1.5) ... a=-1

Целое число, округление

Код

Int

(число)

Код

a = int(-1.5) ... a=-2

Целое число, округление

Код

Hex

(число)

Код

a = hex(543) ... a="21F"

Шестнадцатиричное представление

Код

Oct

(число)

Код

a = oct(543) ... a="1037"

Восьмеричное представление

Код

Sgn

(число)

Код

a = sgn(-1.3) ... a=-1

Знак числа

Код

Date a = date ... a=

Текущая дата

Код

Day

(выражение)

Код

a = day(date) ... a=

День

Код

Time a = time ... a=

Время

Код

Timer a = timer ... a=

Количество секунд истекших после полуночи

Код

Now a = now ... a=

Дата и время

Код

Hour

(выражение),

Код

Minute

(выражение),

Код

Month

(выражение),

Код

Second

(выражение),

Код

Year

(выражение),

Код

Weekday

(выражение)

Код

a = hour(now) ...

и т.д. Час
Минута
Месяц
Секунда
Год
День недели (вск=1)

Код

Atn

(число)

Код

a = atn(0.37)

Арктангенс

Код

Tan

(число)

Код

a = tan(0.37)

Тангенс

Код

Cos

(число)

Код

a = cos(0.37)

Косинус

Код

Sin

(число)

Код

a = sin(0.37)

Синус

Код

Exp

(число) a = exp(0.37) Экспонента

Код

Log

(число) a = log(0.37) Логарифм
Sqr (число) a = sqr(0.37) Квадратный корень

Код

Rnd

(число)

Код

a = rnd(1)

Случайное число 0..1
Randomize Randomize Установка генератора случайных чисел в исходное состояние
Операторы используемые в выражениях

Привожу просто список, надеюсь все и так ясно:

Код

+ And / = Eqv ^ > <= Imp <> \ < => Mod * - Or & Xor

Текстовые Функции

Код

Instr (начало, строка, искомая подстрока)

Код

If Instr(1,mail,@) then ...

Возвращает номер символа в строке с которого начинается исходная подстрока

Код

Lcase (строка) a=Lcase("ПРивЕТ") ... a="привет"

Преобразование символов строки в строчные буквы

Код

Ucase (строка) a=Ucase("ПРивЕТ") ... a="ПРИВЕТ"

Преобразование символов строки в заглавные буквы

Код

Left (строка,N символов) a=Left("Привет",3) ... a="При"

Левая часть строки длинной N символов

Код

Right (строка,N символов) a=Right("Привет",3) ... a="вет"

Правая часть строки длинной N символов

Код

Len (строка) a=Len("Привет") ... a=6

Длина строки

Код

Ltrim (строка) a=Ltrim(" Привет ",) a="Привет "

Удаляет начальные пробелы

Код

Rtrim (строка) a=Rtrim(" Привет ",) a=" Привет"

Удаляет конечные пробелы

Код

Trim (строка) a=Ttrim(" Привет ",) a="Привет"

Удаляет начальные и конечные пробелы

Код

Mid (строка, начало, N символов) a=Mid("Привет",3,2) a="ве"

Часть строки с позиции "начало" и длиной N символов

Код

Left(строка,N символов) a=Left("Привет",3) a="При"

Левая часть строки длинной N символов

Код

Space (N) a=Space(5)

Строка из N пробелов

Код

String (N символов, символ) a=String(5,"A") a="AAAAA"

Строка из N символов

Код

Ltrim (строка) a=Ltrim(" Привет ",) a="Привет "

Удаляет начальные пробелы
Ветвление и циклы

Код

Call

имя_событие

Код

Call but_onclick

[/code]Exit ... Exit Do (For, Function, Sub) Досрочный выход[code]

таблица подтипов vbscrept

gemcd — Wed, 04 Apr 2018 01:14:27 GMT

ПОДТИП ФУНКЦИЯ ПРЕОБРАЗОВАНИЯ ОПИСАНИЕ

Epty - Автоматически присваивается новым переменным, когда им еще не присвоено явное значение.

Null - Указывает на то, что переменная не содержит допустимых данных.

Boolean CBool(x) Используется для обозначения логических переменных, принимающих два допустимых значения True или False

Byte CByte(x) Самый короткий тип данных принимающий значение 0..255

Integer CInt(x) Целый тип в пределах -32768 .. 32768

Long CLng(x) Длинный тип целой переменной в пределах -2147483648 .. 2147483647

Single CSngl(x) Тип чисел с плавающей точкой одинарной точности

Double CDbl(x) Тип чисел с плавающей точкой двойной точности

Date/Time CDate(x) Число в формате отображающее время и дату от 1 января 100 года до 31 декабря 9999 года

Currency CCur(x) Специальный числовой формат для денежных величин

String CStr(x) Символьные тип данных

Object - Ссылка на объекты ole, html, ActiveX

Error - Тип данных предназначенный для хранения номеров ошибок
===================+

список ЯП и сред разработки BASIC для игр

CaptainHunt — Fri, 30 Mar 2018 15:46:23 GMT

Язык программирования Бейсик (BASIC) насчитывает десятки разных диалектов, предназначенных для самых разных целей: для создания прикладных и других неигровых приложений, для собственно самих игр, для учебных целей и др. Есть среди них как платные, так и бесплатные. Здесь приведён список бесплатных диалектов Бейсика, игровых движков и конструкторов, с помощью которых были созданы или создаются игры (пока в произвольном порядке).

Последнее обновление списка: 2.10.2015

1. Basic4GL - для Windows с встроенной поддержкой OpenGL.
Описание

2. FreeBASIC - для Windows, Linux и DOS
Описание
Игровой 3D движок для FreeBASIC - WorldSim3D
Описание
Тема на нашем сайте

3. BasiEgaXorz - для Sega Mega Drive (Genesis), Sega CD, Sega 32X, Sega CD 32X
Описание

4. Blitz3D для PC Windows 95/98/ME/2000/XP/Vista/7/8
Описание

5. BlitzPlus - 2D-игры любого жанра и типа для PC Windows 95/98/ME/2000/XP/Vista/7/8
Описание

6. SmallBASIC - быстрый и лёгкий в изучении, позволяет делать простые игры для Android, Windows, Linux, Nokia Internet Tablet, PalmOS и eBookMan.
Исходники игр

7. Microsoft SmallBASIC - очень лёгкий в изучении, всего 14 ключевых слов. Позволяет делать простые игры для Windows.
Исходники игр

8. Brutus2D - для Windows. Идеален для создания Shoot EM Up, скроллеров, платформеров, головоломок и других видов игр. Можно создавать и 3D игры при наличие соответствующих плагинов (например, плагин Truevision3D).
Описание
Игры

9. BlitzMax - для Windows, Linux и Mac OS X. С его помощью вы можете создать 2D/3D-игры любого жанра и типа: Action, Puzzle, Advanture, RPG и пр. Blitz сможет вместить в себя что угодно!
Описание
Игры для всех движков типа Blitz

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

Эта тема не предназначена для обсуждения преимуществ и недостатков приведённых в списке или других сред разработки!

Как показать второе окно

Sholar — Tue, 06 Feb 2018 07:02:30 GMT

Прошу помощи, знающих!
Сразу скажу, что гуглом пользовался, уже не 1 день, и ответа так и не нашел. Нахожу куски кода, которые вообще не помогают.
У меня стоит "Visual Studio 2015", пишу на Visual Basic, вся суть проблемы описана в картинке ниже.
Раньше, на старых версиях, были понятия "Form", их создаешь N штук, и управляешь через .show, в 2015, появились какие то окна, с окнами внутри! я в этом любитель, буду благодарен если кто то объясняет.
*Возможно я что то не правильно изначально делаю, но задача стоит такая: Показывать форму с выбором пользователя, после выбора, эта форма закрывается, и открывается новая форма.

большая картинка!

FreeBasic вывод графики

vicmad — Sat, 30 Sep 2017 21:18:52 GMT

Всем привет!
Есть специалист который может кодом помочь?
У меня задача написать один цикл который будет выводить на экран все графические объекты.
Я начал с создания графического объекта "спрайт", создал несколько других объектов "солдат игрока", "солдат компа" в которые входит тип спрайт. Можно как то написать цикл который обращается к типу спрайт игнорируя в какой объект он вложен??

Код

Type Sprite
   img as Any Ptr
end type

Type Unit
   value as byte
   spr as Sprite
End Type

Dim Shared as Unit pl_units(5)
Dim Shared as Unit cpu_units(5)

В Blitz3D была зашибись команда "For Each" есть какой то аналогичный способ перебрать все объекты одного типа не зависимо от того в какой массив они входят?

Добавлено (01 октября 2017, 00:18)
---------------------------------------------
Подскажите плиз алгоритм вывода графики в изометрии, чтоб при пересечении спрайтов объект ниже не перекрывался объектом выше(более отдаленном). На клеточной карте это не проблема но что делать с псевдо 3д битэмапами??

Задачи QBasic

sega-bbl — Wed, 02 Nov 2016 12:28:02 GMT

Всем привет! Помогите разобраться в этих задачах.
В коде хоть что-то поначеркано, а вот в блок-схемах вообще ноль. Никак не пойму как в схеме отразить проверку условия.

Задачи:
Разработать блок-схему и написать программу на языке программирования QBASIC
Задача первой группы:
Дан массив А из 20 элементов. Заменить положительные элементы массива на минимальный элемент массива. Результат вывести на печать.
Решение:

Задача второй группы:
Определить произведение, сумму и количество элементов массива A(N.M), ЗНАЧЕНИЯ КОТОРЫХ ПОПАДАЮТ В ИНТЕРВАЛ (1.5;3.2). Результаты вывести на печать.

BlitzMax- цикл с ожиданием нажатия любой клавиши

edgemza — Fri, 14 Oct 2016 20:23:52 GMT

Привет!
Столкнулся с проблемой:
нужно организовать цикл, который бы "крутился" и выполнял нужные действия пока не будет нажата любая клавиша.
repeat
<необходимые действия>
until <нажата ли любая клавиша>

keydown - я так понял используется только с константами нужной клавиши
KeyDown(key_escape)

keywait - просто ждет нажатие любой клавиши

а как сделать в моём случае?

BlitzMax чтение и запись файлов

vicmad — Thu, 30 Jun 2016 08:40:19 GMT

Просьба помочь кодом небольшой програмки, так как БМ относительно недавно стал бесплатным решил осуществить мечту юности и совоить его.
Предыстория: Делая игры на FreeBasic столкнулся с проблемой чтения графики, стандартная комплектация распознает только bmp файлы, если много анимированных спрайтов - это сильно утяжеляет архив с игрой. Пытаясь уменьшить вес графической части одновременно озадачился вопросом "как прятать картинки, хотябы от нубов", решил пойти путем переноса bmp в текстовый формат. Сделал програмку которая сокращенно записывала цвет каждого пикселя в текстовом файле (чтото типо HHFFF001FHFG), а в игре картинка грузилась рисованием пикселей путем расшифровки сокращенных имен цветов. Не понацея но забавно.

Может ктонибудь кинуть код программы которая:
1) загружает картинку
2) создает текстовый файл и записывает туда цвет карждого пикселя изображения (например спрайт 100*100 пикс)
3) ниже попиксельно рисует картинку на основе текстовых запесей цветов.

Спасибо.

Скроллинг карты [VB6-2005]

iVAN2002 — Sun, 15 May 2016 14:12:49 GMT

Здравствуйте. У меня возникла потребность сделать уровень больше экрана. Но реализация моих "хотелок" мне в голову не приходит.
Подскажите, пожалуйста, как мне это сделать?

Забавная археология

Gudleifr — Fri, 25 Mar 2016 15:16:55 GMT

Нашел в Сети пару древних книжек Usborne по программированию игр на BASIC:

Перевод

Конечно, интерфейсы с тех пор поменялись радикально. Только садомазохист будет требовать от игрока ввода номера цели...
Но, интересно, по крайней мере, одно: в силу простоты этих игр "оценка успешности игры" была очевидно связана с ее интерфейсом. Меняя цифры в одном, я правил и другое. Сейчас интерфейс столь сложен, что его правка носит чисто вынужденный характер - "чтобы хоть как-то работало", а "оценка" диктуется сценаристом/дизайнером отдельно. Может, "современный игровой BASIC" нужно снабдить средствами, эту связь восстанавливающими? Какими-нибудь "гомеостатами", "уменьшителями/увеличителями энтропии", "машинами Теории Игр" и прочими "демонами".

BasiEgaXorz - какой в нём Бейсик используется?

Linka — Tue, 02 Feb 2016 04:27:13 GMT

Есть среда такая BasiEgaXorz - в ней ЯП Бейсик.

У меня возникла идея сделать порт простой игры с ПК на Сегу. Например, с чего мне начать? Как портировать? ЯП не знаю особо, но в программировании разбираюсь и на основе шаблона можно было бы что-то сделать.

Есть ли вариант Бейсика, который максимально прост и с небольшой коррекцией и адаптацией пошел бы в BasiEgaXorz. Где взять простые примеры игрушек на ЯП Бейсик, типа Тетрис, рогулайки, Пинг-понг и т.п. Кто знает, есть ли какой-то список, база таких шаблонов игр простых. Желательно без графики и замутов под Windows.

Помогите найти, пожалуйста.

FreeBasic - проблема со Sleep()

martuk — Fri, 08 Jan 2016 19:48:54 GMT

У меня проблема с разновидностью диалекта basic - FreeBasic

В общем, вчера (а это было вчера) я работал с командами Sleep() и Timer(), засекал работу команды sleep(). Все работало идеально!

Вот код:

Код

timer2 = Timer() ' Засекаю начальную точку времени
Sleep(17) ' Засыпаем на 17 ms
tim1 = (Timer()-timer2)*1000 ' Считаю сколько прошло времени на самом деле.

Так вот, кульминация еще впереди! В переменную tim1 оно кидало верное значение 17! (Погрешность + - 0.1, но это не важно)

Проблема дня: Запускаю тот же самый код, и вы не поверите но он нещадно грешит со ответом!

Вот стата:

- Засыпаю на 15 ms, а на самом деле заснули на 30 ms
- Засыпаю на 30 ms, а на самом деле заснули на 45 ms
- Засыпаю на 1000 ms, а на самом деле заснули на 1255 ms

!!!! - Засыпаю на 1 ms, а на самом деле заснули на 15 - 16 ms - вот это sleep просто жгёт)

В чем отличие? по мне так это магнитные бури мешают нормально работать sleep(). Читал в ваших интернетах, что sleep способен грешить, но оправдывалось это вызовом функции и перехода к timer() но это жалкие 0.1 - 0.2 ms, что не очень то важно.

В чем проблема? Или меня компьютер разлюбил? :'(

Добавлено (04 января 2016, 18:49)
---------------------------------------------
UPDATE
Вообще при подстановке значения для Sleep() в диапазоне от 8 до 18, он засыпает ровно на 30 ms.
если заснуть на 5 - то в реале на 14

Помогите в разборе программы.

Gamer6890 — Fri, 13 Nov 2015 23:05:37 GMT

Делал пример с книги по бейсику, нужно было сделать программу "Угадайка", где рандомно выбирается число, а пользователь должен его угадать, есть даже подсказки, "Правильное число больше, меньше" Вообщем в чем проблема, Списав с образца весь код изменив только названия переменных я запустил программу, но при угадывании числа должна выходить надпись, "Вы угадали число (число) с ... попытки" но всегда попыток ноль. Прошу помочь советом, как сделать что бы показывало количество потраченных попыток?

Вот образец, на английском правда..

Код

;demo02-11.bb - Try to guess the number
Print "Welcome to the Guessing Game!"
AppTitle "Guessing Game!"
;Seed the random generator...don't worry, it willl be explained later
SeedRnd MilliSecs()

;Pick a number between 1 and 100
numbertoguess = Rand(1,100)

;The num of guesses the user has used
numofguesses = 0

;set the beginning of loop label
.loopbegin
    ;Find out the user's guess
    guess = Input$("Guess a number ")

    ;If player guesses outside of range, tell him to guess again
    If guess > 100 Or guess < 1
  Print "Pick a number between 1 and 100, silly!"
  ;Go back to the beginning
  Goto loopbegin

    EndIf

    ;Add a guess to the guess counter
    numofguesses = numofguesses + 1

    ;If the guess is too low, go back to beginning
    If guess < numbertoguess Then
  Print "The number was too low."
  Goto loopbegin
    ;If guess is too high, go back to the beginning
    Else If guess > numbertoguess Then
  Print "The number was too high."
  Goto loopbegin
    EndIf

Print "You guessed the number " + numbertoguess + " in " + numofguesses  + " tries!"

;Wait five seconds
Delay 5000

А вот мой код

Код

Print "Добро пожаловать в игру Угадайка"
AppTitle "Угадайка"
;Установка генератора случайных чисел..
SeedRnd MilliSecs()
;Выбор числа от 1 до 10
number=Rand(1,25)
;число попыток
numofguest=0
;устанавливаем метку начала цикла
.loopbegin
;выясняем какое число ввел пользователь.
guest=Input$("Ваше число")
;если игрок не угадал число, он угадывает снова
If guest > 25 Or guest < 1
Print "Попробуйте снова"
;возвращаемся в начало программы
Goto loopbegin

EndIf

;увеличиваем число использованных попыток игрока
numofguest = numofguest + 1
;если введенное число меньше загаданного переносим игрока в начало цикла
If guest < number Then
Print "Это число меньше загаданного"
Goto loopbegin
;если введенное число больше нужного
Else If guest > number Then
Print "Это число больше загаданного"
Goto loopbegin

EndIf

Print "Вы угадали число" + number + "вы молодец!" + "Вы угадали с" + numofguest + "попыток"

Delay 10000

Создаю онлайн игру на vb6

eXePir — Fri, 23 Oct 2015 12:49:51 GMT

Я начал создавать онлайн игру на vb6. Для связи сервера и клиента использую mysql. Пока есть вот что:
Сервер запускается и читает базу и если находит клиента то обновляет запись и клиент понимает что сервер онлайн.
Но проблема в том что сервер обрабатывает только одного клиента.

Кто занет помогите.
Сорри пытаясь наладить я испортил иходник сервера
исходники

Помогите ввести формулу

permyakov2745 — Thu, 02 Jul 2015 10:52:57 GMT

Форум: Basic
Описание темы: Язык small visual
Автор темы: permyakov2745
Автор последнего сообщения: martuk
Количество ответов: 1

Срабатывание коллизии от прикосновения

GameDev2 — Fri, 17 Apr 2015 09:17:29 GMT

Нужна помощь программиста с куском кода...

У меня есть код:

Код

if a=&h01 then 'если объект столкнулся (вошел в него) с другим объектом, то происходит действие
dir=4 'включается нужное мне действие - реакция на столкновение.
endif

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

Смотрите рисунок 3:

Как переделать коллизию так? Помогите!

Small basic -> Visual studio ?

makster — Tue, 23 Dec 2014 17:49:25 GMT

Привет.
Существует такая среда как "Small Basic" код из нее подходит для скриптов в "Visual studio"?
Я вроде видел гдет это, но точно не знаю. Давно уже учился на нем, а нужно срочно выбрать среду, хотелось бы Визуал повторить, но хочу узнать по поводу языка программирования.

Добавлено (22.10.2014, 19:23)
---------------------------------------------
Up

FreeBasic

T_888 — Fri, 18 Jul 2014 09:03:28 GMT

Это место для тех кто программирует на FB или хочет знать о нём больше.
FreeBasic - это язык программирования, который предоставляет очень широкий спектр возможностей. Отсюда и название.
Скачать язык и компилятор можно на http://freebasic.net.
Также прошу выкладывать ссылки на игры, написанные на нем, в этой теме.
Здесь можно обсуждать ФБ и делиться впечатлениями.

2D анимация на FreeBasic + CSFML

SetBeZuMec — Tue, 29 Apr 2014 11:16:55 GMT

Всем доброго времени суток!

Обращаюсь с просьбой о помощи. На днях начал портировать заголовки CSFML 2.1 на FreeBasic. Проделана большая часть работы - грузятся спрайты, шрифты, звуки, также все прекрасно рисуется, хотя осталось еще не мало чего доработать и протестировать. Решил для теста написать небольшой платформер, но знаний и опыта, как показала практика, совсем недостаточно. На первом же этапе возникли трудности, а именно с созданием простенького класса анимации. Перелазил по всему официальному форуму SFML в поисках подобного, есть, но написано на С++, поэтому и не смог разобраться.

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

QBasic, решение задачи с циклом

Scvad — Mon, 24 Mar 2014 13:13:49 GMT

Вот задание,если решите буду очень благодарен.

Код

Задание:
Дана n последовательность трехзначных целых чисел.
1.Определить сумму чисел,оканчивающихся на 0.
2.Произведение чисел,оканчивающихся на два 0.

Решить используя: DO WHILE .... LOOP

Добавлено (02.03.2014, 20:30)
---------------------------------------------
Help! очень срочно

QBasic, определить последнюю цифру

Scvad — Sun, 16 Feb 2014 10:43:55 GMT

Форум: Basic
Описание темы: Лабораторка
Автор темы: Scvad
Автор последнего сообщения: Scvad
Количество ответов: 2

Задание

EvilDube — Thu, 26 Dec 2013 00:26:02 GMT

Форум: Basic
Автор темы: EvilDube
Автор последнего сообщения: EfimovMax
Количество ответов: 1

Как вывести текстуру на экран в VB

zisX — Wed, 25 Dec 2013 20:55:38 GMT

Форум: Basic
Автор темы: zisX
Автор последнего сообщения: EfimovMax
Количество ответов: 1

PureBasic VS FreeBasic

vicmad — Sun, 22 Dec 2013 05:14:39 GMT

Как по вашему мнению, какой байсик (Пурик или Фрибэйсик) лучше осваивать углубленно?
Я поверхностно попробовал оба, из достоинтств - оба отностительно простые, вроде даже понятные, оба должны подходить под создание игр. В Пурике есть готовый 3д двиг на базе Огра, Фрибарсик полностью бесплатен.

Подходит ли PureBasic?

MrKillous — Sun, 08 Dec 2013 05:03:43 GMT

Собственно я опредилился что для начала буду изучать PureBasic. Так вот, у меня сразу возник вопрос. Для каких целей он предназначен? То есть, смогу ли я сделать на нем полноценную игру, или только программы?

Помощь в языке программирования - Visual Basic

First — Sat, 07 Dec 2013 21:53:52 GMT

Доброе время суток. Прошу в этой теме писать Ваши вопросы и проблемы, которые касаются языка программирования - Visual Basic. Я и другие пользователи, которые специализируются в этом направлении, помогут Вам с Вашими вопросами и проблемами.

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

Учебник №1 - не плохой онлайн учебник для новичков.
Учебник №2 - сайт с уроками по данному языку программирования (и не только).
Учебник №3 - хорошая книга с отличными примерами по Visual Basic.

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

Общие просьбы:
- Если у Вас проблема в исходном коде, то просьба показывать его полностью, или прикрепить ссылку, где его можно скачать.
- Описывайте Вашу проблему полностью, что бы мы могли понять с чего начать и в чем проблема.
- По возможности прикрепите скриншот к теме своего вопроса.
- Не писать ответ других пользователей, которые не уверены в том, правильная ли их помощь!

Нужна помощь с кодом проект Zona Zomie

DrFeni — Sat, 30 Nov 2013 18:40:05 GMT

Ребят, нужна помощь с настройкой кода игры:
k8123-hostde2.fornex.org/Sample2.bb

Как я понял вся проблема в этой части кода

Код

;????????? ????????????? =====================================================
;??????
Server$="rusnet.tomsk.ru"
Port=7776
;Server$="byfly.by"
;Port=80
;?????, ???????????
UserName$="TankMan"
HostName$="Tanchiki"
ServerName$="Benchiki"
RealName$="Vasyasd"
Global MyNick$=Chr(Rand(65,90)) + Chr(Rand(65,90)) + Chr(Rand(65,90) )+ Chr(Rand(65,90))  ;??? ???
Global GameChan$;="#sdsd" ;?????/?????? ????
Global mybody

  ;?????????? ??????? ???? ??????????? ????? ??????? ??????? JOIN (????? ?????? ????????? ??? ??? ?? ????? ?? ?????? ?????)
  ;??. ????????
;????? ?????=================================================================

Помогите настроить , код можете использовать в своих проектах.
P.S код сайта придется купить если решите разрабатывать игру.
Ссылка на ресурсы: k8123-hostde2.fornex.org/Zona.rar (после скачивая проверти архив антивирусом!)
Как куплю коммерческую лицензию отдам весь код и ресурсы!

Добавлено (27.11.2013, 21:17)
---------------------------------------------
Почему не работает я уже знаю, осталось разобраться почему карта не грузится!

Помогите установить freebasic на openSUSE

hero564 — Mon, 25 Nov 2013 10:07:02 GMT

НИкак не могу понять как установить, скачал архив там внутри какие-то папки и файлы. В ридми пишет что для установки необходимо с терминала перейти в распакованный каталог и выполнить

Код

sudo ./install.sh -i

. Буду благодарен за пошаговую инструкцию

Костная анимация в Blitz3D.

GamakST — Wed, 09 Oct 2013 18:48:50 GMT

Здравствуйте, я раньше пользовался Blitz3D, но теперь опять начал в нем работать.
И меня снова постигли два вопроса.
Если ли в Blitz3D, костная анимация?
Если нету, то как тогда сделать 3D анимацию?
__________________
3D редактор - Blender

Графические API для VB6.

-Mikle- — Mon, 05 Aug 2013 11:25:52 GMT

Часто возникают вопросы, как и с применением каких API программировать графику на VB6. Хочу собирать здесь ссылки и примеры с краткими пояснениями, чтобы, прочитав эту тему, человек мог сориентироваться и сделать выбор.

1. DX7 и DX8
Выбирать DX7 особого смысла нет, так как DX8 в современных условиях будет работать везде, где работает DX7, но при этом имеет больше возможностей и не сложнее. Для DX8 и VB6 Microsoft выпускала SDK, сейчас его убрали с сайта Microsoft, но в сети найти не сложно. Однако для работы SDK не обязателен, могу предложить руководство для начинающих на русском языке и с множеством примеров:
Статья
Однако использование DX8 на VB6 сейчас утратило актуальность, поскольку Microsoft, начиная с Windows Vista, урезала DX8 на одну DLL - dx8vb.dll, эта DLL небольшая и без проблем регистрируется и работает, однако её распространение отдельно от DX8 незаконно, то есть разработка коммерческого проекта нам не светит.

2. DX9
DX9 сейчас наиболее популярен для небольших проектов, типа казуалок, поскольку, в отличие от DX10 и DX11, он есть на Windows XP. Но для DX9 и VB6 SDK не выпускалось. Хочу предложить свой вариант, это одна единственная DLL плюс набор модулей и классов, которые нужно подключить к проекту - и можно использовать DX9. Правда это не полный набор, а только наиболее необходимое, но для простых проектов, как правило, большего и не нужно. Кроме того - это моя DLL, то есть никаких проблем с лицензированием, плюс она нативная, то есть не требует регистрации в системе и при установке проекта с её использованием на Windows без админских прав не возникнет проблем.
Набор примеров работы с этим портом:
dx_vb
Статья про создание водной поверхности с исходным кодом, использующим этот порт:
Article
На написание руководства сил не хватило :). Вполне можно начинать учиться на DX8 по книге, ссылку на которую я привёл выше. Переход на DX9 бедет лёгким, потому что DX8 и DX9 похожи, и приятным, потому что DX9 ещё более прост и логичен.

3. SR2D
Это мой порт для спрайтовой 2D графики. Возможностей, конечно, значительно меньше, чем в DirectX, зато он значительно проще - одной командой грузим спрайт из файла, одной командой отображаем на форму или PictureBox.
Это полностью софтовый рендер, никаких требований к используемой видеокарте.
Сейчас можно уже попробовать версию 3.2:
SR2D
В ней появились новые возможности, такие, как вращение и масштабирование спрайтов и многое другое, но порт ещё окончательно не готов, и нет пока руководства.
Небольшая игра BriX на SR2D версии 2.0:
BriX

Редактор ландшафта

LDMT — Wed, 31 Jul 2013 14:54:25 GMT

пробуем и отписываемся о найденных багах

управление:
ctrl - перемещение сетки
alt- уменьшение/увеличение сетки
shift - выделение области
пробел - wireframe
wasd - полет камеры
стрелки - вращение модели
редактировать ландшафт - включаем соответствующую кнопку-тумблер

скачать
http://rghost.ru/47499827

Игры созданниые на Microsoft Visual Basic 6

eXePir — Tue, 30 Jul 2013 18:21:56 GMT

В последнее время часто вижу на разных сайтах, что типо на vb6 нельзя делать игры мол он слишком медленный или на нём нету графических апи нормальных.
И чтобы доказать, что он способен на создание игр я предлагаю собрать здесь все игры котрые созданы на этоп ЯП.

Visual Basic 6 -> Visual Studio Ultimate

ven000mus — Fri, 26 Jul 2013 12:04:48 GMT

Привет всем. Я только начал изучать ВБ6. У меня Windows 8 и стоит Visual Studio 2012, насколько я знаю это среда разработки для разных языков и вроде как Basic он точно поддерживает. Но проблема в том что файлик под названием server.vbp написан на VB6 и почему то студия его не хочет открывать.

Вот ссылка на скрин http://yadi.sk/d/kY-KXWhP62QGg

Он предлагает мне обновить код ВБ6 на VB.Net вот я и думаю а зачем, не испортит ли это исходники моего файла
В общем нужна помощь. Может есть программа аналогичная студии
В общем мне пока что надо всего лишь перевести с англ -> на русский одну игру на ВБ6

Добавлено (21.06.2013, 15:53)
---------------------------------------------
А это вот при открытие этого же файла server.vbp в Visual Basic 6.0 Professional SP5

http://yadi.sk/d/CdDCKRur62RCE

Добавлено (23.06.2013, 01:34)
---------------------------------------------
Всем привет. Такой вопросик к Вам ребята

Вот кусочек кода:

Код

sString = "Ур.: " & GetPlayerLevel(MyIndex)
RenderText Font_GeorgiaShadow, sString, dX, dY, White

Там всего две буквы русские, это Ур.
Ниже как я понимаю идет шрифт, так вот этот шрифт не хочет кушать русские буковки
Вот тут скрин того что указано в коде http://yadi.sk/d/5QIP5ods64t40
Лежит это в папке, вот подскажите пожалуйста как мне добавить этому коду шрифт Courier New кирилицу... Заранее благодарен. Если не все подробно показал, напишите, покажу и расскажу.

Добавлено (23.06.2013, 09:48)
---------------------------------------------
И тишина

Добавлено (23.06.2013, 13:56)
---------------------------------------------
Нашел все сам и решил проблему.
Если кому надо, вот мана по этой проблеме http://www.eclipseorigins.com/community/index.php?/topic/131631-how-to-make-a-bitmap-font/

Теперь решаю проблему с чатом, во всей игре русский шрифт отображается, кроме чата, стоит там что то написать, так одни каракули
Вот посмотрите ->

можно ли быстро выучить визуал бейсик

smile196 — Fri, 26 Jul 2013 07:13:19 GMT

Форум: Basic
Описание темы: зная бейсик
Автор темы: smile196
Автор последнего сообщения: smile196
Количество ответов: 4

Уроки Blitz3d

GameLoper — Thu, 25 Jul 2013 07:11:58 GMT

Необходимые вещи

1.Мозги
2.Руки
3.Комп
4.blitz3d

Глава I :3д Мир

Глава 2 :Платформер

В этой главе мы будем разберать исходный код и делать платформер

Добавлено (29.06.2013, 01:42)
---------------------------------------------
up

Вопросы о коде PureBasic

MrKillous — Tue, 02 Jul 2013 14:10:37 GMT

Продолжаються мои вопросы о PureBasic. В этой теме я хоте бы позодовать знаюшим людям вопросы.

Код

If OpenWindow(0, 100, 100, 640, 480,"menu",  #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget) And CreateGadgetList(WindowID(0))

ButtonGadget(1, 50, 50, 400, 40, "New Game", #PB_Button_Default)
ButtonGadget(2, 50, 100, 400, 40, "Creatures", #PB_Button_Default)

Repeat
A= WaitWindowEvent( )

If A=1
OpenWindow(3, 100, 100, 640, 480, "game", #PW_Window_MinimaizeGadget | #PW_Window_MaximaizeGadfet) And CreateGadgetList(WindowID(3))

If A=#PB_Event_CloseWindow
Q=1
EndIf

Until Q=1

EndIf
End

Вот код, он должен открывать мне одно окно из другого, но почему то он не работает.

Хочу начать изучать VisualBasic

MrKillous — Mon, 01 Jul 2013 19:05:50 GMT

Собственно суть в названии, хочу начать изучать. Вот только проблемма, я не знаю где это можно сделать. Есть ли хорошие уроки для чайников?

Уроки Blitz3d(как будет выгледить уроки?)

GameLoper — Fri, 28 Jun 2013 14:08:03 GMT

Форум: Basic
Автор темы: GameLoper
Автор последнего сообщения: GameLoper
Количество ответов: 0

Уроки Blitz3d(Выбор темы)

GameLoper — Thu, 27 Jun 2013 16:44:24 GMT

Форум: Basic
Автор темы: GameLoper
Автор последнего сообщения: GameLoper
Количество ответов: 2

Pure Basic

nazar79 — Tue, 18 Jun 2013 19:05:03 GMT

Всем привет. Бросьте ссылку на книгу по Pure Basic для новичков. Я искал но не смог найти. С меня "+".

Добавлено (07.06.2013, 12:53)
---------------------------------------------
Никто не знает что ли?

Blitz Basik

Akopov — Fri, 17 May 2013 22:24:11 GMT

Кто может БЕЗВОЗМЕЗДНО поучить Блитцу???? Тем кто любит писать что ничего не делается даром просьба не писать.

Небольшая проблема в Visual Basic 6.0 (Срочно!!!)

Koure — Fri, 03 May 2013 13:14:11 GMT

Отредактировала исходник одной программы, а теперь не могу сохранить его. VB выдает ошибку "SystemError &H80004005 (-21477467259). Неопознанная ошибка"
В exe-шнике сохранилось и работает, значит, ошибка не в коде. А в чем еще? Помогите, пожалуйста Мне очень важно сохранить этот исходник

Добавлено (03.05.2013, 15:50)
---------------------------------------------
Да, и почему-то в exe-шнике нет изменений. VB не поладила с Windows?

Добавлено (03.05.2013, 15:52)
---------------------------------------------
А нет, изменения есть

Добавлено (03.05.2013, 16:01)
---------------------------------------------
Все нашла. Все ошибки записались в файл, и мне VB выдал это только после закрытия исходника без сохранени