Предыдущая страница реферата | 1  2  3  4  5  6 | Следующая страница реферата

skolko = 1

End Sub

Private Sub Label1_Click(Index As Integer)

If Fix(skolko * Rnd) + 1 = Index Then
' если "угадали" - одна убирается

Label1(skolko).Visible = False skolko = skolko - 1

Else
' если не "угадали - выставляется ещё одна" skolko = skolko + 1

If skolko 10 Then Label1(skolko).Visible = True

End If

Select Case skolko ' проверка на выигрыш и проигрыш

Case 0

MsgBox "Вы выиграли!": End

Case 10

MsgBox "Вы проиграли.": End

End Select

End Sub

Завершим рассмотрение данного примера сравнением. Проект в первом случае имеет размер 2,46 Кб, в последнем - 8,57 Кб. Однако откомпилированные, исполняемые модули по размеру одинаковы ...
Другой вопрос: а какова разница затраченного времени в обоих случаях, если второй писать "с нуля"? Ответ, понятно, субъективен и зависит во многом от того насколько хорошо вы знакомы со средой разработки, "видите" реализацию кода и насколько быстро набираете его.

Пример последний или почему "индексированные элементы управления"?

Чтобы понять, почему корректнее в некоторых случаях говорить
"индексированные элементы управления c общим именем", а не "массив элементов управления" рассмотрим следующий небольшой пример.

На форме брошены шесть кнопок, надписи которых заменены звёздочками:

[pic]

Кнопки имеют общее имя M, а индексы у всех разные: 204, 192, 209, 67,
200, 194 (в порядке расположения на форме слева направо). Отсюда понятно, что позиция на экране элементов управления не имеет значения, даже если у них общее имя.

А вот и готовый программный код:

Private Sub M_Click(Index As Integer)

M(Index).Caption = Chr(Index) ' надпись кнопки - символ номер index взятый из таблицы Ascii-символов

End Sub

Рекомендуем скачать другие рефераты по теме: капитанская дочка сочинение, бесплатно реферат на тему.



Предыдущая страница реферата | 1  2  3  4  5  6 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки