When I compile it does not work furthermoretou can help me on the procedure to follow so that it works with the DLL 8055 with my program in VB PLEASE
Sorry for my english
Code:
'////////PREMIER CAPTEUR //////////////////////////////////////////////////////////

'
'Je lance le programme au démarrage
'Lancer un programme au démarrage du PC -> Sans toucher au registre( menu Démarrer )

Private Declare Function SetTimer Lib "user32" ( _
ByVal HWnd As Long, ByVal nIDEvent As Long, _
ByVal uElapse As Long, ByVal lpTimerFunc As Long)
Private Declare Function KillTimer Lib "user32" ( _
ByVal HWnd As Long, ByVal nIDEvent As Long)
Private Declare Function OpenDevice Lib "K8055D.DLL" (ByVal CardAddress As Long)
Private Declare Function ReadAllDigital Lib "K8055D.DLL" ()
Private Declare Function ReadIOchannel Lib "K8055D.DLL" (ByVal Channel As Long)
' OU Private Declare Function ReadDigitalChannel Lib "K8055D.DLL" (ByVal Channel As Long)

Dim TimerID As Long
Dim TimerSeconds As Single
Dim Connected As Boolean

Sub Main()

        'Initialisation des variables
        
        Dim Byt As Long
        Byt = ReadIOchannel(1)
        Dim Date_jour As Date
        Dim heure As Date
        Dim N As Integer
        N = 0                      
        
        'Boucle infinie /!\
        While 1
            'Récupération de la date actuelle
            Date_jour = DateTime.Now.ToShortDateString() 'je recupere que jour/moi/année
            heure = DateTime.Now.ToLongTimeString()  'je recupere que heure/min/sec

'///////////////////////////// TEST CHANGEMENT DE JOUR ///////////////////////////////////

                          If Date_jour <> Worksheets("Production en cours 1").Cells(N, 3).Value Then
                          
                            'creer nouveau classeur            
                                Dim D As String
                                D = Day(Now) & Month(Now) & Year(Now) & "_" & Hour(Now) & Minute(Now)
                                Workbooks.Add
                                 ChDir "C:\Documents and Settings\moi\Bureau"
                                 ActiveWorkbook.SaveAs Filename:= _
                              "C:\Documents and Settings\moi\Bureau\Production en cours 1_" & D & ".xlsx", _
                                FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

'///////////////////////////// DEFINITON DES COLONNES ///////////////////////////////////
    'On nomme les colonnes
    
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Nombre de Flacon"
    Range("A2").Select
    Columns("A:A").ColumnWidth = 16.71
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "Heure"
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "Date"
    Range("C2").Select

'///////////////////////////// LES VARIABLES   ///////////////////////////////////

                Dim nb_flacon As Integer
                nb_flacon = 1             

'///////////////////////////// Remplissage du tableau ///////////////////////////////////

' Remplir 3 colonnes : une disant le nombre de flacon et une les jours et l'autre les heures

If (Byt = 1) Then
' prévoir un anti rebond avec détection de front descendant    
     
ActiveSheet.Cells(N, 1).Value = nb_flacon

'j'incremente mon nombre de flacon
nb_flacon = nb_flacon + 1
ActiveSheet.Cells(N, 2).Value = heure
ActiveSheet.Cells(N, 3).Value = Date_jour

'j'avance d'une ligne
N = N + 1

'///////////////// Function sauvegarder ///////////////////////////////////////
'pour sauvegarder tout les 100 flacons
Dim Save As String
Save = nb_flacon / 100

'Save : valeur booléen. Vrai si c'est un entier, faux sinon.

Function Entier(ByVal Save) As Boolean
Entier = Int(Save) = Save
End Function

If Save = 1 Then
    ActiveWorkbook.Save
      End If                                        
End If
   
    Else
'///////////////////////////// CHANGEMENT DE JOUR ///////////////////////////////////
    
              ' Subtract one day.
              Dim today As DateTime
              Dim Yesterday As DateTime
              today = System.DateTime.today
              Yesterday = today.AddDays(-1)

                ' Write the yesterday value.

                              ChDir "C:\Documents and Settings\moi\Bureau"
                             ActiveWorkbook.SaveAs Filename:= _
                             "C:\Documents and Settings\moi\Bureau\Production flacon 1_" & Yesterday & ".xlsx", _
                            FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
                            
    
   
End Sub
Thank for you help