Visual #2 (Ejercicios)

CECYTES
ESPERANZA
CURSO Visual Basic .Net 2010

(Windows Form)
Esperanza, Son. 12 Octubre 2013

Practica # 1 Botones textBox
1.- Crear un proyecto Nuevo de Visual Basic  Aplicación de Windows Forms
2.- Insertar un textBox y dos botones
3.- En el botón 1 en su propiedad Text escribir: Hacer clic aquí y en el botón 2 en la propiedad Text
escribir Borrar.
4.- Seleccionar el formulario y en su propiedad Text escribir Practica # 1 Hecho por: ”Nombre y Apellido”
5.- Escribir el código a cada botón haciendo doble clic sobre ellos y escribir:
Código Botón Hacer clic aquí:

textBox1.Text = textBox1.Text + " Hola Bienvenidos "
Código Botón BORRAR:
textBox1.Clear()
textBox1.Focus()
‘textBox1.Text = ""
6.- Correr el programa o iniciar la Depuración presionando la tecla F5 o haciendo clic en el botón Iniciar
Depuración
Practica # 2 Botones y un PictureBox

2.- Añadir 2 botones y un pictureBox
3.- Seleccionar el formulario y en su propiedad Text escribir Practica # 2 Hecho por: ”Nombre y Apellido”.
4.- En el botón 1 en su propiedad Text escribir: MOSTRAR y en el botón 2 en la propiedad Text escribir
OCULTAR.
5.- Seleccionar el picturebox y en su propiedad Imagehacer clic al botón con 3 puntos sale una ventana
seleccionamos Recurso localclic al botón Importarbuscamos la imagenclic en el botón AbrirAceptar.
6.- Seleccionamos a la imagen y en su propiedad SizeMode selecionamos StretchImage y en la propiedad
visible seleccionamos False.
7.-Escribir el código en los botones haciendo doble clic sobre ellos.
Código Botón MOSTRAR:

pictureBox1.Visible = true
Código Botón OCULTAR:

pictureBox1.Visible = false
Depuración
Practica # 3 Colores, Botones y ovalshape

2.- Añadir al formulario un ovalShape y 5 botones.
3.- Seleccionar el ovalshape y en su propiedad BackStyle seleccionar Opaque.
5.- En el botón 1 en su propiedad Text escribir: COLOR ROJO y en la propiedad BackColor seleccionar el
color.
6.- Hacer lo mismo para los otros botones.
7.-Escribir el código en los botones haciendo doble clic sobre ellos.
Código Botón COLOR ROJO:
ovalShape1.BackColor = Color.Red
Código Botón COLOR VERDE:
ovalShape1.BackColor = Color.Green
Código Botón COLOR AZUL:

ovalShape1.BackColor = Color.Blue
Código Botón COLOR AMARILLO:

ovalShape1.BackColor = Color.Yellow
Código Botón COLOR PERSONALIZADO(Para un color personalizado en la propiedad BackColor escribir los 3
números que aparecen)
ovalShape1.BackColor = Color.FromArgb(192, 192, 255)
8.-Correr el programa o iniciar la Depuración presionando la tecla F5 o haciendo clic en el botón Iniciar
Depuración
Practica # 4 RadioBotones label

2.- Añadir al formulario un label y 3 radiobotones.
4.- En el radiobotón 1 en su propiedad Text escribir: COLOR ROJO y en la propiedad BackColor seleccionar el
color correspondiente.
5.- Hacer lo mismo con los otros dos radiobotones (COLOR VERDE y COLOR AZUL).
6.-Escribir el código en los radiobotones haciendo doble clic sobre ellos
Código radioBotón COLOR ROJO:

label1.ForeColor = Color.Red
Código radioBotón COLOR VERDE:

label1.ForeColor = Color.Green
Código radioBotón COLOR AZUL:

label1.ForeColor = Color.Blue
Depuración
Practica # 5 rectangleShape y hScrollBar

2.- Añadir al formulario un rectangleShape y 3 labels y 3 hScrollBar.
4.- Seleccionar el rectangleShape y en su propiedad BackStyle seleccionamos Opaque.
5.- En el label1 en su propiedad Text escribir: 0 y en la propiedad BackColor seleccionar el color rojo.
6.- Hacer lo mismo con los otros dos labels (COLOR VERDE y COLOR AZUL).
7.- Seleccionamos el hScrollBar1 y en la propiedad LargeChange cambiamos a 1 y en la propiedad Maximum
cambiar a 255 hacer lo mismo con los otros dos hScrollbar
8.-Escribir el código en los hScrollBar haciendo doble clic sobre ellos.
Es el mismo código para los 3 hScrollBar
Código hScrollBar1:
label1.Text = hScrollBar1.Value.ToString()
rectangleShape1.BackColor = Color.FromArgb(255, hScrollBar1.Value, hScrollBar2.Value, hScrollBar3.Value)
Depuración
Practica # 6 Timer, label y Botones

2.- Añadir al formulario un Timer y 2 labels, 1 botones.
4.- Seleccionar el botón 1 y en su propiedad Text escribir Ventana 2.
5.- Hacer doble clic sobre el formulario y escribir el siguiente código:
timer1.Enabled = true
timer1.Interval = 25
6.- Hacer doble clic en el Timer y escribir el siguiente código:
label1.Text = DateTime.Now.ToLongTimeString()
label2.Text = DateTime.Now.ToLongDateString()
7.- Hacer doble click sobre el botón Ventana 2 y escribir el código:
Form2.Show()
Me.Hide()
8.-Agregar otro formulario (Menú ProyectoAgregar Windows Forms… ).
9.- Agregar un botón al Form2 en su propiedad Text escribir Regresar
10.- Escribir el siguiente código en el Botón Regresar:

Form1.Show()
Me.Hide()
Depuración
Practica # 7 Barra de Menús (menuStrip) y TextBox

2.- Añadir al formulario un menuStrip y un TextBox.
4.- Seleccionar el textBox y en su propiedad Text escribir CECYTES ESPERANZA, en la propiedad Multilinea
seleccionar True.
5.- Seleccionar el menuStrip y escribir los menús Fuente, Tamaño, Color del Formulario y Salir (puede
colocar el símbolo & antes de la letra para que salga subrayado como atajo del teclado).
6.- Dentro del menú Fuente escribir los comandos: Tahoma 10 y Arial 10, aplicar el mismo formato
seleccionando su propiedad Font.
7.- Dentro del menú Tamaño escribir 12, 14 y 16.
8.- Dentro del menú Color escribir Rosa, Naranja y Azul.

9.- Hacer doble clic en el menú Salir y escribir el siguiente código en el comando Salir:
End
10.-Hacer doble clic en el commando Rosa del menú Color del Formulario y escribir el siguiente código:
Me.BackColor = Color.Pink
11.-Hacer doble clic en el commando Naranja del menú Color del Formulario y escribir el siguiente código:
Me.BackColor = Color.Orange
12.-Hacer doble clic en el commando Azul del menú Color del Formulario y escribir el siguiente código:
Me.BackColor = Color.Blue
13.-Hacer doble clic en el commando 12 del menú Tamaño y escribir el siguiente código:
TextBox1.Font = New Font(TextBox1.Font.Size, " 12 ")
14.-Hacer doble clic en el commando 14 del menú Tamaño y escribir el siguiente código:
15.-Hacer doble clic en el comando 16 del menú Tamaño y escribir el siguiente código:
16.-Hacer doble clic en el comando Tahoma 10 del menú Fuente y escribir el siguiente código:
TextBox1.Font = New System.Drawing.Font("Tahoma", "10")
18.-Hacer doble clic en el comando Arial 10 pt del menú Fuente y escribir el siguiente código:
TextBox1.Font = New System.Drawing.Font("Arial", "10")
Depuración
Practica # 8 Botones,labels y TextBox

2.- Añadir al formulario 3 labels, 3 textBox, 5 botones.
4.- Los labels( en su propiedad Text escribir: NÚMERO 1, NUMERO 2 y RESULTADO(para el label1 al label3).
5.- Los botones( en su propiedad Text escribir: SUMA, RESTA, MULTIPLICACIÓN, DIVISIÓN y BORRAR(para el
Botón 1 al Botón 5).
6.- Escribir el código en cada botón haciendo doble clic sobre el:
Código botón SUMA:

Dim resultado As Double, n1 As Double, n2 As Double
n1 = Val(TextBox1.Text)
n2 = Val(TextBox2.Text)
resultado = n1 + n2
TextBox3.Text = resultado
A los de resta, multiplicación, división cambiar el operador
BOTÓN BORRAR
textBox1.Text=""
textBox2.Text=""
textBox3.Text=""
Depuración.
Practica # 9 vScrollBar, hScrollBar, labels y lineShape

2.- Añadir al formulario 4 labels, un lineShape, un vScrollBar y un hScrollBar.
4.- Los labels( en su propiedad Text escribir: 0, 0 y 0(para el label1 al label3), para el label 4 escribir
el símbolo +.
5.- Seleccionar el vScrollBar1 y en su propiedad LargeChange cambiarla a 1 y en su propiedad Maximum
cambiarla a 100
6.- Seleccionar el hScrollBar1 y en su propiedad LargeChange cambiarla a 1 y en su propiedad Maximum
cambiarla a 100.
7.- Hacer doble clic en el control vScrollBar1 y escribir el siguiente código:
Label1.Text = VScrollBar1.Value
Label2.Text = HScrollBar1.Value
Label3.Text = HScrollBar1.Value + VScrollBar1.Value
8.- Hacer doble clic en el control hScrollBar1 y escribir el siguiente código:

Label1.Text = VScrollBar1.Value
Label2.Text = HScrollBar1.Value
Label3.Text = HScrollBar1.Value + VScrollBar1.Value
Depuración.
Practica # 10 MessagegBox e InputBox

2.- Añadir al formulario un label y un botón.
4.- Hacer doble clic en el botón:
Dim a As Double, b As Double, h As Double
b = Val(InputBox("Teclea el valor de la base", "Calculo del área de un triangulo"))
h = Val(InputBox("Teclea el valor de la altura", "Calculo del área de un triangulo"))
a = b * h / 2
MessageBox.Show("El área del triangulo es " & a, "Practica # 10", MessageBoxButtons.OK, MessageBoxIcon.Question)
Depuración.
Practica # 11 TextBox, Label, Botones

2.- Añadir al formulario un labels, un textBox, un Timer y un botón.
3. Seleccionar el textbox seleccionar la propiedad Passwordchar y colocar un carácter ejemplo *
4. Seleccionar al timer y en la propiedad Enabled cambiar a False, Propiedad Interval escribir 15000
5. Hacer doble clic en el Formulario (Form1) y escribir el código:
Timer1.Start()
6. Hacer doble clic en el Timer y escribir código:
Beep()
MsgBox("Se acabo tu tiempo")
3.- Añadir otro formulario Menú ProyectoAgregar Windows Forms
Código botón ENTRAR

Dim clave As String
clave = TextBox1.Text
If clave = "cecytes" Then
Timer1.Stop()
Form2.Show()
Me.Hide()
Else
MessageBox.Show("Te equivocaste", "Adios", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
TextBox1.Text = ""
End If
Código botón SALIR

End
Código botón REGRESAR

Form1.Show()
Me.Hide()
Practica # 12
Private Sub barrav_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs)

Handles barrav.Scroll
b.Text = barrav.Value
c.Text = Math.Sqrt(barrav.Value ^ 2 + barrah.Value ^ 2)
End Sub
Private Sub barrah_Scroll(ByVal sender As System.Object, ByVal e As

System.Windows.Forms.ScrollEventArgs) Handles barrah.Scroll
a.Text = barrah.Value
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

b.Text = barrav.Value
a.Text = barrah.Value
End Sub
Practica # 11 MessagegBox, Botones, labels y textBox

2.- Añadir al formulario dos labels, dos textBox y dos botones.
4.- Los labels( en su propiedad Text escribir: Barra de titulo y Mensaje (para el label1 al label2).
5.- Los textboxs( en su propiedad Text dejar en blanco, en el TextBox 2 en la propiedad Multilinea cambiar
a True y hacerlo más grande.
6.- En los botones en su propiedad Text escribir: Mostrar Mensaje 1 y Mostrar Mensaje 2( para el botón 1 y
botón 2).
// MessageBox.Show("Escribir mensaje", "barra de titulo", MessageBoxButtons.BOTONES, MessageBoxIcon.ICONO);
7.- Escribir el siguiente código en el botón: Mostrar Mensaje 1

MessageBox.Show(textBox2.Text, textBox1.Text,MessageBoxButtons.OKCancel,MessageBoxIcon.Exclamation);
8.- Escribir el siguiente código en el botón: Mostrar Mensaje 1

MessageBox.Show("Como estan", "3A", MessageBoxButtons.OKCancel, MessageBoxIcon.Exclamation);
Depuración.
Practica # 11 switch (listBox y comboBox)

2.- Añadir al formulario un listBox y un comboBox.
4.- Seleccionar al listBoxclic botón secundarioEditar elementos… escribir: Rojo presionar tecla
Enter,Azuly presionar tecla Enter, Verde y presionar tecla Enter y Amarillo y presionar tecla Enter clic
botón Aceptar.
5.- Seleccionar al comboBoxclic botón secundarioEditar elementos… escribir: Rojo presionar tecla
Enter, Verde y presionar tecla Enter, Azul y presionar tecla Enter  clic botón Aceptar.
6.- Hacer doble clic sobre el comboBox y escribir:
switch (comboBox1.SelectedIndex)
{
case 0:
this.BackColor = Color.Red;
break;
case 1:
this.BackColor = Color.Green;
break;
case 2:
this.BackColor = Color.Blue;
break;
}
7.- Hacer doble clic sobre el listBox y cambiar donde dice Changed por Clic:
Y escribir código:
switch (listBox1.SelectedIndex)
{
case 0:
this.BackColor = Color.Red;
MessageBox.Show("Señalaste el color Rojo", "Practica #10", MessageBoxButtons.OK, MessageBoxIcon.Information);
break;
case 1:
this.BackColor = Color.Blue;
break;
case 2:
this.BackColor = Color.Green;
break;
case 3:
this.BackColor = Color.Yellow;
break;
case 4:
this.BackColor = Color.Orange;
break;
case 5:
this.BackColor = Color.Pink;
break;
}
Depuración.
Practica # 12 switch (TextBox labels y Botón Excepciones de error)

2.- Añadir al formulario un TextBox, dos label y un Botón.
4.- Seleccionar al label1 y en su propiedad Text escribir TECLEA UN NÚMERO DEL 1 AL 7.
6.- Seleccionar al botón y en su propiedad Text escribir HACER CLIC AQUÍ.
7.- Hacer doble clic en el botón y escribir el siguiente código:
try
{
int dia;
dia = int.Parse(this.textBox1.Text);
this.textBox1.Text = dia.ToString();
switch (dia)
{
case 1:
label2.Text = "Es Lunes";
break;
case 2:
label2.Text = "Es Martes";
break;
case 3:
label2.Text = "Es Miercoles";
break;
case 4:
label2.Text = "Es Jueves";
break;
case 5:
label2.Text = "Es Viernes";
break;
case 6:
label2.Text = "Es Sabado";
break;
case 7:
label2.Text = "Es Domingo";
break;
default:
label2.Text = "Ese dia no existe";
break;
}
}
catch (Exception caught)
{
textBox1.Text = "";
this.label2.Text = caught.Message;
}
Depuración.
Practica # 13 TabControl y Splitter

(TextBox Labels, Botón y Excepciones de error)
2.- Insertar un splitter en su propiedad Dock seleccionar Top (Superior), seleccionar el Splitter clic
botón secundario Enviar al fondo.
4.- Insertar un label en Text escribir CALCULO DE ÁREAS.
5.- Insertar in TabControl en su propiedad Dock seleccionar Fill.
6.- Seleccionar la primera Ficha(TabPage1) hacer clic en el centro de la página y en la propiedad Text
escribir CUADRADO.
7.- Hacer doble clic en la segunda Ficha(TabPage2) hacer doble clic en la Ficha2 y en la propiedad Text
escribir CÍRCULO.
8.- En la ficha CUADRADO agregar 3 labels(label2, label3 y label4), un texBox y dos botones.
9.-A los label2 y label3 en la propiedad Text escribir LADO y ÁREA (respectivamente).
10.- Al label 4 modificar la propiedad AutoSize a False y hacerlo más grande, aplicar color a su
fondo(BackColor) y el propiedad Text dejarlo en blanco.
11.- En los botones en la propiedad Text escribir CALCULAR y BORRAR.
12.- Escribir código en el botón CALCULAR de la Ficha cuadrado, haciendo doble clic sobre el:
try
{
double a, l;
l = double.Parse(this.textBox1.Text);
a = l * l;
this.label4.Text = a.ToString();
}
{
}
13.- Escribir código en el botón BORRAR de la Ficha cuadrado, haciendo doble clic sobre el:
this.textBox1.Clear();
this.label4.Text = "";
14.- Seleccionar la Ficha CIRCULO (hacienda clic en la Ficha).

15.- En la ficha CÍRCULO agregar 3 labels(label5, label6 y label7), un textBox(textBox2) y dos botones.
16.- A los label5 y label6 en la propiedad Text escribir RADIO y ÁREA (respectivamente).
17.- Al label7 modificar la propiedad AutoSize a False y hacerlo más grande, aplicar color a su fondo
(BackColor) y el propiedad Text dejarlo en blanco.
18.- En los botones 3 y 4 en la propiedad Text escribir CALCULAR y BORRAR.
19.- Escribir código en el botón CALCULAR de la Ficha CÍRCULO, haciendo doble clic sobre el:
try
{
double a, r;
r = double.Parse(this.textBox2.Text);
a = 3.1416 * r * r;
this.label7.Text = a.ToString();
}
{
}
20.- Escribir código en el botón BORRAR de la Ficha CÍRCULO, haciendo doble clic sobre el:
Depuración.
Practica # 14 Ciclo for
(TextBox labels y Botón Excepciones de error)

2.- Insertar 3 labels, 2 textBox, 2 listBox, 4 botones y un comboBox.
3.- En el label1 manipular su propiedad AutoSize a False y dejar la propiedad Text en blanco
4.- En el label2 en la propiedad Text escribir: Escribe el número de la tabla.
5.- En el label2 en la propiedad Text escribir; Todo listo.
6.- En el botón 1 en su propiedad Text escribir CALCULA TABLA EN UN LABEL
7.- En el botón 2 en su propiedad Text escribir CALCULA TABLA EN UN TEXTBOX
8.- En el botón 3 en su propiedad Text escribir CALCULA TABLA EN UN LISTBOX
9.- En el botón 4 en su propiedad Text escribir BORRAR
10.-Seleccionar el comboBox clic botón secundarioEditar elementos…, escribir del 1 al 10 (1 Enter, 2
Enter, etc.) y en su propiedad Text escribir Seleccionar el número
11. Escribir el código en los botones
Código Botón CALCULAR TABLA LABEL:
try
{
int i, r, n;
n = int.Parse(this.textBox1.Text);
for (i = 1; i <= 10; i++)
{
r = n * i;
this.label1.Text = this.label1.Text + n + " x " + i + " = " + r + "\n";
}
}
{
}
Código Botón CALCULAR TABLA TEXTBOX:

try
{
int i, r, n;
for (i = 1; i <= 10; i++)
{
r = n * i;
textBox2.Text = textBox2.Text + n + " x " + i + " = " + r + "\r\n";
}
}
{
}
Código Botón CALCULAR TABLA LISTBOX:
try
{
int i, r, n;
for (i = 1; i <= 10; i++)
{
r = n * i;
listBox1.Items.Add(" " + n + " x " + i + " = " + r);
}
}
{
}
Código COMBOBOX:
int i, r, n;
n = int.Parse(this.comboBox1.Text);
for (i = 1; i <= 10; i++)
{
r = n * i;
listBox2.Items.Add(" " + n + " x " + i + " = " + r);
}
Código Botón BORRAR:
this.listBox1.Items.Clear();
this.listBox2.Items.Clear();
Depuración.
Practica # 15 Ciclo SWITCH

(TextBox, label y Botón, Excepciones de error)

3.- Insertar dos labels, un textBox, y un botón.
4.- En el label 1 en su propiedad Text escribir ESCRIBE UN NÚMERO DEL 1 AL 23 (EDAD).
5.- El label 2 en la Propiedad AutoSyze cambiar a False, hacerlo mas grande y aplicar un color de fondo
(blanco.
6.- En el botón en la propiedad Text escribir CALCULAR.
7.- Escribir el siguiente código en el botón haciendo doble clic:
try
{
int num;
num = int.Parse(this.textBox1.Text);
this.textBox1.Text = num.ToString();
switch (num)
{
case 1: case 2: case 3:
label2.Text = "Estas en la guardería";
break;
label2.Text = "Estas en el Kinder";
break;
case 7: case 8: case 9: case 10: case 11: case 12:
label2.Text = "Estas en la Primaria";
break;
label2.Text = "Estas en la Secundaria";
break;
label2.Text = "Estas en la Preparatoria";
break;
case 19: case 20: case 21: case 22: case 23:
label2.Text = "Estas en la Universidad";
break;
default:
label2.Text = "Mas probable que no este en la escuela";
break;
}
}
{
textBox1.Text = "";
}
Depuración.
Practica # 16 Web Browser

(TextBox,Botones, Splitter y un webBrowser)
3.- Insertar un splitter en su propiedad Dock seleccionar Top (Superior), seleccionar el Splitter clic
botón secundario Enviar al fondo.
4.- Insertar un webBrowser abajo del Splitter y en su propiedad Dock seleccionar Fill.
5.- Insertar un TextBox y en su propiedad Text escribir WWW.GOOGLE.COM
5.- Insertar 5 botones (ATRÁS, ADELANTE, INICIO, ACTUALIZAR E IR), como la imagen.
6.- Escribir el siguiente código en los botones haciendo doble clic:

Código Botón ATRAS:
webBrowser1.GoBack();
Código Botón ATRAS:

webBrowser1.GoForward();
Código Botón INICIO:

webBrowser1.GoHome();
Código Botón ACTUALIZAR:

webBrowser1.Refresh();
Código Botón IR:

webBrowser1.Navigate(textBox1.Text);
Depuración.
Practica # 17 Color Dialog(Backcolor y Forecolor) Font Dialog

(TextBox,colorDialog, fontDialog y Botones)

2.- Seleccionar el formulario y en su propiedad Text escribir Practica # 17 Hecho por:”Nombre y Apellido”.
3.- Insertar un textBox,un colorDialog, un fontDialog y 3 botones.
4.- El TextBox en la propiedad Text escribir: CECYTES ESPERANZA.
5.- Seleccionar el botón 1 y en la propiedad Text escribir COLOR DIALOG LETRA.
6.- Seleccionar el botón 2 y en la propiedad Text escribir COLOR DIALOG FONDO.
7.- Seleccionar el botón 3 y en la propiedad Text escribir FONT DIALOG.
8.- Escribir el siguiente código en los botones haciendo doble clic.
BOTÓN COLOR DIALOG LETRA

if (colorDialog1.ShowDialog()== DialogResult.OK)
textBox1.ForeColor = colorDialog1.Color;
BOTÓN COLOR DIALOG FONDO

if (colorDialog1.ShowDialog() == DialogResult.OK)
textBox1.BackColor = colorDialog1.Color;
BOTÓN FONT DIALOG

if (fontDialog1.ShowDialog() == DialogResult.OK)
textBox1.Font = fontDialog1.Font;
Depuración.
Practica # 18 Abrir, Guardar un archivo de imagen

(pictureBox, openFileDialog, saveFileDialog, y Botones)

3.- Insertar un pictureBox,un openFileDialog, un saveFileDialog y 3 botones.
4.- Seleccionar el picturebox y en su propiedad Imagehacer clic al botón con 3 puntos sale una ventana
seleccionamos Recurso localclic al botón Importarbuscamos la imagenclic en el botón AbrirAceptar.
5.- Seleccionamos a la imagen y en su propiedad SizeMode selecionamos StretchImage.
6.- Seleccionar el botón 1 y en la propiedad Text escribir openFileDialog.
7.- Seleccionar el botón 2 y en la propiedad Text escribir saveFileDialog.
8.- Escribir el siguiente código en los botones haciendo doble clic.
BOTÓN openFileDialog
openFileDialog1.Filter = "Todos los archivos (*.*)|*.*|" + "Archivos gráficos|*.bmp;*.gif;*.jpg;*.png";

openFileDialog1.FilterIndex = 1;
if (openFileDialog1.ShowDialog() == DialogResult.OK)
{
pictureBox1.Image = Image.FromFile(openFileDialog1.FileName);
}
else
{
pictureBox1.Image = null;
}
BOTÓN saveFileDialog
SaveFileDialog SaveFD1 = new SaveFileDialog();

SaveFD1.FileName = "";
SaveFD1.InitialDirectory = "C";
SaveFD1.Title = "Guardar un archive de imagen";
SaveFD1.Filter = "JPG imagen|*.jpg|Bitmap imagen|*.bmp|Gif imagen|*.gif*|Png Imagen|*.png";
if (SaveFD1.ShowDialog() != DialogResult.Cancel)
{
System.IO.Stream filename = (System.IO.FileStream)SaveFD1.OpenFile();
switch (SaveFD1.FilterIndex)
{
case 1:
pictureBox1.Image.Save (filename, System.Drawing.Imaging.ImageFormat.Jpeg);
break;
case 2:
pictureBox1.Image.Save(filename, System.Drawing.Imaging.ImageFormat.Bmp);
break;
case 3:
pictureBox1.Image.Save(filename, System.Drawing.Imaging.ImageFormat.Gif);
break;
case 4:
pictureBox1.Image.Save(filename, System.Drawing.Imaging.ImageFormat.Png);
break;
}
filename.Close();
}
Depuración.
Practica # 19 Ventana con contraseña

(label, textbox, Timer y Botones)

3.- Insertar dos Labels dos TextBox dos botones y un Timer.
4.- A los Labels en la propiedad Text escribir USUARIO y CONTRASEÑA.
5.- A los botones en la propiedad Text escribir ENTRAR y SALIR y en su propiedad Name escribir btnentrar y
btnsalir.
6.- Hacer doble clic en el formulario (Form1) y escribir:
timer1.Start();
7.- Hacer doble clic en el Timer y escribir:
MessageBox.Show("Se acabo tu tiempo");
Application.Exit();
8.- Añadir otro formulario al proyecto (Form2), menú Proyecto Agregar Windows Forms…
9.- En el segundo formulario agregar un botón (en la propiedad Text escribir REGRESAR).
10.- Escribir el siguiente código a los botones:
BOTÓN SALIR:
Application.Exit();
BOTÓN ENTRAR:
string usuario, contra;
usuario = txtusuario.Text.TrimEnd();
contra = txtcontra.Text.TrimEnd();
if (usuario=="informatica" && contra=="cecytes")
{
MessageBox.Show("Bienvenido al sistema");
timer1.Stop();
Form2 x = new Form2();
x.Show();
this.Hide();
}
else
{
MessageBox.Show("Acceso denegado");
txtusuario.Clear();
txtcontra.Clear();
}
BOTÓN REGRESAR del Form2:

Form1 x = new Form1();
x.Show();
this.Close();
Depuración.
Practica # 20 Total a pagar

(radiobotones, checkbox, Labels, ventana de mensaje y Botón)
3.- Insertar tres radiobotones y en la propiedad de Text escribir CORREO MEXPOST($50), PAQUETERIA
NORMAL($100) y PAQUETERÍA URGENTE ($150) (respectivamente radioButton1, radioButton2 y radioButton3).
4.- Insertar tres checkBox y en la propiedad de Text escribir POR EMAIL ($5), POR TELEFONO ($50) y POR FAX
($60) (respectivamente checkBox1, checkBox2 y checkBox3).
5.- Agregar dos Labels y en la propiedad Text escribir SELECCIONAR LA FORMA DE ENVIO y COMO DESEA SER
NOTIFICADO DEL ENVIO (label1 y label2).
6.- Agregar un botón y en la propiedad Text escribir CALCULAR GASTOS DE ENVIO.
7.- escribir el siguiente código al botón:
int total=0;
if (radioButton1.Checked == true)
{
total = total + 50;
}
{
total = total + 100;
}
{
total = total + 150;
}
if (checkBox1.Checked == true)
{
total = total + 5;
}
{
total = total + 50;
}
{
total = total + 60;
}
MessageBox.Show("El total de envio es "+total.ToString("c2"));
Nota: "c2" c significa currency(moneda) y 2 son los decimales
Depuración.
Practica # 21 Sumatoria
(listBox, checkbox, Labels, TextBox y Botón)

3.- Insertar un TextBox.
4.- Insertar dos Labels al label1 en su propiedad Text escribir CALCULAR LA SUMA DE 1 HASTA.
5.- Agregar un checkBox y en la propiedad de Text escribir VER RESULTADOS PARCIALES.
6.- Agregar un listBox.
7.- Agregar un botón y en la propiedad Text escribir CALCULAR.
8.- Escribir el siguiente código en el botón CALCULAR
try
{
long n, suma, x;
suma = 0;
listBox1.Items.Clear();
label2.Text = "";
n = long.Parse(this.textBox1.Text);
for (x = 1; x <= n; x++)
{
suma = suma + x;
{
listBox1.Items.Add("Sumando " + x + " suma parcial= " + suma);
}
}
listBox1.Items.Add("La suma total es = " + suma);
}
{
textBox1.Text = "";
}
Depuración.
Practica # 22 Factorial
(Label, TextBox y Botón)

3.- Insertar dos TextBox al formulario.
4.- Agregar un label y en la propiedad Text escribir: Escribe un número del 1 al 170.
5.- Agregar dos botones el botón 1 en su propiedad Text escribir CALCULAR FACTORIAL y en el botón 2
escribir en la propiedad Text Salir.
6.- Escribir código en el botón Salir:
DialogResult respuesta;
respuesta = MessageBox.Show("Desea usted salir?","Confirmar...",MessageBoxButtons.YesNo);
if(respuesta==DialogResult.Yes)
{
Application.Exit();
}
7.- Escribir código en el botón CALCULAR FACTORIAL:
try
{
double i, f, num;
num = double.Parse(this.textBox1.Text);
this.textBox1.Text = num.ToString();
if (num < 0)
{
this.textBox2.Text = "No se puede sacar factorial de un número negativo";
}
else
{
f = 1;
for (i = 1; i <= num; i++)
{
f = f * i;
}
this.textBox2.Text = f.ToString();
}
}
{
textBox1.Text = "";
this.textBox2.Text = caught.Message;
}
Depuración.
Depuración.
Practica # 23 goto Tabla multiplicar (ciclo if)

3.- Insertar dos TextBox al formulario, el segundo TextBox la propiedad Multilinea cambiar a True.
4.- Agregar un label y en la propiedad Text escribir: ESCRIBE UN NÚMERO ENTERO
5.- Agregar dos botones en la propiedad Text escribir CALCULAR TABLA y BORRAR.
6.- Escribir el siguiente código en los botones:
BOTÓN CALCULAR TABLA:
try
{
int i, r, n;
i = 1;
inicio:
if (i <= 10)
{
r = n * i;
i = i + 1;
goto inicio;
}
}
{
textBox2.Clear();
}
BOTÓN BORRAR:
this.label1.Text = "ESCRIBE UN NÚMERO ENTERO";
this.textBox1.Focus();
Depuración.
Practica # 24 Tabla multiplicar (ciclo while y do while)

3.- Insertar dos TextBox al formulario, el segundo TextBox la propiedad Multilinea cambiar a True.
4.- Agregar un label y en la propiedad Text escribir: ESCRIBE UN NÚMERO ENTERO
5.- Agregar dos botones en la propiedad Text escribir CALCULAR TABLA y BORRAR.
6.- Escribir el siguiente código en los botones:
BOTÓN CALCULAR TABLA while:
try
{
int i, r, n;
i = 1;
while (i <= 10)
{
r = n * i;
i = i + 1;
}
}
{
textBox2.Clear();
}
BOTÓN BORRAR:
this.label1.Text = "ESCRIBE UN NÚMERO ENTERO";
this.textBox1.Focus();
BOTÓN CALCULAR TABLA do while:

try
{
int i, r, n;
i = 1;
do
{
r = n * i;
i = i + 1;
} while (i <= 10);
}
{
textBox2.Clear();
}
Depuración.

Visual #2 (Ejercicios)

Cargado por

Copyright:

Formatos disponibles

Visual #2 (Ejercicios)

Cargado por

Información del documento

Título original

Derechos de autor

Formatos disponibles

Compartir este documento

Compartir o incrustar documentos

Opciones para compartir

¿Le pareció útil este documento?

¿Este contenido es inapropiado?

Copyright:

Formatos disponibles

Visual #2 (Ejercicios)

Cargado por

Copyright:

Formatos disponibles

CECYTES

CURSO Visual Basic .Net 2010

Esperanza, Son. 12 Octubre 2013

Código Botón Hacer clic aquí:

Código Botón BORRAR:

Practica # 2 Botones y un PictureBox

Código Botón MOSTRAR:

Código Botón OCULTAR:

Practica # 3 Colores, Botones y ovalshape

Código Botón COLOR ROJO:

Código Botón COLOR AZUL:

Código Botón COLOR AMARILLO:

ovalShape1.BackColor = Color.FromArgb(192, 192, 255)

Practica # 4 RadioBotones label

1.- Crear un proyecto Nuevo de Visual Basic  Aplicación de Windows Forms

Código radioBotón COLOR ROJO:

Código radioBotón COLOR VERDE:

Código radioBotón COLOR AZUL:

1.- Crear un proyecto Nuevo de Visual Basic  Aplicación de Windows Forms

Es el mismo código para los 3 hScrollBar

Practica # 6 Timer, label y Botones

1.- Crear un proyecto Nuevo de Visual Basic  Aplicación de Windows Forms

10.- Escribir el siguiente código en el Botón Regresar:

Practica # 7 Barra de Menús (menuStrip) y TextBox

1.- Crear un proyecto Nuevo de Visual Basic  Aplicación de Windows Forms

8.- Dentro del menú Color escribir Rosa, Naranja y Azul.

Practica # 8 Botones,labels y TextBox

Código botón SUMA:

A los de resta, multiplicación, división cambiar el operador

Practica # 9 vScrollBar, hScrollBar, labels y lineShape

1.- Crear un proyecto Nuevo de Visual Basic  Aplicación de Windows Forms

8.- Hacer doble clic en el control hScrollBar1 y escribir el siguiente código:

Practica # 10 MessagegBox e InputBox

1.- Crear un proyecto Nuevo de Visual Basic  Aplicación de Windows Forms

Código botón ENTRAR

Código botón SALIR

Código botón REGRESAR

Private Sub barrav_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs)

Private Sub barrah_Scroll(ByVal sender As System.Object, ByVal e As

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

1.- Crear un proyecto Nuevo de Visual Basic  Aplicación de Windows Forms

// MessageBox.Show("Escribir mensaje", "barra de titulo", MessageBoxButtons.BOTONES, MessageBoxIcon.ICONO);

7.- Escribir el siguiente código en el botón: Mostrar Mensaje 1

8.- Escribir el siguiente código en el botón: Mostrar Mensaje 1

Practica # 11 switch (listBox y comboBox)

1.- Crear un proyecto Nuevo de Visual Basic  Aplicación de Windows Forms

Practica # 12 switch (TextBox labels y Botón Excepciones de error)

1.- Crear un proyecto Nuevo de Visual Basic  Aplicación de Windows Forms

Practica # 13 TabControl y Splitter

14.- Seleccionar la Ficha CIRCULO (hacienda clic en la Ficha).

1.- Crear un proyecto Nuevo de Visual Basic  Aplicación de Windows Forms

Código Botón CALCULAR TABLA TEXTBOX:

Código Botón BORRAR:

Practica # 15 Ciclo SWITCH

1.- Crear un proyecto Nuevo de Visual Basic  Aplicación de Windows Forms

Practica # 16 Web Browser

6.- Escribir el siguiente código en los botones haciendo doble clic:

Código Botón ATRAS:

Código Botón INICIO:

openFileDialog1.Filter = "Todos los archivos (.)|.|" + "Archivos gráficos|.bmp;.gif;.jpg;.png";