Pages

lunes, 21 de enero de 2013

Convertir de grados Celsius a grados Fahrenheit y viceversa Codigo Fuente en Visual Basic

Problema
Desarrolle un algoritmo que convierta de grados Celsius a grados Fahrenheit y de grados Fahrenheit a grados Celsius.

Solución
  • Entrada: 37 grados Celsius
  • Salida: 98.6 grados Fahrenheit
Codigo Fuente en Visual Basic
Public Class Form1
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim g As Double
        g = TextBox1.Text
        If (ComboBox1.SelectedIndex = 0) Then
            TextBox2.Text = Trim(g * (9 / 5) + 32) + "  ºF"
        Else
            TextBox2.Text = Trim((g - 32) * (5 / 9)) + "  ºC"
        End If
    End Sub
End Class

1 comentarios:

Anónimo dijo...

te la comes ._.

Publicar un comentario en la entrada