Fonction Basic en Php

Version imprimable

! Attention plus difficile !

Il sagit de convertir cette fonction Visual Basic en fonction Php :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Function Reference(Inp)
    If Len(Inp) = 5 Then
        H = 10
        For I = 1 To 5
            Z = Mid(Inp, I, 1) + H
            Z1 = Int(Z / 10)
            Z2 = Z Mod 10
 
            If Z2 = 0 Then
                Z2 = Z2 + 10
            End If
 
            Z2 = Z2 * 2
            H = Z2 Mod 11
            Z2 = Z2 / 11
        Next
        Z = 11 - H
        Z1 = Z / 10
        Reference = Inp & (Z Mod 10)
    Else
        Reference = Inp
    End If
End Function

2ieme version

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
Public Function Modul(Inp)
 
   If Len(Inp) < 5 Then
       Modul = ""
   End If
 
    H = 10
 
    For I = 1 To 5
 
      Z = Mid(Inp, I, 1) + H
      Z1 = Int(Z / 10)
      Z2 = Z Mod 10
 
      If Z2 = 0 Then
         Z2 = Z2 + 10
      End If
 
      Z2 = Z2 * 2
      H = Z2 Mod 11
      Z2 = Z2 / 11
    Next
 
    Z = 11 - H
    Z1 = Z / 10
    Modul = Z Mod 10
 
End Function

13/12/2005, 12h37
Mr N.

8O Et alors ? il est où le problème ? Quelle est la question ?
13/12/2005, 12h37
Séb.

Quel est le problème ?

LEN( ) : strlen( )
MID( ) : substr( )
INT( ) : floor( ) (si mes souvenirs sont bons)
MOD : %
& : opérateur de concaténation
13/12/2005, 12h38
yiannis

allons,allons fais un petit effort.
Avec des strlen(), des % (modulo) etc tu devrais t'en sortir :wink:
13/12/2005, 12h40
dafalri

OK je me lance alors !

Voila ce que jai pondu ... je suis en train de le tester !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
if(strlen($RECUP_REF)=5){
	$H=10;
	for ($i=1; $i=5; $i++){
		$Z= substr($RECUP_REF, $i, 1)+$H;
		$Z1= floor($Z/10);
		$Z2= $Z%10;
 
		if($Z2=0){
			$Z2=$Z2+10;
		}
 
		$Z2= $Z2*2;
		$H= $Z2%11;
		$Z2=$Z2/11;
	}
	$Z= 11-H;
	$Z1= $Z/10;
	$VERIF_REF= $Z%10
}

Voici le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 function reference6($var){ if(strlen($var)==5){ $H=10; for ($i=1; $i=5; $i++){ $Z= substr($var, $i, 1)+$H; $Z1= floor($Z/10); $Z2= $Z%10; if($Z2=0){ $Z2=$Z2+10; } $Z2= $Z2*2; $H= $Z2%11; $Z2=$Z2/11; } $Z= 11-H; $Z1= $Z/10; $VERIF_REF= $Z%10; } return $VERIF_REF; }
Ca ne marche et ca ne metonne pas ! Jai jamais ete tres bon en algorithme !
jai fais un <? echo reference6($REF); ?> et ca tourne ca tourne ca mouline ca mouline ...

HELP

13/12/2005, 13h20
..:: Atchoum ::..

Salut,

Je me souviens plus trés bien comment marche le VB mais cette ligne est ta cause d'erreur en php :

Code:

for ($i=1; $i=5; $i++)

Ici tu a une boucle infini

Code:

for ($i=1; $i<=5; $i++)

si tu veux que ca boucle 5 fois

@++ ;)
13/12/2005, 13h20
yiannis

petite erreur

Code:

for ($i=1; $i=5; $i++){

tu declares que $i=1 puis apres que $i=5 de plus tu ne luis dis pas ou il doit s'arreter

si tu veux qu'il fasse ta boucle 5 fois tu fais:

Code:

for ($i=1; $i<6; $i++){

:wink:

EDIT: GRILLED
13/12/2005, 13h23
dafalri

Ah oui la boucle cetait un peu beta de ma part !
Jai aussi trouve la variable $H qui etait en contante H, cest repare ...
Par contre maintenant il ne maffiche rien !
13/12/2005, 13h24
dafalri

ya pas un moyen de voir ce que fait la fonction etape par etape ?
13/12/2005, 13h29
..:: Atchoum ::..

Citation:

<?
function reference6($var){
if(strlen($var)==5){
   $H=10;
   for ($i=1; $i<=5; $i++){
      $Z= substr($var, $i, 1)+$H;
      $Z1= floor($Z/10);
      $Z2= $Z%10;
   
      if($Z2=0){
         $Z2=$Z2+10;
      }
      
      $Z2= $Z2*2;
      $H= $Z2%11;
      $Z2=$Z2/11;
   }
   $Z= 11-H;
   $Z1= $Z/10;
   $VERIF_REF= $Z%10;
}
return $VERIF_REF;
}
print reference6("salut");
?>

Cela m'affiche 1, effectivement ca n'affiche rien si tu l'appelles avec une chaine de longueur différente de 5

Merci de chercher un peu et de ne pas poster a tout va ...
13/12/2005, 13h37
trattos

En gros l'algorithme de ce programme fait quoi?
13/12/2005, 13h43
dafalri

Si je poste cest que cest mon dernier recours ... je suis pas du genre tout faire faire par les autres !

Pas grave je vais aller demander de laide ailleurs ! Desole davoir derange la moderation !
13/12/2005, 13h47
yiannis

hela dafalri keep cool :wink:
Je pense que l'on t'a aide non? C'est vrai que pour le resultat tu aurais pu trouver tout seul, en cherchant un peu.
Allez, c'est bon, prends pas la mouche :D
13/12/2005, 13h53
dafalri

Non mais des fois jai limpression que lon peut plus compter sur les membres que sur les moderateurs ... alors que je nabuse pas, non?

Enfin bref je vais me debrouiller tt seul meme si je comprends rien a ce que je fais vu que jy connais rien en VB

Merci quand meme !
13/12/2005, 14h02
yiannis

Citation:

Envoyé par dafalri

Non mais des fois jai limpression que lon peut plus compter sur les membres que sur les moderateurs

c'est faux les deux sont la pour t'aider, d'ailleur ..:: Atchoum ::.. te l'a demontre.

Citation:

Envoyé par dafalri

Enfin bref je vais me debrouiller tt seul meme si je comprends rien a ce que je fais vu que jy connais rien en VB

si tu ne connais pas VB et que tu ne connais pas php, ca va etre dur...

Enfin, si tu n'es pas suceptible et que tu as encore besoin d'aide, n'hesites pas :wink:

Et si jintegre mon script VB au php, comment je fais pour recuperer une variable ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Function Modul(Inp)
  H = 10
  Modul = ""
  If Len(Inp) = 5 Then
    For I = 1 To 5
      Z2 = (Mid(Inp, I, 1) + H) Mod 10
      If Z2 <> 0 Then
        H = (Z2 * 2) Mod 11
      Else
        H = 9
      End If
    Next
    Modul = (11 - H) Mod 10
  End If
End Function

13/12/2005, 16h31
yiannis

Citation:

Envoyé par dafalri

Et si jintegre mon script VB au php, comment je fais pour recuperer une variable ?

8O
et comment fais tu ca????

non la solution tu la tiens tu as deja traduit une fonction VB=>PHP tu fais la meme chose pour ta deuxieme fonction, je pense que c'est le mieux :wink:

Cest bien la question que je pose ! :roll:
Jai lu quil fallait eventuellement passer la variable en url

ou sinon jai deja converti en php mais ca ne marche pas comme il faut :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 function verif_ref($var){ $H=10; $VERIF_REF=""; if(strlen($var)==5){ for($i=1;$i<=5;$i++){ $Z2= (substr($var,$i,1)+$H)%10; if($Z2!=0){ $H= ($Z2*2)%11; } else{ $H=9; } $VERIF_REF= (11-$H)%10; } } return $VERIF_REF; }
Par exemple sur la chaine "12641" jobtient 5 au lieu de 1

13/12/2005, 17h01
yiannis

Citation:

Envoyé par dafalri

Par exemple sur la chaine "12641" jobtient 5 au lieu de 1

avec VB tu obtiens 1???

je ne me rappelle plus VB. Qu'est ce que c'est que l'instruction "NEXT" ?
13/12/2005, 17h05
dafalri

Je texplique en fait jessaie de transposer un script VB qui vient dun fichier excel.
Jy connais rien du tout en VB.
Dapres ce que jai compris de VB la boucle For s'accompagne de Next qui serait lequivalent de $i++ ... cest la que jai un doute !
13/12/2005, 17h08
yiannis

non, non tu ne dois pas avoir de doute c'est bien ca, je viens de cherche sur google et tu as raison.

et dans ce excel avec la valeur 12641, tu obtiens bien 1 ?
13/12/2005, 17h13
dafalri

Eh oui ... cest comme ca que je peux verifier que le script focntionne ou pas !
13/12/2005, 17h14
dafalri

Mais si Next est lequivalent de $i++ alors je devrais avoir :

Code:

for($i=1;$i<=5;$VERIF_REF= (11-$H)%10)

Ce qui focntionne encore moins !
13/12/2005, 17h15
yiannis

desole dafalri, mais la je dois t'abandonner. J'ai fini ma journee de taff (il est 5h00 chez moi) et je n'ai pas l'adsl (trop cher 60 euros/m) chez moi :evil:

j'espere que quelqu'un pourra te venir en aide

bon courage :wink:
13/12/2005, 17h16
dafalri

Merci ... jespere aussi reussir a me depatouiller de ce code !
Bonne nuit alors
13/12/2005, 18h39
jibouze

Salut,
plutôt que d'essayer à tout prix de traduire une fonction de VB à PHP, tu pourrais la réécrire depuis le début.
Qu'est-ce qu'elle est censée faire cette fonction (Parce que retourner 1 si on lui entre 12641, ça me parait léger) ?
13/12/2005, 19h42
Mr N.

+1 parceque bon faire un chiffre modulo 10 pour savoir si ce chiffre == 0 c'est très moyen je trouve :lol: