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

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

Uso del Objeto Checkbox

Ingrese las 24 provincias del Ecuador mediante combobox
Agregue los labels necesarios para CAPITAl, HBTS, SUPERFICIE y PREFECTOS
Imagen del ESCUDO y LA BANDERA de la provincia mediante picturebox
2 imagenes de CULTURA y TRADICION mediante picturebox
Ingrese el VIDEO para cada provincia

Tarea para semana 19-23 septiembre 2011

1.Dado un menu de opciones :
1. Matemáticas ---------->$12.50
2. Inglés----------------->$15.60
3. Estadisitica----------- >$19
4. Investigación---------> $23
Permitir escoger la cantidad de libros a contar en cada caso
Calcular el IVA, y el Total a Pagar.
Si la venta es mayor a $200, determine un 4% de descuento sobre la compra
----------------------------------------------------------------------------------------
2. Ingresados 2 valores numéricos, determine cual es mayor y que valor es menor
----------------------------------------------------------------------------------------
3. Dado el producto notable (a-b)2 , solicite valores numericos asignables para a y b, obtenga la
respuesta.
NOTA: el 2 significa que la expresión se encuentra elevada al cuadrado
----------------------------------------------------------------------------------------

Ejercicio 1

El presente ejercicio pretende elejir la operación desde un combobox y con los nros. ingresados ejecutar el respectivo cálculo matemático
EJERCICIO1

REPASO CONTENIDOS AÑO ANTERIOR

Bienvenidos a programación con Visual Basic 2008,
estos son los ejercicios propuestos para la semana del 12 al 16 de Septiembre de 2011


1. Dados el producto, la cantidad y el valor unitario, calcule:
Subtotal
Si el subtotal a pagar es mayor a $500, determine un 5% de descuento y calcule el total a cancelar luego de dicho descuento
IVA
Total a pagar

2. Permita que el usuario elija entre las cuatro operaciones básicas (Suma, resta, multiplicación, división), luego de escojer la operación deseada pida los valores necesarios para realizar la misma, al final presente los resultados

3. Ingresados la edad y el género de la persona, indicar si es hombre mayor de edad, mujer mayor de edad, adolescente o niño (a)