VB:CODIGO EJEMPLO 4

Private Sub cmdBorrar_Click()
hscTemperatura.Value = 0
txtBarra.Text = ""
txtResultado.Text = ""

txtResultado.Left = 1920
txtResultado.BackColor = vbWhite
PictureFrio.Visible = False
PictureConfort.Visible = False
PictureCalor.Visible = False


End Sub

Private Sub cmdSalir_Click()
End
End Sub

Private Sub Form_Load()
PictureFrio.Visible = False
PictureConfort.Visible = False
PictureCalor.Visible = False
txtResultado.Left = 1920
End Sub

Private Sub hscTemperatura_Change()
lblPresentacion.Visible = False

txtBarra.Text = hscTemperatura.Value
If Val(txtBarra.Text) > 30 Then
txtResultado.Text = "HACE MUCHO CALOR"
txtResultado.BackColor = vbRed
txtResultado.ForeColor = vbBlack
txtResultado.Left = 3840
PictureFrio.Visible = False
PictureConfort.Visible = False
PictureCalor.Visible = True
Else
If Val(txtBarra.Text) > 8 Then
txtResultado.Text = "ZONA CONFORT"
txtResultado.BackColor = vbGreen
txtResultado.ForeColor = vbRed
txtResultado.Left = 1920
PictureFrio.Visible = False
PictureConfort.Visible = True
PictureCalor.Visible = False
Else
txtResultado.Text = "HACE MUCHO FRIO"
txtResultado.BackColor = vbBlue
txtResultado.ForeColor = vbWhite
txtResultado.Left = 500
PictureFrio.Visible = True
PictureConfort.Visible = False
PictureCalor.Visible = False
End If
End If

End Sub