Practicas en Visual Basic 6.0

 Crear un formulario

    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 fondo rojo, tal como se observa en la pantalla.

     Para cambiar la apariencia en la interfaz de ejecución con el comando msgbox(“Hola estudiantes de 2 informática”), Cambiamos(vbCritical) por vbExclamation, “Hola estudiantes de 2 informática” Cabe indicar que la función vbExclamation realiza una interfaz con el signo de ! con fondo amarillo, tal como se observa en la pantalla.

    Para cambiar la apariencia en la interfaz de ejecución con el comando msgbox(“Hola estudiantes de 2 informática”), Cambiamos(vbExclamation) por vbYesNoCancel, “Hola estudiantes de 2 informática” Cabe indicar que la función vbYesNoCancel realiza una interfaz con tres botones Si.No. Cancelar tal como se observa la imagen. 

Como cambiar de fondo al formulario en Visual Basic

octubre 15, 2021

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_Click()

Txtcaja.Top = 0

End Sub

Private Sub Option7_Click()

Txtcaja.Top = Form1.ScaleHeight - Txtcaja.Height

End Sub

Como diseñar un formulario en Visual Basic que permita calcular la edad en año, meses y días.

octubre 15, 2021

 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

Como diseñar un semásforo en Visual Basic

 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

Private Sub Timer3_Timer()

Shape1.BackColor = &H0&

Shape2.BackColor = &H0&

Shape3.BackColor = &HC000&

End Sub

5. Luego cambiamos el colora todos los objetos shape y los ponemos de color negro.

6.- Ubicamos el intervalo a cada timer asignado los siguientes intervalos respectivamente (timer 1 8000, timer 2 16000 y el timer 3 24000) de esa manera ya tenemos que solo ejecutar nuestra aplicación.

Como crear un rompecabeza en Visual Basic

 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)

Picture3.Picture = Source.Picture

Source.Visible = False

End Sub

Private Sub Picture4_DragDrop(Source As Control, X As Single, Y As Single)

Picture4.Picture = Source.Picture

Source.Visible = False

End Sub

Private Sub Picture5_DragDrop(Source As Control, X As Single, Y As Single)

Picture5.Picture = Source.Picture

Source.Visible = False

End Sub

Private Sub Picture6_DragDrop(Source As Control, X As Single, Y As Single)

Picture6.Picture = Source.Picture

Source.Visible = False

End Sub

Private Sub Picture7_DragDrop(Source As Control, X As Single, Y As Single)

Picture7.Picture = Source.Picture

Source.Visible = False

End Sub

Private Sub Picture8_DragDrop(Source As Control, X As Single, Y As Single)

Picture8.Picture = Source.Picture

Source.Visible = False

End Sub

Private Sub Picture9_DragDrop(Source As Control, X As Single, Y As Single)

Picture9.Picture = Source.Picture

Source.Visible = False

End Sub

4. Posteriormente a cada objeto image en la propiedad dragmode le cambiamos 0 manual por 1 automatical.

5. Ejecutamos el programa y seleccionamos una imagen y debe quedar pegada en la parte en blanco. Seguidamente creamos un boton en el objeto comand button y le asignamos color seleccionado en la propiedad style-grafical.

Crear tabla de Multiplicar en Visual Basic 6.0.

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.

COMO CALCULAR EL IMC(ÍNDICE DE MASA CORPORAL) DE UNA PERSONA

 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()

Textresultado.Enabled = False

End Sub

CÓDIGO PARA QUE LAS 2 PRIMERAS CAJAS DE TEXTO SOLO SE PUEDA

INGRESAR SOLO NUMEROS (OBIAMENTE CAMBIANDO EL EVENTO QUE

APARECE POR DEFAULT POR KEYPRESS)

Private Sub Textpeso_KeyPress(KeyAscii As Integer)

If (KeyAscii >= 97) And (KeyAscii < 122) Or (KeyAscii >= 67) And (KeyAscii < 90)

Then

MsgBox "Ingrese solo numeros"

KeyAscii = 8

End If

Como crear un efecto de animación o en movimiento como marquesina .

noviembre 12, 2021

 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 

Como crear DLL para aplicaciones  

  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 FORMULARIO

UNA VEZ CREADO ESTE NUEVO FORMULARIO DAMOS CLIC EN EL TEXTBOX Y NOS

UBICAMOS EN EL MENÚ PROYECTO Y SELECCIONAMOS LA OPCION “AGREGAR MODULO

DE CLASE”, DAMIS CLIC EN EXISTENTE, SELECCIONAMOS CLASE Y ABRIR.

SEGUIDAMENTE EN EL MISMO TEXBOX SELECCIONADO VOLVEMOS A INGRESAR AL

MENÚ PROYECTO Y SELECCIONAMOS LA OPCIÓN REFERENCIAS -EXAMINAR-BUSCAMOS

LA CARPETA DONDE TENEMOS GUARDADOS NUESTRA CLASE Y PROYECTO

SELECIONAMOS EL ARCHIVO GENERADO Y ACEPTAR

BUENO LLEGO LA HORA DE PROGRAMAR EN EL PRIMER FORMULARIO EN EL BOTON

“INGRESAR CLAVE PONEMOS EL SIGIENTE CODIGO

Private Sub Command1_Click()

cmdprincipal.Hide

fmractivar.Show

End Sub”

LUEGO EN EL SEGUNDO FORMULARIO EN EL BOTON ACTIVAR PONEMOS LA SIGUIENTE

CODIFICACION

Dim cl As New Class1

Private Sub Command1_Click()

cl.clave txtcodigo.Text

txtcodigo.Text = ""

txtcodigo.SetFocus

End Sub

BUENO AHORA A CORRER EL PROGRAMA DEPURADO ANTERIORMENTE.

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 op = "-" Then

Text1.Text = num1 - num2

End If

If op = "/" Then

Text1.Text = num1 / num2

End If

If op = "*" Then

Text1.Text = num1 * num2

End If

End If

BOTON +

num1 = Text1.Text

Text1.Text = ""

op = "+"

Text1.SetFocus

BOTON -

num1 = Text1.Text

Text1.Text = ""

op = "-"

Text1.SetFocus

BOTON *

num1 = Text1.Text

Text1.Text = ""

op = "*"

Text1.SetFocus

BOTON /

num1 = Text1.Text

Text1.Text = ""

op = "/"

Text1.SetFocus

BOTON C

Text1.text = ""

Text1.setfocus

BOTON NEW

Text1.text = ""

Text.setfocus

4. Y por ultimo ejecutamos la calculadora