[Delirium]

Под Windows 7 Даже не запустится. Выдаст

--------------------------- C:\Users\Del\Desktop\shotgun\QB.EXE --------------------------- Эта система не поддерживает работу в полноэкранном режиме. --------------------------- ОК ---------------------------

[lxa85]

GordonG, по коду.
Используйте конструкцию CASE при обработке кодов поступивших с клавиатуры.
QBasic поддерживает процедуры и функции. Они гораздо удобнее, чем sub'ы.
Как первая программа очень даже хорошо, но по хорошему ее следует переписать заново и грамотно.
Повторов слишком много, это сбивает.
Сам код оформлен хорошо, читать можно. Т.к. программа простая, то понять можно, но иногда хочется комментариев.
По поводу задержек, посмотрите исходники nibbles и gorilas.
Досконально не вчитывался, смотрел по диагонали.

[GordonG]

Под Windows 7 Даже не запустится »

Можно попробывать под DOS BOX - эмулятор DOS под винду. Только медленно работать будет. Если что, вот ссылка на старую версию игры, там специальный экзешник для Dosbox'а есть. Инструкция по запуску внутри
http://bit16.ru/index.php?modules=go&cat=vb&id=1835

GordonG, по коду. Используйте конструкцию CASE при обработке кодов поступивших с клавиатуры. QBasic поддерживает процедуры и функции. Они гораздо удобнее, чем sub'ы. Как первая программа очень даже хорошо, но по хорошему ее следует переписать заново и грамотно. Повторов слишком много, это сбивает. Сам код оформлен хорошо, читать можно. Т.к. программа простая, то понять можно, но иногда хочется комментариев. По поводу задержек, посмотрите исходники nibbles и gorilas. Досконально не вчитывался, смотрел по диагонали. »

Да я и 50% операторов языка не знаю. Как соберусь доделывать, так найду какой-нибудь учубник по QB в интернетах и поизучаю про этот CASE. А где взять исходники эти?

[lxa85]

А где взять исходники эти? »

Вообще, как и сам QBasic, они идут вместе с DOSом. Найдите полную версию DOS 6.22, там должны быть.
Там же и справка должна быть. Полезная вещь.

[GordonG]

Нашёл какой-то DOS 6.22, но папка с ним весит всего 4.26 Мб, а внутри 10 файлов, из которых 3 штуки - IMG (внутри фигня какая-то). Нигде нету BAS файлов, наверное это не полная версия?

А что, так никто игру и не включил? А жаль...

[v12345]

Нашёл какой-то DOS 6.22, но папка с ним весит всего 4.26 Мб, а внутри 10 файлов, из которых 3 штуки - IMG (внутри фигня какая-то). Нигде нету BAS файлов, наверное это не полная версия? »

Вот молодежь не поверит, что 15-20 лет назад на три дискетки входила целая операционная система с приложенным языком программирования. Хотя мне почему-то кажется, что в полном последнем досе дискеток действительно было побольше трех, кажется, шесть.

А по существу - если вы начинаете изучать программирование, то какой смысл в наш век его изучать на примере QBasic? Это полупустая трата времени.

Поставьте уж тогда последний Visual Basic - для начала младшую редакцию. Если вы еще школьник, можно начать со Small Basic - есть у Microsoft такой детский продукт для изучения программирования. А если склоняетесь в сторону именно создания игр, поищите современные специализированные бэйсикоподобные среды для игростроительства - есть таких несколько.

[GordonG]

Ну что сказать... Я уже создал одну игру на Blitz Basic, но хочется и первую довести до ума. Вот и лазаю по форумам, чтоб подсказали насчёт задержек всяких, и работу мою посмотрели. Вот когда закончу, так и ещё одну игру писать сяду (наверное на VB всё таки). Повышаю кругозор!
PS. Ну да, школьник, но уже в 10-ом классе. Так что уже не школота)))

[lxa85]

GordonG, эх школьники... все за вас делать надо
http://telcontar.net/Misc/Gorillas/Gorillas.bas
http://library.thinkquest.org/19436/...la/gorilla.bas
http://www.jefflewis.net/archive/pro...ng/nibbles.bas
http://www.codinghorror.com/blog/files/donkey.bas.txt

Далее обращаем внимание на код:
В Gorrilas

Код:

SUB Rest (t#)
  s# = TIMER
  t2# = MachSpeed * t# / SPEEDCONST
  DO
  LOOP UNTIL TIMER - s# > t2#
END SUB

В Nibbles :

Код:

    startTime# = TIMER                          ' Calculate speed of system
    FOR i# = 1 TO 1000: NEXT i#                 ' and do some compensation
    stopTime# = TIMER
    speed = speed * .5 / (stopTime# - startTime#)

    curSpeed = speed
            'Delay game
            FOR a# = 1 TO curSpeed:  NEXT a#

Сам код тоже почитайте, это будет хорошим учебником по программированию.

[GordonG]

lxa85, огромное Вам спасибо! Вы мне действительно ОЧЕНЬ помогли!