Practica 23

Jóvenes, les dejo el código para la realización de la práctica 23, su labor será:

• Identificar funcionalidad del código, es decir, investigar, discutir y analizar cada línea de código y explicar que función tiene.
• Identificar la asignación de nombres de objetos, para asignación de código.
• Recuerden que las prácticas 20, 22 y 23 (hasta el momento) deberán ser entregadas impresas tanto en código como en ejecución.

Public Class Form1

Private Structure Articulo

Dim nombre As String
Dim precio As Double

End Structure

Dim a(4) As Articulo, plazo As Integer
Const interes = 0.12

   
Private Sub cuoto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cuoto.Click

Dim Total As Double, CuotaMensual As Double, i As Integer
i = Arti.SelectedIndex 'Indice del elemento seleccionado
Total = a(i).precio * (1 + interes)
  If opt6.Checked Then

plazo = 6
Else

If opt12.Checked Then

plazo = 12
 Else

If opt24.Checked Then

plazo = 24
end If

CuotaMensual = Total / plazo
MessageBox.Show("Cuota mensual: " & CuotaMensual.ToString("$ #,##0.00"))

End Sub

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

a(0).nombre = "Monitor SAMSUNG Syncmaster 3"

a(1).nombre = "Impresora Hewlet Packard Deskjet 930C"

a(2).nombre = "Impresora Epson Stylus Color 740"

a(3).nombre = "Microprocesador Pentium I 233 MHz"


a(0).precio = 150 : a(1).precio = 275 : a(2).precio = 145 : a(3).precio = 80
'Cargar los datos del array en el combobox
Dim i As Integer

For i = 1 To 4
Arti.Items.Add(a(i - 1).nombre)
next

'Inicializamos Intere y plazo

inte.Text = CStr(interes) : plazo = 6

End Sub

Private Sub Arti_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Arti.SelectedIndexChanged

Dim i As Integer

i = Arti.SelectedIndex 'Indice del elemento seleccionado

Prec.Text = CStr(a(i).precio) 'Escribe el precio del elemento seleccionado

End Sub

Private Sub total_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles total.Click

Dim Total As Double, i As Integer

i = Arti.SelectedIndex 'Indice del elemento seleccionado



Total = a(i).precio * (1 + interes)
  MessageBox.Show("Total: " & Total.ToString("$ #,##0.00"))

End Sub

End Class

Video para reflexionar

Jóvenes vean con calma este video, reflexiónenlo y opinen; cada día es una oportunidad nueva de hacer algo extraordinario, desde las cosas mas pequeñas que hacen que este mundo sea un lugar un poco mas soportable para vivir.

 

 

Practica 2 Manejo de menus

Objetivo: Se analiza y práctica el manejo de menús con la opción Toolstrip.

Problema a desarrollar: Se creara un procesador de texto básico similar a el bloc de notas, en donde pueda guardar, abrir o crear un nuevo documento, cambiar fuente, color y algunas cuestiones preliminares en el uso de dichos software de  aplicación.

Desarrollo.

Para la realización de esta actividad y segunda de nuestro ultimo resultado de aprendizaje se hace necesario la carga de una nueva aplicación con un formulario en limpio.

Hecho esto ubique de la paleta de cuadro de herramientas el control Toolstrip

Arrastre el objeto y ubíquelo en la parte superior de su formulario, moderando la altura y ubicándolo por todo el ancho.

Ubicar el objeto RichTextBox y acóplelo al contenedor primario (cambie su nombre a document).

A continuación ya con los dos objetos dentro del contenedor principal, deberá dirigirse al objeto Toolstrip, ubicar el botón de anexo, desplegar su cabeza de flecha y seleccionar la opción Dropdownbutton, hacerlo así por dos veces más (deberán quedar tres dropdownbutton)

 

 

Hecho lo anterior de clic derecho por cada una de estas opciones y seleccione la opción DisplayStyle del nuevo menú seleccione Text, vaya a sus propiedades seleccione la propiedad text y cámbiela a &Abrir, &Editar y &Formato.

Agregue para cada menú los siguientes submenús:

• Abrir opciones Nuevo (ctrl-N), Abrir (ctrl-A), Guardar como (ctrl-G) y Salir.
• Editar opciones Atrás, Adelante, (línea divisora), Copiar, Cortar, Pegar, (línea divisora), seleccionar todo y Limpiar texto.
• Formato opciones Fuente y color.

Para acceder a los códigos se realiza de la misma forma que cualquier otro objeto, es decir dando doble clic a este.

Los códigos son los siguientes:

Opción Nuevo

document.clear() 
Opción Abrir
 
Dim open As New OpenFileDialog
Dim mystreamreader As System.IO.StreamReader
open.Filter = "text [*.txt*]|*.txt|all files [*.*]|*.*"
open.CheckFileExists = True
open.Title = "Abrir archivo"
open.ShowDialog(Me)
Try
open.OpenFile()
mystreamreader = System.IO.File.OpenText(open.FileName)
document.Text = mystreamreader.ReadToEnd()
Catch ex As Exception
End Try

Opción Guardar

Dim save As New SaveFileDialog

Dim mystreamwriter As System.IO.StreamWriter
save.Filter = "text [*.txt*]|*.txt|HTML [*.html]|PHP [*.php]|all files [*.*]|*.*"
save.CheckPathExists = True
save.Title = "Guardar como:"
save.ShowDialog(Me)
Try
mystreamwriter = System.IO.File.AppendText(save.FileName)
mystreamwriter.Write(document.Text)
mystreamwriter.Flush()
Catch ex As Exception
End Try

Opción Salir

Mismo código que se ha manejado.

Opción Atrás

 document.undo()

Opción adelante.

document.Redo()

Opción Copiar

document.copy()

Opción Pegar

document.Paste()

Opción Cortar

document.cut()

Opción Seleccionar todo

document.SelectAll

Opción Limpiar

document.Clear()

Opción Fuente

Try
Dim dig As FontDialog = New FontDialog
dig.Font = document.Font
If dig.ShowDialog = System.Windows.Forms.DialogResult.OK Then
   document.Font = dig.Font
End If
Catch ex As Exception
End Try

Opción Color

Try
Dim dig As ColorDialog = New ColorDialog
dig.Color = document.ForeColor
If dig.ShowDialog = System.Windows.Forms.DialogResult.OK Then
    document.ForeColor = dig.Color
End If
Catch ex As Exception
End Try

NOTA: Este trabajo deberá ser entregado para el ultimo día de clases de la semana comprendida del 04 al 08 de Noviembre del 2013.

Manejo de menus en VB 2010

En esta ocasión, empezaremos a trabajar interfaz de usuario para nuestros programas apoyándonos de un elemento que es común en todas la aplicaciones gráficas o que se basen en ventanas y el cual esta plenamente identificado por nosotros "EL MENU DE OPCIONES".

 

Visual Basic 2010 igual que sus antecesores proporciona las herramientas necesarias para la creación, manipulación, diseño y programación de opciones de menú desplegable.

 

Los menús exponen la funcionalidad a sus usuarios presionando comandos agrupados por un tema común.

                   

El control MenuStrip es nuevo en esta versión de Visual Studio y .NET Framework. Con el control puede crear fácilmente menús como los de Microsoft Office.

 

El control MenuStrip admite la interfaz de múltiples documentos (MDI) y combinación de menús, la información sobre herramientas y el desbordamiento. Puede mejorar la utilidad y legibilidad de sus menús agregando teclas de acceso, teclas de método abreviado, marcas de verificación, imágenes y barras separadoras.

 

Aunque el control MenuStrip reemplaza y agrega la funcionalidad al control MainMenu, éste se conserva a efectos de compatibilidad con versiones anteriores y uso futuro, si se desea. 

 

Utilice el control MenuStrip para:

• Crear fácilmente menús personalizados y comúnmente empleados compatibles con la interfaz de usuario avanzada y con las características de diseño, como la alineación y orden de texto e imágenes, operaciones de arrastrar y colocar, MDI, desbordamiento y modos alternativos de acceso a comandos de menú.                               
• Compatibilidad con el comportamiento y aspecto típico del sistema operativo.
• Controlar de forma coherente los eventos para todos los contenedores y los elementos contenidos, al igual que controla los eventos para otros controles.                          

 

Propiedad.	Descripción
MdiWindowListItem	Obtiene o establece el ToolStripMenuItem utilizado para mostrar una lista de formularios MDI secundarios.
ToolStripItem.MergeAction	Obtiene o establece cómo se combinan los menús secundarios con menús primarios en aplicaciones MDI.
ToolStripItem.MergeIndex	Obtiene o establece la posición de un elemento combinado dentro de un menú en aplicaciones MDI.
Form.IsMdiContainer	Obtiene o establece un valor que indica si el formulario es un contenedor para los formularios MDI secundarios.
ShowItemToolTips	Obtiene o establece un valor que indica si la información sobre herramientas se muestra para MenuStrip.
CanOverflow	Obtiene o establece un valor que indica si MenuStrip admite la funcionalidad del desbordamiento.
ShortcutKeys	Obtiene o establece las teclas de método abreviado asociadas a ToolStripMenuItem.
ShowShortcutKeys	Obtiene o establece un valor que indica si las teclas de método abreviado asociadas a ToolStripMenuItem se muestran al lado de ToolStripMenuItem.

 

A continuación veremos la parte un tutorial de como de maneja este control y un ejemplo el cual deberá ser realizado por cada uno de ustedes.

 

Puede proporcionar un menú estándar a los formularios con el control MenuStrip.

Este tutorial muestra cómo utilizar un control MenuStrip para crear un menú estándar. El formulario también responde cuando un usuario selecciona un elemento de menú. En este tutorial se muestran las tareas siguientes:

• Crear un proyecto de formularios Windows Forms.
• Crear un menú estándar.                                         
• Controlar la selección de elementos de menú.

Cuando termine, tendrá un formulario con un menú estándar que muestra las selecciones de elementos de menú en un control StatusStrip.

      

El primer paso es crear el proyecto y configurar el formulario.

Para crear el proyecto

1. Cree un proyecto de aplicación para Windows denominado StandardMenuForm.
   Para obtener más información.                
2. En el Diseñador de Windows Forms, seleccione el formulario.

           

El Diseñador de Windows Forms puede rellenar automáticamente un control MenuStrip con elementos de menú estándar.

Para crear un menú estándar

1. En el Cuadro de herramientas, arrastre un control MenuStrip hasta el formulario.
2. Haga clic en el glifo () de etiqueta inteligente del control MenuStrip y seleccione Insertar elementos estándar.
   Se rellenará el control MenuStrip con los elementos de menú estándar.
3. Haga clic en el elemento de menú Archivo para ver sus elementos de menú predeterminados y los iconos correspondientes.

 

EJERCICIO PARA ENTREGAR

 

Instrucciones: Este primer ejercicio corresponde al cuarto y ultimo resultado de aprendizaje, el cual deberá ser entregada de la siguiente forma:

 

1. En folder color verde, sin rallones, tachaduras y enmendaduras.

2. Entregar impresa esta teoría.

3. Código y corrida de este primer ejemplo.

4. Archivo ejecutable de esta aplicación.

 

DESARROLLO

 
1. Empiece una aplicación de visual basic de la forma conocida.
2. En el cuadro de herramientas ubique el objeto MenuStrip
 

 
 
3. Ubíquelo al inicio de su aplicación como se muestra en la siguiente figura.
 

 
 

4. De clic en la opción Escriba Aquí y escriba la palabra &Archivo y justamente abajo Cerrar

 

 
 

5. Continúe hasta lograr lo siguiente.

 

 
 

6. Pata poder asignar un acceso directo a la opción deberá seleccionar la propiedad

ShortcutkeydisplayString y asignar la que mejor le convenga.

7. Deberá quedar como sigue:

 
8. Para ingresar el código, seleccione la opción en que desea iniciar la programación y de doble clic para su ingreso.
 
9. Genere una interfaz como se muestra a continuación.
 

 

Objetos a usar:

4 etiquetas.

2 cajas de texto.

1 botón.

 

10. El código para la opción "Cerrar" será el siguiente.

Dim a As String

a = MsgBox("Desea salir del programa", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Salir")If a = vbYes Then

End

End If

 

11. Agregue una variable global llamada resp de tipo string
 
Public Class Form1
Dim resp As String
 
12. El código para la opción del cálculo del área del cuadrado es el siguiente.
 
Label2.Visible = False
Label4.Visible = False
TextBox2.Visible = False
Label1.Visible = True
Label1.Text = "Deme el valor del lado"
TextBox1.Visible = True
Label3.Visible = True
Label3.Text = "El area del cuadrado es: "
resp = "cuadro"
 
13. El código para la opción del cálculo del área del rectángulo es el siguiente.
 
Label1.Visible = True
Label1.Text = "Deme el valor de la altura"
Label2.Visible = True
Label2.Text = "Deme el valor de la base"
TextBox1.Visible = True
TextBox2.Visible = True
Label3.Visible = True
Label3.Text = "El area del rectangulo es: "
resp = "rectángulo"
 
14. El código para el botón calcular es el siguiente.
 
If resp = "cuadro" Then
Dim a, b, c As Integer
a = Val(TextBox1.Text)
b = a * a
Label4.Visible = True
Label4.Text = bElse
If resp = "rectangulo" Then
Dim a, b As Integer
a = Val(TextBox1.Text)
b=Val(Textbox2.text)
c = a * b
Label4.Visible = True
Label4.Text = b
End If
End If
 
 15. Termine su programa agregando los cálculos para el triangulo y el circulo, así como para el calculo del perímetro.