Pages

miércoles, 23 de enero de 2013

Calcular el costo de una llamada telefónica Codigo Fuente en Visual Basic

Problema
Hacer un programa o algoritmo que dada la duración en minutos de una llamada calcular el costo, considerando
Hasta tres minutos el costo es 0.50
Por encima de tres minutos es 0.50 más 0.1 por cada minuto adicional a los tres primeros

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 costo As Double = 0
        Dim m As Integer
        m = TextBox1.Text
        If (m <= 3) Then
            costo = 0.5
        Else
            costo = 0.5 + 0.5 * 0.1 * (m - 3)
        End If
        TextBox2.Text = "El costo es : " + Trim(costo)
    End Sub
End Class

0 comentarios:

Publicar un comentario en la entrada