none
Convertion de C++ en VB.NET 2010 RRS feed

  • Question

  • Bonjour,

    Je dois lire une carte RFID sur une caisse. J'ai un exemple de code en C++ mais je n'arrive pas à le traduire en VB.NET 2010.

    Voici le code C++ :

    dans la dll :

    extern

    "C"__declspec(dllexport) int__stdcallCommRead(intindex, int  *id, char*function, char*data);

    dans le code C++

    char

        Func[10], Data[100];

    void

    __fastcallTFrmMain::Timer1Timer(TObject *Sender)

    {

       

    int         i;

       

    if(CommRead(0,&i,Func,Data) != 0)

        {

            LRece->Caption = AnsiString(Func) +

    " "+ AnsiString(Data);

           

    if(StrLen(Data) == 17) EUID->Text = AnsiString(Data+1);

           

    else                    EUID->Text = "";

            Count = 5;

        }

       

    else


           

    if(--Count == 0) LRece->Caption = "";

    }

    Voici ma traduction :

    Private

    Declare FunctionCommRead Lib "C:\DEV\TestRFIDCaisse\TestRFIDCaisse\SunComm.dll"(ByValidx As Integer, ByRefID As Integer, ByRefFunctio As Char, ByRefDataR As Char) As String

       

    DimFunc(10) AsChar


       

    Dimdata(100) AsChar

       

    PrivateSubTimer1_Tick(ByValsender AsSystem.Object, ByVale AsSystem.EventArgs) HandlesTimer1.Tick

           

    Dimlu AsString= ""


           

    Dimi AsInteger= 0

           

    If(CommRead(0, i, Func(0), data(0)) <> 0) Then


               

    'LRece->Caption = AnsiString(Func) + " " + AnsiString(Data);


               

    'if (StrLen(Data) == 17) EUID->Text = AnsiString(Data+1);


                lu = Func.ToString &

    " "& data.ToString

           

    EndIf


       

    EndSub

    Si quelqu'un pouvait m'aider, d'avance merci

    Func[10], Data[100];


    Fab!

    mercredi 9 septembre 2015 12:31

Réponses

  • Bonjour, FabSaz, 

    Veuillez consulter le lien en bas:
    What is the header file for AnsiString..?
    Je vous remercie par avance de votre retour.

    Cordialement,
    Teodora


    Votez! Appel à la contribution TechNet Community Support. LE CONTENU EST FOURNI "TEL QUEL" SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. S'il vous plaît n'oubliez pas de "Marquer comme réponse" les réponses qui ont résolu votre problème. C'est une voie commune pour reconnaître ceux qui vous ont aidé, et rend plus facile pour les autres visiteurs de trouver plus tard la résolution.

    jeudi 10 septembre 2015 11:30
    Modérateur

Toutes les réponses

  • Bonjour, FabSaz,

    Veuillez préciser quel type de classe sont les objets LRece et EUID ?
    Je vous remercie par avance de votre retour.

    Cordialement,
    Teodora


    Votez! Appel à la contribution TechNet Community Support. LE CONTENU EST FOURNI "TEL QUEL" SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. S'il vous plaît n'oubliez pas de "Marquer comme réponse" les réponses qui ont résolu votre problème. C'est une voie commune pour reconnaître ceux qui vous ont aidé, et rend plus facile pour les autres visiteurs de trouver plus tard la résolution.

    jeudi 10 septembre 2015 09:33
    Modérateur
  • bonjour,

    LRece est un objet label et EUID est un objet texte. Ils servent à l'affichage.

    Merci


    Fab!

    jeudi 10 septembre 2015 09:40
  • Bonjour, FabSaz, 

    Veuillez consulter le lien en bas:
    What is the header file for AnsiString..?
    Je vous remercie par avance de votre retour.

    Cordialement,
    Teodora


    Votez! Appel à la contribution TechNet Community Support. LE CONTENU EST FOURNI "TEL QUEL" SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. S'il vous plaît n'oubliez pas de "Marquer comme réponse" les réponses qui ont résolu votre problème. C'est une voie commune pour reconnaître ceux qui vous ont aidé, et rend plus facile pour les autres visiteurs de trouver plus tard la résolution.

    jeudi 10 septembre 2015 11:30
    Modérateur