Parte 4 – Uso del Control Timer en el Formulario de Inicio

En este vídeo explico como se utiliza el control Timer, y como usamos varias funciones de visual como Dir, App que son necesarias para lo que queremos lograr con nuestra pantalla de Inicio.

Colabora y Suscribete a mi canal de 

 

La función Dir: Devuelve una cadena que representa el nombre de un archivo, directorio o carpeta que coincide con un modelo especificado o atributo de archivo o la etiqueta de volumen de una unidad.

La Funcion App.path: Devuelve la ubicación actual de nuestra aplicación con respecto a la raíz del disco duro.

Parte 1 del Video:

Parte 2 del Vídeo:

Código Usado:

Dim ArchivosAplicacion(3) As String

Sub ListaArchivosConfiguracion()
    ArchivosAplicacion(0) = App.Path & "/configuracion.ini"
    ArchivosAplicacion(1) = App.Path & "/tiket.ini"
    ArchivosAplicacion(2) = App.Path & "/Db/Dbventas.accdb"
    ArchivosAplicacion(3) = App.Path & "/urldb.txt"
End Sub

Sub VerificarExisteArchivo(Num)
    Resulconsulta = Dir(ArchivosAplicacion(Num))
    If Len(Resulconsulta) > 0 Then
       lblVerificando.Caption = lblVerificando.Caption & "Ok"
    Else
       MsgBox "El archivo " & ArchivosAplicacion(Num) & " No existe verifique", vbCritical, "Error Critico"
       Timer1.Enabled = False
       Unload Me
   End If

End Sub

Sub ConsultaDirectorios(Tiempo)

    Select Case Tiempo
        Case 1
            lblVerificando.Caption = "Verificando ..."
        Case 2
            lblVerificando.Caption = "Verificando archivos de configuración ..."
            Call VerificarExisteArchivo(0)
        Case 3
            lblVerificando.Caption = "Verificando archivos de ticket ..."
            Call VerificarExisteArchivo(1)
        Case 4
            lblVerificando.Caption = "Verificando archivos de Base de datos ..."
            Call VerificarExisteArchivo(2)
        Case 5
            lblVerificando.Caption = "Cargando archivo de ubicación de DB ..."
        Case Else
            Timer1.Enabled = False
            Unload Me
            Form1.Show
    End Select
End Sub

Private Sub Form_Load()
    Call ListaArchivosConfiguracion
End Sub

Private Sub Timer1_Timer()
   Static Tiempo
   Tiempo = Tiempo + 1
   Call ConsultaDirectorios(Tiempo)
End Sub

 

Síguenos:

Suscribete a Youtube

Siguenos en Twitter

Siguenos en Facebook

Siguiente Lección Parte 5 – Creación de la Base de Datos y Conectado con ADO y Formulario Login

Comentarios de Facebook

Deja un comentario