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.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