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

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

Marsh Posté le 25-07-2002 à 14:29:45    

Comment fait on MCI_MAKE_TMSF avec VB car je pige rien à la macro définie par C++...


Message édité par Kyle_Katarn le 25-07-2002 à 14:45:51
Reply

Marsh Posté le 25-07-2002 à 14:29:45   

Reply

Marsh Posté le 25-07-2002 à 14:45:21    

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...

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed