- Преподавателю
- Информатика
- Visual Basic. Практическая работа Прогноз погоды
Visual Basic. Практическая работа Прогноз погоды
Раздел | Информатика |
Класс | - |
Тип | Другие методич. материалы |
Автор | Ембергенова К.Т. |
Дата | 04.12.2015 |
Формат | doc |
Изображения | Есть |
VISUAL BASIC
Практическая работа «Прогноз погоды»
Ход работы;
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