Fonction Basic en Php

**dafalri** · 13/12/2005, 11h35

! Attention plus difficile !

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

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
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 :

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
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

**Mr N.** · 13/12/2005, 11h37

Et alors ? il est où le problème ? Quelle est la question ?

**Séb.** · 13/12/2005, 11h37

Quel est le problème ?

LEN( ) : strlen( )
MID( ) : substr( )
INT( ) : floor( ) (si mes souvenirs sont bons)
MOD : %
& : opérateur de concaténation

**yiannis** · 13/12/2005, 11h38

allons,allons fais un petit effort.
Avec des strlen(), des % (modulo) etc tu devrais t'en sortir

**dafalri** · 13/12/2005, 11h40

OK je me lance alors !

**dafalri** · 13/12/2005, 12h05

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

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
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
}

**dafalri** · 13/12/2005, 12h16

Voici le code :

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
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

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

Salut,

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

Code :

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

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

Ici tu a une boucle infini

Code :

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

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

si tu veux que ca boucle 5 fois

@++

**yiannis** · 13/12/2005, 12h20

petite erreur

Code :

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

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 :

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

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

EDIT: GRILLED

**dafalri** · 13/12/2005, 12h23

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 !

**dafalri** · 13/12/2005, 12h24

ya pas un moyen de voir ce que fait la fonction etape par etape ?

**..:: Atchoum ::..** · 13/12/2005, 12h29

<?
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 ...

**trattos** · 13/12/2005, 12h37

En gros l'algorithme de ce programme fait quoi?

**dafalri** · 13/12/2005, 12h43

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 !

**yiannis** · 13/12/2005, 12h47

hela dafalri keep cool

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

**dafalri** · 13/12/2005, 12h53

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 !

**yiannis** · 13/12/2005, 13h02

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.

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

**dafalri** · 13/12/2005, 15h23

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

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
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

**yiannis** · 13/12/2005, 15h31

Envoyé par dafalri

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

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

**dafalri** · 13/12/2005, 15h40

Cest bien la question que je pose !

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 :

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
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

Fonction Basic en Php

Langage PHP

Discussions similaires

Partager

Partager