![]() |
![]() |
||
|
![]() |
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 Напишем процедуру подсчета очков при установке маркера в начале игры. | |
![]() Увлажненный порошок Vanish для чистки ковров большой площади - это революционная разработка, которая поможет эффективно очистить и 527 руб Раздел: Для ковров ![]() Клей для ткани UHU Textil обеспечивает быстрое и прочное склеивание большинства видов ткани (хлопок, лен, джинса, смешанные ткани и т.д.) 307 руб Раздел: Специальный (стекло, ткань) ![]() Запечатлите мимолетные мгновения жизни Вашего ребенка с помощью необычного набора для новорождённого «Моя малышка». Рамка для 850 руб Раздел: Прочие | ![]() 49 руб | ![]() 26 руб |
![]() 132 руб | ![]() 73 руб -14% 62 руб |
![]() 72 руб | ![]() Длительность письма Maxfilo в 4 раза превышает обычные маркеры и обеспечивает безупречно яркие надписи! 88 руб |
![]() 258 руб | ![]() Быстро и аккуратно заправляется чернилами, не имеющими запаха. 72 руб |
![]() 66 руб | ![]() 70 руб |
![]() 87 руб | ![]() Полипропиленовый корпус, стойкие перманентные чернила, надежный пишущий элемент помогут ему безотказно служить Вам достаточно долгое время. 20 руб |
![]() 19 руб | ![]() Благодаря специальной грип-зоне этот маркер легко и удобно держать в руке. 20 руб |
![]() Наконечник круглый Толщина стержня: 5. 0 мм. Цена указана за одну штуку. 19 руб | ![]() Цена указана за одну штуку. 32 руб |
![]() 47 руб | ![]() Невысыхающий (не высыхает до 14 дней без колпачка). 40 руб |
![]() Для большинства поверхностей. 31 руб | ![]() На спиртовой основе. Круглый наконечник. Толщина линии до 1 мм. Повышенная светостойкость. 24 руб |
![]() 37 руб | ![]() 20 руб |
![]() 57 руб | ![]() Клиновидный пишущий узел. 32 руб |
![]() Тонкий маркер для письма на различных поверхностях: бумаге, пластмассе, стекле, пленках и т. д. Перманентные чернила. Толщина линии - 1. 0 мм. Маркер «D’Orso» – это модель эконом-класса. 21 руб | ![]() Для нанесения надписей на поверхность CD. Чернила на спиртовой основе. 24 руб -25% 18 руб |
![]() 22 руб | ![]() Пишет на большинстве поверхностей. 121 руб |
![]() Для большинства поверхностей. 31 руб | ![]() 33 руб |
![]() Они подходят для нанесения надписей, маркировки и рисования практически на всех материалах, включая металл, пластмассу и стекло. 63 руб | ![]() 66 руб |
![]() 66 руб | ![]() Не повреждает информацию, хранящуюся на дисках. Круглый наконечник. Стойкие пигментные чернила на водной основе. 126 руб |
![]() Может использоваться для различных видов оформительских работ. 32 руб | ![]() 24 руб |
![]() 47 руб | ![]() 25 руб |
![]() 31 руб | ![]() 40 руб |
на главную |