![]() |
![]() |
||
|
![]() |
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 Напишем процедуру подсчета очков при установке маркера в начале игры. | |
![]() Трусики Genki - это одноразовые гипоаллергенные трусики, изготовленные из мягкого и гладкого хлопка. Они подходят для чувствительной кожи, 703 руб Раздел: Обычные ![]() Джутовая ткань отличается хорошими антистатическими свойствами, обладает превосходными теплоизоляционными качествами, хорошо пропускает 301 руб Раздел: Однотонная, голография ![]() Играй и учись с котёнком Тошей! Нажимай на картинки – изучай цифры, формы и цвета, знакомься с животными, слушай песенки мультяшек 445 руб Раздел: Электронные и звуковые плакаты | ![]() 72 руб | ![]() 33 руб |
![]() 52 руб | ![]() 62 руб |
![]() Увеличенный объем пишущего состава - серия "Rower". 92 руб | ![]() 16 руб |
![]() 32 руб | ![]() 132 руб |
![]() 66 руб | ![]() Чернила легко ложатся на бумагу и мгновенно высыхают. 18 руб |
![]() 23 руб -25% 17 руб | ![]() Клинообразный пишущий узел. 32 руб |
![]() 51 руб | ![]() Маркер с круглым наконечником в металлической оправе. 265 руб |
![]() 38 руб | ![]() 48 руб |
![]() 300 руб | ![]() 23 руб |
![]() Быстро высыхают после нанесения. Нетоксичные. Не содержат ксилол. Закругленный наконечник. Заправляемый. Использовать запасные картриджи с чернилами для перманентных маркеров EriсhKrause. Цвет: красный. Маркер в алюминиевом корпусе. Ширина письма: 48 руб | ![]() 34 руб |
![]() Закругленный пишущий узел. Ширина линии: 2 мм. Длина непрерывной линии: 900 м. Тип чернил: спиртовая основа. Форма наконечника: пулевидный. Цвет: красный. Подходит для письма на любых поверхностях. 37 руб | ![]() Круглый пишущий наконечник, ширина линии письма 2,5 мм, пишет на бумаге, картоне, дереве, металле, пластмассе, стекле, керамике и камне. 33 руб |
![]() 159 руб | ![]() 44 руб |
![]() Толщина линии – 1,5 мм. Основа – спиртовая. Форма наконечника – пулевидный. 31 руб | ![]() 20 руб |
![]() Специальный состав чернил на спиртовой основе при хранении не разъедает поверхность, на которую нанесена. 95 руб | ![]() Корпус маркеров изготовлен из экологически чистого материала - полипропилена, который предотвращает быстрое высыхание чернил. 27 руб |
![]() Пишущий узел конической формы имеет толщину всего 0,5 мм. Цвет: красный. Маркер перманентный для нанесения надписей на CD. Можно писать на бумаге, пластике, стекле и металле. 52 руб | ![]() Также подойдет для творчества, например, как плакатный маркер. Цвет чернил: красный. Форма наконечника: скошенный. Минимальная толщина линии письма: 3 мм. Максимальная толщина линии письма: 10 мм. Подходит для 59 руб |
![]() 22 руб | ![]() Высококачественный перманентный маркер предназначен для надписей на любых поверхностях, в том числе пластмассе, стекле, пленке. 133 руб |
![]() 84 руб | ![]() 20 руб |
![]() 76 руб | ![]() Пулеобразный наконечник. Диаметр стержня 4. 5 мм. Длительность письма Maxfilo в 4 раза превышает обычные маркеры и обеспечивает безупречно яркие надписи! 157 руб -20% 125 руб |
![]() 258 руб | ![]() Быстро и аккуратно заправляется чернилами, не имеющими запаха. 72 руб |
![]() 66 руб | ![]() 70 руб |
на главную |