Estructuras cíclicas o repetitivas II
Table de multiplicar
Module Module1
Sub Main()
Dim num, ope, tot As Integer
Console.WriteLine("Ingrese numero a multiplicar")
ope = Console.ReadLine
Console.WriteLine("-----------------------")
For num = 1 To 12
'Console.WriteLine(num)
tot = num * ope
Console.WriteLine(num & " * " & ope & " = " & tot)
'Console.ReadLine()
'contara de 1 hasta 10 (a tomara los valores 1, 2 etc)
Next
Console.WriteLine("-----------------------")
Console.ReadLine()
End Sub
End Module
Module Module1
Sub Main ()
Dim A As Integer
A = 0
Do While A < 10
Console.WriteLine("")
Console.WriteLine(" ***************************** SUPERMERCADO METRO *************************** ")
Console.WriteLine("")
Console.WriteLine(" ¡¡(METRO esta de OFERTA en un 25% por una compra >=100!! ")
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine("1-PRODUCTOS EN VENTA")
Console.WriteLine("2-PRODUCTOS_DE_SERVICIOS")
Console.WriteLine("")
Console.WriteLine("DIGITE LA OPCION :")
A = Console.ReadLine
Select Case A
Case 1
PRODUCTOS_EN_VENTA()
Case 2
PRODUCTOS_DE_SERVICIOS()
End Select
Loop
A = Console.ReadLine
End Sub
Private Sub PRODUCTOS_EN_VENTA()
Dim A1
Console.WriteLine("1_SECCION:VERDURAS")
Console.WriteLine("2_SECCION:TUBERCULOS")
Console.WriteLine("3_SECCION:CARNE")
Console.WriteLine("4_SECCION:FRUTAS")
Console.WriteLine("5_SECCION:ABARROTES")
Console.WriteLine("6_SECCION:GOLOSINAS")
Console.WriteLine("7_SECCION:ROPAS")
Console.WriteLine("8_SALIR")
Console.WriteLine("")
Console.WriteLine("ELIJA UNA OPCION POR FAVOR")
A1 = Console.ReadLine
Select Case A1
Case 1
VERDURAS()
Case 2
TUBERCULOS()
Case 3
CARNE()
Case 4
FRUTA()
Case 5
ABARROTES()
Case 6
GOLOSINAS()
Case 7
ROPAS()
End Select
End Sub
Private Sub VERDURAS()
Dim VERDURAS, CANTIDAD, RESULTADO, descuento As Single
Console.WriteLine("")
Console.WriteLine("PRODUCTOS EN VENTA")
Console.WriteLine("")
Console.WriteLine(" VARIEDADES DE VERDURAS ")
Console.WriteLine("")
Console.WriteLine("1_APIO ............................... $1.0")
Console.WriteLine("2_NABO ............................... $0.5")
Console.WriteLine("3_ALCACHOFA ............................... $1.5")
Console.WriteLine("4_COL ............................... $2.0 ")
Console.WriteLine("5_LECHUGA ............................... $1.0")
Console.WriteLine("6_PORO ............................... $0.9")
Console.WriteLine("7_ALBAHACA ............................... $1.8")
Console.WriteLine("8_ESPINACA ............................... $2.1")
Console.WriteLine("presione la tecla enter para salir")
Console.WriteLine("")
Console.WriteLine("ELIJA UNA OPCION POR FAVOR")
VERDURAS = Console.ReadLine
Console.WriteLine("")
Console.WriteLine("ESCRIBA LA # DE KILOS POR FAVOR")
CANTIDAD = Console.ReadLine
Select Case VERDURAS
Case 1
RESULTADO = CANTIDAD * 1.0
Case 2
RESULTADO = CANTIDAD * 0.5
Case 3
RESULTADO = CANTIDAD * 1.5
Case 4
RESULTADO = CANTIDAD * 2.0
Case 5
RESULTADO = CANTIDAD * 1.0
Case 6
RESULTADO = CANTIDAD * 0.9
Case 7
RESULTADO = CANTIDAD * 1.8
Case 8
RESULTADO = CANTIDAD * 2.1
Case 9
End
End Select
Console.WriteLine("EL TOTAL DE SU DEUDA ES: " & RESULTADO & " nuevos soles")
If RESULTADO >= 100 Then
descuento = (RESULTADO - (RESULTADO * 25 / 100))
Console.WriteLine("EL DESCUENTO REALIZADO ES :" & (RESULTADO * 25 / 100))
Console.WriteLine("¡¡¡PAGUE solamente unos!!!=" & descuento)
Else
descuento = 0
End If
Console.WriteLine("")
Console.WriteLine("¡GRACIAS POR SU COMPRA!¡VUELVA PRONTO!")
Console.WriteLine()
End Sub
Private Sub TUBERCULOS()
Dim TUBERCULOS, CANTIDAD, RESULTADO, descuento As Single
Console.WriteLine("")
Console.WriteLine("PRODUCTOS EN VENTA")
Console.WriteLine("")
Console.WriteLine(" VARIEDADES DE TUBERCULOS ")
Console.WriteLine("")
Console.WriteLine("1_PAPAS ................................... $1.0")
Console.WriteLine("2_ZANAHORIAS ................................... $1.2")
Console.WriteLine("3_CEBOLLAS ................................... $1.1")
Console.WriteLine("4_TOMATES ................................... $2.0")
Console.WriteLine("5_CAMOTES ................................... $0.8")
Console.WriteLine("6_OLLUCO ................................... $2.3")
Console.WriteLine("7_SALIR")
Console.WriteLine("")
Console.WriteLine("ELIJA UNA OPCION POR FAVOR")
TUBERCULOS = Console.ReadLine
Console.WriteLine("")
Console.WriteLine("ESCRIBA EL # DE KILOS POR FAVOR")
CANTIDAD = Console.ReadLine
Select Case TUBERCULOS
Case 1
RESULTADO = CANTIDAD * 1.0
Case 2
RESULTADO = CANTIDAD * 1.2
Case 3
RESULTADO = CANTIDAD * 1.1
Case 4
RESULTADO = CANTIDAD * 2.0
Case 5
RESULTADO = CANTIDAD * 0.8
Case 6
RESULTADO = CANTIDAD * 2.3
End Select
Console.Write("USTED DEBERA PAGAR: " & RESULTADO & " nuevos soles")
If RESULTADO >= 100 Then
descuento = (RESULTADO - (RESULTADO * 25 / 100))
Console.WriteLine("EL DESCUENTO REALIZADO ES :" & (RESULTADO * 25 / 100))
Console.WriteLine("¡¡¡PAGUE solamente unos!!!=" & descuento)
Else
descuento = 0
End If
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine("¡GRACIAS POR SU COMPRA!& ¡VUELVA PRONTO!")
Console.WriteLine()
End Sub
Private Sub CARNE()
Dim CARNE, CANTIDAD, RESULTADO, descuento As Single
Console.WriteLine("")
Console.WriteLine("PRODUCTOS EN VENTA")
Console.WriteLine("")
Console.WriteLine(" VARIEDADES DE CARNE ")
Console.WriteLine("1_POLLO ................................... $ 6.0")
Console.WriteLine("2_PESCADO ................................... $ 3.0")
Console.WriteLine("3_RES ................................... $11.0")
Console.WriteLine("4_TORO ................................... $15.0")
Console.WriteLine("5_VACA ................................... $13.0")
Console.WriteLine("6_CHANCHO ................................... $10.0")
Console.WriteLine("7_SALIR")
Console.WriteLine("")
Console.WriteLine("ELIJA UNA OPCION POR FAVOR")
CARNE = Console.ReadLine
Console.WriteLine("")
Console.WriteLine("ESCRIBA EL # DE KILOS POR FAVOR")
CANTIDAD = Console.ReadLine
Select Case CARNE
Case 1
RESULTADO = CANTIDAD * 6.0
Case 2
RESULTADO = CANTIDAD * 3.0
Case 3
RESULTADO = CANTIDAD * 11.0
Case 4
RESULTADO = CANTIDAD * 15.0
Case 5
RESULTADO = CANTIDAD * 13.0
Case 6
RESULTADO = CANTIDAD * 10.0
End Select
Console.Write("USTED DEBERA PAGAR: " & RESULTADO & " nuevos soles")
Console.WriteLine("")
If RESULTADO >= 100 Then
descuento = (RESULTADO - (RESULTADO * 25 / 100))
Console.WriteLine("EL DESCUENTO REALIZADO ES :" & (RESULTADO * 25 / 100))
Console.WriteLine("¡¡¡PAGUE solamente unos!!!=" & descuento)
Else
descuento = 0
End If
Console.WriteLine("")
Console.WriteLine("¡GRACIAS POR SU COMPRA!& ¡VUELVA PRONTO!")
Console.WriteLine()
End Sub
Private Sub FRUTA()
Dim FRUTAS, CANTIDAD, RESULTADO, descuento As Single
Console.WriteLine("")
Console.WriteLine("PRODUCTOS EN VENTA")
Console.WriteLine("")
Console.WriteLine(" VARIEDADES DE FRUTAS ")
Console.WriteLine("")
Console.WriteLine("1_FRESA ................................... $3.5")
Console.WriteLine("2_MANZANA ................................... $3.0")
Console.WriteLine("3_MANGO ................................... $1.5")
Console.WriteLine("4_DURAZNO ................................... $3.2")
Console.WriteLine("5_MANDARINA ................................... $2.0")
Console.WriteLine("6_PLATANOS ................................... $4.2")
Console.WriteLine("7_NARANJAS ................................... $1.5")
Console.WriteLine("8_CEREZAS ................................... $2.5")
Console.WriteLine("9_PEPINOS ................................... $2.2")
Console.WriteLine("10_SALIR")
Console.WriteLine("")
Console.WriteLine("ELIJA UNA OPCION POR FAVOR")
FRUTAS = Console.ReadLine
Console.WriteLine("")
Console.WriteLine("ESCRIBA EL # DE KILOS POR FAVOR")
CANTIDAD = Console.ReadLine
Select Case FRUTAS
Case 1
RESULTADO = CANTIDAD * 3.5
Case 2
RESULTADO = CANTIDAD * 3.0
Case 3
RESULTADO = CANTIDAD * 1.5
Case 4
RESULTADO = CANTIDAD * 3.2
Case 5
RESULTADO = CANTIDAD * 2.0
Case 6
RESULTADO = CANTIDAD * 4.2
Case 7
RESULTADO = CANTIDAD * 1.5
Case 8
RESULTADO = CANTIDAD * 2.5
Case 9
RESULTADO = CANTIDAD * 2.2
End Select
Console.Write("USTED DEBERA PAGAR: " & RESULTADO & " nuevos soles")
Console.WriteLine("")
If RESULTADO >= 100 Then
descuento = (RESULTADO - (RESULTADO * 25 / 100))
Console.WriteLine("EL DESCUENTO REALIZADO ES :" & (RESULTADO * 25 / 100))
Console.WriteLine("¡¡¡PAGUE solamente unos!!!=" & descuento)
Else
descuento = 0
End If
Console.WriteLine("")
Console.WriteLine("¡GRACIAS POR SU COMPRA!& ¡VUELVA PRONTO!")
Console.WriteLine()
End Sub
Private Sub ABARROTES()
Dim ABARROTES, CANTIDAD, RESULTADO, descuento As Single
Console.WriteLine("")
Console.WriteLine("PRODUCTOS EN VENTA")
Console.WriteLine("")
Console.WriteLine(" VARIEDADES DE ABARROTES ")
Console.WriteLine("")
Console.WriteLine("1_ARROZ ................................... $2.2")
Console.WriteLine("2_AZUCAR ................................... $2.0")
Console.WriteLine("3_FIDEOS ................................... $3.6")
Console.WriteLine("4_ATUN ................................... $1.6")
Console.WriteLine("5_LECHE ................................... $2.0")
Console.WriteLine("6_PAPEL HIGIENICO ................................... $1.0")
Console.WriteLine("7_PAÑALES ................................... $1.2")
Console.WriteLine("8_KOLINOS ................................... $2.5")
Console.WriteLine("9_JABONCILLO ................................... $1.5")
Console.WriteLine("10_DETERGENTE ................................... $1.8")
Console.WriteLine("11_SALIR")
Console.WriteLine("")
Console.WriteLine("ELIJA UNA OPCION POR FAVOR")
ABARROTES = Console.ReadLine
Console.WriteLine("")
Console.WriteLine("ESCRIBA LA CANTIDAD en # DE KILOS POR FAVOR")
CANTIDAD = Console.ReadLine
Select Case ABARROTES
Case 1
RESULTADO = CANTIDAD * 2.2
Case 2
RESULTADO = CANTIDAD * 2.0
Case 3
RESULTADO = CANTIDAD * 3.6
Case 4
RESULTADO = CANTIDAD * 1.6
Case 5
RESULTADO = CANTIDAD * 2.0
Case 6
RESULTADO = CANTIDAD * 1.0
Case 7
RESULTADO = CANTIDAD * 1.2
Case 8
RESULTADO = CANTIDAD * 2.5
Case 9
RESULTADO = CANTIDAD * 1.5
Case 10
RESULTADO = CANTIDAD * 1.8
End Select
Console.Write("USTED DEBERA PAGAR: " & RESULTADO & " nuevos soles")
Console.WriteLine("")
If RESULTADO >= 100 Then
descuento = (RESULTADO - (RESULTADO * 25 / 100))
Console.WriteLine("EL DESCUENTO REALIZADO ES :" & (RESULTADO * 25 / 100))
Console.WriteLine("¡¡¡PAGUE solamente unos!!!=" & descuento)
Else
descuento = 0
End If
Console.WriteLine("")
Console.WriteLine("¡GRACIAS POR SU COMPRA!& ¡VUELVA PRONTO!")
Console.WriteLine()
End Sub
Private Sub GOLOSINAS()
Dim GOLOSINAS, CANTIDAD, RESULTADO, descuento As Single
Console.WriteLine("")
Console.WriteLine("PRODUCTOS EN VENTA")
Console.WriteLine("")
Console.WriteLine(" VARIEDADES DE GOLOSINAS ")
Console.WriteLine("")
Console.WriteLine("1_GALLETAS .............................. $2.2")
Console.WriteLine("2_CARAMELOS .............................. $2.0")
Console.WriteLine("3_GASEOSA .............................. $3.6")
Console.WriteLine("4_GOMITAS .............................. $1.6")
Console.WriteLine("5_CHOCOLATE .............................. $2.0")
Console.WriteLine("6_FRUGOS .............................. $1.2")
Console.WriteLine("7_CHUPETINES .............................. $0.3")
Console.WriteLine("8_CHISITOS .............................. $0.5")
Console.WriteLine("9_CHUPETES .............................. $0.5")
Console.WriteLine("10_SALIR")
Console.WriteLine("")
Console.WriteLine("ELIJA UNA OPCION POR FAVOR")
GOLOSINAS = Console.ReadLine
Console.WriteLine("")
Console.WriteLine("ESCRIBA LA CANTIDAD POR FAVOR")
CANTIDAD = Console.ReadLine
Select Case GOLOSINAS
Case 1
RESULTADO = CANTIDAD * 2.2
Case 2
RESULTADO = CANTIDAD * 2.0
Case 3
RESULTADO = CANTIDAD * 3.6
Case 4
RESULTADO = CANTIDAD * 1.6
Case 5
RESULTADO = CANTIDAD * 2.0
Case 6
RESULTADO = CANTIDAD * 1.2
Case 7
RESULTADO = CANTIDAD * 0.3
Case 8
RESULTADO = CANTIDAD * 0.5
Case 9
RESULTADO = CANTIDAD * 0.5
End Select
Console.Write("USTED DEBERA PAGAR: " & RESULTADO & " nuevos soles")
Console.WriteLine("")
If RESULTADO >= 100 Then
descuento = (RESULTADO - (RESULTADO * 25 / 100))
Console.WriteLine("EL DESCUENTO REALIZADO ES :" & (RESULTADO * 25 / 100))
Console.WriteLine("¡¡¡PAGUE solamente unos!!!=" & descuento)
Else
descuento = 0
End If
Console.WriteLine("")
Console.WriteLine("¡GRACIAS POR SU COMPRA!& ¡VUELVA PRONTO!")
Console.WriteLine()
End Sub
Private Sub ROPAS()
Dim ROPAS, CANTIDAD, RESULTADO, descuento As Single
Console.WriteLine("")
Console.WriteLine("PRODUCTOS EN VENTA")
Console.WriteLine("")
Console.WriteLine(" VARIEDADES DE ROPAS ")
Console.WriteLine("")
Console.WriteLine("1_PANTALON .............................. $ 50.0")
Console.WriteLine("2_CAMISA .............................. $ 25.0")
Console.WriteLine("3_SHORT .............................. $ 35.0")
Console.WriteLine("4_CORBATA .............................. $ 15.0")
Console.WriteLine("5_MEDIAS .............................. $ 5.0")
Console.WriteLine("6_ZAPATOS .............................. $ 50.0")
Console.WriteLine("7_CHALINA .............................. $ 12.0")
Console.WriteLine("8_CHOMPA .............................. $ 35.0")
Console.WriteLine("9_CASACA .............................. $110.0")
Console.WriteLine("10_SALIR")
Console.WriteLine("")
Console.WriteLine("ELIJA UNA OPCION POR FAVOR")
ROPAS = Console.ReadLine
Console.WriteLine("")
Console.WriteLine("ESCRIBA LA CANTIDAD POR FAVOR")
CANTIDAD = Console.ReadLine
Select Case ROPAS
Case 1
RESULTADO = CANTIDAD * 50.0
Case 2
RESULTADO = CANTIDAD * 25.0
Case 3
RESULTADO = CANTIDAD * 35.0
Case 4
RESULTADO = CANTIDAD * 15.0
Case 5
RESULTADO = CANTIDAD * 5.0
Case 6
RESULTADO = CANTIDAD * 50.0
Case 7
RESULTADO = CANTIDAD * 12.0
Case 8
RESULTADO = CANTIDAD * 35.0
Case 9
RESULTADO = CANTIDAD * 110.0
End Select
Console.Write("USTED DEBERA PAGAR: " & RESULTADO & " nuevos soles")
Console.WriteLine("")
If RESULTADO >= 100 Then
descuento = (RESULTADO - (RESULTADO * 25 / 100))
Console.WriteLine("EL DESCUENTO REALIZADO ES :" & (RESULTADO * 25 / 100))
Console.WriteLine("¡¡¡PAGUE solamente unos!!!=" & descuento)
Else
descuento = 0
End If
Console.WriteLine("")
Console.WriteLine("¡GRACIAS POR SU COMPRA!& ¡VUELVA PRONTO!")
Console.WriteLine()
End Sub
Private Sub PRODUCTOS_DE_SERVICIOS()
Dim B1 As Single
Console.WriteLine("1_SECCION:CABINAS PRIVADAS")
Console.WriteLine("2_SECCION:CABINAS PUBLICAS")
Console.WriteLine("3_SALIR")
Console.WriteLine("")
Console.WriteLine("ELIJA UNA OPCION POR FAVOR")
B1 = Console.ReadLine
Select Case B1
Case 1
CABINAS_PRIVADAS()
Case 2
CABINAS_PUBLICAS()
End Select
End Sub
Private Sub CABINAS_PRIVADAS()
Dim CANTIDAD, INTERNET, RESULTADO, descuento As Single
Console.WriteLine("")
Console.WriteLine(" PRODUCTOS DE SERVICIOS ")
Console.WriteLine("")
Console.WriteLine("*** con recaudar 15 horas se rebajaran el costo de nuestros servicios en un 25% ***")
Console.WriteLine("")
Console.WriteLine("EL COSTO * HORA ES $2.00")
Console.WriteLine("")
Console.WriteLine(" TARIFA DE # DE HORAS ")
Console.WriteLine("")
Console.WriteLine("1_1 HORA .............................. $2.0")
Console.WriteLine("2_3/4 HORA .............................. $1.5")
Console.WriteLine("3_1/2 HORA .............................. $1.0")
Console.WriteLine("4_1/4 HORA .............................. $0.5")
Console.WriteLine("5_SALIR")
Console.WriteLine("")
Console.WriteLine("ELIJA LA OPCION POR FAVOR")
INTERNET = Console.ReadLine
Console.WriteLine("ESCRIBA EL # DE HORAS POR FAVOR")
CANTIDAD = Console.ReadLine
Select Case INTERNET
Case 1
RESULTADO = CANTIDAD * 2.0
Case 2
RESULTADO = CANTIDAD * 1.5
Case 3
RESULTADO = CANTIDAD * 1.0
Case 4
RESULTADO = CANTIDAD * 0.5
End Select
Console.Write("USTED DEBERA PAGAR: " & RESULTADO & " nuevos soles")
Console.WriteLine("")
If RESULTADO >= 15 Then
descuento = (RESULTADO - (RESULTADO * 25 / 100))
Console.WriteLine("EL DESCUENTO REALIZADO ES :" & (RESULTADO * 25 / 100))
Console.WriteLine("¡¡¡PAGUE solamente unos!!!=" & descuento)
Else
descuento = 0
End If
Console.WriteLine("")
Console.WriteLine("¡GRACIAS UTILIZAR NUESTROS SERVICIOS EN METRO !& ¡VUELVA PRONTO!")
Console.WriteLine()
End Sub
Private Sub CABINAS_PUBLICAS()
Dim CANTIDAD, RESULTADO, descuento, INTERNET1 As Single
Console.WriteLine("")
Console.WriteLine("PRODUCTOS DE SERVICIOS")
Console.WriteLine("")
Console.WriteLine(" con recaudar 15 horas se rebajaran el costo de nuestros servicios en un 25%")
Console.WriteLine("")
Console.WriteLine("EL COSTO * HORA ES $1.00")
Console.WriteLine("")
Console.WriteLine(" TARIFA DE # DE HORAS ")
Console.WriteLine("")
Console.WriteLine("1_1 HORA .............................. $1.0")
Console.WriteLine("2_3/4 HORA .............................. $0.8")
Console.WriteLine("3_1/2 HORA .............................. $0.5")
Console.WriteLine("4_1/4 HORA .............................. $0.3")
Console.WriteLine("5_SALIR")
Console.WriteLine("")
Console.WriteLine("ELIJA UNA OPCION POR FAVOR")
INTERNET1 = Console.ReadLine
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine("ESCRIBA EL # DE HORAS POR FAVOR")
CANTIDAD = Console.ReadLine
Select Case INTERNET1
Case 1
RESULTADO = CANTIDAD * 1.0
Case 2
RESULTADO = CANTIDAD * 0.8
Case 3
RESULTADO = CANTIDAD * 0.5
Case 4
RESULTADO = CANTIDAD * 0.3
End Select
Console.Write("USTED DEBERA PAGAR: " & RESULTADO & " nuevos soles")
Console.WriteLine("")
If RESULTADO >= 15 Then
descuento = (RESULTADO - (RESULTADO * 25 / 100))
Console.WriteLine("EL DESCUENTO REALIZADO ES :" & (RESULTADO * 25 / 100))
Console.WriteLine("¡¡¡PAGUE solamente unos!!!=" & descuento)
Else
descuento = 0
End If
Console.WriteLine("")
Console.WriteLine("¡GRACIAS UTILIZAR NUESTROS SERVICIOS EN METRO! ¡VUELVA PRONTO!")
Console.WriteLine()
End Sub
End Module
Las clases numericas
Las clases numericas comparten casi los mismos metodos salvo en algunas que tienen menos metodos y en otras que tienen mas de las mostradas.
Compareto
Este metodo permite la comparación de un objeto con otro, o consigo mismo, verificando si es igual en su contenido.
Existen tres posibilidades de comparación:
· Si el resultado es =0, indica que el contenido en el objeto es igual que el contenido almacenado en el objeto usado como parámetro.
· Si el resultado es >0, indica que el contenido en el objeto es mayor que el contenido almacenado en el objeto usado como parámetro.
· Si el resultado es <0, indica que el contenido en el objeto es menor que el contenido almacenado en el objeto usado como parámetro
Module Module1
Sub Main()
Dim num1, num2, res As Integer
Console.WriteLine("Ingrese el primer numero a comparar")
num1 = Console.ReadLine
Console.WriteLine("Ingrese el segundo numero a comparar")
num2 = Console.ReadLine
res = num1.CompareTo(num2)
If res > 0 Then
Console.WriteLine(num1 & " el primer numero es mayor que el segundo " & num2)
ElseIf res < 0 Then
Console.WriteLine(num1 & " el primer numero es menor que el segundo " & num2)
Else
Console.WriteLine(num1 & " los numeros son iguales " & num2)
End If
Console.Read()
End Sub
End Module
Equals
Este metodo permite la comparación de dos objetos del mismo tipo, retornando true o false
Module Module1
Sub Main()
Dim num1, num2 As Integer
Dim res As Boolean
Console.WriteLine("Ingrese el primer numero a comparar")
num1 = Console.ReadLine
Console.WriteLine("Ingrese el segundo numero a comparar")
num2 = Console.ReadLine
res = num1.Equals(num2)
If res = True Then
Console.WriteLine(num1 & " los numeros son iguales " & num2)
Else
Console.WriteLine(num1 & " los numeros son diferentes " & num2)
End If
Console.Read()
End Sub
End Module
GetType
Visualiza como resultado el tipo de objeto que es. Si es Integer devuelve System.Int32, lo que pasa es que ese es el verdadero nombre que tiene el tipo de dato integer en la Plataforma .NET Framework y ahora se llama Integer (solo se da de esta forma para conservar la compatibilidad con versiones anteriores).
Module Module1
Sub Main()
Dim num1 As Integer
Console.WriteLine("Ingrese el numero a analizar que tipo de objto es")
num1 = Console.ReadLine
Console.WriteLine("el numero es un tipo de dato {0}", num1.GetType())
Console.Read()
End Sub
End Module
Parse
Este metodo convierte una cadena que representa un numero Integer a un numero de tipo integer.
Module Module1
Sub Main()
Dim num1 As Integer
Dim res As String
res = 11
Console.WriteLine("Ingrese el numero a analizar que tipo de objeto que es")
num1 = Console.ReadLine
num1 = num1.Parse(res)
Console.WriteLine("el numero es " & res)
Console.Read()
End Sub
End Module
ToString
Este metodo convierte a cadena el numero especificado.
Module Module1
Sub Main()
Dim num1 As Integer
Dim res As String
Console.Write("Ingrese el numero a convertir en string ")
num1 = Console.ReadLine
res = num1.ToString()
Console.WriteLine("la cadena es " & res)
Console.Read()
End Sub
End Module
MinValue y MaxValue
Este método devuelve el minimo y maximo del tipo de numero especificado.
Module Module1
Sub Main()
'Dim num1 As Long
'Console.WriteLine("el valor minimo de este tipo es {0}", num1.MinValue)
'Console.WriteLine("el valor maximo de este tipo es {0}", num1.MaxValue)
'Console.Read()
Console.WriteLine("el valor minimo de este tipo es {0}", Integer.MinValue)
Console.WriteLine("el valor maximo de este tipo es {0}", Integer.MaxValue)
Console.Read()
End Sub
End Module
Module Module1
Sub Main()
Dim a As String, i As Integer
Dim info As ConsoleKeyInfo
ica: 'etiqueta
Console.Write("Ingrese la clave: ") 'escribir un texto que se va leer
a = "" 'inicializa la variable a en nada
Do While (i <= 3) 'es bucle de entrada controlada
info = Console.ReadKey(True) 'la variable info se le asigna el valor de la tecla que se presiono
Console.Write("*"c) 'muestra en la pantalla el asterisco
If Asc(info.KeyChar) = 13 Then 'si presiono la tecla enter
Exit Do 'sale del bucle
Else 'de lo contrario
a = a & info.KeyChar 'almacena el valor de la tecla presionada en la variable a
End If 'fin si
Loop 'fin del do while
Console.WriteLine("") 'coloca el cursor en la sgte linea
If a = "kathy" Then 'compara si el valor de la variable a es igual a kathy
Console.WriteLine("Clave correcta") 'muestra el mensaje clave correcta
For i = 1 To 5 'bucle repetitivo de 1 hasta el 5
King() ' procedimiento que se creo y se detalla debajo
Next 'fin del bucle for
Else
Console.WriteLine("Clave Incorrecta") 'muestra el mensaje de clave incorrecta
GoTo ica 'vuelve a la etiqueta inicial
End If
Console.Read()
End Sub
Sub King() 'procedimiento que se a creado
Dim a, b, r As Integer
Console.Write("Ingrese un número: ") 'escribir el texto
a = Console.ReadLine() 'leer el texto
Console.Write("Ingrese un número: ")
b = Console.ReadLine()
r = a * b
Console.Write("El resultado es: " + r.ToString()) 'muestra el resultado
Console.WriteLine()
End Sub
End Module
Comentarios
Publicar un comentario