PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 2025 → Une question concernant VB
Une question concernant VB
Débuté par toto28toto, 21 jan. 2005 12:52 - 5 réponses
Posté le 21 janvier 2005 - 12:52
Salut

Comment convertir la declaration d'un array de Visual Basic en Windev
Exemple :
Dim aToto () As Byte
Dim aLong As Long
ReDim aToto(1 to aLong) As Byte

MsgBox( aToto(1))


Car pour la daclaration et le redim je n'arrive pas a avoir le bon resultat
Si vous pouvez m'aider merci beaucoup et merci d'avance

Seb
Posté le 21 janvier 2005 - 15:52
Bonjour Seb

ce que la traduction devrait donner:

aToto est un tableau dynamique de 0 entier sur 1 octet
aLong est un entier

dimension(aTato,aLong)
info(aTato[1])

[DrCharly93] www.wdforge.org

Seb a écrit :
Salut

Comment convertir la declaration d'un array de Visual Basic en Windev
Exemple :
Dim aToto () As Byte
Dim aLong As Long
ReDim aToto(1 to aLong) As Byte

MsgBox( aToto(1))


Car pour la daclaration et le redim je n'arrive pas a avoir le bon resultat
Si vous pouvez m'aider merci beaucoup et merci d'avance

Seb



Posté le 21 janvier 2005 - 16:38
Merci beaucoup DrCharly93

Par contre j'ai un autre probleme, Sous VB j'ai une variable type String qui est utilisé par la fonction MemCopy.
Sous Windev la fonction est "transfert".

Je n'arrive pas a traduire la partie ci dessous.

Par exemple :

sChaine as string

sChaine = Space(10)

MemCopy By Val sChaine ,By Val Var1, By Val Var2

sChaine = StrConv(sChaine ,vbfromunicode)

Si tu peux m'aider merci d'avance

Seb
Posté le 21 janvier 2005 - 16:38
Merci beaucoup DrCharly93

Par contre j'ai un autre probleme, Sous VB j'ai une variable type String qui est utilisé par la fonction MemCopy.
Sous Windev la fonction est "transfert".

Je n'arrive pas a traduire la partie ci dessous.

Par exemple :

sChaine as string

sChaine = Space(10)

MemCopy By Val sChaine ,By Val Var1, By Val Var2

sChaine = StrConv(sChaine ,vbfromunicode)

Si tu peux m'aider merci d'avance

Seb
Posté le 24 janvier 2005 - 13:18
Bonjour Seb,

Désolé du retard mais je ne sui spas constament sur ce site.
En WinDev une fonction remplace très bien cette API: il s'agit de la
fonction Transfert
sChaine est une chaîne fixe sur 10
Var1 est une chaîne fixe sur 10 //Contiennent l'adresse de la variables
transférer
Var2 est une chaîne fixe sur 20 //variable source

Transfert(Var1,&Var2, 10)
sChaine = Var2

//A vérifier
sChaine = UnicodeVersAinsi(sChaine)
//ou
sChaine = ChaîneRécupère(&Var2,crAdresseUNICODE)

[DrCharly93] www.wdforge.org

Seb a écrit :

Merci beaucoup DrCharly93

Par contre j'ai un autre probleme, Sous VB j'ai une variable type String qui est utilisé par la fonction MemCopy.
Sous Windev la fonction est "transfert".

Je n'arrive pas a traduire la partie ci dessous.

Par exemple :

sChaine as string

sChaine = Space(10)

MemCopy By Val sChaine ,By Val Var1, By Val Var2

sChaine = StrConv(sChaine ,vbfromunicode)

Si tu peux m'aider merci d'avance

Seb
Posté le 24 janvier 2005 - 17:48
Merci

La fonction transfert ne fonctionne pas avec des chaines donc j'ai utilisé une API microsoft.
Merci beaucoup pour ton aide j'ai enfin une classe permettant de tout connaitre sur un os Windows 9.X,2000,xp.
Memoire physique, paginée, totale
Cpu puissance, taux d'utilisation etc...
Les journaux d'evenements
etc...
Trop cool.

Merci a bientot