Маркер перманентный "Elegance", красный

Visual Basic

Создадим переменную markersave в которой будем запоминать НОМЕР ЭЛЕМЕНТА массива savecolor(j), которая соответствует ячейке с маркером (в которую поставили маркер). Можно проверить, что маркер возможно поставить только в одну ячейку. Теперь нужно обеспечить сохранение маркера (окраску ячейки в синий цвет) при сдвигании ячеек сверху-вниз. Процедура восстановления цвета маркера после смещения ячеек игрового поля сверху-вниз: Priva e Sub Marker Rese () If markersave = 0  he Label7.BackColor = &HFF0000 If markersave = 1  he Label8.BackColor = &HFF0000 If markersave = 2  he Label9.BackColor = &HFF0000 If markersave = 3  he Label10.BackColor = &HFF0000 If markersave = 4  he Label11.BackColor = &HFF0000 If markersave = 5  he Label12.BackColor = &HFF0000 If markersave = 6  he Label13.BackColor = &HFF0000 If markersave = 7  he Label14.BackColor = &HFF0000 E d Sub Теперь «подключим» процедуру Marker Rese () к работе в процедуре сдвига вниз. В самый низ процедуры Frame1 Click() вставим следующий код (выделен красным цветом): Priva e Sub Frame1 Click() um Move 'Сдвинуть значения всех строк на одну вниз Up S r App 'Заполнить верхнюю строку новыми номиналами Marker Rese 'Восстановить маркер E d Sub Полный VB-проект с этого этапа разработки игры -  в файле vbg5.zip Напишем процедуру подсчета очков при установке маркера в начале игры.