Aide VB .net

Fermé
van' - 10 juil. 2003 à 16:40
 RAGNAROK - 14 août 2003 à 14:05
Hello !!
est ce que qq1 connait un bon site qui m'aiderait à apprendre VB .net ????
A voir également:

3 réponses

monbobo Messages postés 106 Date d'inscription jeudi 10 juillet 2003 Statut Membre Dernière intervention 21 octobre 2004 133
11 juil. 2003 à 09:11
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
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
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