Convertir du Visual Basic en W_Langage Windev

Question

Bonjour,
Est-ce que quelqu'un pourrait m'aider à convertir du VB en W-langage.
Je cherche à traduire un script pris sur le site : http://www.vbfrance.com/codes/USB-DECODEUR-RC5-TELECOMMANDE-TV-VCR-AVEC-PIC18F4550_39418.aspx
Ex:
' HID interface API declarations...
Declare Function hidConnect Lib "mcHID.dll" Alias "Connect" (ByVal pHostWin As Long) As Boolean
Declare Function hidDisconnect Lib "mcHID.dll" Alias "Disconnect" () As Boolean
Declare Function hidGetItem Lib "mcHID.dll" Alias "GetItem" (ByVal pIndex As Long) As Long
Declare Function hidGetItemCount Lib "mcHID.dll" Alias "GetItemCount" () As Long
Declare Function hidRead Lib "mcHID.dll" Alias "Read" (ByVal pHandle As Long, ByRef pData As Byte) As Boolean

Merci d'eclairer ma lanterne

Brinasorec · Answer

Bonjour, 
Je voudrais savoir si vous avez réussi à convertir du VB en W-langage parce que moi aussi je cherche aussi a transcrire les fonctions de la mcHID.dll:

   FPrevWinProc = SetWindowLong(FWinHandle, GWL_WNDPROC, AddressOf WinProc)
et

Private Function WinProc(ByVal pHWnd As Long, ByVal pMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
   If pMsg = WM_HID_EVENT Then
       Select Case wParam
        
        ' HID device has been plugged message...
        Case Is = NOTIFY_PLUGGED
           MainForm.OnPlugged (lParam)


        ' HID device has been unplugged
        Case Is = NOTIFY_UNPLUGGED
           MainForm.OnUnplugged (lParam)
        
        ' controller has changed...
        Case Is = NOTIFY_CHANGED
           MainForm.OnChanged


        ' read event...
        Case Is = NOTIFY_READ
           MainForm.OnRead (lParam)
        End Select
   
   End If
   
   ' next...
   WinProc = CallWindowProc(FPrevWinProc, pHWnd, pMsg, wParam, lParam)
   
End Function

Sinon pour vos fonctions, il n'y a pas de déclaration à faire, c'est lors de l'appel de la fonction qu'il faut indiquer qu'elle fait partie d'une dll.

Exemple:

FWinHandle est une entier
Resultat est un booléen





FWinHandle = Handle(FenEnCours)




Resultat = API("mcHID.dll", "Connect", FWinHandle)

Convertir du Visual Basic en W_Langage Windev

1 réponse

Votre réponse

Discussions similaires