Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Свидетельство о публикации

Автоматическая выдача свидетельства о публикации в официальном СМИ сразу после добавления материала на сайт - Бесплатно

Добавить свой материал

За каждый опубликованный материал Вы получите бесплатное свидетельство о публикации от проекта «Инфоурок»

(Свидетельство о регистрации СМИ: Эл №ФС77-60625 от 20.01.2015)

Инфоурок / Информатика / Другие методич. материалы / Visual Basic. Практическая работа "Прогноз погоды"
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 28 июня.

Подать заявку на курс
  • Информатика

Visual Basic. Практическая работа "Прогноз погоды"

библиотека
материалов


VISUAL BASIC

Практическая работа «Прогноз погоды»



hello_html_479a5e77.gif











Ход работы;

1. На форме установить Image1, Image2, Image3, Label1, Label2, Picture1, Picture2, Picture3, Timer1, Timer2

2. Label2 — Caption — «ПРОГНОЗ ПОГОДЫ»

3. Timer1 — Interval -200, Timer2— Interval -400


Private Sub Image1_Click()

Label1.ForeColor = vbRed

Label1.Caption = "Ожидается солнечная погода, возьмите панаму"

Picture1.Visible = True

Picture2.Visible = False

Picture3.Visible = False

End Sub


Private Sub Image2_Click()

Label1.ForeColor = vbBlue

Label1.Caption = "Ожидается дождь, возьмите зонт "

Picture2.Visible = True

Picture1.Visible = False

Picture3.Visible = False

End Sub


Private Sub Image3_Click()

Label1.ForeColor = vbGreen

Label1.Caption = "Ожидаются морозы, оденьтесь потнплее"

Picture2.Visible = False

Picture1.Visible = False

Picture3.Visible = True

End Sub


Private Sub Timer1_Timer()

Label2.Visible = True

End Sub


Private Sub Timer2_Timer()

Label2.Visible = False

End Sub




Подайте заявку сейчас на любой интересующий Вас курс переподготовки, чтобы получить диплом со скидкой 50% уже осенью 2017 года.


Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ

Автор
Дата добавления 15.01.2016
Раздел Информатика
Подраздел Другие методич. материалы
Просмотров190
Номер материала ДВ-343764
Получить свидетельство о публикации
Похожие материалы

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.
Специальное предложение
Вверх