End Sub
Процедура кнопки «Остановить»
Private Sub CommandButton2_Click()
PauseTime = 0
‘Сбрасываем таймер на 0, тем самым останавливаем timer
Private Sub CommandButton3_Click()
Label1.Caption = "0"
‘Устанавливаем на 0 ,чтоб процедура qtimer не вызывала ошибку
Label19.Caption = ""
TextBox1.Text = ""
‘Очищаем поле text(ставка)
TextBox2.Text = ""
End Sub
Процедура для кнопки «Выход»
Private Sub CommandButton4_Click()
UserForm1.Hide
‘Скрываем форму
EndSub
3.Листинг программы
Private Sub qtimer()
Dim Кости, a, d, stav As Integer
stav = CDbl(TextBox2.Text)
PauseTime = 1
Start = timer
Do While timer < Start + PauseTime
DoEvents
Randomize
Кости = Int(Rnd * 6) + 1
Select Case Êîñòü
Case 1
Image1.Picture = LoadPicture("d:\kosti\1.bmp")
Label1.Caption = Label1.Caption + 1
Case 2
Image1.Picture = LoadPicture("d:\kosti\2.bmp")
Label2.Caption = Label2.Caption + 1
Case 3
Image1.Picture = LoadPicture("d:\kosti\3.bmp")
Label3.Caption = Label3.Caption + 1
Case 4
Image1.Picture = LoadPicture("d:\kosti\4.bmp")
Label4.Caption = Label4.Caption + 1
Case 5
Image1.Picture = LoadPicture("d:\kosti\5.bmp")
Label5.Caption = Label2.Caption + 1
Case 6
Image1.Picture = LoadPicture("d:\kosti\6.bmp")
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 CommandButton1_Click()
stav = CDbl(TextBox2.Text)
Label18.Visible = False
If stav < 6 And stav > 0 Then
qtimer
Else
Label18.Visible = True
Label18.Caption = "Вынесделалиставку!!!"
End If
Label19.Caption = TextBox1.Text + " Вашвыигрыш = "
End Sub
Private Sub CommandButton2_Click()
PauseTime = 0
End Sub
Private Sub CommandButton3_Click()
Label1.Caption = "0"
Label2.Caption = "0"
Label3.Caption = "0"
Label4.Caption = "0"
Label5.Caption = "0"
Label6.Caption = "0"
Label15.Caption = "0"
Label19.Caption = ""
TextBox1.Text = ""
TextBox2.Text = ""
End Sub
Private Sub CommandButton4_Click()
UserForm1.Hide
End Sub
Public PauseTime, Start, Finish, TotalTime
Заключение
В данной курсовой работе были рассмотрены стандартные операторы, функции и методы VBA
Тема работы с случайными числами является очень актуальной, так как случайные числа находят своё применение в приложениях различных типов и имеет большое практическое значение. Не одна задача современного программирования (в криптографии) не обходится без решения вопроса генерирования случайных данных.
Данная работа может быть использована студентами для изучения операторов, функция и методов VBA, которые позволяют выполнять различные задачи.
БИБЛИОГРАФИЧЕСКИЙСПИСОК
1. Гарнаев А.Ю. Самоучитель VBA. – СПб.: БХВ-Петербург, 2003. – 512 с.
2. Гарнаев А.Ю. Excel, VBA, Internet в экономике и финансах. СПб.: БХВ-Петербург, 2001.
3. Демидова Л.А., Пылькин А.Н. Программирование в среде VisualBasicforApplication. М.: Телеком, 2004.
4. Уокенбах Д. Профессиональное программирование на VBA в Excel 2002. Пер. с англ. – М.: Издательский дом «Вильямс», 2003. –784 с.
5. Блатнер П., Ульрих Л. и др. Использование MicrosoftExcel 2000. Специальное издание.: Пер. с англ.: Уч. пос. – М.: Издательский дом «Вильямс», 2000. –1024 с.