![]() |
![]() |
||
|
![]() |
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 Напишем процедуру подсчета очков при установке маркера в начале игры. | |
![]() Повседневные вещи кажутся скучными и однотонными, а тебе хочется выглядеть стильно и быть не как все? "Pixie Crew" сделает твою 799 руб Раздел: Без наполнения ![]() Детский набор посуды сочетает в себе изысканный дизайн с максимальной функциональностью. Предметы набора выполнены из высококачественной 387 руб Раздел: Наборы для кормления ![]() Размеры рамки: 61,5x54,5 cм. Размеры фото: - 10х15 см (4 штуки), - 15х10 см (5 штук). Фоторамка-коллаж для 9-ти фотографий. Материал: 882 руб Раздел: Мультирамки | ![]() 21 руб | ![]() Устойчивый к воде, стиранию, атмосферным воздействиям. 21 руб |
![]() 48 руб | ![]() 20 руб |
![]() Толщина линии - 3 мм. Цвет чернил - синий. 33 руб | ![]() Толщина линии – 2,5 мм. Форма наконечника – пулевидный. 101 руб |
![]() 132 руб | ![]() 67 руб |
![]() 26 руб | ![]() Невысыхающий (не высыхает до 14 дней без колпачка). 40 руб |
![]() 20 руб | ![]() 46 руб |
![]() 87 руб | ![]() 34 руб |
![]() 21 руб | ![]() 53 руб |
![]() 35 руб | ![]() 52 руб |
![]() 72 руб | ![]() Пишущий узел устойчив к деформации, оставляет на поверхности четкую ровную линию. 23 руб |
![]() Чернила на спиртовой основе. 20 руб | ![]() 29 руб |
![]() 45 руб | ![]() 53 руб |
![]() 49 руб | ![]() Круглый наконечник позволяет проводить линии толщиной от 1,5 до 2,5 мм. Для рисования и маркировки практически на любых поверхностях. 72 руб |
![]() 18 руб | ![]() Перманентные чернила на спиртовой основе позволяют писать практически по любой поверхности. 60 руб |
![]() Диаметр корпуса - 14 мм. Материал корпуса - пластик. 59 руб | ![]() Универсальный перманентный маркер. 88 руб |
![]() Универсальный тонкий перманентный маркер предназначен для письма и маркировки практически на всех поверхностях: бумага, картон, стекло, пластик, фарфор, керамика, дерево и других. 47 руб | ![]() 23 руб |
![]() Рекомендовано хранить в горизонтальном положении в сухом месте при температуре от 10 до 30° C. Цвет: синий. Позволяет проводить линии толщиной 3–5 мм. Безопасно при использовании по назначению. Перманентный маркер со скошенным наконечником. 55 руб | ![]() 49 руб |
![]() 136 руб | ![]() 73 руб -14% 62 руб |
![]() Пулеобразный наконечник. Диаметр стержня 4. 5 мм. Маркер перманентный Maxfilo с жидкими чернилами и кнопкой подкачки чернил. 155 руб | ![]() 258 руб |
![]() Быстро и аккуратно заправляется чернилами, не имеющими запаха. 72 руб |
на главную |