Segunda Entrega
Segunda Entrega
Segunda Entrega
Net 2003
Aplicacin N 22
Esta aplicacin nos mostrara el funcionamiento del control Timer con el control PictureBox, haremos un pequeo protector de pantalla, que cambia imgenes y al dar clic en el formulario o la imagen, este terminara la ejecucin. Antes que todo, necesitan tener imgenes del mismo tamao, voy a ver si puedo cargar las imgenes con este manual, para que as lo puedan ejecutar.
Paso N 1: Disear el formulario, ingresar un PictureBox y un Timer, a comparacin del control Timer en la versin anterior, este Timer de esta versin se visualizara en la parte inferior (fuera del formulario), igual que otros controles que ya veremos en adelante.
Control
Name
PictureBox1 Timer1
imgimagen tmrpresentacion
Antes que todo, cambiaremos algunas cosas en propiedades del control Timer.
Por Default el control Timer, tiene la propiedad Enabled en False, as que cambiaremos esa propiedad a Trae, y en la propiedad Interval, pondremos a 5000.
Y en el control PictureBox nos ubicaremos en la propiedad de Imagen, para ubicar una imagen que se va a presentar al comienzo.
Me.Close()
Me.Close()
Static Imagen As Integer Dim Direccion As String Dim X, Y As Integer Direccion = "C:\Imagenes\WINNIE" Randomize() Imagen = CInt((6 - 1 + 1) * Rnd() + 1) X = CInt((656 - 0 + 1) * Rnd() + 1) Y = CInt((392 - 0 + 1) * Rnd() + 1) imgimagen.Location = New Point(X, Y) If Imagen > 6 Or Imagen < 1 Then Imagen = 1 Direccion = Direccion + Microsoft.VisualBasic.Right(Imagen, 2) + ".jpg" imgimagen.Image = Image.FromFile(Direccion)
Como se habrn dado cuenta, en este control han cambiado algunas cosas, como es la ubicacin del control, ya que para ubicar el control en el formulario. Por ejemplo, para ubicar el control PictureBox en el formulario.
Antes en la versin anterior tenamos que darle el punto por separado ahora no, solo nos basta darle la ubicacin del control en la propiedad Location y de ah decirle al que hay un nuevo punto, pero en ingles New Point, fcil no?, ahora veremos como antes le asignbamos una imagen en tiempo de ejecucin al control PictureBox en la versin antigua y en la moderna.
Picture1.Picture = "C:\Imagenes\WINNIE"
imgimagen.Image = Image.FromFile(C:\Imagenes\WINNIE)
Ahora para asignarle la direccin de la imagen que vamos a insertar tendremos que poner Image y seguido lo que es FromFlie, que en espaol es procedencia del archivo, se que es un poco mas tedioso que en la versin antigua, pero tiene mas lgica, ahora veremos el siguiente ejemplo.
Aplicacin N 23
Esta aplicacin nos hallar el subtotal, IGV y el total de la venta del producto, tambin aprenderemos a mostrar la fecha y la hora del sistema, con el control Timer.
Paso N 1: Disear el formulario, ingresar un PictureBox y un Timer. Paso N 2: Asignar los nombres a los controles.
Control
Name
Label2 Label4 Label9 Label11 Label13 TextBox1 TextBox2 TextBox3 Button1 Button2 Button3
lblfecha lblhora lblsubtotal lbligv lbltotal txtnomprod txtprecuni txtcant btnnuevo btnresultados btnsalir
Paso N 3: Codificar.
txtnomprod.Text = "" txtprecuni.Text = "" txtcant.Text = "" lblsubtotal.Text = "" lbligv.Text = "" lbltotal.Text = "" txtnomprod.Focus()
Dim ST, IGV, TP As Single ST = Val(txtprecuni.Text) * Val(txtcant.Text) IGV = ST * 19 / 100 TP = ST + IGV lblsubtotal.Text = Format(ST, "###,##0.00") lbligv.Text = Format(IGV, "###,##0.00") lbltotal.Text = Format(TP, "###,##0.00")
Aplicacin N 24
En esta aplicacin utilizaremos tres controles avanzados, el primero que es el ProgressBar, TrackBar, NotifyIcon y NumericUpDonw.
Paso N 1: Disear el formulario, ingresar un ProgressBar, TrackBar, NumericUpDonw y un NotifyIcon. Paso N 2: Asignar los nombres a los controles.
Control
Name
Paso N 3: Codificar.
lblavanze.Text = tkbavance.Value
Dim I As Integer Dim J, K As Single For I = 0 To 100 lblprogreso.Text = Str(I) & " %" pgbprogreso.Value = I For J = 0 To 10000 For K = 0 To 500 Next Next Next
El control NotifyIcon, su funcionalidad es de poner un icono en la barra de tareas programadas, este a la hora de agregarlo se visualiza en la parte inferior de la ventana de diseo, como el control Timer.
Aplicacin N 25
En esta aplicacin utilizaremos el control ImageList, y visualizaremos las imgenes que almacenaremos all.
Paso N 1: Disear el formulario, ingresar un ImageList, PictureBox. Paso N 2: Esta vez no asignaremos nombre alguno a los controles, solo a los controles Buttons, que van a ser lo siguientes
Control
Name
Button1 Button2
btnmostrar btnsalir
Paso N 3: Codificar.
Me.Close()
Control ImageList: Este control, en realidad no ha cambiado mucho, en lo que es su utilizacin, solo ha cambiado en el cuadro de dialogo de insertar imagen, para insertar imgenes en el control tendremos que ir a la opcin de Images del cuadro de propiedades, y daremos clic en el botn de tres puntos.
Para agregar cual icono o imagen daremos clic en el botn de agregar y de ah seleccionaremos la imagen que queramos almacenar, como se han dado cuenta la primera imagen que se almacena toma el nombre de Index 0, y as sucesivamente.
Aplicacin N 26
Paso N 1: Disear el formulario, ingresar un StatusBar, PictureBox y Timer. Paso N 2: Asignar nombres a los controles.
Control
Name
Paso N 3: Codificar.
Control StatusBar: Para insertar paneles en el control StatusBar, tendremos que ir a la ventana de propiedades a la opcin Panels, y darle clic, pero antes tendremos que cambiar la propiedad ShowPanels de False a True, para que as ustedes puedan visualizar los paneles que ingresan, igual que suceda con el control Timer, tenamos que poner la propiedad Enabled de False a True.
Para agregar un Panel tendremos que darle clic en Agregar y luego seleccionar el icono que queramos que se presente ya sea con el texto que le pongamos en la Propiedad Text, y la propiedad Width sirve para cambiar el tamao del panel.
Aplicacin N 27
En esta aplicacin aprenderemos a utilizar dos tipos de controles de fecha como lo es el MonthCalendar y el DateTimePicker, los dos nos permiten ingresar la fecha que queramos, y mostraremos la fecha ingresada en etiquetas, ya sea el nmero de da, mes, ao, nombre del da y del mes. Sus propiedades siguen siendo iguales no se preocupen.
Paso N 1: Disear el formulario, ingresar un GroupBox, MonthCalendar y un DateTimePicker. Paso N 2: Asignar los nombres a los controles, solo le asignaremos a los controles Button y Label, y los otros no.
Control
Name
Label2 Label4 Label6 Label8 Label10 Label12 Label14 Label16 Label18 Label20 Button1 Button2
lbldia lblmes lblanio lblnombdia lblnombmes lbldia1 lblmes2 lblanio1 lblnombdia1 lblnombmes1 btnverDC btnverDTP
Paso N 3: Codificar.
Funcin NombreMes
Function NombreMes(ByVal Mes As Integer) Select Case Mes Case 1 : NombreMes = "Enero" Case 2 : NombreMes = "Febrero" Case 3 : NombreMes = "Marzo" Case 4 : NombreMes = "Abril" Case 5 : NombreMes = "Mayo" Case 6 : NombreMes = "Junio" Case 7 : NombreMes = "Julio" Case 8 : NombreMes = "Agosto" Case 9 : NombreMes = "Septiembre" Case 10 : NombreMes = "Octubre" Case 11 : NombreMes = "Noviembre" Case 12 : NombreMes = "Diciembre" End Select End Function
Funcin NombreMes
Function NombreDia(ByVal Dia As Integer) Select Case Dia Case 1 : NombreDia = "Domingo" Case 2 : NombreDia = "Lunes" Case 3 : NombreDia = "Martes" Case 4 : NombreDia = "Miercoles" Case 5 : NombreDia = "Jueves" Case 6 : NombreDia = "Viernes" Case 7 : NombreDia = "Sbado" End Select End Function
NumMes = Microsoft.VisualBasic.Month(MonthCalendar1.SelectionEnd) NumDia = Microsoft.VisualBasic.Weekday(MonthCalendar1.SelectionEnd) lbldia.Text = Microsoft.VisualBasic.Day(MonthCalendar1.SelectionEnd) lblmes.Text = NumMes.ToString lblanio.Text = Microsoft.VisualBasic.Year(MonthCalendar1.SelectionEnd) lblnombmes.Text = NombreMes(NumMes) lblnombdia.Text = NombreDia(NumDia)
NumMes = Microsoft.VisualBasic.Month(DateTimePicker1.Value) NumDia = Microsoft.VisualBasic.Weekday(DateTimePicker1.Value) lbldia1.Text = Microsoft.VisualBasic.Day(DateTimePicker1.Value) lblmes1.Text = NumMes.ToString lblanio1.Text = Microsoft.VisualBasic.Year(DateTimePicker1.Value) lblnombmes1.Text = NombreMes(NumMes) lblnombdia1.Text = NombreDia(NumDia)
Aplicacin N 28
Paso N 1: Disear el formulario, ingresar un ComboBox. Paso N 2: Asignar los nombres a los controles.
Control
Name
Paso N 3: Codificar.
Me.Close()
Control ComboBox: Que hay de nuevo en este control?, bueno la verdad que nada, hasta su propio codigo no ha cambiado mucho si se han dado cuenta, solo que ahora para poder poder tems al control tendremos que hacer clic en tems en la ventana de propiedades, y luego escribir el item que se mostrara (una linea por cada Item).
Editor de tems.
Aplicacin N 29
Este Formulario nos permite ingresar un nombre de un trabajador y al seleccionar el tipo de pago del trabajador, automticamente nos hallara el pago por hora, y tendremos que ingresar las horas trabajadas.
Tipo de Empleo
Sueldo
Paso N 1: Disear el formulario, ingresar un ComboBox. Paso N 2: Asignar los nombres a los controles.
Control
Name
Paso N 3: Codificar.
Me.Close()
If Trim(txtnombre.Text) = "" Then btnnuevo.Enabled = False imgimagen.Visible = False Else btnnuevo.Enabled = True imgimagen.Visible = True End If
Index = cbotipo.SelectedIndex Select Case Index Case 0 lblpagoxhora.Text = "15.00" Case 1 lblpagoxhora.Text = "10.00" Case 2 lblpagoxhora.Text = "5.00" End Select If Trim(txthorastrab.Text) = "" Then txthorastrab.Focus() Else lbltotal.Text = Format(Val(lblpagoxhora.Text) * Val(txthorastrab.Text), "###,##0.00") End If
If Trim(txthorastrab.Text) = "" Or Val(txthorastrab.Text) = 0 Then btnnuevo.Enabled = False Else btnnuevo.Enabled = True lbltotal.Text = Format(Val(lblpagoxhora.Text) * Val(txthorastrab.Text), "###,##0.00") End If
txtnombre.Text = "" cbotipo.SelectedIndex = 0 lblpagoxhora.Text = "" txthorastrab.Text = "" lbltotal.Text = "" imgimagen.Visible = False txtnombre.Focus()
Solo hay una cosa que recalcar o mejor dicho aclara, ahora para insertar un nuevo elemento o eliminar, se har mediante el miembro de Item, por ejemplo:
Combo1.AddItem Texto
ComboBox1.Items.Add(Texto)
Como se han dado cuenta, no ha cambiado casi nada, as que no van a tener problemas con este control.
Aplicacin N 30
Este Formulario nos permite seleccionar la operacin aritmtica que el usuarioa desee, tomando el valor de los controles NumericUpDonw y nos mostrara el resultado de las operaciones en un ListBox.
Paso N 1: Disear el formulario, ingresar un CheckedListBox, un ListBox y dos NumericUpDonw. Paso N 2: Asignar los nombres a los controles.
Control
Name
Paso N 3: Codificar.
Dim IndexChecked, Index As Integer Dim A, B As Single A = nudVA.Value B = nudVB.Value ListBox1.Items.Clear() For Each IndexChecked In CheckedListBox1.CheckedIndices Index = IndexChecked Select Case Index Case 0 : ListBox1.Items.Add("Suma = " & (A + B).ToString) Case 1 : ListBox1.Items.Add("Resta = " & (A - B).ToString) Case 2 : ListBox1.Items.Add("Multiplicacin = " & (A * B).ToString) Case 3 If B = 0 Then ListBox1.Items.Add("Error: Divisin entre 0") Else ListBox1.Items.Add("Divisin = " & (A / B).ToString) End If End Select Next
Control CheckedListBox: Este control nos permite tener varias opciones a elegir, en una sola caja parecida al ListBox, para poder editar este control y poner que opciones va a tener, tendremos que darle clic en la opcion tems de la ventana de propiedades del control.
Ventana de Propiedades
Aplicacin N 31
Este Formulario nos permite seleccionar un curso y automticamente pondr los programas que se lleva en este, en un ComboBox.
Paso N 1: Disear el formulario, ingresar dos ComboBox. Paso N 2: Asignar los nombres a los controles.
Control
Name
Paso N 3: Codificar.
Me.Close()
Nuevo()
Index = cbotipodecurso.SelectedIndex Select Case Index Case 0 cbonombdecurso.Items.Clear() cbonombdecurso.Items.Add("Windows Vista") cbonombdecurso.Items.Add("Word") cbonombdecurso.Items.Add("Excel") cbonombdecurso.Items.Add("Point") cbonombdecurso.SelectedIndex = 0 Case 1 cbonombdecurso.Items.Clear() cbonombdecurso.Items.Add("Foxpro") cbonombdecurso.Items.Add("Visual Basic") cbonombdecurso.Items.Add("Visual Foxpro") cbonombdecurso.Items.Add("Power Builder") cbonombdecurso.SelectedIndex = 0 Case 2 cbonombdecurso.Items.Clear() cbonombdecurso.Items.Add("Internet") cbonombdecurso.Items.Add("Correo Electrnico") cbonombdecurso.Items.Add("Ingles Tcnico") cbonombdecurso.SelectedIndex = 0 End Select
Funcin Nuevo
Function Nuevo() cbotipodecurso.Items.Clear() cbonombdecurso.Items.Clear() cbotipodecurso.Items.Add("Aplicativos") cbotipodecurso.Items.Add("Programacin") cbotipodecurso.Items.Add("Otros") cbonombdecurso.Items.Add("Windows Vista") cbonombdecurso.Items.Add("Word") cbonombdecurso.Items.Add("Excel") cbonombdecurso.Items.Add("Point") cbotipodecurso.SelectedIndex = 0 cbonombdecurso.SelectedIndex = 0 End Function
Control ComboBox: Este control nos permite mostrar una serie de lista de elementos para escoger, igual que el control Combo en Visual Basic 6.0. Para insertar los elementos tendremos que dar clic en la opcin tems de la ventana de propiedades, igual que muchos elementos que veremos en adelante y hemos visto.
Ventana de Propiedades
Aplicacin N 32
Este Formulario nos permite realizar una pro forma de compra de una computadora, mostrndonos el precio de la computadora, impresora, el subtotal, IGV y el total a pagar.
Paso N 1: Disear el formulario, ingresar dos ComboBox. Paso N 2: Asignar los nombres a los controles.
Control
Name
TextBox1 TextBox2 Label2 Label7 Label8 Label9 Label10 Label11 ComboBox1 ComboBox2 Button1 Button2 Button3
txtcliente txtdireccion lblfecha lblpreccomp lblprecimp lblsubtotal lbligv lbltotal cbocomputadoras cboimpresoras btncalcular btnotra btnsalir
Paso N 3: Codificar.
Me.Close()
cbocomputadoras.Items.Clear() cboimpresoras.Items.Clear() cbocomputadoras.Items.Add("IBM") cbocomputadoras.Items.Add("Packer Bell") cbocomputadoras.Items.Add("Acer") cboimpresoras.Items.Add("Epson LX-300") cboimpresoras.Items.Add("Deskject 400") cboimpresoras.Items.Add("IBM graphics") cbocomputadoras.SelectedIndex = 0 cboimpresoras.SelectedIndex = 0 lblfecha.Text = "Fecha " & Format(Now, "dd/MM/yyyy") Borrar()
Index = cbocomputadoras.SelectedIndex Select Case Index Case 0 lblpreccomp.Text = "850.00" Case 1 lblpreccomp.Text = "700.00" Case 2 lblpreccomp.Text = "600.00" End Select
Index = cboimpresoras.SelectedIndex Select Case Index Case 0 lblprecimp.Text = "180.00" Case 1 lblprecimp.Text = "270.00" Case 2 lblprecimp.Text = "380.00" End Select
Dim ST, IGV, TT As Single ST = Val(lblpreccomp.Text) + Val(lblprecimp.Text) IGV = ST * 19 / 100 TT = ST + IGV lblsubtotal.Text = "Sub Total " & Format$(ST, "###,##0.00") lbligv.Text = "I.G.V. " & Format$(IGV, "###,##0.00") lbltotal.Text = "Total " & Format$(TT, "###,##0.00")
Borrar()
Funcin Borrar
Function Borrar() txtcliente.Text = "" txtdireccion.Text = "" lblpreccomp.Text = "" lblprecimp.Text = "" lblsubtotal.Text = "" lbligv.Text = "" lbltotal.Text = "" cbocomputadoras.SelectedIndex = 0 cboimpresoras.SelectedIndex = 0 txtcliente.Focus() End Function
Aplicacin N 33
Este Formulario no deber de solicitar diferente tipo de dato, dependiendo del estado civil de la persona.
Control
Name
TextBox1 TextBox2 TextBox3 Label3 Label4 Label5 RadioButton1 RadioButton2 Button1 Button2
txtnombre txttiempest txtnumest lblsueldo lblestado lbltiempoest rdbsoltero rdbcasado btnnuevo btnsalir
Paso N 3: Codificar.
Me.Close()
Iniciar()
Iniciar()
Funcin Iniciar
Function Iniciar() txtnombre.Text = "" txttiempest.Text = "" txtnumest.Text = "" rdbsoltero.Checked = True lblestado.Text = "N de Hermanos" lblsueldo.Text = "200.00" lbltiempoest.Text = "Edad" txtnombre.Focus() End Function
Aplicacin N 34
Paso N 1: Disear el formulario, ingresar un PictureBox. Paso N 2: Asignar los nombres a los controles.
Control
Name
Paso N 3: Codificar.
Me.Close()
Dim J, k As Integer Static X1, X2, Y As Integer If X1 > 180 Xor X2 < 440 Xor Y > 212 Then X1 = 12 X2 = 608 Y = 44 End If X1 = X1 + 4 X2 = X2 - 4 Y=Y+4 lblcurso.Location = New Point(X1, Y) lblnombre.Location = New Point(X2, Y)
Aplicacin N 35
Este pequeo programa nos enseara a como utilizar los colores y el tipo de presentacin de un label.
Paso N 1: Disear el formulario, ingresar un ComboBox. Paso N 2: Asignar los nombres a los controles.
Control
Name
Paso N 3: Codificar.
Me.Close()
Funcion Fuente
Function Fuente() If chknegrita.Checked = True AndAlso chksubrayado.Checked = True AndAlso chkcursiva.Checked = True Then lbltexto.Font = New Font(lbltexto.Font, FontStyle.Bold + FontStyle.Italic + FontStyle.Underline) ElseIf chknegrita.Checked = True AndAlso chksubrayado.Checked = True Then lbltexto.Font = New Font(lbltexto.Font, FontStyle.Bold + FontStyle.Underline) ElseIf chknegrita.Checked = True AndAlso chkcursiva.Checked = True Then lbltexto.Font = New Font(lbltexto.Font, FontStyle.Bold + FontStyle.Italic) ElseIf chknegrita.Checked = False AndAlso chksubrayado.Checked = True AndAlso chkcursiva.Checked = True Then lbltexto.Font = New Font(lbltexto.Font, FontStyle.Underline + FontStyle.Italic) ElseIf chknegrita.Checked = False AndAlso chksubrayado.Checked = True Then lbltexto.Font = New Font(lbltexto.Font, FontStyle.Underline) ElseIf chknegrita.Checked = False AndAlso chkcursiva.Checked = True Then lbltexto.Font = New Font(lbltexto.Font, FontStyle.Italic) ElseIf chknegrita.Checked = True Then lbltexto.Font = New Font(lbltexto.Font, FontStyle.Bold) Else lbltexto.Font = New Font(lbltexto.Font, FontStyle.Regular) End If End Function
Fuente()
Fuente()
Fuente()
Dim Index As Integer Index = cbocolor.SelectedIndex Select Case Index Case 0 : lbltexto.ForeColor = Case 1 : lbltexto.ForeColor = Case 2 : lbltexto.ForeColor = Case 3 : lbltexto.ForeColor = Case 4 : lbltexto.ForeColor = Case 5 : lbltexto.ForeColor = Case 6 : lbltexto.ForeColor = Case 7 : lbltexto.ForeColor = End Select
Aplicacin N 36
Este programa nos permitir seleccionar un destino e inmediatamente nos mostrara el precio del pasaje y si activamos el descuento, nos aparecer automticamente el descuento respectivo y el total.
Paso N 1: Disear el formulario, ingrear un ListBox. Paso N 2: Asignar los nombres a los controles.
Control
Name
Paso N 3: Codificar.
Me.Close()
Dim Index As Integer Index = lstdestino.SelectedIndex Select Case Index Case 0 : lblprecio.Text = "60.00" Case 1 : lblprecio.Text = "50.00" Case 2 : lblprecio.Text = "30.00" Case 3 : lblprecio.Text = "30.00" Case 4 : lblprecio.Text = "50.00" End Select If chkdescuento.Checked = True Then lbldescuento.Text = Format(Val(lblprecio.Text) * 10 / 100, "###,##0.00") lbltotal.Text = Format(Val(lblprecio.Text) - Val(lbldescuento.Text), "###,##0.00") Else lbldescuento.Text = "0.00" lbltotal.Text = lblprecio.Text End If
If chkdescuento.Checked = True Then lbldescuento.Text = Format(Val(lblprecio.Text) * 10 / 100, "###,##0.00") lbltotal.Text = Format(Val(lblprecio.Text) - Val(lbldescuento.Text), "###,##0.00") Else lbldescuento.Text = "0.00" lbltotal.Text = lblprecio.Text End If
Limpiar()
Funcion Limpiar
Function Limpiar() txtpasajero.Text = "" txtdni.Text = "" lblprecio.Text = "" lbldescuento.Text = "" lbltotal.Text = "" chkdescuento.Checked = False lstdestino.SelectedIndex = 0 txtpasajero.Focus() End Function
Control TabControl: Este control, como en el Visual Basic 6.0 nos permite colocar controles en cada pagina que creamos, para crear una pgina en el TabControl, nos ubicaremos en la propiedad TabPages de la ventana de propiedades del control, y le daremos clic.
Ventana de propiedades, para insertar pginas en el TabControl, daremos clic en la propiedad TabPages
Aplicacin N 37
En este programa aprenderemos a utilizar el TabControl, ya sea para evitar tener que realizar varios formularios.
Paso N 1: Disear el formulario, ingresar un TabPages. Paso N 2: Asignar los nombres a los controles.
Control
Name
Label5 Label11 Label15 Label17 Label19 Label21 Label23 TrackBar1 TabControl TextBox1 ComboBox1 ComboBox2 NumericUpDonw1 NumericUpDonw2 NumericUpDonw3 NumericUpDonw4 DateTimePicker1 Button1
lbledad lblfaltas lblsueldo lbldescuento lbladelanto lblfecha lbltotal tkbfaltas TabControl txtnombre cbocargo cbocondicion nuddia nudmes nudao nudadelanto dtpfecha btncalcular
Paso N 3: Codificar.
Dim Faltas As Integer If cbocondicion.SelectedIndex = 0 Then lblsueldo.Text = "1000.00" ElseIf cbocondicion.SelectedIndex = 1 Then lblsueldo.Text = "1500.00" Else MsgBox("Error: Especifique La Condicin del Empleado") Exit Sub End If lblfecha.Text = Format(dtpfecha.Value, "dd/MM/yyyy") lbladelantos.Text = Format(nudadelanto.Value, "###,##0.00") Faltas = Val(lblfaltas.Text) * 10 lbldescuentos.Text = Format(Val(lbladelantos.Text) + Faltas, "###,##0.00") lbltotal.Text = Format(Val(lblsueldo.Text) - Val(lbldescuentos.Text), "###,##0.00")
lblfaltas.Text = (tkbfaltas.Value).ToString
Aplicacin N 38
Este programa nos calculara recibo a emitir tras una matricula, para esto cumplir las siguientes caractersticas:
Condicin:
Si es invicto su matricula ser 200 Si es repitente su matricula ser 300 Si es traslado su matricula ser 200
Categora:
Paso N 1: Disear el formulario, ingresar un TabPages. Paso N 2: Asignar los nombres a los controles.
Control
Name
Label6 Label8 Label10 Label12 Label14 Label16 TextBox1 TextBox2 ComboBox1 ComboBox2 ComboBox3 NumericUpDonw1 NumericUpDonw2 NumericUpDonw3 DomainUpDonw1 DateTimePicker1 ProgressBar1 Button1
lblcondicion lblcategoria lblmatricula lblcargo lbldescuento lbltotal txtalumno txtcodigo cbocondicion cbocatgoria cboturno nudcargo nuddia nudao dudmes dtpfecha pgbavance btnprocesar
Paso N 3: Codificar.
Dim J, K As Integer For J = 0 To 100 For K = 0 To 500000 Next pgbavance.Value = J Next Select Case cbocondicion.SelectedIndex Case 0 lblmatricula.Text = "200.00" lblcondicion.Text = cbocondicion.SelectedItem Case 1 lblmatricula.Text = "300.00" lblcondicion.Text = cbocondicion.SelectedItem Case 2 lblmatricula.Text = "400.00" lblcondicion.Text = cbocondicion.SelectedItem End Select Select Case cbocategoria.SelectedIndex Case 0 lbldescuento.Text = "0.00" lblcategoria.Text = cbocategoria.SelectedItem Case 1 lbldescuento.Text = Format(Val(lblmatricula.Text) * 0.25, "###,##0.00") lblcategoria.Text = cbocategoria.SelectedItem Case 2 lbldescuento.Text = Format(Val(lblmatricula.Text) * 0.5, "###,##0.00") lblcategoria.Text = cbocategoria.SelectedItem End Select lblcargo.Text = Format(nudcargo.Value * 10, "###,##0.00") lbltotal.Text = Format(Val(lblmatricula.Text) + Val(lblcargo.Text) Val(lbldescuento.Text), "###,##0.00")
Insertar Controles: Para insertar controles que no aparecen en la Caja de Herramientas, solo nos bastar darle clic derecho en la caja de herramientas y escoger la opcin de Personalizar cuadro de herramientas.
Ventana de Cuadro de herramientas, en este caso ingresaremos un control Masked Edit del Visual Basic 6.0, para poder usarlo en la siguiente aplicacin.
Aplicacin N 39
En esta aplicacin aprenderemos a entrar un dato con una mascara de entrada, utilizando el MaskEdit y tambien aprenderemos a utilizar el LinkLabel.
Paso N 1: Disear el formulario, ingresar dos MaskEdBox (MaskEdit) y un LinkLabel. Paso N 2: Asignar los nombres a los controles.
Control
Name
Paso N 3: Codificar.
Me.Close()
Aplicacin N 40
En esta aplicacin aprenderemos a utilizar varios formularios a la vez, as que veremos cada formulario con su respectivo cdigo.
Control
Name
Paso N 3: Codificar.
txtce.Text = "" txtespecialidad.Text = "" txtciclo.Text = "" txtturno.Text = "" txtaula.Text = "" txtce.Focus()
Control
Name
Paso N 3: Codificar.
Me.Close()
lblfecha.Text = "Fecha:
lblhora.Text = "Hora:
Control
Name
Paso N 3: Codificar.
Control
Name
Paso N 3: Codificar.
End
Control
Name
Paso N 3: Codificar.
If txtusuario.Text = "Joel" AndAlso txtpassword.Text = "visualbasic" Then Dim Formulario As New frmmenu() Formulario.Show() Me.Close() Else MsgBox("Clave Incorrecta", MsgBoxStyle.Information, "Seguridad") txtusuario.Text = "" txtpassword.Text = "" txtusuario.Focus() End If
End
Control
Name
Paso N 3: Codificar.
txtnombre.Text = "" txtdireccion.Text = "" txttelefono.Text = "" txtfecnac.Text = "" txtsexo.Text = "" txtnombre.Focus()
Aplicacin N 41
En esta aplicacin aprenderemos a utilizar dos formulariomy adicionar o poder utilizar los controles que tenga el formulario que queramo abrir.
Control
Name
Paso N 3: Codificar.
End
Funcin Activar
Function Activar() If txtnombre.Text = "" Or txtedad.Text = "" Or txtdistrito.Text = "" Or txtsexo.Text = "" Or IsNumeric(txtedad.Text) = False Then btnadicionar.Enabled = False Else If txtsexo.Text = "F" Or txtsexo.Text = "M" Then btnadicionar.Enabled = True Else MsgBox("Debe de Ingresar Los Datos Correctos Sexo (M/F)", MsgBoxStyle.Information, "Error") txtsexo.Text = "" txtsexo.Focus() End If End If End Function
Activar()
Activar()
Activar()
Activar()
Activar()
Formulario.lstnombre.Items.Add(txtnombre.Text) Formulario.lstedad.Items.Add(txtedad.Text) Formulario.lstdistrito.Items.Add(txtdistrito.Text) Formulario.lstsexo.Items.Add(txtsexo.Text) txtnombre.Text = "" txtedad.Text = "" txtdistrito.Text = "" txtsexo.Text = "" txtnombre.Focus()
Formulario.Show() Me.Hide()
Control
Name
Paso N 3: Codificar.
End
Index = lstnombre.SelectedIndex lstedad.SelectedIndex = Index lstdistrito.SelectedIndex = Index lstsexo.SelectedIndex = Index btneliminar.Enabled = True
Index = lstedad.SelectedIndex lstnombre.SelectedIndex = Index lstdistrito.SelectedIndex = Index lstsexo.SelectedIndex = Index btneliminar.Enabled = True
Index = lstdistrito.SelectedIndex lstedad.SelectedIndex = Index lstnombre.SelectedIndex = Index lstsexo.SelectedIndex = Index btneliminar.Enabled = True
Index = lstsexo.SelectedIndex lstedad.SelectedIndex = Index lstdistrito.SelectedIndex = Index lstnombre.SelectedIndex = Index btneliminar.Enabled = True
Dim Seleccion As Integer Seleccion = Index If MsgBox("Desea Eliminar el Registro Seleccionado", MsgBoxStyle.Question.YesNo, "Cuidado") = MsgBoxResult.Yes Then lstnombre.Items.RemoveAt(Seleccion) lstedad.Items.RemoveAt(Seleccion) lstdistrito.Items.RemoveAt(Seleccion) lstsexo.Items.RemoveAt(Seleccion) End If
Dim Formulario As New frmdatos() With lstnombre Formulario.txtnombre.Text = .GetItemText(.SelectedItem) End With With lstedad Formulario.txtedad.Text = .GetItemText(.SelectedItem) End With With lstdistrito Formulario.txtdistrito.Text = .GetItemText(.SelectedItem) End With With lstsexo Formulario.txtsexo.Text = .GetItemText(.SelectedItem) End With Dim Seleccion As Integer Seleccion = Index lstnombre.Items.RemoveAt(Seleccion) lstedad.Items.RemoveAt(Seleccion) lstdistrito.Items.RemoveAt(Seleccion) lstsexo.Items.RemoveAt(Seleccion) Formulario.Show() Me.Hide()
Como ustedes saben la instruccin With nos permite un ahorro de tiempo a la hora de programar, ya que evita referirnos varias veces al nombre de un control, aunque esto ya lo saben, pero por si ac se los hago recordar.
Control ListView: Este control, bueno para mi es nuevo ya que recin lo veo en esta versin, aunque no crean es muy fcil de utilizar, para agregar tems al control, nos dirigiremos a la propiedad tems, pero primero seleccionaremos el objeto de donde utilizaremos las imgenes para mostrar en el control, esto se har en la propiedad LargeImageList.
Igual que otros editores de Coleccin (tems) tendremos que darle clic en agregar y de ah seleccionaremos en ImageIndex la imagen que queremos que se muestre en ese Item y en la propiedad Text escribiremos el texto que se muestre con la imagen, si se han dado cuenta un Item puede tener un SubItem, solo tedrian que darle clic en la propiedad SubItems de la ventana de propiedades del Item en donde desean agregar un SubItmen
Control TreeView: Este control como en la versin anterior, es muy utilizado para crear ayuda y tendremos que hacer lo mismo que hicimos en el control anterior, para insertar Nodo.
Primero elegiremos de que control ImageList utilizaremos las imgenes a mostrar con los Nodos y de ah daremos clic en la propiedad Nodes, para insertar los nodos a mostrar, y luego cisulizaremos lel editor del control.
Como lo ven es mucho ms fcil que el control de la versin anterior, ya que solo tendremos que darle clic en Agregar raz, Agregar secundario o en Eliminar si queremos eliminar un Nodo, la opcin de imagen seleccionaremos que imagen queremos que se vea cuando el nodo este cerrado y en Imagen Seleccionada, seleccionaremos cuando queramos que se muestre una imagen cuando un nodo este seleccionado o abierto, lo nico tedioso es que para cada Nodo tendremos que hacer esto, pero de ah la utilizacin es bien sencilla.
Aplicacin N 43
Seguro se estarn preguntando, y la aplicacin 42?, bueno no se preocupen, que la aplicacin 42 lo haremos en el prximo capitulo, ya que pertenece all, por que es un formulario MDI, mientras tanto veremos como utilizar dos contres que pueden de ser de gran utilidad como es el ListView y el TreeView.
Paso N 1: Disear el formulario, ingresar un ListView, TreeView, y dos ImageList. Paso N 2: Asignar los nombres a los controles.
Control
Name
Paso N 3: Codificar.
If ListView1.Items(0).Selected = True Then lblelegido.Text = "Usted Eligio Abrir" ElseIf ListView1.Items(1).Selected = True Then lblelegido.Text = "Usted Eligio Guardar" ElseIf ListView1.Items(2).Selected = True Then lblelegido.Text = "Usted Eligio Disco Duro" ElseIf ListView1.Items(3).Selected = True Then lblelegido.Text = "Usted Eligio CD" ElseIf ListView1.Items(4).Selected = True Then lblelegido.Text = "Usted Eligio Mi Pc" ElseIf ListView1.Items(5).Selected = True Then lblelegido.Text = "Usted Eligio Hora" ElseIf ListView1.Items(6).Selected = True Then lblelegido.Text = "Usted Eligio Scaner" End If
lblseleccion.Text = e.Node.Text
Me.Close()
Bueno seores, con esto acabo con la Segunda entrega, se que me he demorado un poco, pero ustedes saben pues, las fiestas y adems estaba acabando la primera entrega del manual de Lenguaje de Programacin Aprendiendo a Programar con Visual Basic 2005, bueno la primera entrega ya esta hecha, pero hasta el momento no recibo nunca notificacin de la pgina que me diga que ya ha sido publica, espero que la publiquen, en caso de que no sea as, tratare de publicarlo en otra pagina web y les avisare en cual, para que puedan descargarlo, mientras tanto seguir avanzando la tercera entrega en que consiste Formularios MDI, Diseo de Mens, Manejo de Archivos y si me alcanza tiempo har lo mas esperado, las conexiones a base de datos.
Bueno se que esta entrega debera incluir formularios MDI, pero no me alcanzo el tiempo, pero no se preocupen que ya lo veremos en la prxima entrega, y espero que les sea de bastante utilidad esta entrega, ya saben que para cualquier cosa esta mi correo jmchm19@hotmail.com que les responder lo mas rpido posible, bueno ya me despido, aqu en Per estamos en verano as que todos a la playa, hasta la prxima entrega bye y cudense.
Donaciones a la Cuenta de Ahorros del Banco Interbank del Per Cuenta en Soles:
067-3008573560
www.interbank.com.pe