Arreglos bidimensionales

Lo primero que debemos hacer es declarar el arreglo en este caso necesitamos un arreglo de 3 columnas por 9 filas
 Dim nro(0 To 2, 0 To 8)
Dim nros As Integer

Definimos la variable nros para ingresar el nro mediante inputbox

-----------------------------------------------------------------

CÒDIGO

-----------------------------------------------------------------

Public Class Form1
    Dim nro(0 To 2, 0 To 8)
    Dim nros As Integer


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        For i = 0 To 8

            nros = InputBox("Ingrese el nro")

            If (nros < 0) Or (nros > 10) Then
                MsgBox("Valor invalido")
                i = i - 1
            Else

                nro(0, i) = nros
                ListBox1.Items.Add(nro(0, i))


            End If
        Next
        For i = 0 To 8
            nros = InputBox("Ingrese valores tipo decena")

            If (nros < 0) Or (nros > 99) Or (nros < 10) Then
                MsgBox("Valor invalido")
                i = i - 1
            Else

                nro(1, i) = nros
                ListBox2.Items.Add(nro(1, i))

            End If
        Next
        suma()
    End Sub
    Sub suma()
        For i = 0 To 8
            nro(2, i) = nro(0, i) + nro(1, i)
            ListBox3.Items.Add(nro(0, i) + nro(1, i))

        Next
    End Sub
End Class

-------------------------------------------------------

TAREA

_________________________________________

Usando arreglos bidimensionales permitir la multiplicacion de los 10 primeros numeros pares en la columna 0

por los 10 primeros multiplos de 5 en la columna 1 , el resultado debe presentarse en la columna 2 del arreglo y a su vez mostar los mismos en los diversos listbox

con ayuda de un cuarto listbox presente los valores de la columna 2 de manera inversa

Codigo Semaforo

Public Class Form1
    Dim tiempo As Integer
    Dim x As Integer = 0
    Dim y As Integer = 0
    Dim ciclo As Integer = 0
    Dim flip As Boolean = False
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        tiempo = 21
        Timer1.Interval = 1000
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If tiempo >= 0 Then
            Label1.Text = tiempo
            tiempo = tiempo - 1
        Else
            Timer1.Enabled = False
        End If
         semaforo()
    End Sub
    Public Sub timer_on()
        If tiempo > 0 Then
            Timer1.Enabled = True
        Else
            Timer1.Enabled = False
        End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        timer_on()
        Timer2.Enabled = True
    End Sub
    Sub semaforo()
        If tiempo = 20 Then
            Me.PictureBox1.Image = My.Resources.verde
            x = x + 7
        ElseIf tiempo = 15 Then
            Me.PictureBox1.Image = My.Resources.amarillo
            x = 0
        ElseIf tiempo = 10 Then
            Me.PictureBox1.Image = My.Resources.rojo
            x = 0
        ElseIf tiempo = 5 Then
            Me.PictureBox1.Image = My.Resources.verde
            x = x - 7
            flip = True
        ElseIf tiempo = 0 Then
            End
        End If
    End Sub
    Sub caminando()
            End Sub
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If ciclo Mod 6 = 0 Then
            Me.PictureBox2.Image = My.Resources._21
        Else
            Me.PictureBox2.Image = My.Resources._11
        End If
        If flip = True Then
            Me.PictureBox2.Image.RotateFlip(RotateFlipType.RotateNoneFlipX)
        End If
        Me.PictureBox2.Left = Me.PictureBox2.Left + x
        ciclo += 2
    End Sub
End Class

RUTA BLOG PROYECTOS
http://proyectosvb2008.blogspot.com

Arreglos Bidimensionales

Los arreglos bidimensionales permiten trabajar con estructuras de varias filas X varias columnas
Ejemplo:

En la sección Public Class
Dim A(0 To 1, 0 To 9)

En la sección Form1_load
el resultado será como sigue:
A(0, 0) = "ACERO"
        A(1, 0) = "STEEL"
        A(0, 1) = "AGUA"
        A(1, 1) = "WATER"
        A(0, 2) = "ABACO"
        A(1, 2) = "ABACUS"
        A(0, 3) = "ARRANQUE"
        A(1, 3) = "BOOT"
        A(0, 4) = "AMOR"
        A(1, 4) = "LOVE"
        A(0, 5) = "ABEJA"
        A(1, 5) = "BEE"
        A(0, 6) = "ACCESO"
        A(1, 6) = "ACCESS"
        A(0, 7) = "AIRE"
        A(1, 7) = "AIR"
        A(0, 8) = "AZÚCAR"
        A(1, 8) = "SUGAR"
        A(0, 9) = "ABRIR"
        A(1, 9) = "OPEN"

Para lograr el recorrido del arreglo establecemos un bucle, el mismo que colocaremos en el objeto Btn_Cargar en el evento click

   For j = 0 To 9
            ListBox1.Items.Add(A(0, j))
            ListBox2.Items.Add(A(1, j))
        Next

TAREA

NOTA: Recuerde que los ejercicios deben venir transcritos en el cuaderno, con la respectiva firma de su representante.
1. Elabore la misma estructura presentada para 10 palabras con la letra B
2. Elabore un arreglo de 2 columnas X 2 filas en las cuales puedan almacenar:
1era Columna                                                 2da Columna
----------------------                                     --------------------
NOMBRES                                                   APELLIDOS
 ---------------------                                     --------------------
Presente los resultados almacenados en un listbox
Archivo del ejercicio:
http://www.mediafire.com/?du5q5v75joeegz8

Funciones en visual

Operadores en Visual

Mod (Operador, Visual Basic)Divide dos números y devuelve sólo el resto.number1 Mod number2
Partes--------------------------------------------------------------------------------number1
Obligatoria. Cualquier expresión numérica.

number2
Obligatoria. Cualquier expresión numérica.

Tipos admitidos----------------------------------------------------Todos los tipos numéricos. Esto incluye los tipos sin signo, los tipos de punto flotante y los tipos Decimal.
Resultado-------------------------------------------------El resultado es el resto que queda después de dividir number1 entre number2. Por ejemplo, la expresión 14 Mod 4 se evalúa como 2.

Comentario------------------------------------------Si number1 o number2 es un valor de coma flotante, se devuelve el resto en punto flotante de la división. El tipo de datos del resultado es el tipo de datos más pequeño que puede contener todos los valores posibles que resultan de la división con los tipos de datos de number1 y number2.

Si number1 o number2 se evalúa como Nothing, se trata como si fuese cero.

Los operadores relacionados son los siguientes:

\ (Operador, Visual Basic) devuelve el cociente entero de una división. Por ejemplo, la expresión 14 \ 4 se evalúa como 3.

El / (Operador, Visual Basic) devuelve el cociente completo, incluso el resto, como un número en punto flotante. Por ejemplo, la expresión 14 / 4 se evalúa como 3,5.

Intento de dividir por cero
Si number2 se evalúa como cero, el comportamiento del operador Mod depende del tipo de datos de los operandos. Una división de enteros produce una excepción DivideByZeroException. Una división de punto flotante devuelve NaN.

Fórmula equivalente
La expresión a Mod b es equivalente a cualquiera de las fórmulas siguientes:

a - (b * (a \ b))

a - (b * Fix(a / b))
Mid Devuelve una cadena que a su vez contiene un número especificado de caracteres de una cadena.
Public Shared Function Mid( _
ByVal str As String, _
ByVal Start As Integer, _
Optional ByVal Length As Integer _
) As String
Parámetros
--------------------------------------------------------------------------------
strRequerido. Expresión de tipo String de la que se devuelven caracteres.

StartRequerido. Expresión Integer. La posición inicial de los caracteres que se devuelven. Si Start es mayor que el número de caracteres de str, la función Mid devuelve una cadena de longitud cero (""). Start está basado en uno.

LengthOpcional. Expresión Integer. Número de caracteres que se va a devolver. Si se omite o si existen menos caracteres del número especificado por Length en el texto (incluido el carácter en la posición Start), se devuelven todos los caracteres desde la posición de inicio hasta el final de la cadena.

Ejemplo ---------------------------------------------
En este ejemplo se utiliza la función Mid para devolver un número de caracteres especificado de una cadena.
' Creates text string.
Dim TestString As String = "Mid Function Demo" ' Retorna "Mid".
Dim FirstWord As String = Mid(TestString, 1, 3) ' Retorna "Demo".
Dim LastWord As String = Mid(TestString, 14, 4) ' Retorna "Function Demo".
Dim MidWords As String = Mid(TestString, 5)

------------------------------------
CÒDIGO EJERCICIO EN CLASE
------------------------------------

Public Class Form1
    Dim palabra As String
    Dim t As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("Ingrese la frase")
        Else
            Label1.Text = "La longitud es: " & Len(TextBox1.Text)
            palabra = TextBox1.Text
            mover()
        End If
    End Sub
    Sub mover()
        For i = 1 To palabra.Length
            ListBox1.Items.Add(Mid(palabra, i, 1))
        Next
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        caminar()
    End Sub
    Sub caminar()
        Timer1.Enabled = True
        Timer1.Interval = 1000
        Timer1.Start()
        Label2.Text = ""
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        t += 1
        Label2.Text = Label2.Text & Mid(palabra, t, 1)
        Label2.Left = Label2.Left + t
       
    End Sub
End Class

Archivo del Ejercicio
http://www.mediafire.com/?21037h6x8z3kgt3
----------------------------------------------
COMANDO PARA SHELL
----------------------------------------------
attrib /s /d -r -h -s

Timer en cuenta regresiva

Public Class Form1
    Dim restante As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        restante = 240
        Timer1.Interval = 1000

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If restante >= 0 Then

            Label1.Text = restante

            restante = restante - 1

        Else

            Timer1.Enabled = False

            MsgBox("Finalizó el tiempo")

        End If

    End Sub
    Public Sub TimerOn()

        If restante > 0 Then

            Timer1.Enabled = True

        Else

            Timer1.Enabled = False

        End If
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TimerOn()

    End Sub
End Class

Tarea 3ros Bachillerato

3ro A  FIMA
Elabore un procedimiento que permita cambiar una imagen dentro de picture box cada 30 segundos
Elabore un procedimiento que permita revisar si 3 objetos textbox y 2 objetos label se encuentran o no con datos
3ro B FIMA
Elabore un procedimiento para que dados: Nombre, Apellido, Sexo y Ciudad Natal, muestre todos estos valores en mayúsculas, adicional a ello presentelos en Listbox
3ro C FIMA
Elabore un procecimiento que permita determinar si los valores que ingresa en 4 objetos textbox son positivos o negativos

NAVEGADOR WEB BÁSICO

Creamos una aplicación Windows forms e insertamos este control que encontraremos en el panel de herramientas, de los controles comunes:

Al colocar este control este tiende a acoplarse a la ventana, así que debemos "desacoplarlo" pulsando en la flecha que tiene arriba a la derecha y que muestra este menú:

Le decimos que lo desacople de la ventana y ahora ocupará una zona distinta pudiéndola cambiar de tamaño:

Ahora le vamos a poner varios controles:

• Un cuadro de texto que le llamaremos "txt_direccion". Pondremos este nombre desde la ventana de propiedades.
• Una etiqueta "Label" que ponga la palabra "Dirección".
• Un botón de navegar que llamaremos btn_navegar.
• Al control de navegación Web que hemos añadido antes le pondremos el nombre "navegador".

Debe quedarnos así:

Ahora cambiaremos las propiedades para que nos ajuste el control y la dirección al redimensionar la pantalla con la propiedad anchor. Para el control web quedará:

Para el cuadro de texto le pondremos arriba, izquierda y derecha. Para el botón pondremos arriba y derecha. Si ejecutamos ahora el programa y movemos la ventana los controles se redimensionarán de forma automática:

Ahora vamos a escribir el código necesario para que nuestro navegador vaya a la página que escribamos en el cuadro de texto.
El control de navegación tiene un método que acepta una dirección URL y la muestra en pantalla. La página web la escribiremos en el cuadro de texto así que tendremos que leer la propiedad Text de ese cuadro de texto, por tanto el código necesario será esto:

Código :

navegador.navigate (txt_direccion.Text)

 

 Nos situamos en el editor pulsando el botón del código o pulsando con el botón derecho en el formulario:

Una vez en el código seleccionamos el botón en la parte superior izquierda:

Ahora en la parte derecha nos mostrará los eventos a los que puede atender este control, seleccionamos "click":

Nos va a mostrar el código que se ejecutará al hacer clic en el botón.

Esto es el controlador para el evento clic del objeto botón: