надо-бы дописать программу "кости"...

@opiam · Регистрация: 07.03.2011

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

Люди, кому не трудно, помогите дописать программный код для программы "кости".
Вернее она написана, однако с ошибкой. Я уже плачу, найти не могу

...

Code
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
Private Sub qtimer()
Dim Кости, a, d, stav As Integer
stav = CDbl(Text2.Text)
PauseTime = 1
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Randomize
Кости = Int(Rnd * 6) + 1
Select Case Кость
Case 1
Label1.Caption = Label1.Caption + 1
Case 2
Label2.Caption = Label2.Caption + 1
Case 3
Label3.Caption = Label3.Caption + 1
Case 4
Label4.Caption = Label4.Caption + 1
Case 5
Label5.Caption = Label2.Caption + 1
Case 6
Label6.Caption = Label6.Caption + 1
End Select
Loop
If stav = Кость Then
Label15.Caption = Label15.Caption + 3
Else
Label15.Caption = Label15.Caption - 2
End If
End Sub
 
Private Sub Command1_Click()
stav = CDbl(Text2.Text)
Label18.Visible = False
If stav < 6 And stav > 0 Then
qtimer
Else
Label18.Visible = True
Label18.Caption = "Вы не сделали ставку!!!"
End If
Label19.Caption = Text1.Text + " Ваш выигрыш: "
End Sub
 
Private Sub Command2_Click()
PauseTime = 0
End Sub
 
Private Sub Command3_Click()
Label1.Caption = Empty
Label2.Caption = Empty
Label3.Caption = Empty
Label4.Caption = Empty
Label5.Caption = Empty
Label6.Caption = Empty
Label15.Caption = Empty
Label19.Caption = Empty
Text1.Text = Empty
Text2.Text = Empty
End Sub
 
Private Sub CommandButton4_Click()
End
End Sub

@gaw · 22.04.2011, 20:20

а словами можешь написать чего тебе надо

@opiam · 22.04.2011, 21:02 **[ТС]**

Сообщение от gaw

а словами можешь написать чего тебе надо

Игрок кидает 2 кости, (1 кость, 6 граней (1,2,3,4,5,6)), после броска суммируются очки из двух костей.
1. Если сумма после первого броска = 7 или 11 игрок выиграл.
2. Если сумма после первого броска = 2,3,12 игрок проиграл.
3. Если сумма после первого броска = 4,5,6,8,9,10 игрок - это становится очками игрока и игра продолжается...

Для того что бы выиграть игрок должен кидать кости до того момента пока не выпадет ему в сумме число 7 или равное его очков.
Для упрощения, выложу уже початую мною форму: http://narod.ru/disk/10865016001/bone.zip.html

Добавлено через 11 минут
http://narod.ru/disk/10865278001/bone.zip.html форма, изменил ссылку...

@Alex77755 · 22.04.2011, 21:17

Ну вот первая:
Кости = Int(Rnd * 6) + 1
Select Case Кость
If stav = Кость Then

@opiam · 22.04.2011, 21:25 **[ТС]**

да я пробовал, толку не какого. там надо заного код писать. Задача следующая:
________________________________________ ________________________________________ _______
игрок кидает 2 кости, (у одной кости 6 граней (1,2,3,4,5,6)), после броска суммируются очки из двух костей.
1. Если сумма после первого броска = 7 или 11 игрок выиграл.
2. Если сумма после первого броска = 2,3,12 игрок проиграл.
3. Если сумма после первого броска = 4,5,6,8,9,10 - это становится очками игрока и игра продолжается...

Для того что бы выиграть игрок должен кидать кости до того момента пока не выпадет ему в сумме число 7 или равное его очкам.
Для упрощения, выложу уже початую мною форму: http://narod.ru/disk/10865278001/bone.zip.html

@Alex77755 · 22.04.2011, 21:38

Вернее она написана, однако с ошибкой

Не поленюсь выложить весь код твоей программы:

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub Command1_Click()
End Sub
Private Sub Command2_Click()
End Sub
Private Sub Form_Load()
Show
End Sub
Private Sub Command4_Click()
End
End Sub

Хоть бы надписи на кнопках сделал.
Тут надо вопрос:

Люди, кому не трудно, помогите дописать программный код для программы "кости".

Немного перефразировать:
Лиди напишите игру "Кости". Условие я уже дважды опубликовал

Новые блоги и статьи Все статьи Все блоги /
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	22.04.2011, 20:20
	а словами можешь написать чего тебе надо 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	22.04.2011, 21:17
	Ну вот первая: Кости = Int(Rnd * 6) + 1 Select Case Кость If stav = Кость Then 0

@opiam 0 / 0 / 0 Регистрация: 07.03.2011 Сообщений: 6
	22.04.2011, 21:25 [ТС]
	да я пробовал, толку не какого. там надо заного код писать. Задача следующая: ________________________________________ ________________________________________ _______ игрок кидает 2 кости, (у одной кости 6 граней (1,2,3,4,5,6)), после броска суммируются очки из двух костей. 1. Если сумма после первого броска = 7 или 11 игрок выиграл. 2. Если сумма после первого броска = 2,3,12 игрок проиграл. 3. Если сумма после первого броска = 4,5,6,8,9,10 - это становится очками игрока и игра продолжается... Для того что бы выиграть игрок должен кидать кости до того момента пока не выпадет ему в сумме число 7 или равное его очкам. Для упрощения, выложу уже початую мною форму: http://narod.ru/disk/10865278001/bone.zip.html 0