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

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.F
·oreColor = 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








15