'== (c) by Valery V Shmeleff Moscow/Russia www.oflameron.ru == Private Sub Color_Chars() If field(i, j) = 0 Then Label56.Caption = "+1" If field(i, j) = 0 Then Label56.BackColor = &HBBECF4 If field(i, j) = 0 Then Label56.ForeColor = &H80000008 If field(i, j) = 1 Then Label56.Caption = "-1" If field(i, j) = 1 Then Label56.BackColor = &HBBECF4 If field(i, j) = 1 Then Label56.ForeColor = &H80000008 If field(i, j) = 2 Then Label56.Caption = "+5" If field(i, j) = 2 Then Label56.BackColor = &HBBECF4 If field(i, j) = 2 Then Label56.ForeColor = &H80000008 If field(i, j) = 3 Then Label56.Caption = "-5" If field(i, j) = 3 Then Label56.BackColor = &HBBECF4 If field(i, j) = 3 Then Label56.ForeColor = &H80000008 If field(i, j) = 4 Then Label56.Caption = "+10" If field(i, j) = 4 Then Label56.BackColor = &HBBECF4 If field(i, j) = 4 Then Label56.ForeColor = &H80000008 If field(i, j) = 5 Then Label56.Caption = "-10" If field(i, j) = 5 Then Label56.BackColor = &HBBECF4 If field(i, j) = 5 Then Label56.ForeColor = &H80000008 If field(i, j) = 6 Then Label56.Caption = "+15" If field(i, j) = 6 Then Label56.BackColor = &HBBECF4 If field(i, j) = 6 Then Label56.ForeColor = &H80000008 If field(i, j) = 7 Then Label56.Caption = "-15" If field(i, j) = 7 Then Label56.BackColor = &HBBECF4 If field(i, j) = 7 Then Label56.ForeColor = &H80000008 If field(i, j) = 8 Then Label56.Caption = "+25" If field(i, j) = 8 Then Label56.BackColor = &HBBECF4 If field(i, j) = 8 Then Label56.ForeColor = &H80000008 If field(i, j) = 9 Then Label56.Caption = "T" If field(i, j) = 9 Then Label56.BackColor = &HABCFBB If field(i, j) = 9 Then Label56.ForeColor = &H80000008 If field(i, j) = 10 Then Label56.Caption = "P" If field(i, j) = 10 Then Label56.BackColor = &HFFC0C0 If field(i, j) = 10 Then Label56.ForeColor = &H80000008 If field(i, j) = 11 Then Label56.Caption = "B" If field(i, j) = 11 Then Label56.BackColor = &H80FFFF If field(i, j) = 11 Then Label56.ForeColor = &H80000008 If field(i, j) = 12 Then Label56.Caption = "Z" If field(i, j) = 12 Then Label56.BackColor = &H40& If field(i, j) = 12 Then Label56.ForeColor = &HFFFFFF If field(i, j) = 13 Then Label56.Caption = "Z" If field(i, j) = 13 Then Label56.BackColor = &H40& If field(i, j) = 13 Then Label56.ForeColor = &HFFFFFF If field(i, j) = 14 Then Label56.Caption = "End" If field(i, j) = 14 Then Label56.BackColor = &HFF& If field(i, j) = 14 Then Label56.ForeColor = &HFFFFFF If field(i, j) = 15 Then Label56.Caption = "-10" If field(i, j) = 15 Then Label56.BackColor = &HBBECF4 If field(i, j) = 15 Then Label56.ForeColor = &H80000008 If field(i, j) = 16 Then Label56.Caption = "-5" If field(i, j) = 16 Then Label56.BackColor = &HBBECF4 If field(i, j) = 16 Then Label56.ForeColor = &H80000008 If field(i, j) = 17 Then Label56.Caption = "-1" If field(i, j) = 17 Then Label56.BackColor = &HBBECF4 If field(i, j) = 17 Then Label56.ForeColor = &H80000008 If field(i, j) = 18 Then Label56.Caption = "+1" If field(i, j) = 18 Then Label56.BackColor = &HBBECF4 If field(i, j) = 18 Then Label56.ForeColor = &H80000008 If field(i, j) = 19 Then Label56.Caption = "+5" If field(i, j) = 19 Then Label56.BackColor = &HBBECF4 If field(i, j) = 19 Then Label56.ForeColor = &H80000008 'Label7.Caption = Label56.Caption 'Label7.BackColor = Label56.BackColor 'Label7.ForeColor = Label56.ForeColor 'Form1.Caption = field(0, 0) End Sub Private Sub Field_Fill() 'Копирование номиналов и атрибутов из «дежурной» ячейки Label56 k = 0 ‘Счетчик ячеек For j = 0 To 4 For i = 0 To 7 Color_Chars 'Поместить следующее значение из массива field(i, j) в Label56 ‘и вычислить цветовые атрибуты символа и фона по ее номиналу If k = 0 Then Label7.Caption = Label56.Caption If k = 0 Then Label7.BackColor = Label56.BackColor If k = 0 Then Label7.ForeColor = Label56.ForeColor If k = 1 Then Label8.Caption = Label56.Caption If k = 1 Then Label8.BackColor = Label56.BackColor If k = 1 Then Label8.ForeColor = Label56.ForeColor If k = 2 Then Label9.Caption = Label56.Caption If k = 2 Then Label9.BackColor = Label56.BackColor If k = 2 Then Label9.ForeColor = Label56.ForeColor If k = 3 Then Label10.Caption = Label56.Caption If k = 3 Then Label10.BackColor = Label56.BackColor If k = 3 Then Label10.ForeColor = Label56.ForeColor If k = 4 Then Label11.Caption = Label56.Caption If k = 4 Then Label11.BackColor = Label56.BackColor If k = 4 Then Label11.ForeColor = Label56.ForeColor If k = 5 Then Label12.Caption = Label56.Caption If k = 5 Then Label12.BackColor = Label56.BackColor If k = 5 Then Label12.ForeColor = Label56.ForeColor If k = 6 Then Label13.Caption = Label56.Caption If k = 6 Then Label13.BackColor = Label56.BackColor If k = 6 Then Label13.ForeColor = Label56.ForeColor If k = 7 Then Label14.Caption = Label56.Caption If k = 7 Then Label14.BackColor = Label56.BackColor If k = 7 Then Label14.ForeColor = Label56.ForeColor If k = 8 Then Label15.Caption = Label56.Caption If k = 8 Then Label15.BackColor = Label56.BackColor If k = 8 Then Label15.ForeColor = Label56.ForeColor If k = 9 Then Label16.Caption = Label56.Caption If k = 9 Then Label16.BackColor = Label56.BackColor If k = 9 Then Label16.ForeColor = Label56.ForeColor If k = 10 Then Label17.Caption = Label56.Caption If k = 10 Then Label17.BackColor = Label56.BackColor If k = 10 Then Label17.ForeColor = Label56.ForeColor If k = 11 Then Label18.Caption = Label56.Caption If k = 11 Then Label18.BackColor = Label56.BackColor If k = 11 Then Label18.ForeColor = Label56.ForeColor If k = 12 Then Label19.Caption = Label56.Caption If k = 12 Then Label19.BackColor = Label56.BackColor If k = 12 Then Label19.ForeColor = Label56.ForeColor If k = 13 Then Label20.Caption = Label56.Caption If k = 13 Then Label20.BackColor = Label56.BackColor If k = 13 Then Label20.ForeColor = Label56.ForeColor If k = 14 Then Label21.Caption = Label56.Caption If k = 14 Then Label21.BackColor = Label56.BackColor If k = 14 Then Label21.ForeColor = Label56.ForeColor If k = 15 Then Label22.Caption = Label56.Caption If k = 15 Then Label22.BackColor = Label56.BackColor If k = 15 Then Label22.ForeColor = Label56.ForeColor If k = 16 Then Label23.Caption = Label56.Caption If k = 16 Then Label23.BackColor = Label56.BackColor If k = 16 Then Label23.ForeColor = Label56.ForeColor If k = 17 Then Label24.Caption = Label56.Caption If k = 17 Then Label24.BackColor = Label56.BackColor If k = 17 Then Label24.ForeColor = Label56.ForeColor If k = 18 Then Label25.Caption = Label56.Caption If k = 18 Then Label25.BackColor = Label56.BackColor If k = 18 Then Label25.ForeColor = Label56.ForeColor If k = 19 Then Label26.Caption = Label56.Caption If k = 19 Then Label26.BackColor = Label56.BackColor If k = 19 Then Label26.ForeColor = Label56.ForeColor If k = 20 Then Label27.Caption = Label56.Caption If k = 20 Then Label27.BackColor = Label56.BackColor If k = 20 Then Label27.ForeColor = Label56.ForeColor If k = 21 Then Label28.Caption = Label56.Caption If k = 21 Then Label28.BackColor = Label56.BackColor If k = 21 Then Label28.ForeColor = Label56.ForeColor If k = 22 Then Label29.Caption = Label56.Caption If k = 22 Then Label29.BackColor = Label56.BackColor If k = 22 Then Label29.ForeColor = Label56.ForeColor If k = 23 Then Label30.Caption = Label56.Caption If k = 23 Then Label30.BackColor = Label56.BackColor If k = 23 Then Label30.ForeColor = Label56.ForeColor If k = 24 Then Label31.Caption = Label56.Caption If k = 24 Then Label31.BackColor = Label56.BackColor If k = 24 Then Label31.ForeColor = Label56.ForeColor If k = 25 Then Label32.Caption = Label56.Caption If k = 25 Then Label32.BackColor = Label56.BackColor If k = 25 Then Label32.ForeColor = Label56.ForeColor If k = 26 Then Label33.Caption = Label56.Caption If k = 26 Then Label33.BackColor = Label56.BackColor If k = 26 Then Label33.ForeColor = Label56.ForeColor If k = 27 Then Label34.Caption = Label56.Caption If k = 27 Then Label34.BackColor = Label56.BackColor If k = 27 Then Label34.ForeColor = Label56.ForeColor If k = 28 Then Label35.Caption = Label56.Caption If k = 28 Then Label35.BackColor = Label56.BackColor If k = 28 Then Label35.ForeColor = Label56.ForeColor If k = 29 Then Label36.Caption = Label56.Caption If k = 29 Then Label36.BackColor = Label56.BackColor If k = 29 Then Label36.ForeColor = Label56.ForeColor If k = 30 Then Label37.Caption = Label56.Caption If k = 30 Then Label37.BackColor = Label56.BackColor If k = 30 Then Label37.ForeColor = Label56.ForeColor If k = 31 Then Label38.Caption = Label56.Caption If k = 31 Then Label38.BackColor = Label56.BackColor If k = 31 Then Label38.ForeColor = Label56.ForeColor If k = 32 Then Label39.Caption = Label56.Caption If k = 32 Then Label39.BackColor = Label56.BackColor If k = 32 Then Label39.ForeColor = Label56.ForeColor If k = 33 Then Label40.Caption = Label56.Caption If k = 33 Then Label40.BackColor = Label56.BackColor If k = 33 Then Label40.ForeColor = Label56.ForeColor If k = 34 Then Label41.Caption = Label56.Caption If k = 34 Then Label41.BackColor = Label56.BackColor If k = 34 Then Label41.ForeColor = Label56.ForeColor If k = 35 Then Label42.Caption = Label56.Caption If k = 35 Then Label42.BackColor = Label56.BackColor If k = 35 Then Label42.ForeColor = Label56.ForeColor If k = 36 Then Label43.Caption = Label56.Caption If k = 36 Then Label43.BackColor = Label56.BackColor If k = 36 Then Label43.ForeColor = Label56.ForeColor If k = 37 Then Label44.Caption = Label56.Caption If k = 37 Then Label44.BackColor = Label56.BackColor If k = 37 Then Label44.ForeColor = Label56.ForeColor If k = 38 Then Label45.Caption = Label56.Caption If k = 38 Then Label45.BackColor = Label56.BackColor If k = 38 Then Label45.ForeColor = Label56.ForeColor If k = 39 Then Label46.Caption = Label56.Caption If k = 39 Then Label46.BackColor = Label56.BackColor If k = 39 Then Label46.ForeColor = Label56.ForeColor k = k + 1 Next i Next j End Sub