Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
6819 connectés 

  FORUM HardWare.fr
  Programmation

  MCI_MAKE_TMSF en VB [Résolu par moi même]

 
 


Dernière réponse
Sujet : MCI_MAKE_TMSF en VB [Résolu par moi même]
Kyle_Katarn j'au trouvé c'est :
 

Code :
  1. Public Function MCI_MAKE_TMSF( _
  2.   intTrack As Integer, _
  3.   intMinute As Integer, _
  4.   intSecond As Integer, _
  5.   intFrames As Integer) _
  6.   As Long
  7.     ' Comments  : This function converts from Tracks/Minute/Seconds to a position
  8.     '             usable by MCI
  9.     ' Parameters: intTrack - The track position
  10.     '             intMinute - The minute position
  11.     '             intSecond - The seconds position
  12.     ' Returns   : The converted position
  13.     '
  15.     On Error GoTo PROC_ERR
  17.     'MCI_MAKE_TMSF = CLng(intTrack) Or CLng(Shli(intMinute, 8)) Or CLng(Shll(intSecond, 16))
  18.    
  19.     MCI_MAKE_TMSF = CLng(intTrack) Or CLng(Shli(intMinute, 8)) Or CLng(Shll(intSecond, 16)) Or CLng(Shll(Shli(intFrames, 8), 16))
  20.    
  21. PROC_EXIT:
  22.     Exit Function
  24. PROC_ERR:
  25.     MsgBox "Error: " & Err.Number & ". " & Err.Description, , _
  26.             "MCI_MAKE_TMSF"
  27.     Resume PROC_EXIT
  28. End Function
  30. Private Function Shll(ByVal lngNumber As Long, ByVal bytPlaces As Byte) As Long
  31.     ' Comments  : Shifts a numeric Value left the specified number of bits.
  32.     ' Parameters: lngNumber - long Value to shift
  33.     '             bytPlaces - number of places to shift
  34.     ' Returns   : Shifted Value
  35.     '
  36.     Dim dblMultiplier As Double
  38.     ' if we are shifting 32 or more bits, then the result is always zero
  39.     If bytPlaces >= 32 Then
  40.         Shll = 0
  41.     Else
  42.         dblMultiplier = 2 ^ bytPlaces
  43.         Shll = CLng(lngNumber * dblMultiplier)
  44.     End If
  48. End Function
  50. Private Function Shli( _
  51.   ByVal intValue As Integer, _
  52.   ByVal bytPlaces As Byte) _
  53.   As Integer
  54.     ' Comments  : Shifts a numeric value left the specified number of bits.
  55.     '             Left shifting can be defined as a multiplication operation.
  56.     '             For the number of bits we want to shift a value to the
  57.     '             left, we need to raise two to that power, then multiply the
  58.     '             result by our original value.
  59.     ' Parameters: intValue - integer value to shift
  60.     '             bytPlaces - number of places to shift
  61.     ' Returns   : Shifted value
  62.     '
  63.     Dim lngMultiplier As Long
  66.     ' if we are shifting 16 or more bits, then the result is always zero
  67.     If bytPlaces >= 16 Then
  68.         Shli = 0
  69.     Else
  70.         lngMultiplier = 2 ^ bytPlaces
  71.         Shli = CInt(intValue * lngMultiplier)
  72.     End If
  76. End Function


 
A quand la mise en forme VB du texte...

Votre réponse
Nom d'utilisateur    Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !
Le ton de votre message                        
                       
Votre réponse
[b][i][u][strike][spoiler][fixed][cpp][url][email][img][*]   
 
   [quote]
 
Options

 
Vous avez perdu votre mot de passe ?


Vue Rapide de la discussion
Kyle_Katarn j'au trouvé c'est :
 

Code :
  1. Public Function MCI_MAKE_TMSF( _
  2.   intTrack As Integer, _
  3.   intMinute As Integer, _
  4.   intSecond As Integer, _
  5.   intFrames As Integer) _
  6.   As Long
  7.     ' Comments  : This function converts from Tracks/Minute/Seconds to a position
  8.     '             usable by MCI
  9.     ' Parameters: intTrack - The track position
  10.     '             intMinute - The minute position
  11.     '             intSecond - The seconds position
  12.     ' Returns   : The converted position
  13.     '
  15.     On Error GoTo PROC_ERR
  17.     'MCI_MAKE_TMSF = CLng(intTrack) Or CLng(Shli(intMinute, 8)) Or CLng(Shll(intSecond, 16))
  18.    
  19.     MCI_MAKE_TMSF = CLng(intTrack) Or CLng(Shli(intMinute, 8)) Or CLng(Shll(intSecond, 16)) Or CLng(Shll(Shli(intFrames, 8), 16))
  20.    
  21. PROC_EXIT:
  22.     Exit Function
  24. PROC_ERR:
  25.     MsgBox "Error: " & Err.Number & ". " & Err.Description, , _
  26.             "MCI_MAKE_TMSF"
  27.     Resume PROC_EXIT
  28. End Function
  30. Private Function Shll(ByVal lngNumber As Long, ByVal bytPlaces As Byte) As Long
  31.     ' Comments  : Shifts a numeric Value left the specified number of bits.
  32.     ' Parameters: lngNumber - long Value to shift
  33.     '             bytPlaces - number of places to shift
  34.     ' Returns   : Shifted Value
  35.     '
  36.     Dim dblMultiplier As Double
  38.     ' if we are shifting 32 or more bits, then the result is always zero
  39.     If bytPlaces >= 32 Then
  40.         Shll = 0
  41.     Else
  42.         dblMultiplier = 2 ^ bytPlaces
  43.         Shll = CLng(lngNumber * dblMultiplier)
  44.     End If
  48. End Function
  50. Private Function Shli( _
  51.   ByVal intValue As Integer, _
  52.   ByVal bytPlaces As Byte) _
  53.   As Integer
  54.     ' Comments  : Shifts a numeric value left the specified number of bits.
  55.     '             Left shifting can be defined as a multiplication operation.
  56.     '             For the number of bits we want to shift a value to the
  57.     '             left, we need to raise two to that power, then multiply the
  58.     '             result by our original value.
  59.     ' Parameters: intValue - integer value to shift
  60.     '             bytPlaces - number of places to shift
  61.     ' Returns   : Shifted value
  62.     '
  63.     Dim lngMultiplier As Long
  66.     ' if we are shifting 16 or more bits, then the result is always zero
  67.     If bytPlaces >= 16 Then
  68.         Shli = 0
  69.     Else
  70.         lngMultiplier = 2 ^ bytPlaces
  71.         Shli = CInt(intValue * lngMultiplier)
  72.     End If
  76. End Function


 
A quand la mise en forme VB du texte...
Kyle_Katarn Comment fait on MCI_MAKE_TMSF avec VB car je pige rien à la macro définie par C++...

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo

Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)