Курсовая работа: Бросание игральной кости на VBA

На рис. 2.2 показан предлагаемый дизайн формы.

				Рисунок кости	Счет игрока

Рис 2.2 (Интерфейс игры)

Назначение каждого элемента управления:

1) элемент управления Image — для графического представления игральной кости (одной ее грани);

2) надписи — для показа количества выпадений того или иного числа и для подписей к ним;

3) кнопки:

· Выход — для завершения программы по щелчку на ней;

· Начать — чтобы начать бросание по щелчку на кнопке;

· Остановить — чтобы остановить бросание по щелчку на ней;

· Сброс — чтобы обнулить счет по щелчку на кнопке.

В этой программе присутствует повторяющийся процесс (бросание кости и вывод результата) через регулярные интервалы времени. В такой ситуации удобно использовать элемент управления Timer (Таймер).

Таблица 2.2 (Процедура для таймера)

Получить случайное число от1 до 6
1	2	3	4	5	6
Загрузить изображение 1.bmp	Загрузить изображение 2.bmp	Загрузить изображение 3.bmp	Загрузить изображение 4.bmp	Загрузить изображение 5.bmp	Загрузить изображение 6.bmp

1. Кнопка «Начать» - вызов процедуры “qtimer”;

2. Кнопка «Остановить» - переменной PauseTime присвоить 0, тем самым остановить timer;

3. Кнопка «Сброс»- присвоить свойстве Caption 0, т.е. обнулить значения;

Создание интерфейса

Перед началом работы над программой, надо создать на любом графическом редакторе 6 изображений, в формате bmp.

Далее свойство caption элемента UserForm1, изменить на «Бросание Кости». Для элемента label1-21 ,размер шрифта установить 14 пт, свойство Color= white, BorderStyle = 0 fmBackStyle.

2.2 Описание программы

Процедура таймера

Private Sub qtimer()

Dim Кости , a, d, stav As Integer

‘ Описываем переменные

stav = CDbl(TextBox2.Text)

‘Значение вводимое из TextBox2. преобразуем в числовое

PauseTime = 1

‘Увеличиваемвремятаймера

Start = timer

Do While timer < Start + PauseTime

‘Продолжать пока не истекло заданное время