Discussion :

[magiklife]

Bonjour

Passage par adresse.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
void fonction(int *ta,int *ti )
{ int tampon;
tampon=*ta; *ta=*ti; *ti=tampon;
}
etc....................
void main()
{
int a, b;
etc......................
fonction(&a,&b);
etc.......................
}

1 - Comment ce code sera-t-il pour le langage de Visual Basic ?

2 - Langage de Visual Basic, Comment utiliser des tableaux et des chaînes de carctères comme argument d'une fonction ?

3 - Ou peut t on trouver des pdf (ou documents) explicitant très bien les procédures et les Fuction du Langage Visual Basic ?

Merci

[khany]

Tu devrais trouver réponse dans les multiples COURS

[kabalonda]

Salut!
Je me connais pas trop en c mais c que j'ai vu me dit quelque chose.
Je pense que tu dois faire appel à la fonction swap de visual basic pour faire ce genre de manipulation! Sur certaines versions de VB cette commande ne passe pas ! Alors tu dois faire comme en C mais cette fois-ci en VB comme suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
......
'Au cas où Swap ne marche pas sur ta version de vb!
dim X(y) as integer
'y étant un nombre >=3
For i=1 to Y
For j = 1 To Y
               If X(i) < X(j) Then
                  t = X(i)
                  X(i) = X(j)
                  X(j) = t
                End If
           Next j
Next i 
....
'la suite de ton code

Si cela marche pas alors tu signales

[DarkVader]

.../...
Je pense que tu dois faire appel à la fonction swap de visual basic pour faire ce genre de manipulation! Sur certaines versions de VB cette commande ne passe pas !

Comme c'est mignon ; va falloir nous expliquer dans quelle version de VB «ça passe»

Alors tu dois faire comme en C mais cette fois-ci en VB comme suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
......
'Au cas où Swap ne marche pas sur ta version de vb!
dim X(y) as integer
'y étant un nombre >=3
For i=1 to Y
For j = 1 To Y
               If X(i) < X(j) Then
                  t = X(i)
                  X(i) = X(j)
                  X(j) = t
                End If
           Next j
Next i 
....
'la suite de ton code

Si cela marche pas alors tu signales

1°) magiklife n'a jamais fait allusion à un swap de tableau
2°) même pour un tableau on n'opère pas un swap valeur par valeur
3°) copymemory est l'issu générallement employée - voir également les gestions de pointeurs avec varptr, strptr, objptr
4°) VB, à défaut d'être un language réellement objet, est à l'origine un langage procédural -
on place donc le code dans une fonction ou une procédure «swap» que l'on pourra réutiliser ultérieurement.

Tant qu'à donner des conseils de programmation à quelqu'un qui découvre VB, autant lui donner les bons -
déjà que VB passe aux yeux des programmeurs C pour un langage de chaouïs.

[magiklife]

Bonjour,

Milles merci, pour les réponses.....
Kabalonda, je pense que tu n'as pas compris mon code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

void fonction(int *ta,int *ti )

est une fonction que j'ai crée ce n'est pas une fonction déjà préconçu.
Dans mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

int a, b;

C'est que a et b sont tous des valeurs, mais pas des tableaux.
Je ne connait pas le langage VB. Mais je pense que tu n'as pas créé une fonction et en tu as fait des tableaux.
Khany, ce que je cherche ce sont des pdf explicitants bien les fonctions et procedures et aussi les tableaux et et les chaînes de caractères. Ou bien tout, simplement un pdf explicitant bien le langagede Visual Basic.
DarkVader, oui je n'ai rien coimpris sur swap, copymemory, strptr,.....
Mais ce que je veux connaître le Langage de Visual basic et ensuite plus tard
les fonctions déjà conçus dans Visual basic.

Merci

[rv26t]

Bonjour,

Si mes souvenir sont bon en c
&a : tu donne l'adresse
*ta : tu manipules le contenu
si tu veux simplement inverser 2 entiers représentés par des variables classiques en les passant par référence (adresse) à la fonction.
(en vb on dit par référence)

Dans la FAQ un exemple d'échange en vb donne l'explication

http://vb.developpez.com/faq/?page=Langage#byval_byref

aller sur "Qu'est-ce que ByVal et ByRef ?"

A+, Hervé

[LeForestier]

Comme c'est mignon ; va falloir nous expliquer dans quelle version de VB «ça passe»

Dans VB3... ou Turbo Basic

Et il y a MSDN ausssi pour VB6 à télécharger gratuitement, je n'ai pas l'url sous la main mais une petite recherche...
A+
Edit: Après vérification, pas dans VB3 (je l'ai encore sur un portable...)

[LeForestier]

Bonjour

Passage par adresse.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
void fonction(int *ta,int *ti )
{ int tampon;
tampon=*ta; *ta=*ti; *ti=tampon;
}
etc....................
void main()
{
int a, b;
etc......................
fonction(&a,&b);
etc.......................
}

Bon, si mes souvenirs en C sont bon...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public function Swap( ByRef ta as integre, Byref ti as integer) as boolean
   dim Tampon as integer
   Tampon = ta
   ti = ta
   ta = tampon
end sub
 
 
'dans le corp d'une fonction ou sub
   dim ti as integer, ta as integer, e as boolean
   'rem exemple
   ti = 5: ta = 10
   e = swap (ti,ta)
   'rem à l'arrivée valeur inversée

Je crois avoir bien traduit la fonction...
A+