Seleccionar Crear un proyecto
aplicación de consola
Ponemos nombre al proyecto
Module Program
Sub Main(args As String())
[Link]("Hello World!")
End Sub
End Module
Module Module1
Sub Main()
Dim horasTrabajadas As Integer
Dim costoHora As Single
Dim sueldo As Single
[Link]("Ingrese Horas trabajadas por el operario:")
horasTrabajadas = [Link]()
[Link]("Ingrese el pago por hora:")
costoHora = [Link]()
sueldo = horasTrabajadas * costoHora
[Link]("El sueldo total del operario es:")
[Link](sueldo)
[Link]()
End Sub
End Module
Module Module1
Sub Main()
Dim num1, num2, suma, producto As Integer
[Link]("Ingrese primer valor:")
num1 = [Link]()
[Link]("Ingrese segundo valor:")
num2 = [Link]()
suma = num1 + num2
producto = num1 * num2
[Link]("La suma de los dos valores es:")
[Link](suma)
[Link]("El producto de los dos valores es:")
[Link](producto)
[Link]()
End Sub
End Module
Condicionales
IF
Module Module1
Sub Main()
Dim sueldo As Single
[Link]("Ingrese el sueldo:")
sueldo = [Link]()
If sueldo > 3000 Then
[Link]("Esta persona debe abonar impuestos")
End If
[Link]()
End Sub
End Module
IF ELSE
Module Module1
Sub Main()
Dim num1, num2 As Integer
[Link]("Ingrese primer valor:")
num1 = [Link]()
[Link]("Ingrese segundo valor:")
num2 = [Link]()
If num1 > num2 Then
[Link](num1)
Else
[Link](num2)
End If
[Link]()
End Sub
End Module
IF ELSE Anidado
Module Module1
Sub Main()
Dim nota1, nota2, nota3, promedio As Integer
[Link]("Ingrese primer nota:")
nota1 = [Link]()
[Link]("Ingrese segunda nota:")
nota2 = [Link]()
[Link]("Ingrese tercer nota:")
nota3 = [Link]()
promedio = (nota1 + nota2 + nota3) / 3
If promedio >= 7 Then
[Link]("Promocionado")
Else
If promedio >= 4 Then
[Link]("Regular")
Else
[Link]("Reprobado")
End If
End If
[Link]()
End Sub
End Module
Estructuras condicionales con condiciones
compuestas y operadores lógicos
Operadores Relacionales:
> (mayor)
< (menor)
>= (mayor o igual)
<= (menor o igual)
= (igual)
<> (distinto)
Operadores Matemáticos
+ (más)
- (menos)
* (producto)
/ (división)
mod (resto de una división) Ej.: x=13 mod 5 {se guarda 3}
Module Module1
Sub Main()
Dim dia, mes, año As Integer
[Link]("Ingrese nro de día:")
dia = [Link]()
[Link]("Ingrese nro de mes:")
mes = [Link]()
[Link]("Ingrese nro de año:")
año = [Link]()
If mes = 1 Or mes = 2 Or mes = 3 Then
[Link]("Corresponde al primer trimestre")
End If
[Link]()
End Sub
End Module
Do while
Module Module1
Sub Main()
Dim x As Integer
x=1
Do While x <= 100
[Link](x)
[Link](" - ")
x=x+1
Loop
[Link]()
End Sub
End Module
Do loop while
Module Module1
Sub Main()
Dim valor As Integer
Do
[Link]("Ingrese un valor entre 0 y 999 (0 finaliza):")
valor = [Link]()
If valor >= 100 Then
[Link]("Tiene 3 dígitos.")
Else
If valor >= 10 Then
[Link]("Tiene 2 dígitos.")
Else
[Link]("Tiene 1 dígito.")
End If
End If
Loop While (valor <> 0)
End Sub
End Module
For
Module Module1
Sub Main()
Dim f As Integer
For f = 1 To 100
[Link](f)
[Link]("-")
Next
[Link]()
End Sub
End Module
Cadenas
Module Module1
Sub Main()
Dim nombre1, nombre2 As String
Dim edad1, edad2 As Integer
[Link]("Ingrese el nombre:")
nombre1 = [Link]()
[Link]("Ingrese edad:")
edad1 = [Link]()
[Link]("Ingrese el nombre:")
nombre2 = [Link]()
[Link]("Ingrese edad:")
edad2 = [Link]()
[Link]("La persona de mayor edad es:")
If edad1 = edad2 Then
[Link]("Tienen la misma edad")
Else
If (edad1 > edad2) Then
[Link](nombre1)
Else
[Link](nombre2)
End If
End If
[Link]()
End Sub
End Module
Clases
Module Module1
Public Class Persona
Private nombre As String
Private edad As Integer
Public Sub Inicializar()
[Link]("Ingrese el nombre:")
nombre = [Link]()
[Link]("Ingrese la edad:")
edad = [Link]()
End Sub
Public Sub Imprimir()
[Link]("Nombre:")
[Link](nombre)
[Link]("Edad:")
[Link](edad)
End Sub
Public Sub EsMayorEdad()
If edad >= 18 Then
[Link]("Es mayor de edad")
Else
[Link]("No es mayor de edad")
End If
[Link]()
End Sub
End Class
Sub Main()
Dim per1 As Persona
per1 = New Persona()
[Link]()
[Link]()
[Link]()
End Sub
End Module
Metodos con parámetros
Module Module1
Public Class Persona
Private nombre As String
Private edad As Integer
Public Sub Inicializar()
[Link]("Ingrese el nombre:")
nombre = [Link]()
[Link]("Ingrese la edad:")
edad = [Link]()
End Sub
Public Sub Imprimir()
[Link]("Nombre:")
[Link](nombre)
[Link]("Edad:")
[Link](edad)
End Sub
Public Sub EsMayorEdad()
If edad >= 18 Then
[Link]("Es mayor de edad")
Else
[Link]("No es mayor de edad")
End If
[Link]()
End Sub
End Class
Sub Main()
Dim per1 As Persona
per1 = New Persona()
[Link]()
[Link]()
[Link]()
End Sub
End Module
Vector
Module Module1
Public Class PruebaVector1
Private sueldos(4) As Integer
Public Sub Cargar()
Dim f As Integer
For f = 0 To 4
[Link]("Ingrese importe del sueldo:")
sueldos(f) = [Link]()
Next
End Sub
Public Sub Imprimir()
Dim f As Integer
For f = 0 To 4
[Link](sueldos(f))
Next
[Link]()
End Sub
End Class
Sub Main()
Dim pv As New PruebaVector1()
[Link]()
[Link]()
End Sub
End Module
Matrices
Module Module1
Public Class Matriz5
Private mat(,) As Integer
Public Sub Cargar()
Dim filas, columnas As Integer
[Link]("Cuantas fila tiene la matriz:")
filas = [Link]()
[Link]("Cuantas columnas tiene la matriz:")
columnas = [Link]()
ReDim mat(filas - 1, columnas - 1)
Dim f, c As Integer
For f = 0 To [Link](0)
For c = 0 To [Link](1)
[Link]("Ingrese componente:")
mat(f, c) = [Link]()
Next
Next
End Sub
Public Sub Imprimir()
Dim f, c As Integer
For f = 0 To [Link](0)
For c = 0 To [Link](1)
[Link](mat(f, c) & " ")
Next
[Link]()
Next
End Sub
Public Sub ImprimirUltimaFila()
Dim c As Integer
[Link]("Ultima fila")
For c = 0 To [Link](1)
[Link](mat([Link](0), c) & " ")
Next
End Sub
End Class
Sub Main()
Dim ma As New Matriz5()
[Link]()
[Link]()
[Link]()
[Link]()
End Sub
End Module
Problemas
1. Realizar un programa que lea por teclado dos números, si el primero es mayor al
segundo informar su suma y diferencia, en caso contrario informar el producto y la
división del primero respecto al segundo.
2. Se ingresan tres notas de un alumno, si el promedio es mayor o igual a siete
mostrar un mensaje "Promocionado".
3. Se ingresa por teclado un número positivo de uno o dos dígitos (1..99) mostrar un
mensaje indicando si el número tiene uno o dos dígitos.
(Tener en cuenta que condición debe cumplirse para tener dos dígitos, un número
entero)
4. Confeccionar una clase que permita cargar el nombre y la edad de una
persona. Mostrar los datos cargados. Imprimir un mensaje si es mayor de
edad (edad>=18), resolver con mtodos
5. Definir un vector de 5 componentes de tipo Single que representen la altura
de 5 personas
Obtener el promedio de las mismas. Contar cuantas personas son mas
altas que el promedio y cuantas más bajas
6. Desarrollar un programa que permita ingresar un vector de n elementos,
ingresar n por teclado. Luego imprimir la suma de todos sus elementos
7. Crear un matriz de 2 filas y 5 columnas. Realizar la carga de componentes
por columna (es decir primero ingresar toda la primera columna, luego la
segunda columna y así sucesivamente). Imprimir luego la matriz
Investigue:
Qué es .NET
Cuál es la arquitectura de .NET
Definición de la plataforma .NET
Qué son las capas en .NET
Cuáles son las lenguajes para programar en .NET
Constructor de la clase
En Visual Basic .net podemos definir un método que se ejecute inicialmente y en
forma automática. Este método se lo llama constructor de la clase.
El constructor tiene las siguientes características:
Es un procedimiento, es decir se lo define con Sub.
Su nombre debe ser New.
Es el primer método que se ejecuta.
Se ejecuta en forma automática.
Se ejecuta una única vez.
Puede tener parámetros.
Un constructor tiene por objetivo inicializar atributos o propiedades de la
clase.
Sueldos de 5 operarios en un vector. Realizar la creación y carga del vector en el
constructor.
Module Module1
Public Class PruebaConstructor
Private sueldos(4) As Integer
Public Sub New()
Dim f As Integer
For f = 0 To [Link](0)
[Link]("Ingrese el sueldo:")
sueldos(f) = [Link]()
Next
End Sub
Public Sub Imprimir()
Dim f As Integer
For f = 0 To [Link](0)
[Link](sueldos(f))
Next
[Link]()
End Sub
End Class
Sub Main()
Dim op As New PruebaConstructor()
[Link]()
End Sub
End Module
Problemas
1. Plantear una clase llamada Alumno y definir como atributos su nombre y su
edad. En el constructor realizar la carga de datos. Definir otros dos métodos
para imprimir los datos ingresados y un mensaje si es mayor o no de edad
(edad >=18)
2. Confeccionar una clase que represente un empleado. Definir como atributos
su nombre y su sueldo. En el constructor cargar los atributos y luego en otro
método imprimir sus datos y por último uno que imprima un mensaje si
debe pagar impuestos (si el sueldo supera a 3000)
3. Implementar la clase operaciones. Se deben cargar dos valores enteros en
el constructor, calcular su suma, resta, multiplicación y división, cada una
en un método, imprimir dichos resultados.
