Маркер перманентный "Master", 4.0 мм, синий

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 Напишем процедуру подсчета очков при установке маркера в начале игры.

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 Напишем процедуру подсчета очков при установке маркера в начале игры.
Чайник со свистком из нержавеющей стали "Mayer & Boch", 2,5 л. Чайник со свистком металлический. Материал: нержавеющая сталь, бакелит, литое дно. Объем: 2,5 литра. Чайник выполнен из высококачественной 400 руб Раздел: Чайники из нержавеющей стали Ручка-стилус шариковая сувенирная "Максим". Перед Вами готовый подарок в стильной упаковке — шариковая ручка со стилусом. Она имеет прочный металлический корпус, а именная надпись 415 руб Раздел: Металлические ручки Коляска-трость Everflo "Simple blue". Коляска-трость - идеальный вариант для путешествий и поездок в общественном транспорте. Характеристики: - Стальная рама. - Одно положение 1300 руб Раздел: Коляски-трость
Маркер перманентный "MASTER splay", красный Клиновый наконечник. Толщина линии – 4. 0 мм. Полипропиленовый корпус. 25 руб	Маркер перманентный, овальный наконечник, черный Пишет практически на всех поверхностях. 114 руб -40% 68 руб
Маркер перманентный для OHP-CD/DVD "Elegance", синий 75 руб	Маркер перманентный "Elegance", зелёный 38 руб
Маркер перманентный Pentel Pen, синий 112 руб	Маркер перманентный, красный 76 руб
Маркер перманентный (скошенный наконечник), черный 76 руб	Маркер перманентный Maxfilo с подкачкой, черный Маркер перманентный Maxfilo с жидкими чернилами и кнопкой подкачки чернил. 88 руб
Маркер перманентный, красный 39 руб	Маркер перманентный промышленный быстросохнущий White, белый 297 руб
"Tratto Redimark" Маркер перманентный пулеобразный (зеленый) 66 руб	Маркер перманентный, синий 15 руб
Маркер перманентный по всем поверхностям "Grosso", синий 173 руб	Маркер перманентный "Marco", красный 17 руб
Маркер перманентный "Imperium", зеленый 26 руб	Маркер перманентный "Fresco", синий 21 руб
Маркер перманентный "Status", зеленый 29 руб	Маркер перманентный, зеленый Толщина стержня – 1 мм. Зона захвата треугольной эргономичной формы. 22 руб
Маркер перманентный UNIX MARK, зеленый 22 руб	Маркер перманентный, синий 25 руб
Маркер перманентный, красный Устойчивый к воде, стиранию, атмосферным воздействиям. 21 руб	Маркер перманентный устойчивый к высыханию, синий Невысыхающий (не высыхает до 14 дней без колпачка). 46 руб
Маркер перманентный устойчивый к высыханию, красный Клинообразный пишущий узел. 32 руб	Маркер перманентный, красный Клинообразный пишущий узел. 31 руб
Маркер перманентный, красный Маркер водостойкий. Для письма на любых поверхностях. 33 руб	Маркер перманентный, черный Клинообразный пишущий узел. Толщина линии: 1-4. 6 мм. Размер: 150x15x15 мм Для большинства поверхностей. 31 руб
Маркер перманентный "Multimark Winner 52", красный 51 руб	Маркер перманентный "BASIC", синий 22 руб
Маркер перманентный "Multimark Winner 52", черный 44 руб	Маркер перманентный "Silver&Gold", серебристый 50 руб
Маркер перманентный "EcoLine", 1,5-3 мм, красный Водостойкая и нестираемая практически на всех поверхностях. 63 руб	Маркер перманентный, чёрный Маркер предназначен для нанесения постоянных, практически не удаляемых надписей на любые гладкие поверхности. 113 руб
Маркер перманентный, желтый 91 руб	Маркер перманентный, черный 66 руб
Маркер перманентный Может использоваться для различных видов оформительских работ. 36 руб	Маркер перманентный "Maxi", черный 76 руб
Маркер перманентный, красный 22 руб	Маркер перманентный, синий 24 руб
Маркер перманентный, красный 27 руб	Маркер перманентный, зеленый 30 руб

		есть на складе