VPF::Цикл - Форум программистов

Gannibal

Дата 26.11.2004, 19:29 (ссылка)

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

Загрузка ...

Опытный

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

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

Всем привет,
короче у меня проблема низнаыу как цикл написать в ВБ, пример вот у меня три текстовых поля и в етих полях в разброску должны появлятся числа пока я ненажму кнопку стоп, рандом будет от 0-10 всёравно скока будет... как зациклить подскажите плз, прин нажатии кнокпи стоп идёв вычисление если в какомто поле есть семёрка если да то причтётся один балл (как бы)

вот код smile

:Д

Код


Dim a, b, c
Dim tah
Dim spravne

Private Sub Command1_Click()

tah = tah + 1

Randomize


a = Text1.Text
b = Text2.Text
c = Text3.Text


a = Int(Rnd * 10)
Text1.Text = a
b = Int(Rnd * 10)
Text2.Text = b
c = Int(Rnd * 10)
Text3.Text = c
Loop
End Sub

Private Sub Command2_Click()

Text1.Text = a
Text2.Text = b
Text3.Text = c

If a = 7 Then
  spravne = spravne + 1
   Else
If b = 7 Then
  spravne = spravne + 1
   Else
If c = 7 Then
  spravne = spravne + 1
   Else
End If
End If
End If

Label1 = spravne
End Sub

pls pomogite ;)

--------------------

Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!

cardinal

Дата 26.11.2004, 22:47 (ссылка)

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

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

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

M.E.G.U.S, что же у тебя с русским то такие проблемы? Подучил бы что ли... smile

Цитата

как зациклить подскажите плз, прин нажатии кнокпи стоп идёв вычисление если в какомто поле есть семёрка если да то причтётся один балл

Ну как нибудь так:

Код


Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Dim a As Integer
Dim b  As Integer
Dim c As Integer
Dim x As Boolean
Dim spravne As Integer

Private Sub Command1_Click()

    x = True

    a = Text1.Text
    b = Text2.Text
    c = Text3.Text

    Do While x
    
        a = Int(Rnd * 10)
        Text1.Text = a
        b = Int(Rnd * 10)
        Text2.Text = b
        c = Int(Rnd * 10)
        Text3.Text = c
        DoEvents
        Sleep 100
        
    Loop
    
End Sub

Private Sub Command2_Click()

    x = False

    Text1.Text = a
    Text2.Text = b
    Text3.Text = c

    If a = 7 Then
        spravne = spravne + 1
    ElseIf b = 7 Then
        spravne = spravne + 1
    ElseIf c = 7 Then
        spravne = spravne + 1
    End If

    Label1 = spravne
    
End Sub

Private Sub Form_Load()
    
    Randomize

End Sub

Цитата

цветами работать в ВБ ненашёл, например кнопку розукрасить в пропертиес меняю цвет, а на кнопке нет :/

Style поменяй... А вообще PM не для этого. Создай новую тему и тебе ответят.

--------------------

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

amt

Дата 27.11.2004, 12:48 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 249
Регистрация: 26.10.2004
Где: г. Волгоград

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

Cardilal
Я написал похожит код но Sleep 100 не использую и все в норме

Это сообщение отредактировал(а) amt - 27.11.2004, 12:49

--------------------

С точки зрения банальной эрудиции не каждый индивидуум способен игнорировать тенденции парадоксальных эмоций.

Gannibal

Дата 27.11.2004, 13:23 (ссылка)

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

Загрузка ...

Опытный

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

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

О, спасибо вам огромное smile

) ну с русскум так плохо потомучто я живу в другои стране уже 7 лет забывается вот и плохо пишется smile

--------------------

Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!

cardinal

Дата 27.11.2004, 15:38 (ссылка)

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

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

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

Цитата(amt @ 27.11.2004, 11:48)

Я написал похожит код но Sleep 100 не использую и все в норме

amt, Sleep тут только для того, чтобы цифры пореже менялись. smile

Добавлено @ 15:39

Цитата(M @ 27.11.2004, 12:23)

ну с русскум так плохо потомучто я живу в другои стране уже 7 лет забывается вот и плохо пишется

А я 9 и что заметно? smile

--------------------

Gannibal

Дата 27.11.2004, 15:45 (ссылка)

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

Загрузка ...

Опытный

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

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

ну значит ты крут я знаю я забываю уже всё уже стараыусь по-русски много говорить но неполучается этот грёбаный чешский язык... вообще капут
Добавлено @ 15:45
ну значит ты крут я знаю я забываю уже всё уже стараыусь по-русски много говорить но неполучается этот грёбаный чешский язык... вообще капут smile

--------------------

Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!

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