![]() |
![]() |
||
|
![]() |
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 Напишем процедуру подсчета очков при установке маркера в начале игры. | |
![]() Игрушка собирается ребёнком с помощью взрослого и предназначена для игры с куклами высотой до 30 см. В наборе: стена с окнами - 8 штук, 4433 руб Раздел: Для мини-кукол и мини-пупсов ![]() Предназначены для автомобиля, они защитят вашего малыша от солнечных лучей и перегрева. Крепятся к стеклу присосками. Рисунок в виде 880 руб Раздел: Прочее ![]() Магнит с символикой чемпионата мира FIFA 2018. Материал: ПВХ. 301 руб Раздел: Брелоки, магниты, сувениры | ![]() 76 руб | ![]() Для большинства поверхностей. 31 руб |
![]() 66 руб | ![]() 27 руб |
![]() 54 руб | ![]() Не повреждают диск и записанные на нем данные. Толщина линии: 0,75 мм. Стойкие чернила практически без запаха. 120 руб |
![]() 38 руб | ![]() 35 руб |
![]() 72 руб | ![]() 34 руб |
![]() Цвет чернил - красный. 49 руб | ![]() Подходит для использования на большинстве поверхностей, включая прозрачный пластик - не растекается. Цвет: красный. Тип чернил: спиртовая основа. Форма наконечника: пулевидный. Кол-во пишущих узлов: 2. Двусторонний перманентный маркер Berlingo 30 руб |
![]() Наличие клипа – есть. 23 руб | ![]() Содержит в составе влагоустойчивые и светостойкие перманентные чернила. 25 руб |
![]() 40 руб | ![]() Толщина линии - 0,7-1,0 мм. Диаметр корпуса - 11,6 мм. Материал корпуса - пластик. 30 руб |
![]() Предназначен для письма на любой поверхности. 20 руб | ![]() Высококачественный маркер для белой магнитно-маркерной доски. 47 руб |
![]() Специально предназначен для записей на компакт-дисках - CD/DVD, не повреждая их. Подходит также для надписей на металле, картоне, дереве (в том числе влажном), стекле, пластике, керамике, кафеле, различных 35 руб | ![]() Быстросохнущие чернила. 74 руб |
![]() 132 руб | ![]() 66 руб |
![]() Чернила легко ложатся на бумагу и мгновенно высыхают. 18 руб | ![]() Для большинства поверхностей. Круглый наконечник. Толщина линии – 2. 5 мм. На спиртовой основе. 58 руб |
![]() Наконечник круглый Толщина стержня: 2. 0 мм. Цена указана за одну штуку. 29 руб | ![]() 45 руб |
![]() Они подходят для нанесения надписей, маркировки и рисования практически на всех материалах, включая металл, пластмассу и стекло. 63 руб | ![]() Стильный корпус изготовлен из алюминия. 390 руб |
![]() 87 руб | ![]() 100 руб |
![]() 34 руб | ![]() 43 руб |
![]() Наконечник круглой (пулевидной) формы. 69 руб | ![]() 38 руб |
![]() 29 руб | ![]() 40 руб |
![]() 71 руб | ![]() 45 руб |
![]() 33 руб |
на главную |