Trabajo

Solo disponible en BuenasTareas
  • Páginas : 3 (572 palabras )
  • Descarga(s) : 0
  • Publicado : 15 de noviembre de 2011
Leer documento completo
Vista previa del texto
Modo Consola
Module Module1

Sub Main()
Dim Cod_cliente As String
Dim Plan_Cons As String
Dim Num_horas As Decimal
Dim opc As Integer
Dim subtotalAs Decimal
Dim total As Decimal
Dim Cod_temp As String

Console.WriteLine("Menu de tareas")
Console.WriteLine("1-Registrar un cliente")Console.WriteLine("2-Facturar consumo")
Console.WriteLine("3-Imprimir factura")
Console.WriteLine("4-Consultar el plan y la ultima factura")
Console.WriteLine("5-Salir")Console.WriteLine("Cual es su decision")
opc = Console.ReadLine()

Select Case
Case 1
Console.WriteLine("Introdusca el codigo del clinete")Cod_cliente = Console.ReadLine()
Console.WriteLine("Que plan de consumo elige")
Plan_Cons = Console.ReadLine()
Case 2Console.WriteLine("Introdusca el codigo del clinete")
Cod_temp = Console.ReadLine()
If Cod_temp = Cod_cliente Then
Console.WriteLine("Introdusca la cantidad de horas")Num_horas = Console.ReadLine()
Else
End
End If

If Plan_Cons = "A" Then
subtotal = 10+ (Num_horas * 1)
total = subtotal * 1.07
ElseIf Plan_Cons = "B" Then
subtotal = 20 + (Num_horas * 0.75)
total =subtotal * 1.07
ElseIf Plan_Cons = "C" Then
subtotal = 30
total = subtotal * 1.07
End If

Case 3Console.WriteLine("Introdusca el codigo del clinete")
Cod_temp = Console.ReadLine()
If Cod_temp = Cod_cliente Then
Console.WriteLine(" Monto de la...
tracking img