Programas en visual basic

Centro de Estudios Tecnológicos industrial y de servicios N° 115
Mexicano - Japonés
MATERIA:
Lenguaje de programación IV

PROFESOR:
Ing. Verónica Robles

ALUMNO:
Patiño Estrada Ana Guadalupe

GRUPO:
5ºG
“Programas en visual BASIC”

índice

Portada 1
Índice 2
PROYECTO 1 4
Formulario 14
Problema4
Diagrama de flujo4
Código5
Formulario (diseño) 5Formulario (ejecución) 6
Formulario 27
Problema7
Diagrama de flujo7
Código7
Formulario (diseño) 8
Formulario (ejecución) 8
PROYECTO 2 9
Formulario 19
Problema9
Diagrama de flujo9
Código10
Formulario (diseño) 10
Formulario (ejecución) 10
PROYECTO 3 11
Formulario 111
Problema11
Diagrama de flujo11
Código13Formulario (diseño) 14
Formulario (ejecución) 14
PROYECTO 4 16
Formulario 116
Problema16
Diagrama de flujo16
Código17
Formulario (diseño) 18
Formulario (ejecución) 18
PROYECTO 5 20
Formulario 120
Problema20
Diagrama de flujo20
Código21
Formulario (diseño) 21
Formulario (ejecución) 22
PROYECTO 6 23
Formulario 123Problema23
Diagrama de flujo23
Código24
Formulario (diseño) 24
Formulario (ejecución) 25
PROYECTO 7 26
Formulario 126
Problema26
Diagrama de flujo26
Código28
Formulario (diseño) 29
Formulario (ejecución) 29

PROYECTO 1
FORMULARIO 1
1. Problema
Elaborar un formulario con una Label que contenga el texto “Mi primer formulario” una cajade texto, y tres botones.
El primer botón tiene que desplegar el contenido de la caja de texto.
El segundo botón tiene que cambiar el color del formulario.
El tercer botón tiene que cambiar el color del texto escrito en la caja de texto.

2. INICIO
Botón 2
Me.BackColor = Color.CadetBlue

INICIO
Botón 1
MessageBox.Show
(TextBox1.Text)
Diagrama de flujo

FINAL
FINAL

INICIOBotón 3
TextBox1.ForeColor = Color.Red

FINAL

3. Código
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MessageBox.Show(TextBox1.Text)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.BackColor =Color.CadetBlue
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.ForeColor = Color.Red
End Sub
End Class

4. Formularios(diseño)
Caja de texto 1
Boton 2
Formulario 1
Botón 3
Botón 1

Label 1

5. Formularios(ejecución)
En esta primera ejecución se muestra cuando pide que se escribaalgo en la caja de texto

Al presionar el botón 1 se observa como se despliega el contenido de la caja de texto

En el botón 2 se cambia el color del formulario

En el tercer botón se observa como cambia el color del texto contenido en la textbox1

FORMULARIO 2
1. Problema
Elaborar un formulario con dos botones, el primero mostrara el pantalla el mensaje "Código del evento clic delbotón 1" y el segundo botón el mensaje "Código del evento clic del botón 2", también tendrá que cambiarse el fondo del formulario por una imagen.

2. Diagrama de flujo
INICIO
Botón 2
"Codigo del evento clic del boton 2"
INICIO
Botón 1
"Codigo del evento clic del boton 1"

FINAL
FINAL

3. Código
Public Class Form2

Private Sub Button1_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles Button1.Click
MessageBox.Show("Codigo del evento clic del boton 1")

End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
MessageBox.Show("Codigo del evento clic del boton 2")
End Sub

End Class

4. Formulario 2
Formularios(diseño)
Botón 2

Botón 1

5....