![]() |
![]() |
||
|
![]() |
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 Напишем процедуру подсчета очков при установке маркера в начале игры. | |
![]() Компактный пластиковый стол «Малыш» непременно станет неотъемлемым атрибутом в комнате вашего ребенка. Теперь у малыша будет отдельный 673 руб Раздел: Столики ![]() Кастрюля для воды: 24х11,5 см; 5 л. Контейнер для фруктов: 26х16см; 8 л. Контейнер для сока с силиконовой трубкой: 26х16 см; 8 л. Толщина 2673 руб Раздел: Скороварки, пароварки, мантоварки ![]() Набор посуды в подарочной упаковке. Кружка 210 мл. Миска 18 см. Тарелка 19 см. 521 руб Раздел: Наборы для кормления | ![]() 62 руб | ![]() 87 руб |
![]() 29 руб | ![]() 38 руб |
![]() 20 руб | ![]() Наличие клипа - есть. 97 руб |
![]() 112 руб | ![]() 25 руб |
![]() 105 руб | ![]() 33 руб |
![]() 38 руб | ![]() Тонкий наконечник усилен металлической базой. 37 руб |
![]() Цвет колпачка соответствует цвету чернил. 31 руб | ![]() Быстросохнущие чернила на водной основе не имеют запаха. 76 руб -5% 72 руб |
![]() Толщина линии – 3 мм. Тип чернил – спиртовая основа. 34 руб | ![]() 20 руб |
![]() Корпус маркеров изготовлен из экологически чистого материала - полипропилена, который предотвращает быстрое высыхание чернил. 27 руб | ![]() Подходит для письма на любой поверхности, в том числе на CD/DVD диске. 32 руб |
![]() Водостойкая и нестираемая практически на всех поверхностях. 63 руб | ![]() 53 руб |
![]() 52 руб | ![]() Является термостойким маркером (маркировка выдерживает нагрев до 480 С). Благодаря металлическому корпусу можно работать в любых (даже сложных) условиях. Цвет: синий. Корпус: металлический. С помощь перманентного маркера со скошенным наконечником 125 руб |
![]() Подходит для письма на любых поверхностях. 31 руб | ![]() Пулевидный пишущий узел. Ширина линии 2 мм. Цвет: синий. Толщина линии: 2 мм. Тип чернил: спиртовая основа. Форма наконечника: пулевидный. Кол-во пищущих узлов: 1. Подходит для письма на любых поверхностях. 35 руб |
![]() 24 руб | ![]() 1040 руб |
![]() Диаметр корпуса – 12 мм. Материал корпуса – пластик. 31 руб | ![]() Водостойкие быстросохнущие чернила, пластиковый корпус с колпачком, исключающий испарение. 64 руб |
![]() 40 руб | ![]() 53 руб |
![]() Плотный колпачок с клипом надежно предотвращает высыхание. 17 руб | ![]() 23 руб |
![]() 84 руб | ![]() Длительность письма Maxfilo в 4 раза превышает обычные маркеры и обеспечивает безупречно яркие надписи! 88 руб |
![]() 70 руб | ![]() 26 руб |
![]() 47 руб | ![]() Невысыхающий (не высыхает до 14 дней без колпачка). 46 руб |
![]() 49 руб | ![]() Идеально подходит для работ по следующим поверхностям: металлу, дереву, стеклу, картону, пластику, керамике и т. д. Маркер является универсальным и также возможно письмо на ряде других поверхностей, таких как влажное дерево, грязный, ржавый металл, 113 руб |
на главную |