codigo

La siguiente aplicación consiste en la gestión de un parking de automóviles.
En esta captura de pantalla se puede ver la ventana principal del programa cuando se inicializa.

El código deFormParking:
Option Explicit
Private n As Integer
Private Anterior As Integer: Private Actual As Integer
Private Sub BotonContabilidad_Click()
Call AbrirFormContabilidad
End Sub
Private SubBotonEntradas_Click()
Call AbrirFormEntrada
End Sub
Private Sub BotonImagenSalir_Click() ‘Boton Imagen para salir del programa
End
End Sub
Private Sub BotonSalidas_Click()
Call AbrirFormSalida
End SubPrivate Sub Form_Load()
Dim i As Integer
For i = 0 To 24
Picture1(i).Visible = False
Next
Picture1(0).Visible = True
End Sub
Private Sub Timer1_Timer()
LabelFecha = Format(Now(), (“DD/MM/YY”))LabelHora = Format(Now(), (“HH:MM:SS”))
End Sub
Private Sub Timer2_Timer() ‘Para visualizar Icono: Car
If n < 24 Then
Picture1(Anterior).Visible = False
Actual = Anterior + 1Picture1(Actual).Visible = True
Anterior = Actual
n = n + 1
Else
Picture1(Actual).Visible = False
Actual = Anterior – 24
Picture1(Actual).Visible = True
Anterior = Actual
n = 0
End If
End Sub
Otras capturasde pantalla y su correspondiente código:

El código de FormEntrada:
Option Explicit
Private Sub BotonGuardar_Click()
‘Ver si se han introducido datos en TextBox(0):Matricula
IfTextEntradas(0).Text = “” Then
MsgBox “Introduce Matrícula”, vbInformation, “”
Else
Call GuardarEntrada
End If
End Sub
Private Sub BotonVolver_Click()
Call Volver
End Sub

El código de FormSalida:
OptionExplicit
Private Sub BotonGuardar_Click()
‘Ver si se han intrioducido datos en TextBox(0):Matricula
If TextSalidas(0).Text = “” Then
MsgBox “Introduce Matrícula”, vbInformation, “ATENCION”
ElseCall GuardarSalida
End If
End Sub
Private Sub BotonVolver_Click()
Call Volver
End Sub

El código de FormContabilidad:
Option Explicit
Private Sub BotonCalcular_Click()
Call ImporteTotal...