Temps entre 2 signaux en millisecondes sous Visual basic 6.0 [Résolu/Fermé]

Private Sub tempsatrouver()
 
    Dim vitesse As Long
    Dim timestart As Long
    Dim timefinich As Long
      If PortHex(1) = "FF" Then
    timestart = GetTickCount()
    premier.Caption = timestart
    
      End If
    
      If PortHex(1) = "7F" Then
     timefinich = GetTickCount()
    deuxieme.Caption = timefinich
     
      End If
      Label4.Caption = CStr(timefinich - timestart)
          
      tempsentredeuxsignaux.Caption = Label4.Caption
     '   vitesse = 60000 * 2 * 3.14 * 1.5 / CDbl(Label4.Caption)
        m_min.Caption = vitesse
End Sub

private sub tempsatrouver()

Public Sub Timer1_Timer()

Option Explicit

Private Const startPort As Integer = 0
Private Const portCountShow As Integer = 4

Private Declare Function GetTickCount Lib "kernel32" () As Long
'Déclaration des variables
'Public timestart As Long
'Public timefinich As Long
Dim appExcel As Excel.Application 'Application Excel
Dim wbexcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel

Private Sub HandleError(ByVal err As ErrorCode)
    Dim utility As BDaqUtility
    Dim errorMessage As String
    Dim res As ErrorCode

    Set utility = New BDaqUtility
    If err <> Success Then
        MsgBox "Sorry ! Some errors happened, the error code is: " & errorMessage, , "StaticDI"
    End If
End Sub

Private Sub Form_Load()
    ' le matériel choisis par défaut est "demo device", l'utilisateur peut en choisir
    ' un autre en fonction de ses besoins
    If Not InstantDiCtrl1.Initialized Then
        MsgBox "Please select a device with DAQNavi wizard!", , "StaticDI"
        End
    End If

    
    Dim devNum As Long
    Dim devDesc As String
    Dim devMode As AccessMode
    Dim modIndex As Long
    InstantDiCtrl1.getSelectedDevice devNum, devDesc, devMode, modIndex

    
    'Permettre au timer de lire les ports DI
    Timer1.Enabled = True
    'Ouverture de l'application
    Set appExcel = CreateObject("Excel.application")
    'Ouverture d'un fichier Excel
    Set wbexcel = appExcel.Workbooks.Open("C:\Users\la.quere\Documents\programmation peut etre finale\nombre de tours.xlsx")
    'wsExcel correspond à la première feuille du fichier
    Set wsExcel = wbexcel.ActiveSheet
    appExcel.Visible = True
    
          
End Sub
'form: recuperer_signal
Public Sub Timer1_Timer()
   
    Dim err As ErrorCode
    Dim portData As Byte
    Dim i As Integer, PCV As Long

    
 
    
    err = Success
    'recherche de la tension disponible sur les différents ports
    i = 0
    While (i + startPort) < InstantDiCtrl1.Features.PortCount And i < portCountShow
        portData = 0
        err = InstantDiCtrl1.ReadPort(i + startPort, portData)
        If err <> Success Then
            Timer1.Enabled = False
            HandleError (err)
            Exit Sub
        End If

        PortNum.Item(i).Caption = Str(startPort)
        PortHex.Item(i).Caption = Format(Hex(portData), "00")
        i = i + 1
    Wend
    If PortHex(0) <> "FF" Then
        Form1.Show 'ouvre la 2eme form pour compter
    ElseIf PortHex(0) = "FF" Then
        'récupération de la dernière valeur de form1
        recuperer_signal.Longueur_finale.Caption = Form1.longueur_fil.Caption
        'ecriture excel
        With wsExcel
            PCV = .Range("A" & Rows.Count).End(xlUp).Row + 1
            .Range("A" & PCV) = Longueur_finale.Caption
        End With
           Unload Form1 'on referme la form 1 pour la réinitialiser.
    
    End If
 ' Dim vitesse As Long
  '  Dim timestart As Long
   'Dim timefinich As Long
    'If PortHex(1) = "FF" Then
   'timestart = GetTickCount()
   'premier.Caption = timestart
    
    '  End If
    
    '  If PortHex(1) = "7F" Then
   ' timefinich = GetTickCount()
    'deuxieme.Caption = timefinich
     
     ' End If
     ' Label4.Caption = CStr(timefinich - timestart)
          
      'tempsentredeuxsignaux.Caption = Label4.Caption
       ' vitesse = 60000 * 2 * 3.14 * 1.5 / CDbl(Label4.Caption)
        'm_min.Caption = vitesse
    
End Sub

'Private Sub tempsatrouver()




 
 '   Dim vitesse As Long
  '  Dim timestart As Long
   ' Dim timefinich As Long
    ' If PortHex(1) = "FF" Then
   'timestart = GetTickCount()
   'premier.Caption = timestart
   ' End If
    
  ' If PortHex(1) = "7F" Then
   'timefinich = GetTickCount()
   'deuxieme.Caption = timefinich
     
    'End If
   'Label4.Caption = CStr(timefinich - timestart)
          
   'tempsentredeuxsignaux.Caption = Label4.Caption
  '    vitesse = 60000 * 2 * 3.14 * 1.5 / CDbl(Label4.Caption)
 '   m_min.Caption = vitesse
'End Sub

public timestart as long

public timefinich as long

option explicit