Программирование
Веб программирование

VB игра. Создаем игру

 
 

Входим в VB, нажимаем Standart EXE. На форму кидаем 2 кнопки, и 1 текстовое поле. У первой кнопки свойство Caption будет "Загадай число", у второй "Ввод"; у текстового поля свойство Caption уберите. У тебя получится такая штука:

Код:

'Здесь вместо sas,qw,qw2 ты можешь ввести любые буквы, только не забудь поменять их во всем коде (например, если ты вместо sas объявишь bla, то тебе придется везде менять sas на bla)
Dim sas As Integer 'Объявляем переменную для хранения чисел
Dim qw As Integer
Dim qw2 As String 'Объявляем переменную для хранения символов
Private Sub Command1_Click() 'При нажатии на кнопку "Загадай число"
Randomize 'Срабатывает оператор случайных чисел, чтоб при запуске программы генерировались разные числа
sas = Fix(Rnd * 100) 'уравниваем случайное число 
qw = 0
Text1.Text = ""
End Sub

Private Sub Command2_Click() 'При нажатии на кнопку "Ввод"
qw = qw + 1 'Включаем счетчик, каждый раз при нажатии на кнопку к переменной qw будет прибавляться 1
If qw <= 3 Then 'Если qw будет < или = 3 то
qw2 = "Чемпион" 'qw2="Чемпион"
End If
If qw >= 5 Then 'Это все аналогично
qw2 = "Профи"
End If
If qw >= 7 Then
qw2 = "Салага"
End If
If qw >= 10 Then
qw2 = "Ламер"
End If
If Val(Text1.Text) = sas Then 'Если Text1.Text=sas то
MsgBox "Ты победил за " & qw & " раз " + qw2, 32 'Комп выдает сообщение о кол - ве нажатых раз на кнопку т.е. qw
End If
If Val(Text1.Text) < sas Then
MsgBox "Децл Побольше", 32
End If
If Val(Text1.Text) > sas Then
MsgBox "Децл Поменьше", 32
End If
End Sub

Private Sub Form_Load()
Form1.Caption = "Угадай число"
End Sub

Отлично! Теперь ты Гейм - Мейкер. Ты сделал первую игру, хоть и она очень простая, но это на первое время. Следующая наша игра PinBall 2003. Исходник можешь скачать отсюда


Есть вопросы? Спроси на нашем форуме!!
Гость [13.06.2010 05:43]

число загадывают а не загодывают

Гость [22.11.2010 11:41]

[13.06.2010 05:43], а не умничать никак не получилось?

Гость [26.12.2010 13:09]

Во тип старается, а ты чето пургу гониш на него

Вадим [09.01.2011 13:07]

Да , человек старается, помогает , а ты его этими мелочами достаешь !!!

Гость [10.01.2011 11:25]

Спасибо большое))а то в школе требуют) сама такое сделать не могу, хоть и это самая простая игра(

Дмитрий [17.03.2011 14:18]

Респект)

ПРЫС [21.04.2011 17:14]

АФФТАР ЖЖОТ!

леша [14.08.2011 13:38]

" раз " сдесь ошибку выдает

леша [14.08.2011 13:39]

уже все норм

леша [14.08.2011 13:58]

Dim sas As Integer в этой строке выдает ошибку когда делю компиляию

леша [14.08.2011 14:00]

Dim sas As Integer в этой строке выдает ошибку когда делю компиляию

Гость [28.09.2011 21:35]

t8098765

Сергей [09.10.2011 18:35]

Немогу её сделать покажи видео плиз

Сергей [09.10.2011 18:54]

If Val(Text1.Text) = sas Then
вот на эту строку он ругается
что мне делать подскажите что надо изменить

Гоша [18.10.2011 20:29]

А как сделать так чтобы, нельзя было нажать или игнорировать "ВВОД" не запустив сначала, генератор случайных чисел

Алексей [20.10.2011 19:03]

вот гоша
Dim rndvkl As Byte

Private Sub Command1
Click()
rndvkl = 1
End Sub

Private Sub Command2
Click()
If rndvkl = 0 Then
MsgBox ""
Else

End If
End Sub

Private Sub Form
Load()
rnd_vkl = 0
End Sub

sultan [21.11.2011 09:54]

спасибо вам большое благодаря вам я получил 5555555

Султан [21.11.2011 09:54]

уууу я получил 545454545454555444545454

Гость [21.11.2011 19:21]

сука

Диня [27.11.2011 22:56]

последний коммент больше всех насыщён информацией :DDD

Артём [15.04.2012 00:35]

Всё получилось :) Минут 10 играл XD

алексей [24.04.2012 22:29]

а у меня свой алгоритм отгадывание чисел
от 0 до 100 ровно 7 попыток не меньше не больше
от 0 до 1000 - 10 попыток
от 0 до 100000 - 17 попыток

алексей [24.04.2012 22:33]

и я сделал эту игру онлайн

сделал чат и туда игры вложил свои. чат на сайт выложу примерно через месяц

артём [29.06.2012 18:24]

а бы внес доработку к Command2. в конце написать - Text1.Text = "" что бы он сбрасывал число после ввода.

Jesovile [22.10.2012 14:04]

ЗагОдайте себе грамотности, программеры )

Info [22.10.2012 15:25]

Jesovile а тебе бы мозгов загодать ))

кирпм [03.11.2012 15:53]
Samou4120 [05.03.2013 09:04]

в коде ошибочка. третья строка снизу
Private Sub FormLoad()

а должно быть
Private Sub Form1
Load()

Samou4120 [05.03.2013 10:30]

ой простите всё правильно^
Private Sub Form_Load()

Rosco [03.06.2016 14:33]

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



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.