VPF::[Basic]игра "угадай число" на Basic - Форум программистов

angel11

Дата 23.5.2008, 20:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 23.5.2008

Репутация: нет
Всего: нет

Необходимо создать программу на Бейсике, представляющую из себя игру по угадыванию числа. Компьютер загадывает случайное число от 0 до 1000. Пользователь вводит число попыток, за которое он может угадать это число. С каждым новым числом компьютер должен делать подсказки "больше" либо "меньше". У этой игры должна быть возможность сохранения. И при повторном входе компьютер должен спрашивать начать ли новую игру, или продолжить старую. Если выбирается продолжение старой, то на экран выводится игра с момента ее сохранения..

Если кто-нибудь что-нибудь знает, помогите пожалуйста. Пишите на почту [email protected] или [email protected] Заранее благодарна.

neic

Дата 24.5.2008, 11:17 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 839
Регистрация: 28.1.2007

Репутация: 5
Всего: 7

Больше на работу смахивает.
У меня есть предложение к модераторам, чтобы такой тип тем переносили в раздел freelance или в "Работа"

Код


' код начала игры
Randomize
q = InputBox("Ввдетие кол-во попыток")
qw = CInt(Rnd() * 1000)

For i = 1 to q
vop = InputBox("Какое число загад компьютер?")

If vop = qw then
Msgbox "Вы угадали",64,"Поздравляем"
elseIf vop < qw then
Msgbox "Загаданное число компьютером, меньше, чем вы ввели",64,"Не удача"
else
Msgbox "Загаданное число компьютером, больше, чем вы ввели",64,"Не удача"
end if

sox = Msgbox("Сохранить игру?",vbyesno,"Сохранение")

If sox = 6 then
a = FreeFile
Open App.path & "\sox.txt" For output as a
Print #a, q
Print #a, i + 1
Close #a
end if

Next

Код


' код загрузки и продолжения игры
On Error Resume Next

a = FreeFile
Open App.path & "\sox.txt" For Input as a
Line Input #a, q
Line Input #a, k
Close #a


Randomize
qw = CInt(Rnd() * 1000)

For i = k to q
vop = InputBox("Какое число загад компьютер?")

If vop = qw then
Msgbox "Вы угадали",64,"Поздравляем"
elseIf vop < qw then
Msgbox "Загаданное число компьютером, меньше, чем вы ввели",64,"Не удача"
else
Msgbox "Загаданное число компьютером, больше, чем вы ввели",64,"Не удача"
end if

sox = Msgbox("Сохранить игру?",vbyesno,"Сохранение")

If sox = 6 then
a = FreeFile
Open App.pa & "\sox.txt" For Input as a
Print #a, q
Print #a, i
end if

Next

Ну собственно так должно выглядеть.
Если хочешь чтобы число угадывалась при нажатии на кнопку. 1 нажатие на кнопку = 1 попытка угадать число.

Тогда просто занеси в глобальные переменные q и i, где
q - число попыток
i - число использованных попыток

Ах да, при нажатии нужно будет к i прибавлять единицу:

Код


i = i + 1

Это сообщение отредактировал(а) neic - 24.5.2008, 11:27

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »