Проект «Бегающая картинка» icon

Проект «Бегающая картинка»



НазваниеПроект «Бегающая картинка»
Дата конвертации03.06.2012
Размер18.9 Kb.
ТипДокументы



Проект «Бегающая картинка»


Все работы проводятся в вашей папке

  1. Создать новый проект

  2. В окне свойства объекта установить мы следующие свойства

    1. Name – Form1

    2. BorderStyle – 0-None

    3. Picture Активизировать свойства и выбрать 1 картинку из папок C:\Санкт-Петербург, С:\живопись, С:\новгород, С:\Школа

  3. В правом верхнем углу формы создать кнопку со следующими свойствами

    1. Name cmd1

    2. Style –1- Graphical

    3. BackColor =&H80000009& (белый)

    4. Caption=”X”

    5. Appearace – 0 - Flat

  4. В событийной процедуре Click, связанной с кнопкой cmd1 зададим команду, позволяющую завершить работу программы End

Private Sub cmd1_Click()

End

End sub

5.Вставим таймер и зададим ему следующие свойства

5.1. Name =Timer1

5.2.Enabled=true

5.3.Interval = 500

  1. В событийной процедуре Tick, связанной с таймером Timer1 зададим команду, позволяющую перемещаться случайным образом форме

Me.Move Int(Rnd * 1000) - 500, Int(Rnd * 1000) – 500


  1. Заставим картинку мигать

В событийной процедуре Tick, связанной с таймером Timer1 зададим команду

^ Dim n As Integer ‘Вводим новыую локальную переменную

n = Int(Rnd * 3) ‘Присваиваем переменной случайное число в диапазоне от 0 до 2

If n = 2 Then Me.Visible = False Else Me.Visible = True ‘В случае, если n = 2, спрячем форму, в противном случае – покажем.

  1. Имеем следующий код процедуры

Private Sub Timer1_Timer()

Me.Move Int(Rnd * 1000) - 500, Int(Rnd * 1000) - 500

Dim n As Integer

n = Int(Rnd * 3)

If n = 2 Then Me.Visible = False Else Me.Visible = True

End Sub

  1. Создайте форму Form2. Меню: Проект - Добавить форму.

  2. Выполните для нее пункты 2-7

  3. Для того чтобы она появлялась при запуске программы, в Form1 вставьте процедуру

Private Sub Form_Load()

Form2.Show

End Sub

Для самостоятельной работы


  1. сделайте так, чтобы Form2 не накладывалась на Form1.

  2. Добавьте еще три формы и выполните для них пункты 8-10

  3. Настройте программу по своему усмотрению.

  4. Создайте exe-файл. Файл – Делать Project1.
    exe и сохраните его в вашу папку

Дополнительное задание.

  1. Переделайте проект так, чтобы формы перемещалась не по событию таймера, а по нажатию кнопок Вправо, Влево, Вверх, Вниз.

  2. Из главной формы остальные формы открывались по нажатию кнопок, а не при загрузке.




Похожие:

Проект «Бегающая картинка» iconДокументы
1. /Музыкальные картинки ьь1-6/Пичугин А_Музыкальная картинка ь1.pdf
2. /Музыкальные...

Проект «Бегающая картинка» icon1. Введение
В центре слайда – надпись Стандарты информационной безопасности и картинка в виде толстой папки
Проект «Бегающая картинка» iconПолитическая структура государства
Подпишите, какой ветви государственной власти соответствует предложенная картинка?
Проект «Бегающая картинка» iconДокументы
1. /проект 2-х этажного дома/проект 2-х этажного дома/1 раздел Инженерная подготовка площадки...
Проект «Бегающая картинка» iconСмысл действий сложения и вычитания Выполнила студентка 45гр
Например, детям предлагается картинка на которой Миша и Маша запускают рыбок в аквариум
Проект «Бегающая картинка» iconПраво на охрану здоровья Проект
В нашей стране разработан национальный проект «Здоровье», который предусматривает
Проект «Бегающая картинка» iconПроект развития муниципального образовательного учреждения Кодинской средней общеобразовательной школы №4 на 2010-2013 гг. Проект разработан
Проект разработан в соответствии с основными положениями Национальной образовательной инициативы «Наша новая школа»; законом Российской...
Проект «Бегающая картинка» iconПроект 6-го класса «Обновление кабинета технологии»
Март – Изготовление вешалки для разделочных досок и прихваток (мальчики, проект)
Проект «Бегающая картинка» icon~~River Rox~~
Комментарий: Ритмичен, картинка совпадает со смыслом песни, хорошо сделан, заставил вжиться в себя и хорошо подобран сюжет!
Проект «Бегающая картинка» iconПроект перспективного развития муниципального общеобразовательного учреждения Агинская средняя общеобразовательная школа №1 на 2011 – 2015 годы
Проект перспективного развития моу агинской сош №1 на 2011 2015 годы (далее Проект)
Разместите кнопку на своём сайте:
Документы


База данных защищена авторским правом ©podelise.ru 2000-2014
При копировании материала обязательно указание активной ссылки открытой для индексации.
обратиться к администрации
Документы

Разработка сайта — Веб студия Адаманов