Requisitos
  1. Insertar un objeto Timer
  2. Insertar un objeto Image1 y colocarle la imagen que bajaron de internet en la propiedad Picture.
  3. Ingresar en la ventana de código las siguientes instrucciones

Dim Velocidad As Double


Private Sub Form_Load()

'Posicionamos el picture o el control image en el form

Image1.Top = 10
Image1.Left = 10

' maximiza el formulario
Me.WindowState = 2

'Establecemos un valor al Timer y lo activamos
Timer1.Enabled = True
Timer1.Interval = 10

'Establecemos valores a las variables _
para el efecto de rebote

Fuerza = 1.7
Velocidad = 0

End Sub

Private Sub Timer1_Timer()

If Image1.Top > 4000 Then
   ' Esta línea se ejecuta cuando llega al limite
   Image1.Top = 4000
   Velocidad = Velocidad * -0.6
End If

  Velocidad = Velocidad + Fuerza

 ' mueve le top en el control image
  Image1.Top = Image1.Top + Velocidad
End Sub

Ejercicio con Base de Datos

Ejercicio 01

  1. Crear una base de datos en Access con el nombre que gustes en una carpeta donde almacenaras todo el proyecto que vamos a desarrollar.
  2. Crear una tabla con los campos que se muestran en la pantalla y al final guardarla con el nombre de Nombres. 
  3. No olvidar crear el indice.
  4. Cerrar la tabla.





  • Crear un nuevo proyecto en Visual Basic 6.0
  • Hacer referencia a "Microsoft DAO 3.6 Objec Library" ¿como agregarla?, ir a la Barra de Menú  de Visual Basic, ubicar el menú Proyecto - Referencias (a continuación la pantalla). Dar Aceptar.









  • Crear el siguiente diseño en un formulario de Visual Basic
 

  • Crear las variables que utilizaremos para conectarnos a la Base de datos y a la tabla, esto dando doble click al formulario, en la ventana de codigo ubicar en el combobox General e introducir el siguiente código.

  •  Nos conectamos a la base de datos como se muestra en la siguiente imagen, esto se hace en la propiedad load del formulario debido a que desde que aparezca el formulario en la pantalla debe estar ya conectada a la base de datos y a la tabla para que sea transparente para el usuario.
 

  • Ingresaremos el código al boton de Consultar que es el siguiente
recordset.index = "Clave"
recordset.seek "=", val(text1.text)

If recordset.nomatch then
  msgbox "Registro no localizado"
else
   text2.text = recordset.fields("Nombres")
   text3.text = recordset.fields("Apellidos")
end if

  • Ingresamos el código en el botón de actualizar
recordset.edit
recordset.fields("Nombres") = Text2.text
recordset.fields("Apellidos") = Text3.text
recordset.update
msgbox "Registro Actualizado"
  • Ingresamos el código al botón "Borrar Registro"
 res=msgbox("¿Deseas eliminar el registro?",vbinformation+vbyesno,"Aviso Importante")
if res=6 then
    recordset.delete
    msgbox "Registro Eliminado"
else
    msgbox "Operacion Cancelada"
endif

  • Insertamos el siguiente código en el botón de "Nuevo"
recordset.movelast
text1.text=recordset.fields("Clave")+1
text2.text=""
text3.text=""

  • Insertamos el siguiente código en el botón de "Insertar"
recordset.addnew
recordset.fields("Clave") = text1.text
recordset.fields("Nombres") = text2.text
recordset.fields("Apellidos") = text3.text
recordset.update

    Ejercicios msgbox e inputbox de Visual Basic 6.0

    MSGBOX
    Muestra un mensaje en un cuadro de diálogo, espera a que el usuario haga clic en un botón y devuelve un entero que indica el botón utilizado.
    Ejercicio 1

    1.- Crear un formulario con un botón de comando como se muestra en la figura



    2.- Incluir el el command1 el siguiente codigo en el evento click

    msgbox "Actualización terminada", vbokonly, "Información"

    3.- Ejecutar la aplicación

    Ejercicio 2

    Reemplaza el código del botón de comando anterior en el evento click e ingresa el siguiente código

    msgbox "¿Quieres seguir?", vbYesNo, "Información importante"

    Ejercicio 3
     
    Reemplaza el código del botón de comando anterior en el evento click e ingresa el siguiente código
     
    Dim intRespuesta As Integer

    intRespuesta = MsgBox("¿Quieres seguir?", vbQuestion + vbYesNo, Información importante")
    If intRespuesta = 6 Then
            MsgBox"Seguimos"
    Else
            MsgBox"Terminamos"
    End If
     
    Ejercicio 4
     
    Reemplaza el código del botón de comando anterior en el evento click e ingresa el siguiente código
     
    msgbox "Actualización terminada:" & vbCrLf & vbCrLf & _
    "- Importación de datos de venta." & vbCrLf & "- Cálculos de impuestos." & _
    vbCrLf & "- Venta por proveedor." & vbCrLf , vbOKOnly, "Actualización terminada."

    Ejercicio 5

    Reemplaza el código del botón de comando anterior en el evento click e ingresa el siguiente código

    msgbox "Actualización terminada:" & vbCrLf & vbCrLf & _

    "- Importación de datos de venta." & vbCrLf & _
    "- Cálculos de impuestos." & vbCrLf & _
    "- Venta por proveedor." & vbCrLf _
    , vbExclamation + vbOKOnly, _
    "Actualización terminada."

    INPUTBOX
    Esta función muestra un cuadro de diálogo modal (éste es un término técnico para definir un formulario que ha de cerrarse antes de poder continuar con el desarrollo normal del programa), que contiene un Título y un Mensaje (definibles), un cuadro de texto y dos botones "ACEPTAR" y "CANCELAR".
     
    Ejercicio 1
    Reemplaza el código del botón de comando anterior en el evento click e ingresa el siguiente código

    Dim Val As String

    Val = InputBox("Cual es tu nombre", "Ejemplo 1.-  INPUTBOX")
    MsgBox "Su nombre es: " & Val

    Ejercicio 2

    Reemplaza el código del botón de comando anterior en el evento click e ingresa el siguiente código

    Dim Val As String
    Val = InputBox("Digita tu numero de cuenta", "Ejemplo 2.- INPUTBOX","ABC-123")

    Ejercicio 3
    Reemplaza el código del botón de comando anterior en el evento click e ingresa el siguiente código
    Dim A As Double 'Números con muchos decimales
    A = InputBox("Ingresa el precio del cual quieres obtener el IVA")
    A = A * 0.15 'Obtenemos el IVA
    MsgBox "El iva es: " & A