Prácticas de Laboratorio de Programación Estructurada para el nivel medio superior

[pic 2][pic 3]

INSTITUTO POLITECNICO NACIONAL

CECYT 12 JMM

Prácticas de Laboratorio de Programación Estructurada para el nivel medio superior

Material Gratuito Elaborado por: Lic. Carlos Fernando Contreras Lira

Nombre Alumno(a):__________________________________________________________

Grupo. 4IV14

Visual Studio 2010 Free, Descarga:   http://www.descargarsoft.com/descargar-visual-basic-2010-express/

Programa 1 Utilización de botones y cuadro de mensaje 

[pic 4]

Guardar todo/ Proyecto/ nombre= Imagen/ guardar

1 PictureBox

2 Button

Seleccionar el objeto PictureBox y dibujarlo en el Form, ir a sus propiedades y en Image dar clic en la zona punteada, nos abre un recuadro seleccionar importar, buscamos en sistema o en tu USB, seleccionamos la imagen y aceptamos, en la propiedad Visible seleccionar False,

El primer botón cambiamos su color de fondo con la propiedad BackColor y con la propiedad ForeColor el color del texto, en la propiedad text agregamos Imagen, los mismos pasos para el segundo botón solo que en text ponemos Salir, Seleccionamos el Form y en propiedades seleccionamos Back Color seleccionando un color parecido a nuestra imagen.

Codigo Button 1

Dim M As MsgBoxResult

        M = MsgBox(" Quieres visualizar la imagen ", MsgBoxStyle.YesNoCancel, "")

        If M = MsgBoxResult.Yes Then

            PictureBox1.Visible = True

        Else

            PictureBox1.Visible = False

        End If

Codigo botón 2

End

Programa 2 uso de la sentencia If con mensajes

[pic 5]

Guardar todo/ Proyecto/ nombre= Mensaje/ guardar

3 botones de comando (button)

Una imagen (PictureBox) y en sus propiedades en la opción image, dar clic en la zona punteada y buscar una del sistema o USB, importamos y aceptamos, en la propiedad visible seleccionamos false.

En el primer botón de comando damos doble clic, entramos al área de código y escribimos:

MsgBox (“CECyT 12 JMM, IPN”)

En el segundo botón de comando damos doble clic entramos en el área de código y escribimos:

Dim ab As MsgBoxResult

        ab = MsgBox(" Quieres visualizar la imagen ", MsgBoxStyle.YesNoCancel, "")

        If ab = MsgBoxResult.Yes Then

            MsgBox("ver imagen")

            PictureBox1.Visible = True

        Else

            If ab = MsgBoxResult.No Then

                MsgBox("salir del programa")

            End If

        End If

En el tercer botón de comando damos doble clic entramos en el área de código y escribimos:

End

Programa 3 cálculo del tiempo utilizando formato fecha

Guardar todo/ Proyecto/ nombre= Calculo de tiempo/ guardar

4 Labels/4TextBox/3 Button

Propiedades:

Label 1/Text/Escriba cantidad de días

Label2/Text/En Años

Label3/Text/En Meses[pic 6]

Label4/Text/En Días

Button1/Text/Calculo

Button2/Text/Clean

Button3/Text/Exit

Código de los botones:

Public Class Form1

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

        Dim dias As Integer

        Dim mes As Integer

        Dim año As Integer

        Dim ds As Integer

        dias = TextBox1.Text

        año = Int(dias / 360)

        mes = Int((dias - (año * 360)) / 30)

        ds = (dias - ((año * 360) + (mes * 30)))

        TextBox2.Text = año

        TextBox3.Text = mes

        TextBox4.Text = ds

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        End

    End Sub

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

...