Реферат: Программирование логической игры на visual basic

Полный VB-проект с этого этапа разработки игры - в файле vbg6. zip

Создадим процедуру работы цветного линейного индикатора. Добавим на форму таймер Timer1 и сразу «разрешим» его.

Private Sub Timer1_Timer()

IndLent = IndLent + 1

If IndLent = 9 Then

IndLent = 0

Timer1.Interval = 500 ‘Восстановим интервал таймера

End If

Print_Ind 'Нарисуем индикатор

End Sub

Процедура рисования индикатора:

Private Sub Print_Ind()

If IndLent = 1 Then Label55.Visible = False ‘Загасить элемент индикатора

If IndLent = 2 Then Label54.Visible = False ‘Загасить элемент индикатора

If IndLent = 3 Then Label53.Visible = False ‘Загасить элемент индикатора

If IndLent = 4 Then Label52.Visible = False ‘Загасить элемент индикатора

If IndLent = 5 Then Label51.Visible = False ‘Загасить элемент индикатора

If IndLent = 6 Then Label50.Visible = False ‘Загасить элемент индикатора

If IndLent = 7 Then Label49.Visible = False ‘Загасить элемент индикатора

If IndLent = 7 Then Timer1.Interval = 100 ‘Уменьшить интервал, чтобы индикатор

‘восстанавливался побыстрее

If IndLent = 0 Then ‘Нарисовать индикатор полностью

Label55.Visible = True

Label54.Visible = True

Label53.Visible = True

Label52.Visible = True

Label51.Visible = True

Label50.Visible = True

Label49.Visible = True