EJEMPLOS-BASICOS visual basic 2015

Centro de Entrenamiento y Actualización en Arquitectura, Ingeniería y Construcción.

Incrementa tu productividad académica y laboral

1.- Hacer un algoritmo para sumar dos números. FORMULARIO:

CODIGO:

Av. Uruguay N° 865 – San Carlos - Huancayo Teléfono: 064 – 234228 [email protected]


Incrementa tu productividad académica y laboral 2.- Hacer un algoritmo para hallar el área de un círculo. FORMULARIO:

CODIGO:



Incrementa tu productividad académica y laboral 3.- Hallar un diagrama de flujo, para calcular el volumen de un cilindro. FORMULARIO:

CODIGO:



Incrementa tu productividad académica y laboral 4.- Hacer un diagrama de flujo para hallar la hipotenusa de un triángulo rectángulo. FORMULARIO:

CODIGO:



Incrementa tu productividad académica y laboral 5.- Hacer un programa para ingresar un número entero de dos cifras y mostrar invertido FORMULARIO:



Incrementa tu productividad académica y laboral 6.- Hacer un programa para ingresar un numero entero, si el número es par, mostrar el triple del número y si es impar mostrar el doble del número. FORMULARIO:

CODIGO:



Incrementa tu productividad académica y laboral 7.- Hacer un programa para ingresar tres números y mostrar el mayor. FORMULARIO:

CODIGO:



Incrementa tu productividad académica y laboral 8.- Hacer un programa para ingresar un número de dos cifras y si termina en 2 mostrar “UAP”, y si termina en 5 mostrar “Civil” y si empieza en 3 mostrar “Rocio”. FORMULARIO:

CODIGO:



Incrementa tu productividad académica y laboral 9.- Hacer un programa para ingresar dos números enteros de dos cifras y mostrar el numero cuya suma de cifras es mayor. FORMULARIO:

CODIGO:



Incrementa tu productividad académica y laboral 10.- Hacer un programa para ingresar dos números y mostrar el mayor utilizando if… then…else …end if. FORMULARIO:

CODIGO:



Incrementa tu productividad académica y laboral 11.- Hacer un programa para ingresar un número y mostrar si es positivo y negativo o neutro. Utilizar if… then…else..end if. FORMULARIO:

CODIGO:



Incrementa tu productividad académica y laboral 12.- Hacer un programa para sumar la serie : S= n/1! – n/2! + n/3! – n/4! + n/n! FORMULARIO:

CODIGO:



Incrementa tu productividad académica y laboral 13.- Programa para calcular el metrado de un techo. FORMULARIO

PROGRAMA

Public Class METRADO Private Sub BTCALCULAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTCALCULAR.Click Dim LARGO, ANCHO, AREA, COTI, PLA As Double If Not String.IsNullOrEmpty(txtlargo.Text) And Not String.IsNullOrEmpty(txtancho.Text) And Not String.IsNullOrEmpty(TXTPLAZO.Text) And Not String.IsNullOrEmpty(TXTDOLAR.Text) Then PLA = TXTPLAZO.Text COTI = TXTDOLAR.Text LARGO = txtlargo.Text ANCHO = txtancho.Text AREA = LARGO * ANCHO lblopera.Text = Format(AREA * 2.34 / 8 / PLA, "### ###") lblpeon.Text = Format(AREA * 4.88 / 8 / PLA, "### ###") lblcemento.Text = AREA * 9.35 * 0.1 lblclavos.Text = AREA * 0.35 * 0.08 lblhorm.Text = AREA * 0.75 * 0.08 lblladrillo.Text = AREA * 9.32 lblmadera.Text = AREA * 4.56 Lblmez.Text = AREA * 0.32 lblpiedra.Text = AREA * 0.54 * 0.08 lblvibra.Text = AREA * 0.32 LBLCOTIZA.Text = Format(AREA * 120 * COTI, "### ###.##") Else MessageBox.Show("NO SEAS BURRO") End If End Sub Private Sub BTNUEVO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNUEVO.Click lblopera.Text = "" lblpeon.Text = "" lblcemento.Text = "" lblclavos.Text = "" lblhorm.Text = ""



Incrementa tu productividad académica y laboral lblladrillo.Text = "" lblmadera.Text = "" Lblmez.Text = "" lblpiedra.Text = "" lblvibra.Text = "" txtlargo.Text = "" txtancho.Text = "" TXTDOLAR.Text = "" LBLCOTIZA.Text = "" TXTPLAZO.Text = "" End Sub Private Sub txtlargo_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtlargo.KeyPress If Asc(e.KeyChar) = 13 Then txtancho.Focus() End If End Sub Private Sub txtancho_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtancho.KeyPress If Asc(e.KeyChar) = 13 Then TXTDOLAR.Focus() End If End Sub Private Sub TXTDOLAR_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TXTDOLAR.KeyPress If Asc(e.KeyChar) = 13 Then TXTPLAZO.Focus() End If End Sub Private Sub BTSALIR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTSALIR.Click If MsgBox("DESEA SALIR DE LA APLICACION?", MsgBoxStyle.Question.YesNo, "boleta de pago") = MsgBoxResult.Yes Then Me.Close() End If End Sub Private Sub TXTPLAZO_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TXTPLAZO.KeyPress If Asc(e.KeyChar) = 13 Then BTCALCULAR.Focus() End If End Sub End Class



Incrementa tu productividad académica y laboral 14.- Programa para resolver el factorial a partir de una función



Incrementa tu productividad académica y laboral 15.- Programa para ingresar un ángulo y mostrar el coseno, seno, tangente, etc.



Incrementa tu productividad académica y laboral 16.- Programa para ingresar el sueldo bruto y un préstamo, realizar los descuentos y mostrar el sueldo neto



Incrementa tu productividad académica y laboral 17.- Programa para ingresar n números enteros y mostrar el porcentaje de pares y porcentaje de impares



Incrementa tu productividad académica y laboral 18.- Hacer un programa para ingresar el precio de un producto, si el precio es mayor o igual a 120.00 debe realizarse un descuento del 12%, si el precio está entre 100 y 119 (incluir los extremos) debe realizar un descuento del 8%, si el precio es menor a 100 no hay descuento.




19.- Hacer un programa para ingresar un número entero de tres cifras, luego ingresar un digito el cual se desea buscar en el número de las tres cifras. Si el digito existe en el número mostrar si existe, caso co ntrario no existe.




20.- Programa para ingresar dos matrices de 2 x 2 y mostrar la suma de ambos

ublic Class Form1 Dim matriz1(2, 2), matriz2(2, 2), suma(2, 2) As Integer Dim x, y As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click For x = 1 To 2 For y = 1 To 2 matriz1(x, y) = InputBox("ingrese numero" & Str(x) & " " & Str(y)) Next Next End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click For x = 1 To 2 For y = 1 To 2 matriz2(x, y) = InputBox("ingrese numero" & Str(x) & " " & Str(y)) Next Next End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click For x = 1 To 2 For y = 1 To 2 suma(x, y) = matriz1(x, y) + matriz2(x, y) Next Next For x = 1 To 2 ListBox1.Items.Add(Str(matriz1(x, 1)) & " " & Str(matriz1(x, 2))) ListBox2.Items.Add(Str(matriz2(x, 1)) & " " & Str(matriz2(x, 2))) ListBox3.Items.Add(Str(suma(x, 1)) & " " & Str(suma(x, 2))) Next



Incrementa tu productividad académica y laboral End Sub End Class

21.- Programa para ingresar una matriz de 3 x 3 y mostrar su traspuesta.

Public Class Form1 Dim matriz(3, 3), traspuesta(3, 3) As Integer Dim x, y As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click For x = 1 To 3 For y = 1 To 3 matriz(x, y) = InputBox("ingresar numero" & Str(x) & " " & Str(y)) Next Next For x = 1 To 3 For y = 1 To 3 traspuesta(x, y) = matriz(y, x) Next Next For x = 1 To 3 ListBox1.Items.Add(Str(matriz(1, x)) & " " & Str(matriz(2, x)) & " " & Str(matriz(3, x))) ListBox2.Items.Add(Str(traspuesta(1, x)) & " " & Str(traspuesta(2, x)) & " " & Str(traspuesta(3, x))) Next End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click End Sub End Class




22.- Programa para ingresar tres listas de 3 elementos y luego formar una matriz de 3 x 3 a partir de estos.

Public Class Form1 Dim a(3), b(3), c(3) As Integer Dim x As Integer Dim matriz(3, 3) As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click For x = 1 To 3 a(x) = InputBox("Ingrese numero" & Str(x)) Next End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click For x = 1 To 3 b(x) = InputBox("ingrese numero" & Str(x)) Next End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click For x = 1 To 3 c(x) = InputBox("ingrese numero" & Str(x)) Next End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click matriz(1, 1) = a(1) matriz(2, 1) = a(2) matriz(3, 1) = a(3) matriz(1, 2) = b(1) matriz(2, 2) = b(2) matriz(3, 2) = b(3) matriz(1, 3) = c(1) matriz(2, 3) = c(2) matriz(3, 3) = c(3) For x = 1 To 3 ListBox1.Items.Add(Str(matriz(x, 1)) & " " & Str(matriz(x, 2)) & " " & Str(matriz(x, 3))) Next End Sub



Incrementa tu productividad académica y laboral End Class

23.- Hacer un programa para hallar el factorial de un número utilizando la recursividad.




24.- Hacer un programa para ingresar datos a una matriz de 3 x 3 y mostrar el número mayor.


EJEMPLOS-BASICOS visual basic 2015

Recommend Documents