Aide VB .net

van' -  
 RAGNAROK -
Hello !!
est ce que qq1 connait un bon site qui m'aiderait à apprendre VB .net ????

3 réponses

  1. monbobo Messages postés 106 Date d'inscription   Statut Membre Dernière intervention   133
     
    Tu peux essayer le didacticiel ds l'aide attachée au server IIS, c assez efficasse pour acquérir les bases et la philosophie du language.
    0
  2. Xman
     
    moi me suis acheté un gros bouqin vb.net professionnel

    juste un ptit regret que ce soit un peu trop 'pro' pour moi je comprend rien jusqu'au chap 6.

    alors evite d'acheter un truc professionnel si c la premiere fois que t'en fais du vb.net....
    0
  3. RAGNAROK
     
    tout d'abord bonjour ,
    donc j'ai une fonction en c++ (je ne connais pas ce language)
    et je dois la traduire en vb et enfin pouvoir m'en servir...
    donc je l'ai traduit, je pense qu'il n'y a aucun probleme de ce coté
    voici le source :
    ********************************************
    short Ic_Enumcards(unsigned long* cardcnt
    t_carddata* carddata
    unsigned long carddatasz);
    typedef struct{
    unsigned long IOBaseadress;
    unsigned long memorybaseadress;
    unsigned long irqlinenumber;
    unsigned long dmachannel1number;
    unsigned long cardalreadyopen;
    unsigned long boardtype;
    char cardnamestring [80];
    unsigned long reserved;
    }t_carddata;
    **********************************
    et voila ma traduction :
    **********************************
    Public Declare Function Ic_EnumCards Lib "NSICAN.dll" _
    (cardcnt As Long, carddata() As t_carddata, ByVal carddatasz As Long) As Integer

    Public Type t_carddata

    IOBaseAddress As Long ' adresseIO de base
    memoryBaseAddress As Long ' Adresse mémoire de base
    IRQLineNumber As Long ' Ligne d'interruption
    DMAChannelNumber As Long ' Numéro de canal DMA
    cardAlreadyOpen As Long ' 1 = carte utilisée
    boardType As Long ' Type de la carte
    cardNameString As String * 80 ' Texte descriptif du canal
    reserved As Long ' Réservé
    ********************************************
    et pour finir mon appel est:
    **************************************
    Private Sub Command1_Click()

    Dim Toto(0 To 9) As t_carddata
    Dim A As Integer
    Dim B As Long
    Dim C As Long

    A = Ic_EnumCards(B, Toto, C)

    End Sub
    *****************************
    voila et ca plante lamentablement!
    une aide est elle disponible?
    merci!
    0