Net - Visual Net Express
Net - Visual Net Express
INSTITUTO SUPERIOR 1
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Z
INSTITUTO SUPERIOR 2
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Z
INSTITUTO SUPERIOR 3
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Z
INSTITUTO SUPERIOR 4
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Obliga al control a invalidar su área cliente y, acto Sobrecargado. Muestra el formulario como un
seguido, obliga a que vuelva a dibujarse el control y cuadro de diálogo modal.
sus controles secundarios. SuspendLayout
RemoveOwnedForm Suspende temporalmente la lógica de diseño del
Quita un formulario con propietario de este control.
formulario ToString
ResetBackColor Reemplazado. POR EL OBJETO Object.ToString.
Restablece el valor predeterminado de la propiedad Update
BackColor. Hace que el control vuelva a dibujar las regiones no
ResetBindings válidas en su área de cliente.
Restablece el valor predeterminado de la propiedad Validate
DataBindings. Valida el último control no validado y sus
ResetCursor predecesores, pero sin incluir el control
Restablece el valor predeterminado de la propiedad 3. Eventos de los formularios.
Cursor. Los eventos son los siguientes:
ResetFont Activated
Restablece el valor predeterminado de la propiedad Se produce cuando el formulario se activa por
Font. código de programa o por parte del usuario.
ResetForeColor BackColorChanged
Restablece el valor predeterminado de la propiedad Se produce cuando el valor de la propiedad
ForeColor. BackColor cambia.
ResetImeMode BackgroundImageChanged
Restablece el valor predeterminado de la propiedad Se produce cuando el valor de la propiedad
ImeMode. Backgroundimage cambia.
ResetRightToLeft BindingContextCha nged
Restablece el valor predeterminado de la propiedad Se produce cuando el valor de la propiedad
RightToLeft. BindingContext cambia.
ResetText CausesValidationChanged
Restablece el valor predeterminado de la propiedad Se produce cuando el valor de la propiedad
Text. CausesValidation cambia.
ResumeLayout ChangeDICues
Sobrecargado. Reanuda la lógica de diseño Se produce cuando cambian las guías de la interfaz
habitual. de usuario para el foco o el teclado.
Scale Click
Sobrecargado. Ajusta la escala del control y de Se produce cuando se hace clic en el control.
todos los controles secundarios. Closed
Select Tiene lugar cuando el formulario está cerrado.
Sobrecargado. Activa un control. Closing
SelectNextControl Tiene lugar cuando se cierra el formulario.
Activa el siguiente control. ContextMenuChanged
SendToBack Se produce cuando el valor de la propiedad
Envía el control al final del orden Z. ContextMenu cambia.
SetAutoScrollMargin ControlAdded
Establece el tamaño de los márgenes de Se produce cuando se agrega un nuevo control a
desplazamiento automático. Control.ControlCollection.
SetBounds Control Removed
Sobrecargado. Establece los límites del control. Se produce cuando se quita un control de
SetDesktopBou nds Control.ControlCollection.
Establece los límites del formulario en las CursorChanged
coordenadas del escritorio. Se produce cuando el valor de la propiedad Cursor
SetDesktopLocation cambia.
Establece la posición del formulario en coordenadas Deactivate
del escritorio. Se produce cuando el formulario pierde el foco y no
Show es el formulario activo.
Muestra el control al usuario. Disponed.
ShowDialog Agrega un controlador de eventos para escuchar al
Z
INSTITUTO SUPERIOR 5
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Z
INSTITUTO SUPERIOR 6
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
encima del control y se suelta un botón del mouse. Se produce cuando cambia el valor de la propiedad
MouseWheel RightToLeft.
Se produce cuando la rueda del mouse se mueve SizeChanged
mientras el control tiene el foco. Se produce cuando cambia el valor de la propiedad
Move Size.
Se produce cuando se mueve el control. StyIeChanged
Paint Se produce cuando cambia el estilo del control.
Se produce cuando vuelve a dibujarse el control. SystemColorsChanged
ParentChanged Se produce cuando se modifican los colores del
Se produce cuando cambia el valor de la propiedad sistema.
Parent. TabStopChanged
QueryAccessibilityHelp Se produce cuando cambia el valor de la propiedad
Se produce cuando AccessibleObject proporciona TabStop.
ayuda para aplicaciones de accesibilidad. TextChanged
QueryContinueDrag Se produce cuando cambia el valor de la propiedad
Se produce durante una operación de arrastrar y Text.
colocar y permite al origen d( arrastre determinar si Validated
la operación de arrastrar y colocar tiene que Se produce cuando finaliza la validación del control.
cancelarse, Validating
Se produce cuando el control se está validando.
Resize VisibleChanged
Se produce cuando se cambia el tamaño del control. Se produce cuando cambia el valor de la propiedad
RightToLeftChanged Visible.
3. Controles
Los controles de formulario son los siguientes:
Cuadro de Controles de Formulario
FUNCI N CONTROL DESCRIPCI N
TextBox Muestra texto escrito en tiempo de diseño que puede ser editado por los
Edición de usuarios en tiempo de ejecución o ser modificado mediante programación.
texto
RichTextBox Habilita la presentación del texto con formato de texto sencillo o de texto
enriquecido (RTF).
A Label Muestra texto que los usuarios no pueden modificar directamente.
Presentación A LinkLabel Muestra texto en forma de vínculo de estilo Web y desencadena un evento
de texto (sólo cuando el usuario hace clic en el texto especial. Habitualmente, el texto es
lectura) un vínculo a otra ventana o a un sitio Web.
StatusBar Muestra información acerca del estado actual de la aplicación mediante
una ventana con marco, habitualmente en la parte inferior de un formulario
primario.
CheckedListBox Muestra una lista desplazable de elementos, cada uno acompañado por
una casilla de verificación.
Selección de
una lista ComboBox Muestra una lista desplegable de elementos.
DomainUpDown Muestra una lista de elementos de texto a través de la cual los usuarios se
pueden desplazar mediante botones hacia arriba y hacia abajo.
ListBox Muestra una lista de texto y elementos gráficos (iconos).
ListView Muestra los elementos por medio de una de cuatro vistas diferentes. Las
vistas son Sólo texto. Texto con ¡conos pequeños, Texto con iconos
grandes y una vista Detalles.
NumericUpDown Muestra una lista de números a través de la cual los usuarios se pueden
Selección de desplazar mediante botones hacia arriba y hacia abajo.
una lista TreeView Muestra una colección jerárquica de objetos de nodo que pueden constar
de texto con casillas de verificación o ¡conos opcionales.
Z
INSTITUTO SUPERIOR 7
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Z
INSTITUTO SUPERIOR 8
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Como sería muy extenso tratar sobre las propiedades de todos estos controles "en su lugar vamos a realizar
una práctica de laboratorio donde se aprenderá a personalizarlos y ver como se pueden aprovechar
mediante la programación de algunos de sus eventos.
http://es.gotdotnet.com/quickstart/winforms/doc/default.aspx
http://www.macoratti.net/
http://www.danyson:.com/docs/monograf/vbbd.htm
http://www.canalvisualbasic.net
http://www.elguille.info/colabora/net2005/alextaya.Jndi.htm
http://www.elavefenix.net/codigofuente.aspx
Z
INSTITUTO SUPERIOR 9
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Z
INSTITUTO SUPERIOR 10
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Z
INSTITUTO SUPERIOR 11
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
nudOperando.Value = nudOperando.Value
Propiedades de frmCalculadora: * 10 + 0
Name FrmCalculadora
End Sub
Text Calculadora
MaximizeBox False La codificación para cada una de los
MinimezeBox False cmd del 1 al 9.
BackColor SteelBlue
StartPosition CenterScreen Private Sub cmd1_Click(ByVal sender As
Propiedades de Buttons: System.Object, ByVal e As
Name Cmd1 System.EventArgs) _
Name Cmd2 Handles cmd1.Click
Name CmdSuma
Funcionalidad básica: nudOperando.Value = nudOperando.Value
Se ingresará un número decimal quien será el * 10 + 1
primer operando, para iniciar ingresando los dígitos
decimales se digitarán a continuación del punto End Sub
decimal hasta un máximo de dos decimales. Luego
se ingresará otro número quien será el segundo Private Sub cmd2_Click(ByVal sender As
operando, luego se podrá calcular la operación System.Object, ByVal e As
eligiendo el botón igual- System.EventArgs) _
Variables Globales y privadas: Handles cmd2.Click
Vamos a necesitar que algunas variables sean
conocidas en todas la aplicación (variables públicas nudOperando.Value = nudOperando.Value
y globales) o en únicamente cualquier lugar del * 10 + 2
formulario (las variables privadas cumplen éste rol).
Para almacenar los números que van a ser los End Sub
operando vamos a definir dos variables de tipo
públicas cuyos identificadores (o nombres) iniciarán Private Sub cmd3_Click(ByVal sender As
con g. por ejemplo giOperando1, donde g es la System.Object, ByVal e As
inicial de global y la letra d que sigue es la inicial de System.EventArgs) _
Double, el tipò de datos. Handles cmd3.Click
Para el presente programa sería suficiente que
todas las variables fueran privadas, es decir que nudOperando.Value = nudOperando.Value
sena conocidas en el formulario únicamente, debido * 10 + 3
Z
INSTITUTO SUPERIOR 12
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Z
INSTITUTO SUPERIOR 13
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Z
INSTITUTO SUPERIOR 14
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Label4.Text = Weekday(fecha)
Label5.Text = MonthName(Month(fecha))
Label6.Text = WeekdayName(Weekday(fecha))
Else
MsgBox("No es una fecha correcta", MsgBoxStyle.Critical, "Verifique")
TextBox1.Clear()
TextBox1.Focus()
End If
DateDiff:
Esta función devuelve la diferencia entre dos fechas:
Sintaxis:
DateDiff(intervalo,fecha1,fecha2)
Observaciones:
La fecha1 es la fecha menor y la fecha 2 es la fecha mayor. Si
se intercambian las fechas el resultado es un número negativo.
El intervalo es el tiempo en el cual se va a calcular la diferencia
entre las dos fechas y puede tener cualquiera de los siguientes
valores.
Las siguientes instrucciones muestran en un control llamado
label1 la diferencia en días:
Ejemplo 8:
Diseñe el siguiente formulario:
Z
INSTITUTO SUPERIOR 15
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Z
INSTITUTO SUPERIOR 16
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Label3.Text = NuevaFecha(1)
Instrucciones del Botón Semanas:
DatePart:
Esta función permite obtener un dato de una fecha
reenlazando a algunas funciones estudiadas
anteriormente:
Sintaxis:
DatePart(Dato,Fecha)
El dato es cualquiera de las opciones que tienen las
funciones tipo fecha:
Ejemplo 13:
DateInterval.Day:
Obtiene el número del día del mes que puede ser entre
1 y 31 dependiendo del mes de la fecha.
Instrucciones del botón Ver:
Dim Fecha As Date
Fecha = Date.Parse("31-08-2006")
Label1.Text = DatePart(DateInterval.Day, Fecha).ToString
DateInterval.DayOfYear:
Obtiene el número del día del año que puede ser entre 1 y 365 dependiendo de la fecha.
Instrucciones del botón Ver:
Dim Fecha As Date
Fecha = Date.Parse("31-08-2006")
Label1.Text = DatePart(DateInterval.DayOfYear, Fecha).ToString
DateInterval.Hour:
Obtiene las horas cuando dentro de la fecha se encuentran las horas
Instrucciones del botón Ver:
Dim Fecha As Date
Fecha = Date.Parse("31-08-2006 15:20")
Label1.Text = DatePart(DateInterval.Hour, Fecha).ToString
DateInterval.Minute:
Obtiene los minutos cuando dentro de la fecha se encuentran las horas.
Instrucciones del botón Ver:
Dim Fecha As Date
Fecha = Date.Parse("31-08-2006 15:20")
Label1.Text = DatePart(DateInterval.Minute, Fecha).ToString
DateInterval.Month:
Obtiene el número del mes de la fecha.
Instrucciones del botón Ver:
Dim Fecha As Date
Fecha = Date.Parse("31-08-2006")
Z
INSTITUTO SUPERIOR 17
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Z
INSTITUTO SUPERIOR 18
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Z
INSTITUTO SUPERIOR 19
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Ejemplo 20:
Instrucciones del Button1: Diseñe el siguiente formulario:
Dim texto As String
texto = "Hola Mundo"
label1.text = Microsoft.VisualBasic.Left(texto, 3)
Ejemplo: las siguientes instrucciones muestran Hol
Dim texto As String
texto = "Hola Mundo"
label1.text = Microsoft.VisualBasic.Left(texto, 7)
Right:
Esta función devuelve una cantidad de caracteres
de una cadena empezando por la derecha.
Sintaxis:
Microsoft.VisualBasic.Right (Cadena,N)
N es la cantidad de caracteres que se desea
obtener de la cadena En este aso tenemos en cuenta el siguiente:
Ejemplo 17. CI Computación
Diseñe el siguiente formulario: CO Contabilidad
SE Secretariado
EF Enfermería
El otro caso es que el ingreso de datos se realiza en
mayúsculas.
Instrucciones del botón Ver:
Dim Codigo, Año, Sem, Esp, Cic, Tur, Gru,
Semestre, Especialidad, Ciclo, Turno As String
Dim texto As String Codigo = TextBox1.Text
texto = "Hola Mundo" If Codigo.Length <> 10 Then
label1.text = Microsoft.VisualBasic.Right(texto, 7) MsgBox("El código es incorrecto", 16, "Debe
tener 10 caracteres")
Mid: TextBox1.Clear()
Esta función devuelve una cantidad de caracteres Exit Sub
de una cadena a partir de una determinada End If
posición. 'lee los datos ingresados
Sintaxis: Año = Microsoft.VisualBasic.Left(Codigo, 4)
Microsoft.VisualBasic.Mid (Cadena,P,N) Sem = Codigo.Substring(4, 1)
P es la posición de la cadena a partir de la cual se Esp = Codigo.Substring(5, 2)
desean obtener los caracteres. Cic = Codigo.Substring(7, 1)
N es la cantidad de caracteres que se desea Tur = Codigo.Substring(8, 1)
obtener de la cadena. Ejemplo 18: Gru = Microsoft.VisualBasic.Right(Codigo, 1)
Instrucciones del Button1: 'obtiene el semestre académico
Dim texto As String Select Case Sem
texto = "Hola Mundo" Case "1"
Label1.Text = Microsoft.VisualBasic.Mid(texto, 3, 4) Semestre = "I"
Case "2"
Las variables tipo string tiene un método llamado Semestre = "II"
substring que obtiene el mismo resultado de la Case Else
función Mid, con la diferencia que el primer Semestre = "Error"
elemento es el cero (0). Se le debe dar como End Select
parámetro la posición inicial y la cantidad de 'obtiene la especialidad
caracteres. Ejemplo 19: Select Case Esp
Instrucciones del Button1: Case "CI"
Dim texto As String Especialidad = "Computación"
texto = "Hola Mundo" Case "CO"
Label1.Text = texto.Substring(2, 4) Especialidad = "Contabilidad"
Z
INSTITUTO SUPERIOR 20
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Case "EF"
Especialidad = "Enfermería"
Case "SE"
Especialidad = "Secretariado"
Case Else
Especialidad = "Error"
End Select
'obtiene el ciclo
Select Case Cic Instrucciones del Button1:
Case "1"
Ciclo = "Primero" Dim texto As String
Case "2" texto = "cómo están ustedes"
Ciclo = "Segundo" Label1.Text = Microsoft.VisualBasic.Ucase(texto)
Case "3"
Ciclo = "Tercero" OBS:
Case "4" Si no existe ninguna propiedad o método que se
Ciclo = "Cuarto" llama Ucase se puede escribir directamente el
Case "5" nombre de la función. Por ejemplo:
Ciclo = "Quinto" Dim texto As String
Case "6" texto = "cómo están ustedes"
Ciclo = "Sexto" Label1.Text = Ucase(texto)
Case Else También se puede utilizar el método ToUpper de la
Ciclo = "Error" variable string.
End Select Dim texto As String
'obtiene el turno texto = "cómo están ustedes"
Select Case Tur Label1.Text = texto.ToLower
Case "M"
Turno = "Mañana" LCase:
Case "T" Esta función convierte un texto a minúsculas:
Turno = "Tarde" Sintaxis:
Case "N" Microsft.VisualBasic.LCase(Cadena)
Turno = "Noche"
Case Else Ejemplo 22:
Turno = "Error" Diseñe el siguiente formulario:
End Select
'Muestra los resultados
Label8.Text = Año
Label9.Text = Semestre
Label10.Text = Especialidad
Label11.Text = Ciclo
Label12.Text = Turno
Label13.Text = Gru
End Sub Instrucciones del Button1:
Dim texto As String
Práctica Nº 06: texto = "CÓMO ESTÁN USTEDES"
Desarrolle una aplicación similar pero invertida, Label1.Text = Microsft.VisualBasic.LCase(texto)
quiere decir que genere el Código del Alumno.
También se puede realizar de la siguiente manera
Dim texto As String
texto = "CÓMO ESTÁN USTEDES"
UCase: Label1.Text = texto.ToLower
Esta función convierte un texto en mayúsculas.
Sintaxis: StrConv:
Microsoft.VisualBasic.Ucase(Cadena) Esta función convierte un texto a caracteres de otra
Ejemplo 21: región o a minúsculas, mayúsculas, o sólo la
Diseñe el siguiente formulario: primera letra de cadena palabra a mayúsculas.
Z
INSTITUTO SUPERIOR 21
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Z
INSTITUTO SUPERIOR 22
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
InStr:
Esta función devuelve la posición inicial de una
subcadena dentro de encadena. La subcadena se Replace:
empieza a buscar por la izquierda de la cadena. Esta función permite reemplazar una subcadena por
Sintaxis: otra dentro de una cadena.
Microsoft.VisualBasic.InStr(Cadena,SubCadena) Sintaxis:
Ejemplo 26: Microsoft.VisualBasic.Repalce(adena,SubCadena1,
SubCadena2)
La SubCadena1 es la subcadena original y la
SubCadena2 es la subcadena que contiene el texto
que va a reemplazar al contenido de la subcadena1.
Ejemplo 28:
Z
INSTITUTO SUPERIOR 23
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Z
INSTITUTO SUPERIOR 24
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Label2.Text = Microsoft.VisualBasic.Asc(C)
Instrucciones del button1.
Label1.Text = Microsoft.VisualBasic.Asc("Ñ") Ejemplo 38:
‘Muestra 209
Chr:
Esta función devuelve el carácter de un valor que se
envía como parámetro.
Sintaxis:
Microsoft.VisualBasic.Chr(209)
Ejemplo 36: Instrucciones del TextBox1_KeyPress
Similar al diseño anterior. If Asc(e.KeyChar) >= 48 And Asc(e.KeyChar) <= 57 Then
Label1.Text = Microsoft.VisualBasic.Chr(209) e.Handled = True
Ejemplos de aplicación: End If
Ejemplo 37: Instrucciones del TextBox2_KeyPress
Diseñe el siguiente formulario: If Asc(e.KeyChar) < 48 Or Asc(e.KeyChar) > 57 And
Asc(e.KeyChar) <> 8 Then
e.Handled = True
End If
Instrucciones del TextBox2_KeyPress
If Asc(e.KeyChar) <> 102 And Asc(e.KeyChar) <>
109 And Asc(e.KeyChar) <> 70 And Asc(e.KeyChar)
<> 77 And Asc(e.KeyChar) <> 8 Then
e.Handled = True
End If
Instrucciones del button1.
TextBox1.Clear()
Instrucciones del button1. TextBox2.Clear()
Dim C As Char TextBox3.Clear()
C = TextBox1.Text TextBox1.Focus()
FUNCIONES NUMÉRICAS
Fix: Instrucciones del Button2:
Esta función devuelve solo la parte entera de un ‘Se considera las variables de tipo Double
número. Si el número es negativo, esta función Dim N As Double
devuelve el primer número entero negativo mayor o N = TextBox1.Text
igual que el número Label1.Text = Microsoft.VisualBasic.Fix(N)
Sintaxis:
Microsoft.VisualBasic.Fix(Número) Hex:
Ejemplo 39: Esta función convierte un número al sistema
Diseñe el siguiente formulario: hexadecimal.
Sintaxis:
Microsoft.VisualBasic.Hex(Número)
Ejemplo 40:
Diseñe el siguiente formulario:
Z
INSTITUTO SUPERIOR 25
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Oct:
Esta función convierte un número al sistema Octal. Otras funciones numéricas se encuentran en el
Sintaxis: espacio de nombre: System.Math o Math
Microsoft.VisualBasic.Hex(Número) Abs:
Ejemplo 41: Esta función devuelve el valor absoluto de un
Diseñe el siguiente formulario: número.
Sintaxis:
System.Math.Abs(Número)
Ejemplo 43:
Z
INSTITUTO SUPERIOR 26
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Dim N As Double
N = TextBox1.Text
Label1.Text = Math.CeiLing(N)
Floor:
Esta función permite redondear un número decimal
al entero menor más próximo.
Sintaxis: Instrucciones del Button1:
Math.Floor(Número) Label1.Text = Math.Min(48, 95)
Ejemplo 45: Instrucciones del Button2:
‘Se considera variables de tipo Double
Dim N, M As Double
N = TextBox1.Text
M = TextBox2.Text
Label1.Text = Math.Min(N, M)
Instrucciones del Button1:
Label1.Text = System.Math.Floor(2.1)
Instrucciones del Button2:
‘Se considera variables de tipo Double Int:
Dim N As Double Esta función devuelve solo la parte entera de un
N = TextBox1.Text número. Si el número es negative, esta función
Label1.Text = Math.Floor(N) devuelve el primer número entero negativo menor o
igual que el número.
Max: Sijntaxis:
Esta función devuelve el número mayor de dos Microsoft.VisualBasic.Int(Número)
números que se pasan como parámetros. Ejemplo 48:
Sintaxis:
Math.Max(Número1, Número2)
Ejemplo 46:
Z
INSTITUTO SUPERIOR 27
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
N = TextBox1.Text
M= TextBox2.Text
Instrucciones del Button1: Label1.Text = Math.Round(N) & “Otro” & Math.Round(M)
If Microsoft.VisualBasic.IsNumeric("20-89") = True Then
Label1.Text = "Si es un Número" Sign:
Else Esta función permite si un número es cero, positivo
Label1.Text = "No es un Número" o negativo. Si el número es cero devuelve 0, si el
End If número es positivo devuelve 1 y si el número es
Instrucciones del Button2: negativo devuelve -1.
‘Se considera variables de tipo String Sintaxis:
Dim N As String Math.Sign(Número)
N = TextBox1.Text Ejemplo 52:
If Microsoft.VisualBasic.IsNumeric(N) = True Then Label1.text=Math.Sign(25)
Label1.Text = "Si es un Número" Sqrt:
Else Esta función permite obtener la raiz cuadrada de un
Label1.Text = "No es un Número" número.
End If Sintaxis:
Math.Sqrt(Número)
Ejemplo 53:
Label1.text=Math.sqrt(64)
Pow: Cree usted 3 aplicaciones con las respectivas
Esta función devuelve la potencia de un número. funciones estudiadas.
Sintaxis: EJEMPLOS DE APLICACIÓN:
Math.Pow(Número, Potencia) Ejemplo 54:
Ejemplo 50: Diseñe el siguiente formulario:
Z
INSTITUTO SUPERIOR 28
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Exit Sub
End If Instrucciones del Botón Potencia:
Dim A, B As Integer Dim A, B, Potencia As Integer
A = Integer.Parse(TextBox1.Text) A = Integer.Parse(TextBox1.Text)
B = Integer.Parse(TextBox2.Text) B = Integer.Parse(TextBox2.Text)
If A = B Then Potencia = Math.Pow(A, B)
Label5.Text = "" Label3.Text = Potencia.ToString
Label6.Text = "" Instrucciones del Botón Resultado:
MsgBox("Los números son iguales", Dim A, B, C, Mayor1, Mayor2 As Integer
MsgBoxStyle.Exclamation, "Resultado") A = Convert.ToInt32(TextBox3.Text)
Else B = Convert.ToInt32(TextBox4.Text)
Label5.Text = Math.Max(A, B) C = Convert.ToInt32(TextBox5.Text)
Label6.Text = Math.Min(A, B) Mayor1 = Math.Max(A, B)
End If Mayor2 = Math.Max(Mayor1, C)
If A = B And B = C Then
Ejemplo 55: Label4.Text = "Los Numeros son iguales"
Diseñe el siguiente formulario: Else
Label4.Text = "Los Número mayor es: " & Mayor2
End If
Z
INSTITUTO SUPERIOR 29
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Z
INSTITUTO SUPERIOR 30
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
La función Randomize evita que la secuencia de Asigne en la propiedad de cada Button, en ToolTip:
números al azar se repita. Se Button1: Propiedad: ToolTip en ToolTip1
Se digita en el evento Load del formulario. Muestra el número a jugar
Ejemplo 60: Button2: Propiedad: ToolTip en ToolTip1
Diseñe el siguiente formulario: Apuesta por un número menor a jugar
Donde se desea conocer el número al azar entre 20 Button3: Propiedad: ToolTip en ToolTip1
y 15. Apuesta por un número igual
Button4: Propiedad: ToolTip en ToolTip1
Apuesta por un número mayor
Button5: Propiedad: ToolTip en ToolTip1
Reinicializa la estadística
Obs: Al término del diseñe se debe mostrar así:
Ejemplo 61:
Diseñe el siguiente formulario:
- Public Class Form1
Inherits System.Windows.Forms.Form
Dim Puntos, Jugadas As Integer
Instrucciones de Form1_Load:
Randomize()
Label1.Text = String.Empty
Label2.Text = String.Empty
Label3.Text = String.Empty
Label4.Text = "Tiene 0 Puntos en 0 Jugadas"
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Instrucciones del botón Jugar:
Dim Numero As Byte
Numero = Int((20 - 10 + 1) * Rnd() + 10)
Label1.Text = Numero
Label2.Text = String.Empty
Label3.Text = String.Empty
Button2.Enabled = True
Button3.Enabled = True
Z
INSTITUTO SUPERIOR 31
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Z
INSTITUTO SUPERIOR 32
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Z
INSTITUTO SUPERIOR 33
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Z
INSTITUTO SUPERIOR 34
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Z
INSTITUTO SUPERIOR 35
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Z
INSTITUTO SUPERIOR 36
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Z
INSTITUTO SUPERIOR 37
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
End Try
Instrucciones del Botón Días:
Z
INSTITUTO SUPERIOR 38
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Z
INSTITUTO SUPERIOR 39
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
ShowSelectBox:
Esta propiedad permite indicar si el control debe
tener una casilla de verificación. Propiedades:
Valor= True Textbox1 = MAxLength = 50
CutomFormat: NumericUpDown1 = Decimalplaces = 2
Esta prpiedad permite establecer el formato en el = Maximum = 1000000
cual se debe visualizar la fecha y/u Hora en el = TextAlign = Right
control cuando se le ha asiganado el valor Custom DateTimePicker1, 2 = Format = Short
en la propiedad Format. = Autozise = False
= BorderStyle = FixedSingle
Format: = TexAlign = MiddleRight
Esta propiedad permite seleccionar el formato en el = ShowUpDow = True
cual se debe visualizar la fecha y/u hora en el Instrucciones del evento Activated del
control. Si selecciona custom la fecha se mostrará formulario:
con el formato establecido en la propiedad DateTimePicker1.Value = Today()
CustomFormat. DateTimePicker2.Value = Today()
Los formatos son: * (opcional solo cuando es fijo la fecha)
Long, Short, Time, CustomFormat, Instrucciones del botón Calcular:
DropDownAlign: Dim Monto, MoraPorcentaje, MoraSoles, Pago As
Esta propiedad permite indicar la posición izquierda String
o derecha del calendario cuando se muestra en el Dim DiasMora As Integer
formulario. Dim FechaVencimiento, FechaPago As Date
MaxDate: If TextBox1.Text.Trim = "" Then
Esta propiedad permite establecer la fecha maxima MsgBox("Ingrese el nombre del cliente",
que se puede seleccionar en el calendario. En forma MsgBoxStyle.Critical, "Por ejemplo")
predetermionada la fecha maxima es: 31/12/9998 TextBox1.Focus()
MixDate: Exit Sub
Esta propiedad permite establecer la fecha minima End If
que se puede seleccionar en el calendario. En forma If NumericUpDown1.Value <= 0 Then
predeterminada la fecha minima es 01/01/1753. MsgBox("Ingrese el monto a pagar",
ShowUpDown: MsgBoxStyle.Critical, "Por Favor")
Esta propiedad permite indicar si debe mostrar las NumericUpDown1.Focus()
flechas hacia arriba y hacia abajo en el control. Exit Sub
Value: End If
Esta propiedad almacena la fecha y/o hora Monto = NumericUpDown1.Value
seleccionada en el control FechaVencimiento = DateTimePicker1.Value
FechaPago = DateTimePicker2.Value
Ejemplo 76: DiasMora = DateDiff(DateInterval.Day,
Diseñe el siguiente formulario: FechaVencimiento, FechaPago)
If DiasMora < 0 Then
DiasMora = 0
End If
MoraPorcentaje = DiasMora * 0.5
MoraSoles = Monto * MoraPorcentaje / 100
Pago = Monto + MoraSoles
Label9.Text = DiasMora
Label10.Text = MoraPorcentaje.ToString
Label11.Text = MoraSoles.ToString
Label12.Text = Pago.ToString
Instrucciones del botón Nuevo:
TextBox1.Clear()
NumericUpDown1.Value = 0
DateTimePicker1.Value = Today()
DateTimePicker2.Value = Today()
Label9.Text = ""
Z
INSTITUTO SUPERIOR 40
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Label10.Text = ""
Label11.Text = ""
Label12.Text = ""
TextBox1.Focus()
Instrucciones del evento Load del formulario:
Instrucciones del botón Finalizar: DateTimePicker1.Value = Today()
Close() DateTimePicker2.Value = Today()
Instrucciones del boton Días:
Dim Fecha1, Fecha2 As Date
Dim Tiempo As Integer
Fecha1 = DateTimePicker1.Value
Fecha2 = DateTimePicker2.Value
Tiempo = DateDiff(DateInterval.Day, Fecha1,
Fecha2)
Ejemplo 77: Label3.Text = "Son: " & Tiempo & " Días de
diferencia"
Instrucciones del boton Semanas:
Dim Fecha1, Fecha2 As Date
Dim Tiempo As Integer
Fecha1 = DateTimePicker1.Value
Fecha2 = DateTimePicker2.Value
Tiempo = DateDiff(DateInterval.Weekday, Fecha1,
Fecha2)
Label3.Text = "Son: " & Tiempo & " Semanas de
diferencia"
Instrucciones del boton Meses:
Dim Fecha1, Fecha2 As Date
Dim Tiempo As Integer
Fecha1 = DateTimePicker1.Value
Instrucciones del botón Ver: Fecha2 = DateTimePicker2.Value
Dim Fecha, Antes, Despues As Date Tiempo = DateDiff(DateInterval.Month, Fecha1,
Dim Dia, Mes, Año As Integer Fecha2)
Fecha = DateTimePicker1.Value Label3.Text = "Son: " & Tiempo & " Meses de
Dia = Fecha.Day diferencia"
Mes = Fecha.Month Instrucciones del boton Años:
Año = Fecha.Year Dim Fecha1, Fecha2 As Date
Antes = DateAdd(DateInterval.Day, -5, Fecha) Dim Tiempo As Integer
Despues = DateAdd(DateInterval.Day, 10, Fecha) Fecha1 = DateTimePicker1.Value
Label7.Text = Dia.ToString Fecha2 = DateTimePicker2.Value
Label8.Text = Mes.ToString Tiempo = DateDiff(DateInterval.Year, Fecha1,
Label9.Text = Año.ToString Fecha2)
Label10.Text = Antes.ToString("dd-MM-yy") Label3.Text = "Son: " & Tiempo & " Años de
Label11.Text = Despues.ToString("dd-MM-yy") diferencia"
Ejemplo 78:
Extensión: Cree un programa con los objetos
propuestos.
El control MonthCalendar:
Este control permite ostrar en un formulario un
calendario, pero, sólo con algunos meses
determinados. También se puede utilizar para
seleccionar e ingresar una fecha a una aplcacion.
Z
INSTITUTO SUPERIOR 41
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
El control MonthCalendar:
Este control permite ostrar en un formulario un
calendario, pero, sólo con algunos meses BoldedDates:
determinados. También se puede utilizar para Esta propiedad es similar a la propiedad anterior, se
seleccionar e ingresar una fecha a una aplicación. diferencian porque las fechas que aquí se
Para seleccionar un nuevo mes, se puede hacer clic seleccionan sólo se muestran en negrita en el año
en la flecha hacia la derecha o izquierda que se seleccionado, para otros años se visualiza en color
encuentra en el título del calendario. También puede normal.
hacer clic en el nombre del mes, con o cual se Al ingresar a esta propiedad se visualiza la misma
visualiza los meses del año. ventana de la propiedad anterior donde debe
Para seleccionar un nuevo año, puede hacer clic en agregar las fechas que desean visualizar en negrita,
el año que se encuentra en el título del calendario pero sólo en el año seleccionado.
con lo cual se muestra un control UpDown junto al CalendarDimensiones:
año para cambiarlo. Esta propiedad se utiliza para indicar la cantidad de
Ejemplo de muestra haciendo clic sobre el nombre meses que desea mostrar en el formulario. Esta
del mes se muestra los meses en estado de propiedad acepta dos valores separados por un
ejecución y el año cuando se hace clic sobre el punto y coma. El primer valor indica la cantidad de
nombre del año que usted puede realizar sus columnas y el segundo, la cantidad de filas.
respectivos cambios: Ejemplo:
CalendarDimensions / 3; 1
FirstDayOfWeek:
Esta propiedad se utiliza para establecer el primer
día de la semana. En forma predeterminada es
Sunday (Domingo)
Ejemplo:
FirstDayOfWeek / Sunday
FirstDayOfWeek / Monday
MaxDate:
Esta propiedad perite establecer la fecha máxima
que se puede seleccionar en el calendario. En forma
predeterminada la fecha máxima es: 31/12/9998
MaxSelectionCount:
Esta propiedad permite establecer la cantidad de
Si se encuentra en cualquier fecha y desea ir a la días que se puede seleccionar en el calendario. Los
fecha actual, puede hacer clic en la casilla que dice días se pueden seleccionar utilizando las teclas Shif
Hoy. y las flechas o con el puntero del Mouse. En forma
Propiedades: predeterminada sólo se puede seleccionar 7 días.
AnuallyBoldedDates: MixDate:
Z
INSTITUTO SUPERIOR 42
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Esta propiedad permite establecer la fecha mínima las instrucciones. El True permiten que se ejecuten
que se puede seleccionar en el calendario. En forma las instrucciones.
predeterminada la fecha mínima es: 01/*01/1753. Ejemplo 79:
MonthlyBoldedDates: Diseñe el siguiente formulario:
Esta propiedad permite establecer los días del mes Inserte el control Timer:
que deben salir. Por ejemplo, si usted agrega el día
20 de julio, entonces el día 20 de todos los meses
se visualizarán en negrita.
ScrolChange:
Esta propiedad permite establecer la cantidad de
meses que se deben saltar cuando el usuario hace
clic en la fecha hacia laderecha o izquierda del
calendario.
SelectionRange:
Esta propiedad almacena el rango de fechas Propiedades Label1:
seleccionadas con el control. Las fechas se separan AutoSize = False
por un punto y coma. BorderStyle = FixedSingle
ShowToday: TextAlign = MiddleRight
Esta propiedad se utiliza para indicar si en la parte Font = N/K/48
inferior del calendario se debe visualizar la fecha En el Control Timer:
actual. En forma predeterminada tiene el valor Trae. Enabled = True
En la siguiente ventana se le ha asignado el valor Interval = 1000
False. Instrucciones del Timer1_Tick
ShowTodayCircle: Label1.Text = TimeString
Esta propiedad se utiliza para indicar si en la parte Ejemplo 80:
inferior del calendario se debe visualizar en la fecha Similar que el diseño anterior solo que aquí agrege
actual (Hoy) un circulo de color rojo. un label2:
ShowWeekNumbers:
Esta propiedad se utiliza para indicar si las semanas
del calendario se deben visualizar enumeradas.
Usted como ejemplo asigne Trae.
Esta propiedad se utiliza para establecer el color de
fondo del título del calendario.
TitleForeColor:
Esta propiedad se utiliza para establecer el color de
las letras del tiutlo del calendario.
TrailingForeColor:
Esta propiedad se utiliza para establecer el color de
los números de los días que pertenecen a los
meses anterior y siguiente del mes que se está
visualizando en el calendario. Propiedades Label1:
TodayDate: AutoSize = False
Esta propiedad se utiliza para el usuario seleccionar BorderStyle = FixedSingle
el día desde esta propiedad. TextAlign = Centrar
El control Timer Propiedades Label2:
Este control perite ejecutar instrucciones de cada Autosize = True
intervalo de tiempo. El intervalo de tiempo en el cual Font = 26
se debe ejecutar las instrucciones se le asigna en Text = Instituto Superior Teconológico “Parcona”
milisegundos, este quiere decir, que el valor 1000 TextAlign = Centrar
representa un segundo. En el Control Timer:
Cuando este control se dibuja en el formulario se Enabled = True
ubica en la parte inferior del mismo. Interval = 2000
El control Timer tiene la proiedad Interval, donde se Instrucciones del evento Tick del control Timer1.
indica el intervalo de tiempo en el cual se deben Label2.Visible = Not Label2.Visible
ejecutar las instrucciones.
La propiedad Enabled permite que se ejecuten o no El control ComboBox
Z
INSTITUTO SUPERIOR 43
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Z
INSTITUTO SUPERIOR 44
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
End If
If ciclo = 1 Then
pension = pension - pension * 25 / 100
End If
Label5.Text = pension.ToString("###,##0.00")
Instrucciones de Incremento:
Dim ciclo As Byte
Dim especialidad As String
Dim pension As Single
especialidad = ComboBox1.Text
ciclo = ComboBox2.SelectedIndex + 1
Propiedades del formulario: Select Case especialidad
ContextMenu = ContextMenu1 Case "Administración"
Instrucciones: pension = 150
Realizar en cada uno de los menús contextuales en Case "Computación"
su evento clic. pension = 140
El diseño en ejecución es el siguiente: Case "Idiomas"
pension = 100
Case "Enfermería"
pension = 120
Case Else
pension = 0
End Select
If ComboBox2.SelectedIndex = -1 Then
Label5.Text = String.Empty
End If
If ciclo > 2 Then
pension = pension + pension * ((ciclo - 2) * 10) / 100
End If
Label5.Text = pension.ToString("###,##0.00")
Instrucciones de Nuevo alumno: Instrucciones de Finalizar:
TextBox1.Text = String.Empty Close()
ComboBox1.SelectedIndex = -1 Ejemplo 83:
ComboBox2.SelectedIndex = -1
Label5.Text = String.Empty
TextBox1.Focus()
Instrucciones de Descuento:
Dim ciclo As Byte
Dim especialidad As String
Dim pension As Single
especialidad = ComboBox1.Text
ciclo = ComboBox2.SelectedIndex + 1
Select Case especialidad
Case "Administración"
pension = 150
Case "Computación"
pension = 140
Case "Idiomas"
pension = 100
Case "Enfermería"
pension = 120
Case Else
pension = 0
End Select Instrucciones de +:
If ComboBox2.SelectedIndex = -1 Then Dim N, I, R As Integer
Label5.Text = String.Empty N = NumericUpDown1.Value
Z
INSTITUTO SUPERIOR 45
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Z
INSTITUTO SUPERIOR 46
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Z
INSTITUTO SUPERIOR 47
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Propiedades:
ListBox1:
SelectionMode = Multisimple
ListBox2:
ColumnWidth = 70
MultiColumn = True
ScrollAllwaysVisible = True Propiedades de los controles ListBox1, 2:
Instrucciones del evento Load del Formulario: SelectionMode = MultiSimple
Dim N As Integer Sorted = True
For N = 1 To 12 Instrucciones den evento Load del Formulario:
ListBox1.Items.Add(N.ToString) Dim I As Short
Next ListBox1.Items.Clear()
Instrucciones del Botón >>: ListBox2.Items.Clear()
Dim N, I, R, Numero As Integer For I = 1 To 20
ListBox2.Items.Clear() ListBox1.Items.Add(I.ToString("000"))
For N = 0 To 11 Next
If ListBox1.GetSelected(N) Then Button1.Enabled = False
Numero = N + 1 Button2.Enabled = False
For I = 1 To 12 Instrucciones del evento Clic de Listbox1:
R = Numero * 1 If ListBox1.SelectedItems.Count > 0 Then
listbox2.Items.Add(Numero & " X " & I & " = " & R) Button1.Enabled = True
Next Else
End If Button1.Enabled = False
Next End If
Button2.Enabled = False
Como práctica de investigación usted realice un Instrucciones del evento Clic de Listbox1:
programa utilizando 2 ListBox que tenga dos If ListBox2.SelectedItems.Count > 0 Then
opciones como la de enviar y recibir. Button2.Enabled = True
En cada uno de ellos que muestre el total del Else
contenido. Button2.Enabled = False
End If
Button1.Enabled = False
Instrucciones del evento clic Botón >>:
Dim I, N As Short
Dim elemento As String
N = ListBox1.Items.Count - 1
For I = 0 To N
If ListBox1.GetSelected(I) = True Then
elemento = ListBox1.Items(I)
ListBox2.Items.Add(elemento)
End If
Ejemplo 86: Next
For I = N To 0 Step -1
If ListBox1.GetSelected(I) = True Then
ListBox1.Items.RemoveAt(I)
End If
Next
Button1.Enabled = False
Instrucciones del evento clic Botón <<:
Dim I, N As Short
Dim elemento As String
N = ListBox2.Items.Count - 1
For I = 0 To N
If ListBox2.GetSelected(I) = True Then
elemento = ListBox2.Items(I)
ListBox1.Items.Add(elemento)
Z
INSTITUTO SUPERIOR 48
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
End If
Next
For I = N To 0 Step -1
If ListBox2.GetSelected(I) = True Then
ListBox2.Items.RemoveAt(I)
End If
Next
Button2.Enabled = False
Instrucciones del evento clic Botón todos 1:
Dim I, N As Short
Static Valor As Boolean
N = ListBox1.Items.Count - 1
Valor = Not Valor
For I = 0 To N
ListBox1.SetSelected(I, Valor)
Next
Button2.Enabled = False
If ListBox1.SelectedItems.Count > 0 Then
Button1.Enabled = True
Else
Button1.Enabled = False El desarrollo en el ejemplo 76:
End If PROPIEDADES:
ListBox1.TopIndex = 0 AutoSize:
Instrucciones del evento clic Botón todos 2: Permite indicar si el tamaño del control depende del
Dim I, N As Short espacio que se utiliza en su contenido. AutoSize
Static Valor As Boolean trabaja junto con la propiedad AutoSizeMode.
Valor = Not Valor AutoSizeMode:
N = ListBox2.Items.Count - 1 Esta propiedad permite indicar la forma cómo debe
For I = 0 To N trabajar la propiedad AutoSize.
ListBox2.SetSelected(I, Valor) Text:
Next Se utiliza para indicar el título del Control GroupBox.
Button1.Enabled = False
If ListBox2.SelectedItems.Count > 0 Then El Control PictureBox
Button2.Enabled = True Este control permite mostrar imágenes en los
Else formularios de nuestras aplicaciones.
Button2.Enabled = False PROPIEDADES.
End If BackGroundimagen:
ListBox2.TopIndex = 0 Esta propiedad se utiliza para seleccionar la imagen
que se debe mostrar como fondo del control. La
forma de seleccionar una gráfico se explica en la
propiedad.
BorderStyle:
Esta propiedad se utiliza para seleccionar un borde
para el control PictureBox.
ErrorImage:
Esta propiedad se utiliza para seleccionar la imagen
El control GrupBox que se debe mostrar cuando exista un error en la
Este control permite agrupar controles o mejorar el imagen seleccionada en la propiedad imagen.
aspecto de nuestros formularios. Image:
Ejemplo 87: Esta propiedad se utiliza para seleccionar la imagen
que desee mostrar en el control.
InitialImagen:
Esta propiedad se utiliza para seleccionar la imagen
que se debe mostrar en el control mientras se carga
una nueva imagen.
SizeMode:
Z
INSTITUTO SUPERIOR 49
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Z
INSTITUTO SUPERIOR 50
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
PictureBox1
Propiedades:
Label 1,2,3,4
AutoSize = False
BorderStyle = Fixed3D
Timer1:
Interval = 1000
Propiedades: PictureBox:
NumericUpDown1: SizeMode = StrechImage
DecimalPlaces = 2 Visible = False
Increment = 10 Instrucciones de la función resultado:
Maximum = 10000 Function Resultado(ByVal descendente As Boolean,
Minimum = 1 ByVal V1 As Integer, ByVal V2 As Integer) As
ChecBox1: Boolean
Text = Tiene &descuento If descendente = True Then
Instrucciones del procedimiento Calcular: If Math.Min(V1, V2) = V2 Then
Dim deuda, descuento, total As Decimal Return True
'deuda = Decimal.Parse(NumericUpDown1.Value) Else
Z
INSTITUTO SUPERIOR 51
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Z
INSTITUTO SUPERIOR 52
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
El Control RadioButton
Este control permite seleccionar dentro de una
aplicación sólo una de un grupo de opciones. Cada Instrucciones del botón Calcular:
opción disponible para el usuario es un control Dim pension, descuento, pago As Decimal
RadioButton y cada grupo de la opción deben estar If RadioButton1.Checked = True Then
dentro de un control GroupBox. pension = 80
PROPIEDADES: ElseIf RadioButton2.Checked = True Then
Name. If RadioButton4.Checked = True Then
Se utiliza parea asignar un nombre particular al pension = 100
control. Se recomienda que empiece con las letras ElseIf RadioButton5.Checked = True Then
Rb. pension = 120
Appearance. ElseIf RadioButton6.Checked = True Then
Permite cambiar la apariencia del RadioButton por pension = 90
un botón de comandos. Else
CheckAlig. MsgBox("Seleccione el Turno",
Esta propiedad se utiliza para indicar la posición del MsgBoxStyle.Critical, "Por Favor")
botón de opción. End If
Checked. ElseIf RadioButton3.Checked = True Then
Esta propiedad se utiliza para indicar si el botón de If RadioButton4.Checked = True Then
opción debe estar activado o desactivado. pension = 160
Text. ElseIf RadioButton5.Checked = True Then
Esta propiedad se utiliza para escribir el texto que pension = 140
debe acompañar al botón de opción. ElseIf RadioButton6.Checked = True Then
UseMnemonic. pension = 110
Esta propiedad se utiliza para indicar si dentro del Else
texto se puede utilizar una letra rápida con el MsgBox("Seleccione el Turno",
símbolo & para activar o desactivar el botón de MsgBoxStyle.Critical, "Por Favor")
opción. End If
Ejemplo 91: Else
MsgBox("Seleccione el Nivel",
MsgBoxStyle.Critical, "Por Favor")
End If
If CheckBox1.Checked = True Then
descuento = pension * 20 / 100
Else
descuento = 0
End If
pago = pension - descuento
Label6.Text = pension.ToString("###,##0.00")
Label7.Text = descuento.ToString("###,##0.00")
Label8.Text = pago.ToString("###,##0.00")
Instrucciones del botón Nuevo:
TextBox1.Clear()
TextBox2.Clear()
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
RadioButton5.Checked = False
RadioButton6.Checked = False
CheckBox1.Checked = False
Label6.Text = String.Empty
Label7.Text = String.Empty
Z
INSTITUTO SUPERIOR 53
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Z
INSTITUTO SUPERIOR 54
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Z
INSTITUTO SUPERIOR 55
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
Z
INSTITUTO SUPERIOR 56
TECNOLÓGICO MUNICIPAL
“PARCONA”
C.M. Nº 0886515 – R.M. Nº 0648-94-ED
LENGUAJE DE PROGRAMACIÓN V
adfsffsdfsf
Z