Игра "Угадайка"

@James025 · Регистрация: 08.02.2010

Студворк — интернет-сервис помощи студентам

Доброго времени суток !!! Народ , помогите ))
Дан исходник задачи :
Private Sub cmdAbout_Click()
'Íàæàòèå íà êíîïêó About
MsgBox "Óãàäàéêà v 1.0.0" & vbCrLf & "Copyright (C) 2011 "
End Sub
Private Sub cmdExit_Click()
'Íàæàòèå íà êíîïêó Âûõîä
End
End Sub
Private Sub cmdSay_Click()
'Íàæàòèå íà êíîïêó Ñêàçàòü
If Len(txtSay) <> 0 Then 'Îáðàáàòûâàåì, òîëüêî åñëè åñòü çàïðîñ â ïîëå
num = num + 1 'Óâåëè÷èâàåì ÷èñëî ïîïûòîê íà 1
If Val(txtSay) > Rand Then 'Îïðåäåëÿåì Áîëüøå, Ìåíüøå èëè Ðàâíî!
Say (">")
ElseIf Val(txtSay) < Rand Then
Say ("<")
Else
Say ("=")
End If
End If
End Sub

Private Sub Form_Load()
Randomize Timer 'Ïåðåçàãðóæàåì ãåíåðàòîð ñëó÷àéíûõ ÷èñåë
n = 0
num = 0
Rand = 0
Rand = (49) * Rnd + 1
lblComp(n).Caption = "ß çàãàäàë ÷èñëî ìåæäó 1 è 50!" 'Âûâîäèì íàäïèñü ïðè çàãðóçêå"
lblUser(n).Top = lblComp(n).Top + lblComp(n).Height 'Ìåñòîïîëîæåíèå íàäïèñè lblUser
End Sub
Private Sub txtSay_Change()
If Len(txtSay.Text) <> 0 Then 'À åñòü ëè âîîáùå òåêñò?
If Val(txtSay.Text) < 1 Then txtSay.Text = "1" 'Åñëè ââåëè ìåíüøåå ÷èñëî, òî 1
If Val(txtSay.Text) > 50 Then txtSay.Text = "50" 'Åñëè ââåëè áîëüøåå ÷èëî, òî 2
txtSay.Text = Val(txtSay.Text)
txtSay.SelStart = Len(txtSay.Text) 'Óñòàíàâëèâàåì êóðñîð â ïîëå íà êîíåö öèôðû
End If
End Sub
Private Sub Say(Rav As String)
If num < 5 Then
n = n + 1
Load lblComp(n) ' Çàãðóæàåì íîâûå ýëåìåíòû: lblComp
Load lblUser(n) ' è lblUser
lblComp(n).Visible = True 'Äåëàåì èõ âèäèìûìè
lblUser(n).Visible = True
lblUser(n).Caption = "Ïîïûòêà " & num & ": " & txtSay 'Âûâîäèì íîìåð ïîïûòêè!
If n <> 1 Then lblComp(n).Top = lblUser(n - 1).Top + lblUser(n - 1).Height Else 'Ïîëîæåíèå
lblComp(1).Top = lblUser(0).Top + lblUser(0).Height
If Rav = ">" Then 'Àíàëèç ïåðåäàííûõ â ôóíêöèþ àðãóìåíòîâ
lblComp(n).Caption = "Ìî¸ ÷èñëî ìåíüøå!"
lblUser(n).Top = lblComp(n).Top + lblComp(n).Height
ElseIf Rav = "<" Then
lblComp(n).Caption = "Ìî¸ ÷èñëî áîëüøå!"
lblUser(n).Top = lblComp(n).Top + lblComp(n).Height
Else
MsgBox "Ïîçäðàâëÿþ - ýòî ÷èñëî " & Rand, vbInformation, "Òû âûèãðàë!"
End
End If
txtSay.SelStart = 0 'Âûäåëÿåì òåêñò â ïîëå ââîäà!
txtSay.SelLength = Len(txtSay)
Else
If Rav = "=" Then
MsgBox "Ïîçäðàâëÿþ - ýòî ÷èñëî " & Rand, vbInformation, "Òû âûèãðàë!"
End
Else
MsgBox "Òû ïðîèãðàë! À âåäü ýòî áûëî ÷èñëî " & Rand, vbInformation, "Òû íå óãàäàë!"
End
End If
End If
End Sub

Eugene22 · 16.04.2011, 17:54

По-моему, это vb 6.0, но тегами форматирования все равно не мешало бы воспользоваться

@Ciberst · 16.04.2011, 17:56

немного подправил код

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
Private Sub cmdAbout_Click()
'Нажатие на кнопку About
MsgBox "Угадайка v 1.0.0" & vbCrLf & "Copyright (C) 2011 "
End Sub
Private Sub cmdExit_Click()
'Нажатие на кнопку Выход
End
End Sub
Private Sub cmdSay_Click()
'Нажатие на кнопку Сказать
If Len(txtSay) <> 0 Then 'Обрабатываем, только если есть запрос в поле
num = num + 1 'Увеличиваем число попыток на 1
If Val(txtSay) > Rand Then 'Определяем Больше, Меньше или Равно!
Say (">")
ElseIf Val(txtSay) < Rand Then
Say ("<")
Else
Say ("=")
End If
End If
End Sub
 
Private Sub Form_Load()
Randomize Timer 'Перезагружаем генератор случайных чисел
n = 0
num = 0
Rand = 0
Rand = (49) * Rnd + 1
lblComp(n).Caption = "Я загадал число между 1 и 50!" 'Выводим надпись при загрузке"
lblUser(n).Top = lblComp(n).Top + lblComp(n).Height 'Местоположение надписи lblUser
End Sub
Private Sub txtSay_Change()
If Len(txtSay.Text) <> 0 Then 'А есть ли вообще текст?
If Val(txtSay.Text) < 1 Then txtSay.Text = "1" 'Если ввели меньшее число, то 1
If Val(txtSay.Text) > 50 Then txtSay.Text = "50" 'Если ввели большее чило, то 2
txtSay.Text = Val(txtSay.Text)
txtSay.SelStart = Len(txtSay.Text) 'Устанавливаем курсор в поле на конец цифры
End If
End Sub
Private Sub Say(Rav As String)
If num < 5 Then
n = n + 1
Load lblComp(n) ' Загружаем новые элементы: lblComp
Load lblUser(n) ' и lblUser
lblComp(n).Visible = True 'Делаем их видимыми
lblUser(n).Visible = True
lblUser(n).Caption = "Попытка " & num & ": " & txtSay 'Выводим номер попытки!
If n <> 1 Then lblComp(n).Top = lblUser(n - 1).Top + lblUser(n - 1).Height Else 'Положение
lblComp(1).Top = lblUser(0).Top + lblUser(0).Height
If Rav = ">" Then 'Анализ переданных в функцию аргументов
lblComp(n).Caption = "Моё число меньше!"
lblUser(n).Top = lblComp(n).Top + lblComp(n).Height
ElseIf Rav = "<" Then
lblComp(n).Caption = "Моё число больше!"
lblUser(n).Top = lblComp(n).Top + lblComp(n).Height
Else
MsgBox "Поздравляю - это число " & Rand, vbInformation, "Ты выиграл!"
End
End If
txtSay.SelStart = 0 'Выделяем текст в поле ввода!
txtSay.SelLength = Len(txtSay)
Else
If Rav = "=" Then
MsgBox "Поздравляю - это число " & Rand, vbInformation, "Ты выиграл!"
End
Else
MsgBox "Ты проиграл! А ведь это было число " & Rand, vbInformation, "Ты не угадал!"
End
End If
End If
End Sub

@James025 · 16.04.2011, 18:09 **[ТС]**

сори, по неопытности так получилось, переправил в другой теме ...)
Вобщем , проблема такая.... при запуске дает одну попытку угадать число, со следующей попытки выдает надпись :
run-time error '360' Object Already Loaded
и указывает на строку

PureBasic
1
Load lblComp(n) 'Загружаем новые элементы: lblComp

в чем проблема ???? Заранее спасибо !!!

Добавлено через 8 минут
Ciberst, спасибо за существенно подправленный код, все заработало , но в чем проблема, я так и не понял

@Ciberst · 16.04.2011, 18:11

Object Already Loaded

- Объект уже загружен, => зачем нам это загружать? в VB6 не силен, поэтому вам в раздел по VB6 надо, (если это конечно vb6). да и в коде ничего особенного не изменил, только на Russiаn перевел и все.

@James025 · 16.04.2011, 18:12 **[ТС]**

да , это именно VB6
спасибо за помощь !!!

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

@James025 0 / 0 / 0 Регистрация: 08.02.2010 Сообщений: 14

	Игра "Угадайка" 16.04.2011, 17:48. Показов 2613. Ответов 5 Метки нет (Все метки) Доброго времени суток !!! Народ , помогите )) Дан исходник задачи : Private Sub cmdAbout_Click() 'Íàæàòèå íà êíîïêó About MsgBox "Óãàäàéêà v 1.0.0" & vbCrLf & "Copyright (C) 2011 " End Sub Private Sub cmdExit_Click() 'Íàæàòèå íà êíîïêó Âûõîä End End Sub Private Sub cmdSay_Click() 'Íàæàòèå íà êíîïêó Ñêàçàòü If Len(txtSay) <> 0 Then 'Îáðàáàòûâàåì, òîëüêî åñëè åñòü çàïðîñ â ïîëå num = num + 1 'Óâåëè÷èâàåì ÷èñëî ïîïûòîê íà 1 If Val(txtSay) > Rand Then 'Îïðåäåëÿåì Áîëüøå, Ìåíüøå èëè Ðàâíî! Say (">") ElseIf Val(txtSay) < Rand Then Say ("<") Else Say ("=") End If End If End Sub Private Sub Form_Load() Randomize Timer 'Ïåðåçàãðóæàåì ãåíåðàòîð ñëó÷àéíûõ ÷èñåë n = 0 num = 0 Rand = 0 Rand = (49) * Rnd + 1 lblComp(n).Caption = "ß çàãàäàë ÷èñëî ìåæäó 1 è 50!" 'Âûâîäèì íàäïèñü ïðè çàãðóçêå" lblUser(n).Top = lblComp(n).Top + lblComp(n).Height 'Ìåñòîïîëîæåíèå íàäïèñè lblUser End Sub Private Sub txtSay_Change() If Len(txtSay.Text) <> 0 Then 'À åñòü ëè âîîáùå òåêñò? If Val(txtSay.Text) < 1 Then txtSay.Text = "1" 'Åñëè ââåëè ìåíüøåå ÷èñëî, òî 1 If Val(txtSay.Text) > 50 Then txtSay.Text = "50" 'Åñëè ââåëè áîëüøåå ÷èëî, òî 2 txtSay.Text = Val(txtSay.Text) txtSay.SelStart = Len(txtSay.Text) 'Óñòàíàâëèâàåì êóðñîð â ïîëå íà êîíåö öèôðû End If End Sub Private Sub Say(Rav As String) If num < 5 Then n = n + 1 Load lblComp(n) ' Çàãðóæàåì íîâûå ýëåìåíòû: lblComp Load lblUser(n) ' è lblUser lblComp(n).Visible = True 'Äåëàåì èõ âèäèìûìè lblUser(n).Visible = True lblUser(n).Caption = "Ïîïûòêà " & num & ": " & txtSay 'Âûâîäèì íîìåð ïîïûòêè! If n <> 1 Then lblComp(n).Top = lblUser(n - 1).Top + lblUser(n - 1).Height Else 'Ïîëîæåíèå lblComp(1).Top = lblUser(0).Top + lblUser(0).Height If Rav = ">" Then 'Àíàëèç ïåðåäàííûõ â ôóíêöèþ àðãóìåíòîâ lblComp(n).Caption = "Ìî¸ ÷èñëî ìåíüøå!" lblUser(n).Top = lblComp(n).Top + lblComp(n).Height ElseIf Rav = "<" Then lblComp(n).Caption = "Ìî¸ ÷èñëî áîëüøå!" lblUser(n).Top = lblComp(n).Top + lblComp(n).Height Else MsgBox "Ïîçäðàâëÿþ - ýòî ÷èñëî " & Rand, vbInformation, "Òû âûèãðàë!" End End If txtSay.SelStart = 0 'Âûäåëÿåì òåêñò â ïîëå ââîäà! txtSay.SelLength = Len(txtSay) Else If Rav = "=" Then MsgBox "Ïîçäðàâëÿþ - ýòî ÷èñëî " & Rand, vbInformation, "Òû âûèãðàë!" End Else MsgBox "Òû ïðîèãðàë! À âåäü ýòî áûëî ÷èñëî " & Rand, vbInformation, "Òû íå óãàäàë!" End End If End If End Sub 0

Eugene22 _ 2364 / 1243 / 78 Регистрация: 28.10.2009 Сообщений: 4,331
	16.04.2011, 17:54
	По-моему, это vb 6.0, но тегами форматирования все равно не мешало бы воспользоваться 0

@James025 0 / 0 / 0 Регистрация: 08.02.2010 Сообщений: 14
	16.04.2011, 18:12 [ТС]
	да , это именно VB6 спасибо за помощь !!! 0