Conversion d'un VB6 en C#

bonjour, j'ai vraiment du mal à convertir une méthode qui avait été écrite en Vb6 pour la mettre en C#.net

Après plusieurs recherche et avoir utilisé un site de conversion qui me donnait plein d'erreur, je solicite votre aide.

Voici le code en VB6:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Public Function Supervision1(ByVal bit As Integer, ByVal indice As Integer) As Integer Dim nbc As Integer Dim line As String Dim Str As String Dim nbByte As Integer Dim i As Integer Dim Start As Integer Dim nval As Long Dim Oct As Integer Dim Rank As Integer On Error Resume Next Rank = indice nbc = Len(bit) Mod 2 'Mise au format &Hxx -> on complète par 0 si besoin Str = IIf(nbc = 1, "0" & bit, bit) While Rank <= 31 And Len(Str) >= 8 Str = Mid(Str, Len(Str) - 4) Rank = Rank - 16 End While nval = Val("&H" & Str) i = Val(Str And CStr(Hex(2 ^ Rank))) Supervision1= IIf((nval And 2 ^ Rank) > 0, 1, 0) End Function

---

J'arrive pas à trouver l'équivalent de:
Len
et la mise au format Hex.


Merci de votre aide

Une petite astuce que j'ai trouvé tout dernièrement :
1 ouvrir un nouveau projet VB (aaaatchoum ! Santé !)
2 copier ta fonction dans ce projet (différentes corrections vont déjà être effectuées)
3 éventuellement compiler et corriger
4 reprendre le code et le passer à la moulinette...
5 finir de corriger le code dans c#

Comme moulinette j'utilise Econ NetVert.

Évidemment un fonction comme len ne passera pas mais il y a des équivalents :
- pour un string : maString.Length
- pour un tableau idem
- etc...

Il existe des convertisseurs en ligne VB.Net <=> C#. VB et VB.Net ne sont pas le même langage, mais leur syntaxe étant proche et ton bout de code étant relativement simple, ça vaut la peine d'essayer.

Merci pour vos réponses:

J'ai utilisé le site http://www.developerfusion.com/tools.../vb-to-csharp/

Il me trouve pas mal d'erreurs, des fonctions qu'il ne sais pas traduire et ce qu'il a converti ne correspond plus. Par exemple
Len(bit) bit etant un integer

il me le converti par Strings.Len(bit)

Auriez vous d'autre site de conversion, mais je vais cherché aussi de mon coté.

J'avoue que j'ai du mal à voir ce que voulait celui qui a crée la méthode en Vb6

Pour:

Len(bit)

Dans l'aide de Visual il indique que la méthode Len :Retourne un entier contenant le nombre de caractères contenus dans une chaîne ou le nombre nominal d'octets requis pour stocker une variable.

il parle d'une chaine effectivement ou le nombre nominal d'octets.

Vu que "bit" est un integer on a pas le nombre d'une chaine..!!

A ta place, j'irais poser la question sur le forum VB, où tu trouveras plein de gens plus compétent qu'ici dans ce domaine :)

Comme VB fait à peu près n'importe quoi :
len(sting) = longueur chaine
len(array) = taille tableau
len(integer) = nombre de byte d'un integer soit 2
len(long) = nombre de byte d'un long soit 4

A part ça, j'en reviens à ma théorie d'avant :
copier du vb6 dans un projet vbnet permet déjà de corriger pas ma d'inepties du vb6...

Un peut d'explication:

J'ai déjà intégré cette solution dans mon entreprise pendant mes stages je développait en VB.net mais le fichier d'origine etait bien du VB6. J'ai pas souvenir d'avoir adapter quelque chose et le code que que je vous est donné proviens de mon VB.net.

Au lycée (je suis en formation de reconversion) pour mon BTS IRIS, apparemment mon prof préférait que l'on face se même projet en C#. En faite, j'ai amené le projet de mon entreprise au lycée et il va me servir pour le BTS.

Si non revenant à nos moutons.

Si je comprend bien, la fonction reviens à nous donner la taille d'un integer donc 2. Si l'on avais mis 2 directement est-ce que cela change quelque chose?

Question posée a 13h55
Dernière réponse 19h54

= 8h de polémiques :roll:
+ le temps passé avant :roll::aie:

24 lignes de code a traduire

5 minutes a la main, j'y suis presque mais il y a des truc qui me semblent bizares :

1- Bit est passé comme integer mais semble traité comme string
2- Qu'est sencé faire exactement cette fonction qui mélange alegrement du decimal de l'hexa et du string ?

Il me semblerait presque plus pertinent de la réécrire completement car le code me semble un peu ouf !

Mais bon en 5 minutes, j'ai pas bien tout compris
J'ai provisoirement laissé des commentaire en attendant de bien comprendre

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

public int Supervision1(int bit, int indice) { int nbc; string line; string Str; int nbByte;// As Integer int i;// As Integer int Start;// As Integer int nval;// As Long int Oct;// As Integer int Rank;// As Integer   // On Error Resume Next Rank = indice; // nbc = Len(bit) Mod 2; // Mise au format &Hxx -> on complète par 0 si besoin string dum = bit.ToString(); Str = (nbc == 1) ? "0" + dum : dum;   while (Rank <= 31 && Str.Length >= 8) { Str = Str.Substring(Str.Length - 4); Rank = Rank - 16; } // nval = Val("&H" + Str); // i = Val(Str And CStr(Hex(2 ^ Rank))); // return ((nval && 2 ^ Rank) > 0) ? 1 : 0; return 0; }

---

+1 pour une réécriture ;)

Je suis pas sur de tout avoir compris au bout de code, mais, en enlevant les lignes inutilisées, ca ressemble à ca :

Code:

---

1 2 3 4 5 6 7 8 9

public static int Supervision1(int bit, int indice){ string hexValue = bit.ToString("00"); // ajoute un 0 en début de chaine si nécessaire while (indice <= 31 && hexValue.Length >= 8){ hexValue = hexValue.Substring(hexValue.Length - 4); indice -=16; } int nval = int.Parse(hexValue, System.Globalization.NumberStyles.HexNumber); // conversion de la valeur hexa en int return (nval & (int)Math.Pow(2, indice)) > 0 ? 1 : 0; // Et logique entre la valeur hexa et 2 puissance indice }

---

Après, je ne sais pas ce que ca doit retourner, si tu as des valeurs de test entrées et sorties a proposer ;)

Bonsoir,

Merci de vous donner cette peine, comme j'ai dit j'ai pas inventer cette fonction et vu que j'ai fait un copier coller j'ai pas chercher plus loin vu que sa marchait.

Je viens de vérifier le code que j'ai fait en VB.net. Je lui envoie bien un integer.

Au niveau du fonctionnement on interroge la supervision qui nous renvoie une chaine de caractère (string). Cette chaine contient plusieurs partie séparer par des / donc je vais un petit split la dessus puis grâce à un indice que je connait(dans mon fichier de paramettre en XML) je vais chercher dans mon tableau de string le paramettre que j'ai besoin.

Pour les mesures par exemple c'est pas bien compliquer, le string est 5400 pour indiquer que j'ai 54 volt. Par contre pour l'état des alarmes il me revoie un code et la fonction que nous embête ici sert a décompose se code qui est le fameux "bit" et ce que je veux récupérer, c'est l'état du bit qui est designer par l'indice.

Je pensais pas qu'il y aurai de gosse difficulter la dessus mais j'ai pas mal chercher pour le moment a trouver l'équivalent en C# du code sans vraiment cherche à comprendre ce que l'on cherchait à faire et comment le faire.

Je vais essayé ce week end de simuler tout sa pour voir ce que me renvoie exactement la supervision. Mais je travaille avec un simulateur et apparemment il renvoie pas exactement ce que renvoie la vrais supervision. C'est a dire que la vrais envoie tout les bites même s'il sont à 0 alors que le simulateur envoie que les valeur à 1. Mais cela marche quand même, un peut normale vu que m'a chaine je la transforme en integer. Si la supervision m'envoie 00001000. Si le simulateur m'envoie que 1000, cela va pas changer grand chose.

Je vous tient au courant dès que j'ai fait des tests complémentaires. Mais demain j'ai pas info et vendredi j'ai un BTS blanc de 6 heures en info donc vous comprendrais que demain soir je vais réviser à fond. Je regarderais aussi dans le peut de doc que j'ai si je peut trouver quelque choses.


En tout cas merci

Quand je te parlais de test, c'est juste savoir si tu peux donner quelques triplets bit/indice/résultat attendu de ta fonction

Par contre, je ne vois toujours pas ce que tu dois faire avec, mais ca sera probablement plus clair avec des exemples ;)

Après quelques tests et recherches, je pense avoir percé le mystère de cette fonction.

En fait elle sert à déterminer la valeur du bit à la position indiquée (paramètre indice) du nombre (paramètre bits) dans sa représentation binaire.

Exemples:

• Supervision1(4, 0) = 0
• Supervision1(4, 1) = 0
• Supervision1(4, 2) = 1
• Supervision1(4, 3) = 0
• Supervision1(7, 0) = 1
• Supervision1(7, 1) = 1
• Supervision1(7, 2) = 1
• Supervision1(7, 3) = 0

En effet 4 en binaire s'écrit 100 (ou 0100) et 7 s'écrie 111 (ou 0111).

Pour ce qui est de la conversion, rien de plus simple une fois que l'on sait ce que l'on doit faire ;).

Code:

---

1 2 3 4 5 6 7 8

private int ValeurBitNombre(int nombre, int positionBit) { //Gestion des execptions if (positionBit < 0) throw new ArgumentOutOfRangeException("positionBit", positionBit, "doit être supérieur ou égal à 0.");   return (nombre >> positionBit) & 1; }

---

Bonjour à tous,
je vous remercie vraiment pour votre aide, et votre ténacité, comme je vous ai dit je vais regardé sa de plus près ce week end ou vendredi soir si je me suis pas planter à l'exam :)

Si non je pense effectivement que c'est sa "Sehnsucht" mais vu qu'avec m'a fonction en vb.net cela à marché du 1er coup j'ai pas regardé exactement ce que j'avais en entré et comment cela se découpait. De plus pour effectuer la simulation grâce au simulateur de supervision, pour crée un défaut sur l'un des état, ont a un tableau et on indique juste le numéro d'alarme. Le simulateur doit mouliner aussi tout sa pour recrée une trame bonne mais la saisie manuel ne représente pas du coup l'exacte trame de sortie.

Dans tout les cas je vous remercie encore fortement et je suis vraiment désoler de ne pas pouvoir apporté plus de détaille, je pensais pas être aussi bloquer avec cette fonction, pensant qu'une simple conversion toute bête aurait suffit j'ai pas poussé plus loin l'analyse.

je vous tient au courant, aller.. vendredi soir... je vais le réussir cet examen...:oops:

Citation:

---

pensant qu'une simple conversion toute bête aurait suffit j'ai pas poussé plus loin l'analyse.

---

Si tu veut progresser et réussir c'est vraiment l'erreur a ne pas faire !
Il faut toujours pousser l'analyse !

Avec les question en tête

- Qu'est ce que ca doit faire ?
- Qu'est ce que j'ai en main pour le faire ?
- Quelle peut être la méthode la plus simple et rapide ?

Citation:

---

Envoyé par olibara

Si tu veut progresser et réussir c'est vraiment l'erreur a ne pas faire !

---

+1 ;)

Citation:

---

Envoyé par megamario

je vous tient au courant, aller.. vendredi soir... je vais le réussir cet examen...:oops:

---

Bonne chance, en tout cas ;)

Citation:

---

Envoyé par Sehnsucht

Code:

---

1 2 3 4 5 6 7 8

private int ValeurBitNombre(int nombre, int positionBit) { //Gestion des execptions if (positionBit < 0) throw new ArgumentOutOfRangeException("positionBit", positionBit, "doit être supérieur ou égal à 0.");   return (nombre >> positionBit) & 1; }

---

---

:mouarf::mouarf::mouarf:
Il m'est arrivé un certain nombre de fois de simplifier un code source obscurci (passer de 5000 à 2000 lignes, mon record :)), mais là tu bats tous les records, chapeau ! :mouarf:

Je viens de demander directement au concepteur de la méthode ce qu'elle devait faire exactement. j'attend sa réponse.

Bon ba j'y retourne...

C'est vraiment dur de se remettre aux études à près de 40 ballets :mrgreen:

Une chose qui me perturbe asser dans sa methode, c'est ceci

Citation:

---

nbc = Len(bit) Mod 2

---

Or bit est un integer, je me demande donc ce que donne Len(bit)

A moins que cet espece de :aie:#!:marteau::traine: de VB fasse un genre de Tostring() implicite

Citation:

---

Envoyé par olibara

A moins que cet espece de :aie:#!:marteau::traine: de VB fasse un genre de Tostring() implicite

---

T'as tout compris, Len prenant un string en entier, la conversion est faite automatiquement

Citation:

---

Envoyé par Philippe Vialatte

T'as tout compris, Len prenant un string en entier, la conversion est faite automatiquement

---

Aaargh ! :vomi:

Et maintenant je vois beaucoup mieux comment fonctionne la methode originale

Citation:

---

Je viens de demander directement au concepteur de la méthode ce qu'elle devait faire exactement. j'attend sa réponse.

---

Moi Aussi :roll::mouarf:

Sehnsucht est sur la bonne piste mais il manque encore qq chose

Après analyse, j'en suis sûr : ce code fait n'importe quoi.
- un nom de méthode qui veut rien dire
- 4 ou 5 variables déclarées mais inutilisées
- conversion d'un int en chaîne (n base 10), tripatouillage de la chaîne, puis reconversion en int en considérant la chaîne en base 16
- condition while avec rank < 31 qui va encore diminuer rank de 16

Ca fait beaucoup pour si peu de lignes :)

Tiens ! ?

Pol63 est passé et s'est vite rétracté

Bonjour Pol63 ;)

oui, j'étais pas si sur de ma réponse finalement :D

Bonjour à tous,

je suis crevé, 6 heures à bossé sur un sujet sa crève...

Bon j'ai quelque info mais j'ai pas encore regardé de mon coté, je viens de rentrer.

Mon maitre de stage m'a envoyé un mail avec ce que j'aurais du avoir, car je dit bien j'aurais....
En faite vous aviez raison, et pour moi cela me parait plus logique, le Type de bit est bien un String et non un int. Du coup tout s'éclaire. Je comprend donc pas pourquoi cela marche mon code et pourquoi j'aurais modifié une méthode que l'on m'a donnée....
En ce qui concerne ce que je récupère c'est en hexadécimal.

Je pense avoir une idée du fait que cela marchais, avec le simulateur je n'est tester que les 1ere valeur, j'ai pas été plus loin. Bon je vais chercher m'a fille et je fait d'autre essaie.

Maintenant si c'est bien un String j'ai plus de souci de conversion. Mise à part la fonction IIf.

Citation:

---

Bon ba j'y retourne...
C'est vraiment dur de se remettre aux études à près de 40 ballets

---

Citation:

---

Bonjour à tous,
je suis crevé, 6 heures à bossé sur un sujet sa crève...

---

:calim2:

Allez arrete de pleurer t'est pas le seul a bosser tu sais !
Et 6h c'est pas bien lourd

Citation:

---

En faite vous aviez raison, et pour moi cela me parait plus logique, le Type de bit est bien un String et non un int.

En ce qui concerne ce que je récupère c'est en hexadécimal.

---

Ce que tu dis la ne correspond pas du tout a au prototype et au retour de la fonction que tu a envoyé au début :?8O

Code:

---

1 2 3

Public Function Supervision1(ByVal bit As Integer, ByVal indice As Integer) As Integer Supervision1= IIf((nval And 2 ^ Rank) > 0, 1, 0) End Function

---

Citation:

---

Envoyé par olibara

Allez arrete de pleurer t'est pas le seul a bosser tu sais !
Et 6h c'est pas bien lourd

---

Je sais ce que c'est de bossé cela fait 20 ans que je suis salarié de plus reprendre les études avec un cursus standard après 20 ans n'est pas donné à tout le monde non plus, je m'accroche et c'est pas facile tout les jours quand en plus on a une vie de famille.. Mais il y a un monde entre bossé 6 heures d'affiler sans manger pour un examen même s'il est blanc avec la routine au boulot.

Citation:

---

Ce que tu dis la ne correspond pas du tout a au prototype et au retour de la fonction que tu a envoyé au début :

---

Comme je l'ai déjà dit à mainte reprise, je n'avais pas analyse la fonction et ce que je lui envoyais. J'ai simplement fait un copier coller de ce que l'on m'a donnée et mes 1er essaie marchait, j'ai donc supposé que c'était bon puisque la méthode que j'ai utilisé est encore utilisé dans d'autre produit.

C'est simplement lorsque j'ai voulu le convertir en C# que le problème est apparu. Après avoir demandé sur ce forum une conversion, il s'avère qu'il y à un souci.
je viens de demander l'info aux personnes qui ont créent ce code à la base et ils viennent de me répondre comme quoi on doit envoyer un code sous le type string et non int comme il me semblais être, et le string symbolise un code en Hexadécimal.
En retour je dois bien avoir un Int correspondant à un 0 ou un 1 symbolisant l'alarme recherchée.


Voici donc le code modifier, j'ai enlever aussi les variables inutile:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Public Function GCAU(ByVal bit As String, ByVal indice As Integer) As Integer Dim nbc As Integer Dim Str As String Dim i As Integer Dim nval As Long Dim Rank As Integer On Error Resume Next Rank = indice nbc = Len(bit) Mod 2 'Mise au format &Hxx -> on complette par 0 si besoin Str = IIf(nbc = 1, "0" & bit, bit) While Rank <= 31 And Len(Str) >= 8 Str = Mid(Str, Len(Str) - 4) Rank = Rank - 16 End While nval = Val("&H" & Str) i = Val(Str And CStr(Hex(2 ^ Rank))) GCAU = IIf((nval And 2 ^ Rank) > 0, 1, 0) End Function

---

Il me reste à la traduire en C#

Dans ce cacas la solution de Sehnsucht est presque bonne

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

private int ValeurBitNombre(string Hex, int positionBit) { //Gestion des execptions if (positionBit < 0) throw new ArgumentOutOfRangeException("positionBit", positionBit, "doit être supérieur ou égal à 0.");   // ATTENTION il faut veiller a ce que le string soit de l'Hexa mode C // : soit "0xABCDEF01" ou "ABCDEF01" // MAIS pas en mode BASIC : "&HABCDEF01"   Hex=Hex.ToUpper().Replace("&H","0x");   // Conversion en int du string int iHex = Int32.Parse( Hex, System.Globalization.NumberStyles.HexNumber );   // Autre possibilité de conversion int iHex = Convert.ToInt32( Hex, 16 );     return (iHex >> positionBit) & 1; }

---

Merci beaucoup

Je modifie mon code VB.net pour qu'il utilise bien un String.

J'ai pas mal de petite modif à faire, pas bien méchante mais certaine supervision n'ont pas besoin de rechercher l'alarme dans le code, elles sont directe 0 ou 1 je transformais tout de suite en Int ce qui n'est pas a faire si j'ai besoin d'utilisé la fonction.

Me revoici avec mes tests plus poussé.

J'ai compris comment était générer le Code d'alarme


Exemple:
Bit nr.....|....Hex Mask...|...Weight in..| event
0..............0000 000X...........1............Alarme 1
1..............0000 000X...........2............Alarme 2
2..............0000 000X...........4............Alarme 3
3..............0000 000X...........8............Alarme 4
4..............0000 00X0...........1............Alarme 5
5..............0000 00X0...........2............Alarme 6
6..............0000 00X0...........4............Alarme 7
7..............0000 00X0...........8............Alarme 8
8..............0000 0X00...........1............Alarme 9
9..............0000 0X00...........2............Alarme 10
10.............0000 0X00..........4............Alarme 11
11.............0000 0X00..........8............Alarme 12
... etc...
31.............X000 0000..........8............Alarme 32


J'ai donc modifié le code pour qu'il prenne bien un String et Modifier le Code de la fonction.

Si j'ai bien compris comment marche le syteme lorsque je modifie la valeur dans mon simulateur j'ai exactement ce que je veux cela marche très bien:

Voici le code Modifié:

Code:

---

1 2 3 4 5

Public Function Supervision1(ByVal bit As String, ByVal indice As Integer) As Integer Dim nval As Long nval = Val("&H" & bit) Supervision1 = IIf((nval And 2 ^ indice) > 0, 1, 0) End Function

---

Voila cela marche très bien comme sa mais je vais demander à la personne qui m'a donner le code d'origine car c'est vraiment simplifié.




Merci de votre aide

Je ne comprends pas bien pourquoi tu voulais convertir un code VB en C# si c'est un définitive pour le réécrire en VB :koi:

Et à 40 balais comme tu dis tu devrais quand même avoir appris à faire la différence entre le pronom démonstratif ça

Citation:

---

ça va marcher
cela marche très bien comme ça
ça crève

---

et le possessif

Citation:

---

sa methode
sa fonction
ma fille et pas m'a fille

---

Pour ne pas faire sytématiquement l'erreur

http://www.francaisfacile.com/exerci...cais-26659.php