Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - Жак Кусто -

Visual Basic 5.0/6.0 - Числа, математика, финансы

Все примеры / Числа, математика, финансы

Орел или Решка

Автор: Жак Кусто | добавлено: 06.03.2010, 11:53 | просмотров: 2615 (2+) | комментариев: 0 | рейтинг: *x1
Немного о очень многом.
Теория БОЛЬШИХ чисел : )
Реальную монету бросил и записал 200 раз, на большее меня не хватило : )

Код

Option Explicit
Dim a As Integer
Dim s As Double
Dim Pr As Double
Dim Po As Double
Dim Srv As Double
Dim Sek As Double
Private Sub Command1_Click()


If Command1.Caption = "Все равно Пуск" Then GoTo 1
Timer1.Interval = 1
If Text1.Text >= 500000 Then

Srv = Text1.Text
Label4.Caption = "Это может занять много времени."
Command1.Caption = "Все равно Пуск"
Exit Sub
End If
1
Label2.Caption = 0
Label3.Caption = 0
Randomize Timer
For s = 1 To Text1.Text
a = Int(2 * Rnd)
If a = 0 Then Label2.Caption = Label2.Caption + 1
If a = 1 Then Label3.Caption = Label3.Caption + 1
Next s
Pr = Label2.Caption * 100 / Text1.Text
Po = Label3.Caption * 100 / Text1.Text
Text2.Text = Text2.Text + "Решек " + Label2.Caption + " (" & Pr & "%) " + "    Орлов " + Label3.Caption + " (" & Po & "%) " + Chr(13) + Chr(10)
Command1.Caption = "Пуск"

Timer1.Interval = 0
Timer2.Interval = 1000

End Sub

Private Sub Command2_Click()
Label5.Visible = True
Timer3.Interval = 1000
End Sub

Private Sub Timer1_Timer()
If Text1.Text <> Srv Then
Command1.Caption = "Пуск"
Label4.Caption = "..."
End If
End Sub

Private Sub Timer2_Timer()

Sek = Sek + 1
Label4.Caption = "Все что было бросил :)"
If Sek = 3 Then
Label4.Caption = "..."
Sek = 0
Timer2.Interval = 0
End If
End Sub

Private Sub Timer3_Timer()
Sek = Sek + 1
If Sek = 2 Then End
End Sub
Файлы orel_ili_reshka.rar (4,93 Кб)
Обратите внимание
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах.
Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
Об авторе

Жак Кусто

Нет информации об авторе...

См. также:
Профиль автора
Жак Кусто
Другие примеры этого автора (всего: 3)
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Реклама
Счетчики