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

VINCULO PARA DESCARGA CMAPTOOLS

el archivo esta en formato .RAR, ud. debe descomprimirlo
CmapTools.rar
EJEMPLO JUEGO PARES

TEORIA

FUNDAMENTOS VISUAL BASIC 2008

moduloVisual.docx

Semana 10-14 Octubre

Tarea
Investigue el uso de la funcion randomize en Visual Basic 2008
Realice los ejercicios propuestos:

CAMPAÑA DE COMUNICACIÓN CUERNO DE AFRICA

TAREA: Genere un programa que permita mostar el valor de cada cara de un dado,

permita que al generarse cada lado ud. pueda ejecutar alguna de las acciones vistas en clase

EJERCICIO2

RadioButton

Descargue los archivos, revise el mismo, la dirección es:

ejercicio3


Para finalizar el archivo elabore un nuevo formulario, en el cual se determine:

Dados el nombre, la edad y el género determine:

Hasta 12 años niño(a)

Hasta 18 años adolescente varón o mujer

Hasta 65 años adulto(a)

Mayor a 65 y menor a 100 adulto(a) mayor