Programas

PROGRAMA 1 "CONVERSION DE DOLARES A PESOS Y DE PESOS A

DOLARES"
Imports System.Console
Module Module1

Sub Main()
Dim pesos, dolar, cambio, conversion As DecimalWriteLine("Cambio de divisas")
WriteLine("_________________")
WriteLine("Seleccione que desea convertir")
WriteLine("1.- Dolares a pesos")
WriteLine("2.- Pesos adolares")
cambio = ReadLine()

Select Case cambio
Case 1
WriteLine("Ingrese la cantidad de dolares que desea convertir")
dolar = ReadLine()conversion = dolar * 13.5
WriteLine("Su cantidad en pesos es : " & conversion)
Case 2
WriteLine("Ingrese la cantidad de pesos que deseaconvertir")
pesos = ReadLine()
conversion = pesos / 13.5
WriteLine("Su cantidad en dolares es : " & conversion)
End SelectReadLine()
End Sub

End Module
















PROGRAMA 2: "SEGUNDOS EN HORAS Y MINUTOS"
Imports System.Console
Module Module1

Sub Main()
Dim min, horas, seg AsInteger

WriteLine("Ingrese la cantidad de segundos")
seg = ReadLine()

min = seg / 60
horas = seg / 3600

WriteLine("El total en horas es : " & horas)WriteLine("El total en minutos es : " & min)
ReadLine()

End Sub

End Module




























PROGRAMA 3 "DESCUENTO POR COLOR DE FICHAS"Imports System.Console
Module Module1

Sub Main()
Dim monto, tpagar, desc As Decimal
Dim color As Integer

WriteLine("Ingresa el monto total a pagar")
monto= ReadLine()
WriteLine("Selecciona el color de tu ficha")
WriteLine("1.- Verde")
WriteLine("2.- Amarillo")
WriteLine("3.- Rojo")
WriteLine("4.- Azul")...