Prepara tus exámenes y mejora tus resultados gracias a la gran cantidad de recursos disponibles en Docsity
Gana puntos ayudando a otros estudiantes o consíguelos activando un Plan Premium
Prepara tus exámenes
Prepara tus exámenes y mejora tus resultados gracias a la gran cantidad de recursos disponibles en Docsity
Prepara tus exámenes con los documentos que comparten otros estudiantes como tú en Docsity
Encuentra los documentos específicos para los exámenes de tu universidad
Estudia con lecciones y exámenes resueltos basados en los programas académicos de las mejores universidades
Responde a preguntas de exámenes reales y pon a prueba tu preparación
Consigue puntos base para descargar
Gana puntos ayudando a otros estudiantes o consíguelos activando un Plan Premium
Comunidad
Pide ayuda a la comunidad y resuelve tus dudas de estudio
Ebooks gratuitos
Descarga nuestras guías gratuitas sobre técnicas de estudio, métodos para controlar la ansiedad y consejos para la tesis preparadas por los tutores de Docsity
Asignatura: programacion, Profesor: Un alumno de la etsi, Carrera: Ingeniería de Tecnologías y Servicios de Telecomunicación, Universidad: UPM
Tipo: Apuntes
1 / 52
Esta página no es visible en la vista previa
¡No te pierdas las partes importantes!
Todos tenemos una gran capacidad de auto – enseñanza, este y muchos otros manuales y cursos estimulan ese sentido de autoaprendizaje que tienes tu (lector), y de esto estoy seguro, sino, no te hubieras tomado la molestia de descargar este tutorial.
Los controles intrínsecos son aquellos que aparecen "cargados por defecto" en el cuadro de herramientas con abres VB. Estos se diferencian de los extrínsecos, por que una aplicación creada únicamente con estos controles (y^ sin^ agregar
referencias o librerías) se puede distribuir sin instalador (algunas veces).
Se utiliza para el ingreso y validación de datos o información.
Algunas Propiedades Text: Almacena la cadena de caracteres que contenga el control. DataFiled: Enlaza en control con un campo de base de datos. DataSource: Enlaza el control con un origen de manipulación de base de datos. MultiLine: Permite escribir varias líneas en el control. ScrollBars: Agrega barras de desplazamiento al control si esta MultiLine = True PasswordChar: Es el carácter que ocultara el texto que se escribe en el control, por ejemplo PasswordChar = * (Asterisco). Locked = Permite bloquear la escritura sobre el Textbox.
Hacer que un Textbox solo reciba números: Podemos utilizar el siguiente condicional en el evento Validate que no nos permitirá salir del control si lo escrito en él no son números: Private Sub Text1_Validate(Cancel As Boolean) If Not IsNumeric(Text1.Text) Then Cancel = True Else Text2.SetFocus End If End Sub
Pero para que las teclas "de letras" o "símbolos" no se puedan escribir es necesario: Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii <> Asc("9") Then If KeyAscii <> Asc("8") Then If KeyAscii <> Asc("7") Then If KeyAscii <> Asc("6") Then If KeyAscii <> Asc("5") Then If KeyAscii <> Asc("4") Then If KeyAscii <> Asc("3") Then If KeyAscii <> Asc("2") Then If KeyAscii <> Asc("1") Then If KeyAscii <> Asc("0") Then If KeyAscii <> 8 Then If KeyAscii <> 32 Then KeyAscii = 0 End If End If End If End If End If End If End If End If End If End If End If End If End Sub
Formatear un Textbox Esto se utiliza para que un Textbox muestre un numero separados por unidades y decimales. Private Sub Text1_LostFocus() If Text1.Text = "" Then Text1.Text = "0,00" End If Text1 = Format(CCur(Text1.Text), "###,###,###,##0.00") End Sub Para realizar operaciones matemáticas con un Textbox formateado se debes cambiar la función Val por CDbl , ejemplo: txResultado = CDbl(Text1) + CDbl(Text2)
Permite que se ejecute un procedimiento dependiendo de la verificación del Checkbox
Algunas Propiedades Style: Si es Graphical convierte el control en un botón de chequeo. Value: Activa o desactiva el valor de verificación. Cheked (Verifica), Uncheked (Desverifica) o Grayed (Inhabilitado)
Cambiar una etiqueta dependiendo del valor del ChekBox Private Sub Check1_Click() If Check1.Value = 1 Then Label1.Font.Bold = True Else Label1.Font.Bold = False End If End Sub
Algunas Propiedades Value: Puede ser (True) mostrando un punto negro o (False) quitándolo.
Mostrar la opción elegida If Option1.Value Then Text1.Text = " 01 Seleccionada Opcion 1" ElseIf Option2.Value Then Text1.Text = " 02 Seleccionada Opcion 2" End If
Algunas Propiedades List: Permite crear uno a uno los elementos de la lista del ComboBox Style: Permite cambiar a un combo simple o lista. Sorted: Si es (True) organiza los elementos de su lista alfabéticamente.
Agregar elementos mediante código Combo1.AddItem ("Elemento1") Combo1.AddItem ("Elemento2") Combo1.AddItem ("Elemento3") Realizar procedimientos dependiendo el elemento seleccionado Private Sub Combo1_Click() Select Case Combo1.Text Case ("Elemento1") ' Procedimiento Case ("Elemento2") ' Procedimiento Case ("Elemento3") ' Procedimiento End Select End Sub
Algunas Propiedades Style: Standard (Normal) o CheckBox (Una lista con casillas de verificación)
Permite enlazar un archivo externo a VB a un programa creado por nosotros.
Los demás controles no serán explicados porque si ya sabes lo básico, ya sabes eso.
Son controles que se agregan a una aplicación por la vía "Componentes", estos son controles Activex, creados por el usuario o los que se instalan con Visual Studio. El uso de estos controles en una aplicación requiere la creación de un instalador para su distribución.
Para agregar un CommonDiaolog, ve a "Proyecto > "Componentes" y agregas: Microsoft Common Dialog Control 6.0 (SP3)
Abrir un archivo para MediaPlayer 8 Private Sub Command1_Click() CommonDialog1.Filter = "Video (.mpeg) .mpeg|Musica (.mp3) .mp3|Todos los archivos (.) .|" CommonDialog1.FilterIndex = 1 CommonDialog1.ShowOpen lbNom.Caption = CommonDialog1.FileTitle MediaPlayer1.FileName = lbNom End Sub
Guardar como archivo de texto el contenido de un TextBox "txtEditor" Private Sub mnuArchivoGuardarComo_Click() ' Gestionar errores On Error GoTo GuardarComoProblema CommonDialog1.Filter = "Archivos de texto|.TXT|Archivos de lotes|.BAT|Archivos INI|*.INI" CommonDialog1.FilterIndex = 1 CommonDialog1.Action = 2 Open CommonDialog1.FileName For Output As 1 Print #1, txtEditor.Text Close 1 Exit Sub GuardarComoProblema: MsgBox Err.Descrption End Sub
Para agregar ToolBar e ImageList seleccionamos de "Componentes": Microsoft Windows Common Controls 6.0 (SP6)
Cargar imágenes al ImageList Click derecho sobre el ImageList1 > "Propiedades" En "General" elegimos el tamaño en que se verán las imágenes o iconos. En la pestaña "Imágenes" hay un botón llamado "Insertar Imagen", este nos abre un cuadro de dialogo de "Buscar en" el cual nos permite cargar las imágenes una a una. Luego de cargar las imágenes...
Crear la barra de herramientas Click derecho sobre ToolBar1 > "Propiedades" En "General" elegimos ImageList1 para ImageList. Y elegimos 1- tbrFlat en Style. En la pestaña "Botones" con el botón "Insertar" agregamos botones. Llenar el "Caption" no es obligatorio (preferiblemente no llenar) Llenar "Key" SI es obligatorio, (con lo que se escriba aquí se programa el toolbar) ToolTipText (no es obligatorio) muestra lo que escribamos aquí cuando pongamos el cursor sobre el botón del Toolbar. Description (no es obligatorio llenar) Image: aparece con un 0 (cero), para agregar una imagen se pone allí el numero de la imagen, es decir si quiero poner a ese botón la primera imagen del ImageList ponemos el numero 1. y así sucesivamente para otros botones.
Programar la barra de herramientas Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case "nuevo" ' Procedimiento
Case "guardar" ' Procedimiento Case "borrar" ' Procedimiento End Select End Sub
"nuevo", "guardar" y "borrar" son los "Keys" de los botones.
Para agregar un MMControl en "Componentes" eliges: Microsoft Multimedia Control 6.
Reproducir un CD de Audio
Private Sub Form_Load() Form1.Show MMControl1.Notify = False MMControl1.Wait = True MMControl1.Shareable = False MMControl1.Command = "Close" MMControl1.DeviceType = "CDAudio" MMControl1.Command = "Open" End Sub
Private Sub Form_Unload(Cancel As Integer) MMControl1.Command = "Stop" MMControl1.Command = "Close" End Sub
Private Sub MMControl1_StopCompleted(Errorcode As Long) MMControl1.From = 1 End Sub
Para estudiar los elementos de un proyecto, tomare como ejemplo un EXE Standard.
Un proyecto Standard puede tener:
Visual Basic trae la opción de agregar formularios “prediseñados”, al elegir “Agregar formulario” en esta venta aparecen opciones de formularios como, “Cuadro de dialogo Acerca de…”, “Cuadro de dialogo Inicio de sesión (el de la contraseña F 04 A)”, “Explorador web”, “Pantalla de inicio (o Submain)” entre otros… Estos formularios ya traen una parte del código hecho, pero para que funcionen de verdad se necesita agregar los procedimientos requeridos.
Algunas Propiedades
WindowState = Permite elegir el estado del formulario o ventana cuando se ejecute, puede ser minimizado, maximizado o normal.
StarUpPosition = Aquí se elige la ubicación en la pantalla del formulario. ShowInTaskBar = Si es False no aparece un botón de la ventana en la barra de tareas cuando se ejecuta el programa. Picture = Sirve para agregar un fondo de archivo (ya sea una imagen por ejemplo) al formulario. ControlBox = Si es False se quitan los botones “Minimizar – Maximizar/Restaurar
Como crear un formulario SubMain o de inicio (Splash) Colocar la propiedad ControlBox = False; BorderStyle = 3 – FixedDialog y borra el “Caption”. Luego colocamos las etiquetas o imágenes y agregamos un temporizador el cual tendra su propiedad Interval = 1000. y en su código …
Private Sub Timer1_Timer() Static C As Integer C = C + 1 If C = 3 Then Unload Me Form2.Show End If End Sub
En donde Form2 es el formulario que se mostrara después del SubMain.
Mover un formulario sin la barra de titulo (Tomado de “El Guille”)
Const WM_SYSCOMMAND As Long = &H112& Const MOUSE_MOVE As Long = &HF012& Private Declare Function ReleaseCapture Lib "user32" () As Long
Estos son los principales elementos de un EXE Standard, y no menciono a el “Web Class” ni al “DHTML Page” porque estos no están disponibles para un EXE Standard.
Como se supone que esto es un tutorial avanzado, no voy a explicar que son los eventos y procedimientos, vamos al grano con ejemplos prácticos F 04 A
Imitación de una hoja Excel Para este ejemplo vamos a utilizar los eventos del teclado “KeyPress”, “KeyDown”, Además el evento “GotFocus” y “LostFocus” y el “FormUnload”
Agrega 4 cajas de texto a un formulario así:
La idea es: F 04 ADesplazarnos por las cajas de texto con las teclas direccionales. F 04 ACuando una caja reciba el cursor, su contenido se seleccione. F 04 AQue las cajas solo reciban números. F 04 AQue los números se muestren en formato decimal F 04 AY que al cerrar el programa nos pregunte si estamos seguros de salir.
Pon la propiedad “Text” de todas las cajas de texto a “0,00”
Para desplazarnos con las direccionales…
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyRight Then Text2.SetFocus ElseIf KeyCode = vbKeyDown Then Text3.SetFocus End If End Sub Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyLeft Then Text1.SetFocus ElseIf KeyCode = vbKeyDown Then Text4.SetFocus
