Manejo de camaras
Private Sub BtnEjecutar_Click(ByVal sender As System.Object, ByVale As System.EventArgs) Handles BtnEjecutar.Click 'Declaración de variables locales Dim A(4, 5), B(4, 5) As Integer Dim N As Integer Dim F, C As Integer Dim S As String 'Asignar un valor entero a la variable N N = Val(InputBox("Ingrese un valor entero", "Entrada")) 'Asignar valores para cada uno de los elementos de la matriz A For F = 1 To 4 For C = 1 To 5 A(F, C) = Val(InputBox("A(" & F & "," & C& ")", "Entrada")) Next Next 'Calcular los elementos de la matriz B For F = 1 To 4 For C = 1 To 5 B(F, C) = N * A(F, C) Next Next 'Mostrar la matriz A Lstmostrar.Items.Add("Matriz A") Lstmostrar.Items.Add("") S = "" For C = 1 To 5 S = S & vbTab & C Next Lstmostrar.Items.Add(S) For F = 1 To 4 S=F For C = 1 To 5 S = S & vbTab & A(F, C) Next Lstmostrar.Items.Add(S) Next Lstmostrar.Items.Add("")'Mostrar la matriz B Lstmostrar.Items.Add("Matriz B") Lstmostrar.Items.Add("") S = "" For C = 1 To 5 S = S & vbTab & C Next Lstmostrar.Items.Add(S) For F = 1 To 4 S=F For C = 1 To 5 S = S & vbTab & B(F, C) Next Lstmostrar.Items.Add(S) Next End Sub
PROBLEMA 2 Crear un proyecto que permita mostrar los valores de la tabla de multiplicar del 1 al 12 en un Matriz de forma tal que cada fila, aparezca enuna línea de impresión.
Private Sub BtnEjecutar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEjecutar.Click 'Declaración de variables locales Dim Tabla(12, 12) As Integer Dim F, C As Integer Dim S As String 'Calcular los elementos de la matriz Tabla For F = 1 To 12 For C = 1 To 12 Tabla(F, C) = F * C Next Next 'Mostrar la matriz Tabla Lstmostrar.Items.Add("MatrizTabla") Lstmostrar.Items.Add("") S = "" For C = 1 To 12 S = S & vbTab & C Next Lstmostrar.Items.Add(S)
For F = 1 To 12 S=F For C = 1 To 12 S = S & vbTab & Tabla(F, C) Next Lstmostrar.Items.Add(S) Next End Sub
PROBLEMA 3 Crear un proyecto que permita digitar los valores para dos matrices A(4 x 3) y B(4 x 3), luego proceder a efectuar la siguiente operación de matrices: R = 3 * A - B/3. Listarlas matrices A, B y la resultante R
Private Sub BtnEjecutar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEjecutar.Click 'Declaración de variables locales Dim A(4, 3), B(4, 3), R(4, 3) As Single Dim F, C As Integer Dim S As String 'Asignar valores a cada uno de los elementos de la matriz A For F = 1 To 4 For C = 1 To 3 A(F, C) = Val(InputBox("A(" & F & "," & C &")", "Entrada")) Next Next 'Asignar valores a cada uno de los elementos de la matriz B For F = 1 To 4 For C = 1 To 3 B(F, C) = Val(InputBox("B(" & F & "," & C & ")", "Entrada")) Next Next 'Calcular la matriz R For F = 1 To 4 For C = 1 To 3 R(F, C) = 3 * A(F, C) - B(F, C) / 3 Next Next 'Mostrar la matriz A Lstmostrar.Items.Add("Matriz A") S = "" For C = 1 To 3 S = S & vbTab & C NextLstmostrar.Items.Add(S) For F = 1 To 4 S=F For C = 1 To 3 S = S & vbTab & A(F, C) Next Lstmostrar.Items.Add(S) Next Lstmostrar.Items.Add("") 'Mostrar la matriz B Lstmostrar.Items.Add("Matriz B") S = "" For C = 1 To 3 S = S & vbTab & C Next Lstmostrar.Items.Add(S) For F = 1 To 4 S=F For C = 1 To 3 S = S & vbTab & B(F, C) Next Lstmostrar.Items.Add(S) Next Lstmostrar.Items.Add("") 'Mostrar la matriz RLstmostrar.Items.Add("Matriz R") S = "" For C = 1 To 3 S = S & vbTab & C Next C Lstmostrar.Items.Add(S) For F = 1 To 4 S=F For C = 1 To 3 S = S & vbTab & R(F, C) Next Lstmostrar.Items.Add(S) Next End Sub
PROBLEMA 4 Una empresa tiene 5 vendedores identificados con números del 1 al 5 y vende 10 productos identificados con los códigos del 1 al 10. Desarrollar una aplicación que procese las boletas de ventas...
Regístrate para leer el documento completo.