![]() |
![]() |
||
|
![]() |
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 Напишем процедуру подсчета очков при установке маркера в начале игры. | |
![]() Стиральный порошок "Molecola" эффективно удаляет загрязнения, не повреждая волокна ткани, сохраняет насыщенный цвет и 357 руб Раздел: Стиральные порошки ![]() Универсальные и герметичные боксы идеально подходят для хранения меха, одежды и домашнего текстиля. Герметичность конструкции обеспечивает 319 руб Раздел: Более 10 литров ![]() Планшет для пастели и акварели состоит из 2 цветов рисовальной бумаги (10 листов серого цвета и 10 листов оливкового цвета), что позволяет 345 руб Раздел: Папки для акварелей, рисования | ![]() 21 руб | ![]() Устойчивый к воде, стиранию, атмосферным воздействиям. 31 руб |
![]() Устойчивый к воде, стиранию, атмосферным воздействиям. 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 руб |
на главную |