Pages

lunes, 21 de enero de 2013

Determinar el estado del clima Codigo Fuente en Visual Basic

Problema
Determinar un algoritmo que solicite la temperatura actual en grados centígrados e informe al usuario:
Está haciendo mucho calor, para el rango (30 a 40 grados),
El clima está bien, para el rango (29 a 15 grados),
Está haciendo frio, para el rango (14 a 1 grados), y
Está haciendo mucho frio, para el rango de (cero grados o por debajo de cero).

Solución
  • Entrada: 24
  • Salida: El clima está bien
Codigo Fuente en Visual Basic
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim tem As Double
        tem = TextBox1.Text
        If (tem >= 30) Then
            TextBox2.Text = "Esta haciendo mucho calor"
        Else
            If (tem < 30 And tem >= 15) Then
                TextBox2.Text = "El clima esta bien"
            Else
                If (tem < 15 And tem >= 1) Then
                    TextBox2.Text = "Esta haciendo frio"
                Else
                    TextBox2.Text = "Esta haciendo mucho frio"
                End If
            End If
        End If
    End Sub
End Class

0 comentarios:

Publicar un comentario en la entrada