ASP NET

evento key

Tool Strip

Código Ejemplo:
Public Class Form1

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Form2.Show()

    End Sub

    Private Sub botton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Form3.Show()

    End Sub

    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        End

    End Sub

    Private Sub ApagarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        End

    End Sub

    Private Sub ToolStripButton1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        Form2.Show()

    End Sub

    Private Sub ToolStripButton2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
        Form3.Show()

    End Sub

    Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
        Form4.Show()

    End Sub

    Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click
        End

    End Sub

    Private Sub CalculadoraToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalculadoraToolStripMenuItem.Click
        Shell("C:\WINDOWS\system32\calc.exe")

    End Sub

    Private Sub ApagarToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ApagarToolStripMenuItem.Click
        Shell("shutdown -s")


    End Sub

    Private Sub ReiniciarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReiniciarToolStripMenuItem.Click
        Shell("shutdown -r")

    End Sub

    Private Sub ToolStripDropDownButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripDropDownButton1.Click

    End Sub
End Class

Web Forms (ASP:NET)

ASP

Código Cronometro

Dim minuto As Integer 
    Dim segundo As Integer = 0
    Dim milisegundo As Integer = 0

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
        Label1.Text = hora.ToString.PadLeft(2, "0") & ":"
        Label1.Text &= minuto.ToString.PadLeft(2, "0") & ":"
        Label1.Text &= segundo.ToString.PadLeft(1, "0") & ":"
        Label1.Text &= milisegundo.ToString.PadLeft(1, "0")
        Label1.Refresh()

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        milisegundo += 1
        If milisegundo = 9 Then
            milisegundo = 0
            segundo += 1
            If segundo = 59 Then
                segundo = 0
                minuto += 1
                If minuto = 59 Then
                    minuto = 0
                    hora += 1
                End If
            End If
        End If
        Label1.Text = hora.ToString.PadLeft(2, "0") & ":"
        Label1.Text &= minuto.ToString.PadLeft(2, "0") & ":"
        Label1.Text &= segundo.ToString.PadLeft(2, "0") & ":"
        Label1.Text &= milisegundo.ToString.PadLeft(1, "0")

        Label1.Refresh()

    End Sub

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

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled  False

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        hora = 0
        minuto = 0
        segundo = 0
        milisegundo = 0
        Label1.Text = hora.ToString.PadLeft(2, "0") & ":"
        Label1.Text &= minuto.ToString.PadLeft(2, "0") & ":"
        Label1.Text &= segundo.ToString.PadLeft(2, "0") & ":"
        Label1.Text &= milisegundo.ToString.PadLeft(1, "0")

        Label1.Refresh()

    End Sub
End Class

PRUEBA 3ER CICLO

II.   INSTRUCCIONES:

• Lea detenidamente cada una de las preguntas planteadas
• Conteste únicamente lo que se pide en la prueba
• En caso de tener alguna duda consulte personalmente al Profesor
• Utilice el tiempo adecuadamente

GUARDE EL ARCHIVO DEL PROYECTO EN UNA CARPETA CON LA SIGUIENTE ESTRUCTURA:

EVAL_NOMBRE_APELLIDO_CURSO

LOS PROGRAMAS PLANTEADOS DEBEN FUNCIONAR EN EL MISMO PROYECTO

1)      Dados dos arreglos unidimensionales calcule los 50 primeros nros pares e impares y asígnelos a dichos arreglos, también debe ser presentado en listbox.Una vez ingresados los valores en los arreglos, con ayuda de un listbox, realice la suma de los mismos.

2)      Con ayuda de  la función randomico y mediante el uso de objeto de imagen presente del nro generado (utilice las imágenes del dado) muestre al usuario 6 opciones:

1.       50 primero pares

2.       50 primeros impares

3.       50 primeros múltiplos de 5

4.       50 primeros múltiplos de 4

5.       50 primeros múltiplos de 8

6.       Factorial de 30

Permitir elegir durante 6 ocasiones, luego debe cerrarse la aplicación

Con dos  listbox y secuencia tipo bucles muestre en el primer listbox la opción que se genero, y en el segundo listbox, presente los valores invertidos, ejemplo:

MATERIAL TEORICO

moduloVB