Приемы Dark Basic

Быстро создает 2D и 3D игры
Ответить
Аватара пользователя
blackstrip
Админ
Сообщения: 984
Зарегистрирован: Ср янв 02, 2008 1:42 pm
Откуда: Подольск
Контактная информация:

Приемы Dark Basic

Сообщение blackstrip » Вс сен 01, 2013 1:19 am

Полазил по даркбейсику - многое изменилось с тех пор, как я писал в нем лет 8 назад. Старые программы даже не перекомпилируются) Поэтому эта тема будет посвящена разным хитростям (и просто упрощениям) для интересующихся даркбейсиком.

Первый прием: нет команды (вроде бы), через которую можно узнать где лежит exe-шник, но есть appname$(), которая выдает полный путь+имя exeшника. И нет команды извлечения пути из строки типа дельфийского ExtractFilePath.

Получить путь до экзешника можно через обрубание результата appname$() до последнего слеша:
exepath$ = LEFT$(appname$(),FIND LAST CHAR$(appname$(),"\"))

Результат, например, такой выдает: "c:\proga\", на конце слеш.

Если без слеша на конце хочется, то аналогичный прием с минус единицей:
exepath$ = LEFT$(appname$(),FIND LAST CHAR$(appname$(),"\")-1)

Аватара пользователя
blackstrip
Админ
Сообщения: 984
Зарегистрирован: Ср янв 02, 2008 1:42 pm
Откуда: Подольск
Контактная информация:

Re: Приемы Dark Basic

Сообщение blackstrip » Вс сен 01, 2013 1:46 am

Как сделать разрешение экрана такое же, как и текущее, растянуть прогу на весь экран, скрыть указатель мыши, вырубить выход по ESC (все это обычно делается в начале программы):

sw = desktop width()
sh = desktop height()
set display mode sw,sh,screen depth()
set window off
hide mouse
disable escapekey


значения ширины и высоты экрана sw и sh можно еще потом использовать ниже в коде.

Ответить

Кто сейчас на конференции

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