Practicas en Visual Basic 6.0

    Para que aparezca la frase “Hola chicos de 2 informática “, para eso debemos seleccionar EXE estándar y luego abrir en donde empezaremos a diseñar nuestro formulario.      Como primera acción debemos de cambiar el nombre del formulario en la propiedad NOMBRE y colocar (frm1), luego en la propiedad CAPTION colocar (Practica1).      Posteriormente al formulario damos doble clic , para que nos aparezca la ventana donde Codificaremos el mensaje con el comando msgbox(“Hola estudiantes de 2 informática”), vbInformation, “Hola estudiantes de 2 informática” Cabe indicar que la función vbInformation realiza una interfaz con el signo de Admiración con fondo azul.      Para cambiar la apariencia en la interfaz de ejecución con el comando msgbox(“Hola estudiantes de 2 informática”), Cambiamos(vbInformation) por vbCritical, “Hola estudiantes de 2 informática” Cabe indicar que la función vbCritical realiza una interfaz con el signo de X con f...

  1. Inicializamos el programa y seleccionamos EXE ESTANDAR para luego colocar a el formulario (1 textbox, 2 Frame, 5 option button para el 1 frame y 2 para el frame 2 y un coman button). 2. Luego le cambiamos los nombres a los objetos desde la propiedad caption (es importante aclarar que como el aplicativo es cambiar color en un objeto en cada opcion button deberá ir el nombre de color que se desee aparezca en el textbox ; en el frame de abajo el movimiento arriba y abajo). 3. Una vez codificado cada objeto con el siguiente codigo el aplicativo quedará así  Private Sub Command1_Click() End End Sub Private Sub Form_Load() Txtcaja.Top = 0 End Sub Private Sub Option1_Click() Txtcaja.BackColor = vbBlue End Sub Private Sub Option2_Click() Txtcaja.BackColor = vbRed End Sub Private Sub Option3_Click() Txtcaja.BackColor = vbBlack End Sub Private Sub Option4_Click() Txtcaja.BackColor = vbYellow End Sub Private Sub Option5_Click() Txtcaja.BackColor = vbGreen End Sub Private Sub Option6...

  1. Inicializamos el programa y seleccionamos EXE ESTANDAR para luego colocar un color de fondo al formulario.  2. A continuacion se le asigna un fondo de color a los siguientes objetos (4 label, 4 textbox y 2 option button).  3. Una vez codificado cada objeto con el siguiente codigo el aplicativo quedará así: Private Sub Command1_Click()  Text2.Text = DateDiff("yyyy", Text1.Text, Format(Date, "dd/mm/yyyy")) Text3.Text = DateDiff("d", Text1.Text, Format(Date, "dd/mm/yyyy")) Text4.Text = DateDiff("m", Text1.Text, Format(Date, "dd/mm/yyyy")) End Sub Private Sub Command2_Click()  Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" End Sub Private Sub Command3_Click()  End End Sub

  1. Inicializamos el programa y seleccionamos EXE ESTANDAR para luego colocar un color de fondo al formulario. Luego insertamos 1 objeto picture y despúes en la propiedad del mismo nombre buscamos e insertamos una imagen. 2. Seguidamente a la imagen le insertamos 3 objetos shape y a cada uno le seleccionamos la propiedad (shape-circle) (backstyle-opaque). 3. Luego codificaremos 3 objetos timer. 4. Luego de ubicar los codigos a los objetos shape nos ubicamos al formulario y al 1 shape le cambiamos el color por el color negro copiamos ese codigo y manipulamos el color en una secuencia logica donde no debe aparecer mas colores sino el rojo en el 1 el naranja en el segundo y el verde en el 3 observen el siguiente codigo: Private Sub Timer1_Timer() Shape1.BackColor = &HFF& Shape2.BackColor = &H0& Shape3.BackColor = &H0& End Sub Private Sub Timer2_Timer() Shape1.BackColor = &H0& Shape2.BackColor = &H80FF& Shape3.BackColor = &H0& End Sub Pr...

 1. Inicializar el programa, maximizamos el formulario ubicandonos en la propiedad windowstate-maximized, luego cambiamos el color de de fondo del formulario y procedemos a descargar la imagen de la siguiente forma (imagenes de san valentin + jpg) y la pegamos en el programa paint. 2. Una vez recortada la imagen en fragmento y pegada en un objeto (image) debemos seleccionar el objeto (picturebox) y graficarlo en igual dimension que el fragmento de la imagen colocada en el formulario. 3. A cada picturebox lo seleccionamos y nos ubicamos en la propiedad (dragmode-1 automatical); luego a cada picturebox le asignaremos el siguiente codigo cambiando el evento clic para drapdrog, borrando las 2 lines del evento clic. Picture1.Picture = Source.Picture Source.Visible = False Private Sub Picture2_DragDrop(Source As Control, X As Single, Y As Single) Picture2.Picture = Source.Picture Source.Visible = False End Sub Private Sub Picture3_DragDrop(Source As Control, X As Single, Y As Single) Pic...

  Proceso: 1.Iniciar el programa. 2.Apertuamos un EXE ESTANDAR. 3.En el formulario insertamos los siguientes objetos (label, 2 textbox y 3 comandbutton). 4.Adjuntamos los códigos de los comandbutton. Private Sub Command1_Click()                                                                       Dim N As Integer   N = Val(Text1.Text)       For i = 1 To 12           Text1.AddItem i & " x " & N & " = " & i * N       Next   End Sub Private Sub Command2_Click()     Text1.Text = "" End Sub Private Sub Command3_Click()     End End Sub 5.. Por ultimo ejecutamos el programa.

  PRIMERAMENTE INICIALIZAMOS VISUAL, LUEGO CREAMOS UN EXE ESTÁNDAR  SEGUIDAMENTE DISEÑAMOS NUESTRO FORMULARIO CON 3 LABEL, 3 CAJAS DE TEXTO, 2 BOTONES Y UN PICTUREBOX PARA INSERTAR UNA IMAGEN (TABLA IMC EN FORMATO JPG) EN EL DISEÑO DEL FORMULRIO DEBEN ASIGNAR UN NOMBRE AL FORMULARIO EN SU PROPIEDAD CAPTION , LUEGO EN BACKCOLOR ASIGNAR UN COLOR DE FONDO; EL MISMO COLOR SE DEBERÁ ASIGNAR A LAS LABEL. BUENO AHORA COMENZAR A PROGRAMAR PRIMERAMENTE EL FORMULARIO CON LA SIGUIENTE LINEA DE CODIGO QUE PREVIAMENTE DEBEN ELIMINAR LO QUE COMUNMENTE APARECERA AL DAR DOBLE CLIC EN EL FORMULARIO . Dim peso, talla, resultado As Double CÓDIGO DEL BOTON CALCULAR Private Sub Command1_Click() peso = Textpeso.Text talla = Texttalla.Text resultado = peso / (talla * talla) Textresultado.Text = resultado Textpeso.Text = "" Texttalla.Text = "" Textpeso.SetFocus CÓDIGO PARA QUE LA CAJA DE TEXTO DONDE APARECE EL RESULTADO NO SE PUEDA INGRESAR ABSOLUTAMENTE NADA Private Sub Form_Load() Textre...

  1,- PRIMERAMENTE INICIALIZAMOS EL PROGRAMA Y SELECCIONAMOS UN EXE ESTÁNDAR; LUEGO AL FORMULARIO QUE APARECE LE MODIFICAMOS SU TAMAÑO. 2.- SEGUIDAMENTE DISEÑAMOS NUESTRO NUEVO FORMULARIO COLOCANDO UNA LABEL CON UNA FRASE, INSERTAMOS 2 TIMER Y CAMBIAMOS EL FONDO DEL FORMULARIO Y DE LA FUENTE Y FONDO DE LA LABEL . 3.- ESCRIBIMOS LA SIGUIENTE CODIFICACIÓN EN EL PRIMER TIMER Private Sub Timer1_Timer() If Label1.Left <= Form1.ScaleWidth - Label1.Width Then Label1.Left = Label1.Left + 75 Else Timer2.Enabled = True Timer1.Enabled = False End If End Sub 4.- Y ESTA NUEVA CODIFICACION PARA EL SEGUNDO TIMER Private Sub Timer2_Timer() If Label1.Left >= Form1.ScaleLeft Then Label1.Left = Label1.Left - 75 Else Timer1.Enabled = True Timer2.Enabled = False End If End Sub BUENO AHORA A CORRER EL PROGRAMA DEPURADO ANTERIORMENTE Y OBSERVAREMOS LA SIGUIENTE VENTANA 

  1.- PRIMERAMENTE INICIALIZAMOS EL PROGRAMA Y SELECCIONAMOS UN DLL ACTIVEX  2.- SEGUIDAMENTE codificamos nuestra nueva clase con la siguiente codificación Public Sub clave(cp As String) Dim i As Integer Dim codigo(3) As String codigo(0) = "00000" codigo(1) = "11111" codigo(2) = "22222" codigo(3) = "33333" If cp <> "" Then  For i = 0 To 3  If codigo(i) = cp Then  MsgBox ("LA CLAVE ES CORRECTA PRODUCTO ACTIVADO")  Exit For  Else  MsgBox ("LA CLAVE INGRESADA ES INCORRECTA")  Exit For  End If  Next Else  MsgBox ("FAVOR INGRESE UN CODIGO")  End If End Sub LUEGO DAMOS CLIC EN EL ICONO DE GUARDAR , Y LE ASIGNAMOS AL PRIMER ARCHIVO   EL  NOMBRE“CLAVE” Y AL PROYECTO “DLLCLAVE”TODO ESTO EN UNA CARPETA LUEGO DE HACER ESTE PROCESO NOS DIRIGIMOS AL MENÚ ARCHIVO-GENERAR  PROYECTO Y SELECCIONAMOS EL ARCHIVO ANTES CREADO Y ACEPTAR POSTERIORMENTE CREAMOS UN NUEVO PROYECTO EXE ESTÁNDAR CON UN NUEVO  FORMULARI...

  CALCULAR EL SALARIO DE UN TRABAJADOR  1.- PRIMERAMENTE CREAMOS UN EXE ESTÁNDAR , LUEGO DISEÑAMOS NUESTRO FORMULARIO Y LE COLOCAMOS UN FONDO DE PREFERENCIA DEL COLOR QUE UD DECIDA , LUEGO UBICAMOS 4 LABEL DONDE SE SE LE APLICARA A CADA UNA LA PROPIEDAD (BACKSTYLE - TRANSPARENTE) PARA QUE SE LE QUITE EL FONDO DE LA LABEL Y SE VEA EL FONDO DEL FORMULARIO VEAMOS LA IMAGEN; ADEMAS INSERTAREMOS 3 TEXTBOX A LADO DE CADA LABEL, 2 COMANDBUTTON. 2. LE PONEMOS LOS SIGUIENTES CODIGOS A LOS BOTONES PARA EL BOTON SALARIO Private Sub Command1_Click() total = "EL SALARIO TOTAL ES: $ " & ph * ht If ht >= 40 Then total = "EL SALARIO TOTAL ES : $ " & phe * (ht - 40) + 40 + ph End If End Sub PARA EL BOTON BORRAR Private Sub Command2_Click() ph = "" phe = "" ht = "" End Sub 3. EJECUTAMOS EL FORMULARIO 

  COMO CREAR UNA CALCULADORA 1. Primeramente inicializamos el programa y seleccionamos EXE ESTANDAR.  2.Luego diseñamos nuestro formulario y le colocamos un color de fondo de su preferencia y luego ubicamos 18 COMANDBUTTON y un TEXTBOX. 3. Ya listo nuestro diseño, le ponemos los siguientes codigos a los botones. Dim num1 As Integer Dim num2 As Integer Dim op As String BOTON #0 Text1.Text = Text1.Text & 0 BOTON #1 Text1.Text = Text1.Text & 1 BOTON #2 Text1.Text = Text1.Text & 2 BOTON #3 Text1.Text = Text1.Text & 3 BOTON #4 Text1.Text = Text1.Text & 4 BOTON #5 Text1.Text = Text1.Text & 5 BOTON #6 Text1.Text = Text1.Text & 6 BOTON #7 Text1.Text = Text1.Text & 7 BOTON #8  Text1.Text = Text1.Text & 8 BOTON #9 Text1.Text = Text1.Text & 9 BOTON PUNTO Text1.Text = Text1.Text & "." BOTON = If (num1 = 0) Then MsgBox ("No se realizo una operación") Else num2 = Text1.Text If op = "+" Then Text1.Text = num1 + num2 End If If o...

 1. Iniciamos el programa. 2. Hacer clic en EXE ESTANDAR. 3. Colocar los siguientes objetos en el formulario: 2 Label, 2 TextBox, 1 ScrollBar. 4. En la label 1 le asignaremos el nombre de "ºCentigrado" y en la label 2 le asignaremos el nombre de "ºFarenhein". 5. En el objeto ScrollBar le insertamos el siguiente codigo: OBJETO SCROLLBAR Private Sub ScrollBar1_Change(). Dim dblgrados As Double TextBox1.Text = ScrollBar1.Value dblgrados = 1.8 *  ScrollBar1.Value TextBox2.Text = dblgrados End Sub 6. Ejecutamos la calculadora. 7. Guardamos y salimos.

 1. Inicializamos el programa y creamos una carpeta con el nombre BASE DE DATOS.   2. Damos clic en "ver" y le asignamos el nombre a la tabla como NOMINA. 3. Colocamos los campos como: NOMBRE, APELLIDO, SEXO, EDAD, CURSO. 4. Al tipo de datos del NOMBRE son textos y al tamaño del campo le ponemos 25 caracteres, igualmente al APELLIDO al tamaño del campo le ponemos 25 caracteres, de igual manera al SEXO y al CURSO al tamaño del campo le ponemos 25 caracteres, el tipo de datos de la EDAD son numeros y al tamaño del campo le ponemos 10 caracteres. 5.Guardamos la tabla y le ponemos el nombre, el apellido, el sexo, la edad, y el curso de las personas (minimo 5 personas). 6. Guardamos y cerramos. 7.Abrimos Visual Basic. 8. Realizamos el siguiente diseño. 9. Para poder vincular la base de datos con visual basic, nos dirigimos a las herramientas, damos clic derecho y elegimos componentes, se nos desplegara una ventana, en cual elegiremos la opcion de "Microsoft ADD Data Control 6...