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

Label35.Caption = field(4, 3)

Label36.Caption = field(5, 3)

Label37.Caption = field(6, 3)

Label38.Caption = field(7, 3)

Label39.Caption = field(0, 4)

Label40.Caption = field(1, 4)

Label41.Caption = field(2, 4)

Label42.Caption = field(3, 4)

Label43.Caption = field(4, 4)

Label44.Caption = field(5, 4)

Label45.Caption = field(6, 4)

Label46.Caption = field(7, 4)

End Sub

Т.е. здесь просто каждая ячейка записывается в Caption каждой ячейки. Такой метод не стоит считать оптимальным и в последующем можно использовать другие приемы программирования. Чтобы посмотреть резльтаты, нужно вставить вызов двух процедур Private Sub Set_Nominal() и Private Sub Fdraw()  в автозапуск при старте программы (на время):

Private Sub Form_Load()

Set_Nominal

Fdraw

End Sub

Полный проект на Visual Basic этого этапа разработки игры – в файле vbg1.zip

Теперь нужно создать процедуру, в которой будет анализироваться содержимое ячеек массива field(8, 6) и в зависимости от их значений будет формироваться нужное символьное значение (номинал) ячейки игрового поля и задаваться нужный цвет символа и фона ячейки.

Перепишем процедуру Fdraw() в другую процедуру. Создадим еще одну Label56 для временного хранения «сгенерированного» номинала ячейки и ее цветовых атрибутов (выделена на рисунке).

Private Sub Color_Chars()

If field(i, j) = 0 Then Label56.Caption = "+1"

If field(i, j) = 0 Then Label56.BackColor = &HBBECF4

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





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