Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
3104 connectés 

 
 

Sujet(s) à lire :
    - Who's who@Programmation
 

 Mot :   Pseudo :  
  Aller à la page :
 
 Page :   1  2  3  4  5  ..  16931  16932  16933  ..  27004  27005  27006  27007  27008  27009
Page Suivante
Page Précédente
Bas de page 
Auteur Sujet :

[blabla@olympe] Le topic du modo, dieu de la fibre et du monde

n°1943510
stiffler
Lâche mon profil putain ! :o
Posté le 23-11-2009 à 14:22:28  profilanswer
 

Reprise du message précédent :

beel1 a écrit :

Dites les gens, un chat c'est con, ça on est d'accord, mais il faut combien de jours à un chat de 5 ans pour comprendre ce que c'est que son reflet dans une vitre ? [:mlc]


BEEL1 AVEC UN CHAT  [:tibo2002]  [:wiids]  [:tibo2002]  [:wiids]

Message cité 2 fois

---------------
I'm failing as fast as I can !! -- Vision-360, vos photos en grand format -- !! -- Les nouilles c'est bon
mood
Publicité
Posté le 23-11-2009 à 14:22:28  profilanswer
 

n°1943513
uriel
blood pt.2
Posté le 23-11-2009 à 14:28:49  profilanswer
 

R3g a écrit :


Pourquoi y'a une forme grave ? J'ai pas trop suivi l'actualité, il y aurait un virus mutant ?


H5N1 si on peut considerer ça comme un virus cousin mais rare :O

R3g a écrit :


48 décès, dont 3 sans facteur de risque préexistant, sur près de 2 millions de cas. Je veux pas te faire peur mais ton collègue a de bonnes chances de revenir bosser...


faut definir :O
 mais ouais, jsuis d'accord avec toi. Un collegue de ma copine l'a eu et il a morflé pendant 10jours au lit a agoniser. sa femme l'a eu: 2 jours a se sentir fatigué mais pas plus [:el g]
au final, les deux vont bien maintenant.
si ça peut m'eviter la semaine de grippe au lit, tant mieux.


Message édité par uriel le 23-11-2009 à 14:29:41

---------------
IVG en france
n°1943514
stiffler
Lâche mon profil putain ! :o
Posté le 23-11-2009 à 14:29:36  profilanswer
 

vapeur_cochonne a écrit :


nous on laisse louisse toute la journée devant  
elle adore ça  
 
des fois on l'eteint un peu quand elle dort pour la conso (42" )


 [:bakk67]


---------------
I'm failing as fast as I can !! -- Vision-360, vos photos en grand format -- !! -- Les nouilles c'est bon
n°1943516
gfive
Posté le 23-11-2009 à 14:35:03  profilanswer
 

vapeur_cochonne a écrit :


nous on laisse louisse toute la journée devant  
elle adore ça  
 
des fois on l'eteint un peu quand elle dort pour la conso (42" )


 
T'as qu'a alimenter le 42'' avec un pédalier pour la petite.
 
Pas de cerveau + sportive et bien foutue, éventuellement un peu de chirurgie, et tu peux espérer la vendre cher en Belgique à un exilé fiscal, histoire d'assurer ta retraite, des fois que tu te fasses virer pour manque de travail :o

Message cité 1 fois

---------------
Tous les sud africains sont ségrégationistes, à part Ted. (P. Desproges)
n°1943517
___alt
Posté le 23-11-2009 à 14:35:36  profilanswer
 

gfive a écrit :

Pas de cerveau + sportive et bien foutue


 
Anna Kournikova anyone ?


---------------
TRIPS RIGHT BUNCH F SHUTTLE TOM AND JERRY RIGHT YELLOW
n°1943518
stiffler
Lâche mon profil putain ! :o
Posté le 23-11-2009 à 14:41:30  profilanswer
 

uriel a écrit :

Citation :

A partir de 6 ans, deux heures par jour sont bien suffisantes.


 
 mais comment tu trouves 2 h de libre pour mettre ton gosse devant la tv? [:pingouino]
l'ecole les occupe de 8 a 17h, apres y a les devoirs, les leçon de piano et le sport [:pingouino]


Et le rasage pour que la moustache soit toujours bien net  [:baarf:4]


---------------
I'm failing as fast as I can !! -- Vision-360, vos photos en grand format -- !! -- Les nouilles c'est bon
n°1943521
kadreg
profil: Utilisateur
Posté le 23-11-2009 à 14:46:18  profilanswer
 

personne n'a un anxio c'est pour une urgence, merci :o

Message cité 2 fois

---------------
brisez les rêves des gens, il en restera toujours quelque chose...  -- laissez moi troller sur discu !
n°1943524
___alt
Posté le 23-11-2009 à 14:50:42  profilanswer
 

kadreg a écrit :

personne n'a un anxio c'est pour une urgence, merci :o


 
Prends un Dany, ça ira mieux.  [:velasquez:3]

Message cité 1 fois

---------------
TRIPS RIGHT BUNCH F SHUTTLE TOM AND JERRY RIGHT YELLOW
n°1943525
kadreg
profil: Utilisateur
Posté le 23-11-2009 à 14:51:36  profilanswer
 

___alt a écrit :


 
Prends un Dany, ça ira mieux.  [:velasquez:3]


 
http://www.the-utopian.org/images/Cohn-Bendit%2520historic%25201.jpg


---------------
brisez les rêves des gens, il en restera toujours quelque chose...  -- laissez moi troller sur discu !
n°1943527
flo850
moi je
Posté le 23-11-2009 à 14:54:05  profilanswer
 

kadreg a écrit :

personne n'a un anxio c'est pour une urgence, merci :o


deux baffes, ça ira ?


---------------

mood
Publicité
Posté le 23-11-2009 à 14:54:05  profilanswer
 

n°1943531
Dion
Acceuil
Posté le 23-11-2009 à 15:04:39  profilanswer
 

stiffler a écrit :


BEEL1 AVEC UN CHAT  [:tibo2002]  [:wiids]  [:tibo2002]  [:wiids]


Tant qu'il ne s'occupe pas d'une chatte la France peut encore être sauvée

Message cité 1 fois

---------------
When it comes to business/legal topics, just assume almost everyone commenting has no idea what they’re taking about and have no background in these subjects because that’s how it really is. Harkonnen 8-> Elmoricq 8====>
n°1943536
masklinn
í dag viðrar vel til loftárása
Posté le 23-11-2009 à 15:07:24  profilanswer
 

Code :
  1. Function GIR (UneChaine As Variant) As Integer
  2. 'Mise à jour du 31/3/1999
  3.  
  4.     If Len(UneChaine) < 8 Then
  5.         GIR = 0
  6.         Exit Function
  7.     End If
  8.     'Teste UneChaine pour le groupe A
  9.     groupe = 0
  10.     If Left$(UneChaine, 1) = "C" Then groupe = 2000
  11.     If Mid$(UneChaine, 2, 1) = "C" Then groupe = groupe + 1200
  12.     If Mid$(UneChaine, 3, 1) = "C" Then groupe = groupe + 40
  13.     If Mid$(UneChaine, 4, 1) = "C" Then groupe = groupe + 40
  14.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 60
  15.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 100
  16.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 800
  17.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe + 200
  18.  
  19.     If Mid$(UneChaine, 3, 1) = "B" Then groupe = groupe + 16
  20.     If Mid$(UneChaine, 4, 1) = "B" Then groupe = groupe + 16
  21.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 20
  22.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 16
  23.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 120
  24.     If Mid$(UneChaine, 8, 1) = "B" Then groupe = groupe + 32
  25.     'Rang groupe A
  26.     Select Case groupe
  27.           Case Is >= 4380
  28.             Rang = 1
  29.           Case 4140 To 4379
  30.             Rang = 2
  31.           Case 3390 To 4139
  32.             Rang = 3
  33.     End Select
  34.     If Rang <> 0 GoTo GIR
  35.  
  36.     'Teste Une Chaine pour le groupe B
  37.     groupe = 0
  38.     If Left$(UneChaine, 1) = "C" Then groupe = 1500
  39.     If Mid$(UneChaine, 2, 1) = "C" Then groupe = groupe + 1200
  40.     If Mid$(UneChaine, 3, 1) = "C" Then groupe = groupe + 40
  41.     If Mid$(UneChaine, 4, 1) = "C" Then groupe = groupe + 40
  42.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 60
  43.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 100
  44.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 800
  45.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe - 80
  46.     
  47.     If Left$(UneChaine, 1) = "B" Then groupe = groupe + 320
  48.     If Mid$(UneChaine, 2, 1) = "B" Then groupe = groupe + 120
  49.     If Mid$(UneChaine, 3, 1) = "B" Then groupe = groupe + 16
  50.     If Mid$(UneChaine, 4, 1) = "B" Then groupe = groupe + 16
  51.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 0
  52.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 16
  53.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 120
  54.     If Mid$(UneChaine, 8, 1) = "B" Then groupe = groupe - 40
  55.     'Rang groupe B
  56.     If groupe >= 2016 Then
  57.         Rang = 4:  GoTo GIR
  58.     Else
  59.         Rang = 0
  60.     End If
  61.     'Teste Une Chaine pour le groupe C
  62.     groupe = 0
  63.     If Mid$(UneChaine, 3, 1) = "C" Then groupe = groupe + 40
  64.     If Mid$(UneChaine, 4, 1) = "C" Then groupe = groupe + 40
  65.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 60
  66.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 160
  67.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 1000
  68.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe + 400
  69.  
  70.     If Mid$(UneChaine, 3, 1) = "B" Then groupe = groupe + 16
  71.     If Mid$(UneChaine, 4, 1) = "B" Then groupe = groupe + 16
  72.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 20
  73.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 20
  74.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 200
  75.     If Mid$(UneChaine, 8, 1) = "B" Then groupe = groupe + 40
  76.     'Rang groupe C
  77.     Select Case groupe
  78.           Case Is >= 1700
  79.             Rang = 5
  80.           Case 1432 To 1699
  81.             Rang = 6
  82.     End Select
  83.     If Rang <> 0 GoTo GIR
  84.     
  85.     'Teste Une Chaine pour le groupe D
  86.     groupe = 0
  87.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 2000
  88.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 400
  89.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 2000
  90.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe + 200
  91.  
  92.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 200
  93.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 200
  94.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 200
  95.     'Rang groupe D
  96.     If groupe >= 2400 Then
  97.         Rang = 7:  GoTo GIR
  98.     Else
  99.         Rang = 0
  100.     End If
  101.     
  102.     'Teste Une Chaine pour le groupe E
  103.     groupe = 0
  104.     If Left$(UneChaine, 1) = "C" Then groupe = 400
  105.     If Mid$(UneChaine, 2, 1) = "C" Then groupe = groupe + 400
  106.     If Mid$(UneChaine, 3, 1) = "C" Then groupe = groupe + 400
  107.     If Mid$(UneChaine, 4, 1) = "C" Then groupe = groupe + 400
  108.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 400
  109.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 800
  110.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 800
  111.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe + 200
  112.  
  113.     If Mid$(UneChaine, 3, 1) = "B" Then groupe = groupe + 100
  114.     If Mid$(UneChaine, 4, 1) = "B" Then groupe = groupe + 100
  115.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 100
  116.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 100
  117.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 100
  118.     'Rang groupe E
  119.     If groupe >= 1200 Then
  120.         Rang = 8:  GoTo GIR
  121.     Else
  122.         Rang = 0
  123.     End If
  124.     
  125.     'Teste Une Chaine pour le groupe F
  126.     groupe = 0
  127.     If Left$(UneChaine, 1) = "C" Then groupe = 200
  128.     If Mid$(UneChaine, 2, 1) = "C" Then groupe = groupe + 200
  129.     If Mid$(UneChaine, 3, 1) = "C" Then groupe = groupe + 500
  130.     If Mid$(UneChaine, 4, 1) = "C" Then groupe = groupe + 500
  131.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 500
  132.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 500
  133.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 500
  134.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe + 200
  135.  
  136.     If Left$(UneChaine, 1) = "B" Then groupe = groupe + 100
  137.     If Mid$(UneChaine, 2, 1) = "B" Then groupe = groupe + 100
  138.     If Mid$(UneChaine, 3, 1) = "B" Then groupe = groupe + 100
  139.     If Mid$(UneChaine, 4, 1) = "B" Then groupe = groupe + 100
  140.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 100
  141.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 100
  142.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 100
  143.     'Rang groupe F
  144.     If groupe >= 800 Then
  145.         Rang = 9:  GoTo GIR
  146.     Else
  147.         Rang = 0
  148.     End If
  149.  
  150.     'Teste Une Chaine pour le groupe G
  151.     groupe = 0
  152.     If Left$(UneChaine, 1) = "C" Then groupe = 150
  153.     If Mid$(UneChaine, 2, 1) = "C" Then groupe = groupe + 150
  154.     If Mid$(UneChaine, 3, 1) = "C" Then groupe = groupe + 300
  155.     If Mid$(UneChaine, 4, 1) = "C" Then groupe = groupe + 300
  156.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 500
  157.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 500
  158.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 400
  159.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe + 200
  160.  
  161.     If Mid$(UneChaine, 3, 1) = "B" Then groupe = groupe + 200
  162.     If Mid$(UneChaine, 4, 1) = "B" Then groupe = groupe + 200
  163.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 200
  164.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 200
  165.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 200
  166.     If Mid$(UneChaine, 8, 1) = "B" Then groupe = groupe + 100
  167.     'Rang groupe G
  168.     If groupe >= 650 Then
  169.         Rang = 10:  GoTo GIR
  170.     Else
  171.         Rang = 0
  172.     End If
  173.  
  174.     'Teste Une Chaine pour le groupe H
  175.     groupe = 0
  176.     If Mid$(UneChaine, 3, 1) = "C" Then groupe = groupe + 3000
  177.     If Mid$(UneChaine, 4, 1) = "C" Then groupe = groupe + 3000
  178.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 3000
  179.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 3000
  180.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 1000
  181.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe + 1000
  182.  
  183.     If Mid$(UneChaine, 3, 1) = "B" Then groupe = groupe + 2000
  184.     If Mid$(UneChaine, 4, 1) = "B" Then groupe = groupe + 2000
  185.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 2000
  186.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 2000
  187.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 2000
  188.     If Mid$(UneChaine, 8, 1) = "B" Then groupe = groupe + 1000
  189.     'Rang groupe H
  190.     Select Case groupe
  191.           Case Is >= 4000
  192.             Rang = 11
  193.           Case 2000 To 3999
  194.             Rang = 12
  195.           Case Is < 2000
  196.             Rang = 13
  197.     End Select
  198.     GoTo GIR
  199.  
  200.  
  201.  
  202. GIR:
  203.     Select Case Rang
  204.           Case Is = 1
  205.             GIR = 1
  206.           Case 2 To 7
  207.             GIR = 2
  208.           Case 8 To 9
  209.             GIR = 3
  210.           Case 10 To 11
  211.             GIR = 4
  212.           Case 12
  213.             GIR = 5
  214.           Case 13
  215.             GIR = 6
  216.     End Select
  217.  
  218. End Function

Message cité 6 fois
Message édité par masklinn le 23-11-2009 à 15:08:18

---------------
I mean, true, a cancer will probably destroy its host organism. But what about the cells whose mutations allow them to think outside the box by throwing away the limits imposed by overbearing genetic regulations? Isn't that a good thing?
n°1943538
black_lord
Truth speaks from peacefulness
Posté le 23-11-2009 à 15:12:24  profilanswer
 

masklinn a écrit :

*GROS*

 

[:ciler]

Message cité 1 fois
Message édité par black_lord le 23-11-2009 à 15:12:45

---------------
uptime is for lousy system administrators what Viagra is for impotent people - mes unixeries - github me
n°1943539
___alt
Posté le 23-11-2009 à 15:13:19  profilanswer
 

What the fuck ?


---------------
TRIPS RIGHT BUNCH F SHUTTLE TOM AND JERRY RIGHT YELLOW
n°1943540
boulax
Inserer phrase hype en anglais
Posté le 23-11-2009 à 15:15:49  profilanswer
 

masklinn a écrit :

Code :
  1. Function GIR (UneChaine As Variant) As Integer
  2. 'Mise à jour du 31/3/1999
  3.  
  4.     If Len(UneChaine) < 8 Then
  5.         GIR = 0
  6.         Exit Function
  7.     End If
  8.     'Teste UneChaine pour le groupe A
  9.     groupe = 0
  10.     If Left$(UneChaine, 1) = "C" Then groupe = 2000
  11.     If Mid$(UneChaine, 2, 1) = "C" Then groupe = groupe + 1200
  12.     If Mid$(UneChaine, 3, 1) = "C" Then groupe = groupe + 40
  13.     If Mid$(UneChaine, 4, 1) = "C" Then groupe = groupe + 40
  14.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 60
  15.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 100
  16.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 800
  17.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe + 200
  18.  
  19.     If Mid$(UneChaine, 3, 1) = "B" Then groupe = groupe + 16
  20.     If Mid$(UneChaine, 4, 1) = "B" Then groupe = groupe + 16
  21.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 20
  22.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 16
  23.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 120
  24.     If Mid$(UneChaine, 8, 1) = "B" Then groupe = groupe + 32
  25.     'Rang groupe A
  26.     Select Case groupe
  27.           Case Is >= 4380
  28.             Rang = 1
  29.           Case 4140 To 4379
  30.             Rang = 2
  31.           Case 3390 To 4139
  32.             Rang = 3
  33.     End Select
  34.     If Rang <> 0 GoTo GIR
  35.  
  36.     'Teste Une Chaine pour le groupe B
  37.     groupe = 0
  38.     If Left$(UneChaine, 1) = "C" Then groupe = 1500
  39.     If Mid$(UneChaine, 2, 1) = "C" Then groupe = groupe + 1200
  40.     If Mid$(UneChaine, 3, 1) = "C" Then groupe = groupe + 40
  41.     If Mid$(UneChaine, 4, 1) = "C" Then groupe = groupe + 40
  42.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 60
  43.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 100
  44.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 800
  45.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe - 80
  46.     
  47.     If Left$(UneChaine, 1) = "B" Then groupe = groupe + 320
  48.     If Mid$(UneChaine, 2, 1) = "B" Then groupe = groupe + 120
  49.     If Mid$(UneChaine, 3, 1) = "B" Then groupe = groupe + 16
  50.     If Mid$(UneChaine, 4, 1) = "B" Then groupe = groupe + 16
  51.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 0
  52.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 16
  53.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 120
  54.     If Mid$(UneChaine, 8, 1) = "B" Then groupe = groupe - 40
  55.     'Rang groupe B
  56.     If groupe >= 2016 Then
  57.         Rang = 4:  GoTo GIR
  58.     Else
  59.         Rang = 0
  60.     End If
  61.     'Teste Une Chaine pour le groupe C
  62.     groupe = 0
  63.     If Mid$(UneChaine, 3, 1) = "C" Then groupe = groupe + 40
  64.     If Mid$(UneChaine, 4, 1) = "C" Then groupe = groupe + 40
  65.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 60
  66.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 160
  67.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 1000
  68.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe + 400
  69.  
  70.     If Mid$(UneChaine, 3, 1) = "B" Then groupe = groupe + 16
  71.     If Mid$(UneChaine, 4, 1) = "B" Then groupe = groupe + 16
  72.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 20
  73.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 20
  74.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 200
  75.     If Mid$(UneChaine, 8, 1) = "B" Then groupe = groupe + 40
  76.     'Rang groupe C
  77.     Select Case groupe
  78.           Case Is >= 1700
  79.             Rang = 5
  80.           Case 1432 To 1699
  81.             Rang = 6
  82.     End Select
  83.     If Rang <> 0 GoTo GIR
  84.     
  85.     'Teste Une Chaine pour le groupe D
  86.     groupe = 0
  87.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 2000
  88.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 400
  89.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 2000
  90.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe + 200
  91.  
  92.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 200
  93.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 200
  94.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 200
  95.     'Rang groupe D
  96.     If groupe >= 2400 Then
  97.         Rang = 7:  GoTo GIR
  98.     Else
  99.         Rang = 0
  100.     End If
  101.     
  102.     'Teste Une Chaine pour le groupe E
  103.     groupe = 0
  104.     If Left$(UneChaine, 1) = "C" Then groupe = 400
  105.     If Mid$(UneChaine, 2, 1) = "C" Then groupe = groupe + 400
  106.     If Mid$(UneChaine, 3, 1) = "C" Then groupe = groupe + 400
  107.     If Mid$(UneChaine, 4, 1) = "C" Then groupe = groupe + 400
  108.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 400
  109.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 800
  110.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 800
  111.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe + 200
  112.  
  113.     If Mid$(UneChaine, 3, 1) = "B" Then groupe = groupe + 100
  114.     If Mid$(UneChaine, 4, 1) = "B" Then groupe = groupe + 100
  115.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 100
  116.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 100
  117.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 100
  118.     'Rang groupe E
  119.     If groupe >= 1200 Then
  120.         Rang = 8:  GoTo GIR
  121.     Else
  122.         Rang = 0
  123.     End If
  124.     
  125.     'Teste Une Chaine pour le groupe F
  126.     groupe = 0
  127.     If Left$(UneChaine, 1) = "C" Then groupe = 200
  128.     If Mid$(UneChaine, 2, 1) = "C" Then groupe = groupe + 200
  129.     If Mid$(UneChaine, 3, 1) = "C" Then groupe = groupe + 500
  130.     If Mid$(UneChaine, 4, 1) = "C" Then groupe = groupe + 500
  131.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 500
  132.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 500
  133.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 500
  134.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe + 200
  135.  
  136.     If Left$(UneChaine, 1) = "B" Then groupe = groupe + 100
  137.     If Mid$(UneChaine, 2, 1) = "B" Then groupe = groupe + 100
  138.     If Mid$(UneChaine, 3, 1) = "B" Then groupe = groupe + 100
  139.     If Mid$(UneChaine, 4, 1) = "B" Then groupe = groupe + 100
  140.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 100
  141.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 100
  142.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 100
  143.     'Rang groupe F
  144.     If groupe >= 800 Then
  145.         Rang = 9:  GoTo GIR
  146.     Else
  147.         Rang = 0
  148.     End If
  149.  
  150.     'Teste Une Chaine pour le groupe G
  151.     groupe = 0
  152.     If Left$(UneChaine, 1) = "C" Then groupe = 150
  153.     If Mid$(UneChaine, 2, 1) = "C" Then groupe = groupe + 150
  154.     If Mid$(UneChaine, 3, 1) = "C" Then groupe = groupe + 300
  155.     If Mid$(UneChaine, 4, 1) = "C" Then groupe = groupe + 300
  156.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 500
  157.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 500
  158.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 400
  159.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe + 200
  160.  
  161.     If Mid$(UneChaine, 3, 1) = "B" Then groupe = groupe + 200
  162.     If Mid$(UneChaine, 4, 1) = "B" Then groupe = groupe + 200
  163.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 200
  164.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 200
  165.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 200
  166.     If Mid$(UneChaine, 8, 1) = "B" Then groupe = groupe + 100
  167.     'Rang groupe G
  168.     If groupe >= 650 Then
  169.         Rang = 10:  GoTo GIR
  170.     Else
  171.         Rang = 0
  172.     End If
  173.  
  174.     'Teste Une Chaine pour le groupe H
  175.     groupe = 0
  176.     If Mid$(UneChaine, 3, 1) = "C" Then groupe = groupe + 3000
  177.     If Mid$(UneChaine, 4, 1) = "C" Then groupe = groupe + 3000
  178.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 3000
  179.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 3000
  180.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 1000
  181.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe + 1000
  182.  
  183.     If Mid$(UneChaine, 3, 1) = "B" Then groupe = groupe + 2000
  184.     If Mid$(UneChaine, 4, 1) = "B" Then groupe = groupe + 2000
  185.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 2000
  186.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 2000
  187.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 2000
  188.     If Mid$(UneChaine, 8, 1) = "B" Then groupe = groupe + 1000
  189.     'Rang groupe H
  190.     Select Case groupe
  191.           Case Is >= 4000
  192.             Rang = 11
  193.           Case 2000 To 3999
  194.             Rang = 12
  195.           Case Is < 2000
  196.             Rang = 13
  197.     End Select
  198.     GoTo GIR
  199.  
  200.  
  201.  
  202. GIR:
  203.     Select Case Rang
  204.           Case Is = 1
  205.             GIR = 1
  206.           Case 2 To 7
  207.             GIR = 2
  208.           Case 8 To 9
  209.             GIR = 3
  210.           Case 10 To 11
  211.             GIR = 4
  212.           Case 12
  213.             GIR = 5
  214.           Case 13
  215.             GIR = 6
  216.     End Select
  217.  
  218. End Function



Business is business [:clooney16]  


---------------
Posté depuis des chiottes, sales. Me gusta.
n°1943541
masklinn
í dag viðrar vel til loftárása
Posté le 23-11-2009 à 15:21:02  profilanswer
 

black_lord a écrit :


 
[:ciler]


MOINMOIN N'EST PAS GROS /FOU/ /FOU/


---------------
I mean, true, a cancer will probably destroy its host organism. But what about the cells whose mutations allow them to think outside the box by throwing away the limits imposed by overbearing genetic regulations? Isn't that a good thing?
n°1943542
LePhasme
Les Belges domineront le monde
Posté le 23-11-2009 à 15:21:40  profilanswer
 

masklinn a écrit :

Code :
  1. Function GIR (UneChaine As Variant) As Integer



Ca vient de ton nouveau boulot ? [:petrus75]

Message cité 1 fois

---------------
Instagram - Mon PVT en Australie.
n°1943544
FlorentG
Posté le 23-11-2009 à 15:22:08  profilanswer
 

masklinn a écrit :

Code :
  1. Function GIR (UneChaine As Variant) As Integer
  2. 'Mise à jour du 31/3/1999
  3.  
  4.     If Len(UneChaine) < 8 Then
  5.         GIR = 0
  6.         Exit Function
  7.     End If
  8.     'Teste UneChaine pour le groupe A
  9.     groupe = 0
  10.     If Left$(UneChaine, 1) = "C" Then groupe = 2000
  11.     If Mid$(UneChaine, 2, 1) = "C" Then groupe = groupe + 1200
  12.     If Mid$(UneChaine, 3, 1) = "C" Then groupe = groupe + 40
  13.     If Mid$(UneChaine, 4, 1) = "C" Then groupe = groupe + 40
  14.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 60
  15.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 100
  16.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 800
  17.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe + 200
  18.  
  19.     If Mid$(UneChaine, 3, 1) = "B" Then groupe = groupe + 16
  20.     If Mid$(UneChaine, 4, 1) = "B" Then groupe = groupe + 16
  21.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 20
  22.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 16
  23.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 120
  24.     If Mid$(UneChaine, 8, 1) = "B" Then groupe = groupe + 32
  25.     'Rang groupe A
  26.     Select Case groupe
  27.           Case Is >= 4380
  28.             Rang = 1
  29.           Case 4140 To 4379
  30.             Rang = 2
  31.           Case 3390 To 4139
  32.             Rang = 3
  33.     End Select
  34.     If Rang <> 0 GoTo GIR
  35.  
  36.     'Teste Une Chaine pour le groupe B
  37.     groupe = 0
  38.     If Left$(UneChaine, 1) = "C" Then groupe = 1500
  39.     If Mid$(UneChaine, 2, 1) = "C" Then groupe = groupe + 1200
  40.     If Mid$(UneChaine, 3, 1) = "C" Then groupe = groupe + 40
  41.     If Mid$(UneChaine, 4, 1) = "C" Then groupe = groupe + 40
  42.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 60
  43.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 100
  44.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 800
  45.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe - 80
  46.     
  47.     If Left$(UneChaine, 1) = "B" Then groupe = groupe + 320
  48.     If Mid$(UneChaine, 2, 1) = "B" Then groupe = groupe + 120
  49.     If Mid$(UneChaine, 3, 1) = "B" Then groupe = groupe + 16
  50.     If Mid$(UneChaine, 4, 1) = "B" Then groupe = groupe + 16
  51.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 0
  52.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 16
  53.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 120
  54.     If Mid$(UneChaine, 8, 1) = "B" Then groupe = groupe - 40
  55.     'Rang groupe B
  56.     If groupe >= 2016 Then
  57.         Rang = 4:  GoTo GIR
  58.     Else
  59.         Rang = 0
  60.     End If
  61.     'Teste Une Chaine pour le groupe C
  62.     groupe = 0
  63.     If Mid$(UneChaine, 3, 1) = "C" Then groupe = groupe + 40
  64.     If Mid$(UneChaine, 4, 1) = "C" Then groupe = groupe + 40
  65.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 60
  66.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 160
  67.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 1000
  68.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe + 400
  69.  
  70.     If Mid$(UneChaine, 3, 1) = "B" Then groupe = groupe + 16
  71.     If Mid$(UneChaine, 4, 1) = "B" Then groupe = groupe + 16
  72.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 20
  73.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 20
  74.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 200
  75.     If Mid$(UneChaine, 8, 1) = "B" Then groupe = groupe + 40
  76.     'Rang groupe C
  77.     Select Case groupe
  78.           Case Is >= 1700
  79.             Rang = 5
  80.           Case 1432 To 1699
  81.             Rang = 6
  82.     End Select
  83.     If Rang <> 0 GoTo GIR
  84.     
  85.     'Teste Une Chaine pour le groupe D
  86.     groupe = 0
  87.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 2000
  88.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 400
  89.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 2000
  90.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe + 200
  91.  
  92.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 200
  93.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 200
  94.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 200
  95.     'Rang groupe D
  96.     If groupe >= 2400 Then
  97.         Rang = 7:  GoTo GIR
  98.     Else
  99.         Rang = 0
  100.     End If
  101.     
  102.     'Teste Une Chaine pour le groupe E
  103.     groupe = 0
  104.     If Left$(UneChaine, 1) = "C" Then groupe = 400
  105.     If Mid$(UneChaine, 2, 1) = "C" Then groupe = groupe + 400
  106.     If Mid$(UneChaine, 3, 1) = "C" Then groupe = groupe + 400
  107.     If Mid$(UneChaine, 4, 1) = "C" Then groupe = groupe + 400
  108.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 400
  109.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 800
  110.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 800
  111.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe + 200
  112.  
  113.     If Mid$(UneChaine, 3, 1) = "B" Then groupe = groupe + 100
  114.     If Mid$(UneChaine, 4, 1) = "B" Then groupe = groupe + 100
  115.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 100
  116.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 100
  117.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 100
  118.     'Rang groupe E
  119.     If groupe >= 1200 Then
  120.         Rang = 8:  GoTo GIR
  121.     Else
  122.         Rang = 0
  123.     End If
  124.     
  125.     'Teste Une Chaine pour le groupe F
  126.     groupe = 0
  127.     If Left$(UneChaine, 1) = "C" Then groupe = 200
  128.     If Mid$(UneChaine, 2, 1) = "C" Then groupe = groupe + 200
  129.     If Mid$(UneChaine, 3, 1) = "C" Then groupe = groupe + 500
  130.     If Mid$(UneChaine, 4, 1) = "C" Then groupe = groupe + 500
  131.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 500
  132.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 500
  133.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 500
  134.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe + 200
  135.  
  136.     If Left$(UneChaine, 1) = "B" Then groupe = groupe + 100
  137.     If Mid$(UneChaine, 2, 1) = "B" Then groupe = groupe + 100
  138.     If Mid$(UneChaine, 3, 1) = "B" Then groupe = groupe + 100
  139.     If Mid$(UneChaine, 4, 1) = "B" Then groupe = groupe + 100
  140.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 100
  141.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 100
  142.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 100
  143.     'Rang groupe F
  144.     If groupe >= 800 Then
  145.         Rang = 9:  GoTo GIR
  146.     Else
  147.         Rang = 0
  148.     End If
  149.  
  150.     'Teste Une Chaine pour le groupe G
  151.     groupe = 0
  152.     If Left$(UneChaine, 1) = "C" Then groupe = 150
  153.     If Mid$(UneChaine, 2, 1) = "C" Then groupe = groupe + 150
  154.     If Mid$(UneChaine, 3, 1) = "C" Then groupe = groupe + 300
  155.     If Mid$(UneChaine, 4, 1) = "C" Then groupe = groupe + 300
  156.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 500
  157.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 500
  158.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 400
  159.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe + 200
  160.  
  161.     If Mid$(UneChaine, 3, 1) = "B" Then groupe = groupe + 200
  162.     If Mid$(UneChaine, 4, 1) = "B" Then groupe = groupe + 200
  163.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 200
  164.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 200
  165.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 200
  166.     If Mid$(UneChaine, 8, 1) = "B" Then groupe = groupe + 100
  167.     'Rang groupe G
  168.     If groupe >= 650 Then
  169.         Rang = 10:  GoTo GIR
  170.     Else
  171.         Rang = 0
  172.     End If
  173.  
  174.     'Teste Une Chaine pour le groupe H
  175.     groupe = 0
  176.     If Mid$(UneChaine, 3, 1) = "C" Then groupe = groupe + 3000
  177.     If Mid$(UneChaine, 4, 1) = "C" Then groupe = groupe + 3000
  178.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 3000
  179.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 3000
  180.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 1000
  181.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe + 1000
  182.  
  183.     If Mid$(UneChaine, 3, 1) = "B" Then groupe = groupe + 2000
  184.     If Mid$(UneChaine, 4, 1) = "B" Then groupe = groupe + 2000
  185.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 2000
  186.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 2000
  187.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 2000
  188.     If Mid$(UneChaine, 8, 1) = "B" Then groupe = groupe + 1000
  189.     'Rang groupe H
  190.     Select Case groupe
  191.           Case Is >= 4000
  192.             Rang = 11
  193.           Case 2000 To 3999
  194.             Rang = 12
  195.           Case Is < 2000
  196.             Rang = 13
  197.     End Select
  198.     GoTo GIR
  199.  
  200.  
  201.  
  202. GIR:
  203.     Select Case Rang
  204.           Case Is = 1
  205.             GIR = 1
  206.           Case 2 To 7
  207.             GIR = 2
  208.           Case 8 To 9
  209.             GIR = 3
  210.           Case 10 To 11
  211.             GIR = 4
  212.           Case 12
  213.             GIR = 5
  214.           Case 13
  215.             GIR = 6
  216.     End Select
  217.  
  218. End Function



Vous n'allez pas tous vous amuser à quoter ce truc en entier, vous vous rappeller la dernière fois ? :o

n°1943545
el_barbone
too old for this shit ...
Posté le 23-11-2009 à 15:24:34  profilanswer
 

masklinn a écrit :

Code :
  1. Function GIR (UneChaine As Variant) As Integer
  2. 'Mise à jour du 31/3/1999
  3.  
  4.     If Len(UneChaine) < 8 Then
  5.         GIR = 0
  6.         Exit Function
  7.     End If
  8.     'Teste UneChaine pour le groupe A
  9.     groupe = 0
  10.     If Left$(UneChaine, 1) = "C" Then groupe = 2000
  11.     If Mid$(UneChaine, 2, 1) = "C" Then groupe = groupe + 1200
  12.     If Mid$(UneChaine, 3, 1) = "C" Then groupe = groupe + 40
  13.     If Mid$(UneChaine, 4, 1) = "C" Then groupe = groupe + 40
  14.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 60
  15.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 100
  16.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 800
  17.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe + 200
  18.  
  19.     If Mid$(UneChaine, 3, 1) = "B" Then groupe = groupe + 16
  20.     If Mid$(UneChaine, 4, 1) = "B" Then groupe = groupe + 16
  21.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 20
  22.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 16
  23.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 120
  24.     If Mid$(UneChaine, 8, 1) = "B" Then groupe = groupe + 32
  25.     'Rang groupe A
  26.     Select Case groupe
  27.           Case Is >= 4380
  28.             Rang = 1
  29.           Case 4140 To 4379
  30.             Rang = 2
  31.           Case 3390 To 4139
  32.             Rang = 3
  33.     End Select
  34.     If Rang <> 0 GoTo GIR
  35.  
  36.     'Teste Une Chaine pour le groupe B
  37.     groupe = 0
  38.     If Left$(UneChaine, 1) = "C" Then groupe = 1500
  39.     If Mid$(UneChaine, 2, 1) = "C" Then groupe = groupe + 1200
  40.     If Mid$(UneChaine, 3, 1) = "C" Then groupe = groupe + 40
  41.     If Mid$(UneChaine, 4, 1) = "C" Then groupe = groupe + 40
  42.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 60
  43.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 100
  44.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 800
  45.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe - 80
  46.     
  47.     If Left$(UneChaine, 1) = "B" Then groupe = groupe + 320
  48.     If Mid$(UneChaine, 2, 1) = "B" Then groupe = groupe + 120
  49.     If Mid$(UneChaine, 3, 1) = "B" Then groupe = groupe + 16
  50.     If Mid$(UneChaine, 4, 1) = "B" Then groupe = groupe + 16
  51.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 0
  52.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 16
  53.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 120
  54.     If Mid$(UneChaine, 8, 1) = "B" Then groupe = groupe - 40
  55.     'Rang groupe B
  56.     If groupe >= 2016 Then
  57.         Rang = 4:  GoTo GIR
  58.     Else
  59.         Rang = 0
  60.     End If
  61.     'Teste Une Chaine pour le groupe C
  62.     groupe = 0
  63.     If Mid$(UneChaine, 3, 1) = "C" Then groupe = groupe + 40
  64.     If Mid$(UneChaine, 4, 1) = "C" Then groupe = groupe + 40
  65.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 60
  66.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 160
  67.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 1000
  68.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe + 400
  69.  
  70.     If Mid$(UneChaine, 3, 1) = "B" Then groupe = groupe + 16
  71.     If Mid$(UneChaine, 4, 1) = "B" Then groupe = groupe + 16
  72.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 20
  73.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 20
  74.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 200
  75.     If Mid$(UneChaine, 8, 1) = "B" Then groupe = groupe + 40
  76.     'Rang groupe C
  77.     Select Case groupe
  78.           Case Is >= 1700
  79.             Rang = 5
  80.           Case 1432 To 1699
  81.             Rang = 6
  82.     End Select
  83.     If Rang <> 0 GoTo GIR
  84.     
  85.     'Teste Une Chaine pour le groupe D
  86.     groupe = 0
  87.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 2000
  88.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 400
  89.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 2000
  90.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe + 200
  91.  
  92.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 200
  93.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 200
  94.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 200
  95.     'Rang groupe D
  96.     If groupe >= 2400 Then
  97.         Rang = 7:  GoTo GIR
  98.     Else
  99.         Rang = 0
  100.     End If
  101.     
  102.     'Teste Une Chaine pour le groupe E
  103.     groupe = 0
  104.     If Left$(UneChaine, 1) = "C" Then groupe = 400
  105.     If Mid$(UneChaine, 2, 1) = "C" Then groupe = groupe + 400
  106.     If Mid$(UneChaine, 3, 1) = "C" Then groupe = groupe + 400
  107.     If Mid$(UneChaine, 4, 1) = "C" Then groupe = groupe + 400
  108.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 400
  109.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 800
  110.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 800
  111.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe + 200
  112.  
  113.     If Mid$(UneChaine, 3, 1) = "B" Then groupe = groupe + 100
  114.     If Mid$(UneChaine, 4, 1) = "B" Then groupe = groupe + 100
  115.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 100
  116.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 100
  117.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 100
  118.     'Rang groupe E
  119.     If groupe >= 1200 Then
  120.         Rang = 8:  GoTo GIR
  121.     Else
  122.         Rang = 0
  123.     End If
  124.     
  125.     'Teste Une Chaine pour le groupe F
  126.     groupe = 0
  127.     If Left$(UneChaine, 1) = "C" Then groupe = 200
  128.     If Mid$(UneChaine, 2, 1) = "C" Then groupe = groupe + 200
  129.     If Mid$(UneChaine, 3, 1) = "C" Then groupe = groupe + 500
  130.     If Mid$(UneChaine, 4, 1) = "C" Then groupe = groupe + 500
  131.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 500
  132.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 500
  133.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 500
  134.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe + 200
  135.  
  136.     If Left$(UneChaine, 1) = "B" Then groupe = groupe + 100
  137.     If Mid$(UneChaine, 2, 1) = "B" Then groupe = groupe + 100
  138.     If Mid$(UneChaine, 3, 1) = "B" Then groupe = groupe + 100
  139.     If Mid$(UneChaine, 4, 1) = "B" Then groupe = groupe + 100
  140.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 100
  141.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 100
  142.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 100
  143.     'Rang groupe F
  144.     If groupe >= 800 Then
  145.         Rang = 9:  GoTo GIR
  146.     Else
  147.         Rang = 0
  148.     End If
  149.  
  150.     'Teste Une Chaine pour le groupe G
  151.     groupe = 0
  152.     If Left$(UneChaine, 1) = "C" Then groupe = 150
  153.     If Mid$(UneChaine, 2, 1) = "C" Then groupe = groupe + 150
  154.     If Mid$(UneChaine, 3, 1) = "C" Then groupe = groupe + 300
  155.     If Mid$(UneChaine, 4, 1) = "C" Then groupe = groupe + 300
  156.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 500
  157.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 500
  158.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 400
  159.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe + 200
  160.  
  161.     If Mid$(UneChaine, 3, 1) = "B" Then groupe = groupe + 200
  162.     If Mid$(UneChaine, 4, 1) = "B" Then groupe = groupe + 200
  163.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 200
  164.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 200
  165.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 200
  166.     If Mid$(UneChaine, 8, 1) = "B" Then groupe = groupe + 100
  167.     'Rang groupe G
  168.     If groupe >= 650 Then
  169.         Rang = 10:  GoTo GIR
  170.     Else
  171.         Rang = 0
  172.     End If
  173.  
  174.     'Teste Une Chaine pour le groupe H
  175.     groupe = 0
  176.     If Mid$(UneChaine, 3, 1) = "C" Then groupe = groupe + 3000
  177.     If Mid$(UneChaine, 4, 1) = "C" Then groupe = groupe + 3000
  178.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 3000
  179.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 3000
  180.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 1000
  181.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe + 1000
  182.  
  183.     If Mid$(UneChaine, 3, 1) = "B" Then groupe = groupe + 2000
  184.     If Mid$(UneChaine, 4, 1) = "B" Then groupe = groupe + 2000
  185.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 2000
  186.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 2000
  187.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 2000
  188.     If Mid$(UneChaine, 8, 1) = "B" Then groupe = groupe + 1000
  189.     'Rang groupe H
  190.     Select Case groupe
  191.           Case Is >= 4000
  192.             Rang = 11
  193.           Case 2000 To 3999
  194.             Rang = 12
  195.           Case Is < 2000
  196.             Rang = 13
  197.     End Select
  198.     GoTo GIR
  199.  
  200.  
  201.  
  202. GIR:
  203.     Select Case Rang
  204.           Case Is = 1
  205.             GIR = 1
  206.           Case 2 To 7
  207.             GIR = 2
  208.           Case 8 To 9
  209.             GIR = 3
  210.           Case 10 To 11
  211.             GIR = 4
  212.           Case 12
  213.             GIR = 5
  214.           Case 13
  215.             GIR = 6
  216.     End Select
  217.  
  218. End Function



 
non [:dawak]


---------------
En théorie, la théorie et la pratique sont identiques, en pratique, non.
n°1943546
masklinn
í dag viðrar vel til loftárása
Posté le 23-11-2009 à 15:25:21  profilanswer
 

Apple is not evil. iPhone developers are stupid. [:implosion du tibia]

LePhasme a écrit :


Ca vient de ton nouveau boulot ? [:petrus75]


Presque. J'ai trouvé un bout de python qui m'a fait trai trai peur. J'ai suivi le lien, ça m'a mené ça ça [:sisicaivrai]

Message cité 1 fois

---------------
I mean, true, a cancer will probably destroy its host organism. But what about the cells whose mutations allow them to think outside the box by throwing away the limits imposed by overbearing genetic regulations? Isn't that a good thing?
n°1943547
skeye
Posté le 23-11-2009 à 15:26:49  profilanswer
 

Bon, transaction bloquée depuis 10 minutes à cause d'un user, j'en connais un qui s'est barré fumer sa clope avec un dossier d'ouvert et qui va se faire kicker...[:moule_bite]


---------------
Can't buy what I want because it's free -
n°1943556
flo850
moi je
Posté le 23-11-2009 à 15:37:52  profilanswer
 

masklinn a écrit :

Apple is not evil. iPhone developers are stupid. [:implosion du tibia]


 
joli tacle  
et en plus, je pense qu'il a raison

Message cité 1 fois

---------------

n°1943562
masklinn
í dag viðrar vel til loftárása
Posté le 23-11-2009 à 15:45:45  profilanswer
 

flo850 a écrit :

et en plus, je pense qu'il a raison


Je sais pas, je m'en fous, mais je pense qu'il a la classe [:implosion du tibia]

Citation :

Jobs showed His chosen people the straight and narrow path to enlightenment, but they ignored His word. Therefore He unleashed the scourge of the App Store upon them. Good for Him. He should do stuff like that more often.

 

iPhone developers deserve no commiseration. If we encounter yet another post about Apple’s lack of love for the author’s iPhone app, we should tell the pathetic whiner it’s his own fucking fault. He should have used Web technologies instead.


Message édité par masklinn le 23-11-2009 à 15:51:48

---------------
I mean, true, a cancer will probably destroy its host organism. But what about the cells whose mutations allow them to think outside the box by throwing away the limits imposed by overbearing genetic regulations? Isn't that a good thing?
n°1943563
drasche
Posté le 23-11-2009 à 15:47:28  profilanswer
 

masklinn a écrit :

T'es vraiment complètement à l'ouest comme garçon [:pingouino]
 
Tu gères pas mieux la chaleur ou le soleil que moi, t'es encore moins mobile, et en australie tout essaie de te tuer, y compris les objets inanimés [:pingouino]


Et en plus j'ai appris qu'ils ne savent pas faire des pizzas décentes [:nul]
 

Xavier_OM a écrit :

C'est histoire de procréer dans l'hémisphère sud :o


Super, grâce à Harko, le pool génétique mondial va régresser :o
 

LePhasme a écrit :

Vous pensez quoi de la loi européenne qui interdit de mettre une fessée ( voir une tape sur les mains) à un enfant ? :o


C'était pas une proposition de loi française? Ou j'ai mal lu et c'est destiné à l'Europe?
 

uriel a écrit :

Citation :

A partir de 6 ans, deux heures par jour sont bien suffisantes.


 
 mais comment tu trouves 2 h de libre pour mettre ton gosse devant la tv? [:pingouino]
l'ecole les occupe de 8 a 17h, apres y a les devoirs, les leçon de piano et le sport [:pingouino]


 

uriel a écrit :

cet article de fou, je sais meme pas quoi quoter tellement c'est golden [:pingouino]
j'adore les  

Citation :

Quelle est l'alternative si on décide d'interdire l'enfant de moins de 3 ans de télé ?


Citation :

Le problème est-il le même si l'enfant regarde des dessins animés sur écran d'ordinateur ?


Citation :

Choisir d'interdire est-ce partir sur de bonnes bases ?


 
 au s'cours [:pingouino]


Ouh pitain c'est ça le monde d'aujourd'hui? [:pingouino] Si on me cherche, je suis retourné dans ma grotte [:pingouino]
 

Harkonnen a écrit :

mais ça ne s'explique pas, faut pas forcément une raison pour être attiré par un lieu en particulier. c'est juste que dans ma longue liste de pays à visiter où qui m'attirent, l'Australie fait partie des premiers, avec l'Islande ou la Corée du Nord :spamafote:


Les lieux hostiles à toute forme de reproduction humaine [:bien]
 

Xavier_OM a écrit :

Depuis Sophia Antipolis jpeux dire que le sud-est est bien en retard sur le ch'nord (et pourtant ils font des efforts :'( )


Ca va leur faire un choc quand ils vont découvrir la technologie du jeu de l'oie :/

Message cité 1 fois

---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
n°1943567
masklinn
í dag viðrar vel til loftárása
Posté le 23-11-2009 à 15:52:27  profilanswer
 

Code :
  1. if 'price' in self.context and self.context.has_key('price'):
  2.     return self.context['price']       
  3. return 0.0


[:sisicaivrai]

Message cité 2 fois

---------------
I mean, true, a cancer will probably destroy its host organism. But what about the cells whose mutations allow them to think outside the box by throwing away the limits imposed by overbearing genetic regulations? Isn't that a good thing?
n°1943568
Shinuza
This is unexecpected
Posté le 23-11-2009 à 15:53:24  profilanswer
 

masklinn a écrit :

Code :
  1. Function GIR (UneChaine As Variant) As Integer
  2. 'Mise à jour du 31/3/1999
  3.  
  4.     If Len(UneChaine) < 8 Then
  5.         GIR = 0
  6.         Exit Function
  7.     End If
  8.     'Teste UneChaine pour le groupe A
  9.     groupe = 0
  10.     If Left$(UneChaine, 1) = "C" Then groupe = 2000
  11.     If Mid$(UneChaine, 2, 1) = "C" Then groupe = groupe + 1200
  12.     If Mid$(UneChaine, 3, 1) = "C" Then groupe = groupe + 40
  13.     If Mid$(UneChaine, 4, 1) = "C" Then groupe = groupe + 40
  14.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 60
  15.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 100
  16.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 800
  17.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe + 200
  18.  
  19.     If Mid$(UneChaine, 3, 1) = "B" Then groupe = groupe + 16
  20.     If Mid$(UneChaine, 4, 1) = "B" Then groupe = groupe + 16
  21.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 20
  22.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 16
  23.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 120
  24.     If Mid$(UneChaine, 8, 1) = "B" Then groupe = groupe + 32
  25.     'Rang groupe A
  26.     Select Case groupe
  27.           Case Is >= 4380
  28.             Rang = 1
  29.           Case 4140 To 4379
  30.             Rang = 2
  31.           Case 3390 To 4139
  32.             Rang = 3
  33.     End Select
  34.     If Rang <> 0 GoTo GIR
  35.  
  36.     'Teste Une Chaine pour le groupe B
  37.     groupe = 0
  38.     If Left$(UneChaine, 1) = "C" Then groupe = 1500
  39.     If Mid$(UneChaine, 2, 1) = "C" Then groupe = groupe + 1200
  40.     If Mid$(UneChaine, 3, 1) = "C" Then groupe = groupe + 40
  41.     If Mid$(UneChaine, 4, 1) = "C" Then groupe = groupe + 40
  42.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 60
  43.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 100
  44.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 800
  45.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe - 80
  46.     
  47.     If Left$(UneChaine, 1) = "B" Then groupe = groupe + 320
  48.     If Mid$(UneChaine, 2, 1) = "B" Then groupe = groupe + 120
  49.     If Mid$(UneChaine, 3, 1) = "B" Then groupe = groupe + 16
  50.     If Mid$(UneChaine, 4, 1) = "B" Then groupe = groupe + 16
  51.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 0
  52.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 16
  53.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 120
  54.     If Mid$(UneChaine, 8, 1) = "B" Then groupe = groupe - 40
  55.     'Rang groupe B
  56.     If groupe >= 2016 Then
  57.         Rang = 4:  GoTo GIR
  58.     Else
  59.         Rang = 0
  60.     End If
  61.     'Teste Une Chaine pour le groupe C
  62.     groupe = 0
  63.     If Mid$(UneChaine, 3, 1) = "C" Then groupe = groupe + 40
  64.     If Mid$(UneChaine, 4, 1) = "C" Then groupe = groupe + 40
  65.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 60
  66.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 160
  67.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 1000
  68.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe + 400
  69.  
  70.     If Mid$(UneChaine, 3, 1) = "B" Then groupe = groupe + 16
  71.     If Mid$(UneChaine, 4, 1) = "B" Then groupe = groupe + 16
  72.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 20
  73.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 20
  74.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 200
  75.     If Mid$(UneChaine, 8, 1) = "B" Then groupe = groupe + 40
  76.     'Rang groupe C
  77.     Select Case groupe
  78.           Case Is >= 1700
  79.             Rang = 5
  80.           Case 1432 To 1699
  81.             Rang = 6
  82.     End Select
  83.     If Rang <> 0 GoTo GIR
  84.     
  85.     'Teste Une Chaine pour le groupe D
  86.     groupe = 0
  87.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 2000
  88.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 400
  89.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 2000
  90.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe + 200
  91.  
  92.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 200
  93.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 200
  94.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 200
  95.     'Rang groupe D
  96.     If groupe >= 2400 Then
  97.         Rang = 7:  GoTo GIR
  98.     Else
  99.         Rang = 0
  100.     End If
  101.     
  102.     'Teste Une Chaine pour le groupe E
  103.     groupe = 0
  104.     If Left$(UneChaine, 1) = "C" Then groupe = 400
  105.     If Mid$(UneChaine, 2, 1) = "C" Then groupe = groupe + 400
  106.     If Mid$(UneChaine, 3, 1) = "C" Then groupe = groupe + 400
  107.     If Mid$(UneChaine, 4, 1) = "C" Then groupe = groupe + 400
  108.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 400
  109.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 800
  110.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 800
  111.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe + 200
  112.  
  113.     If Mid$(UneChaine, 3, 1) = "B" Then groupe = groupe + 100
  114.     If Mid$(UneChaine, 4, 1) = "B" Then groupe = groupe + 100
  115.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 100
  116.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 100
  117.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 100
  118.     'Rang groupe E
  119.     If groupe >= 1200 Then
  120.         Rang = 8:  GoTo GIR
  121.     Else
  122.         Rang = 0
  123.     End If
  124.     
  125.     'Teste Une Chaine pour le groupe F
  126.     groupe = 0
  127.     If Left$(UneChaine, 1) = "C" Then groupe = 200
  128.     If Mid$(UneChaine, 2, 1) = "C" Then groupe = groupe + 200
  129.     If Mid$(UneChaine, 3, 1) = "C" Then groupe = groupe + 500
  130.     If Mid$(UneChaine, 4, 1) = "C" Then groupe = groupe + 500
  131.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 500
  132.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 500
  133.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 500
  134.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe + 200
  135.  
  136.     If Left$(UneChaine, 1) = "B" Then groupe = groupe + 100
  137.     If Mid$(UneChaine, 2, 1) = "B" Then groupe = groupe + 100
  138.     If Mid$(UneChaine, 3, 1) = "B" Then groupe = groupe + 100
  139.     If Mid$(UneChaine, 4, 1) = "B" Then groupe = groupe + 100
  140.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 100
  141.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 100
  142.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 100
  143.     'Rang groupe F
  144.     If groupe >= 800 Then
  145.         Rang = 9:  GoTo GIR
  146.     Else
  147.         Rang = 0
  148.     End If
  149.  
  150.     'Teste Une Chaine pour le groupe G
  151.     groupe = 0
  152.     If Left$(UneChaine, 1) = "C" Then groupe = 150
  153.     If Mid$(UneChaine, 2, 1) = "C" Then groupe = groupe + 150
  154.     If Mid$(UneChaine, 3, 1) = "C" Then groupe = groupe + 300
  155.     If Mid$(UneChaine, 4, 1) = "C" Then groupe = groupe + 300
  156.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 500
  157.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 500
  158.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 400
  159.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe + 200
  160.  
  161.     If Mid$(UneChaine, 3, 1) = "B" Then groupe = groupe + 200
  162.     If Mid$(UneChaine, 4, 1) = "B" Then groupe = groupe + 200
  163.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 200
  164.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 200
  165.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 200
  166.     If Mid$(UneChaine, 8, 1) = "B" Then groupe = groupe + 100
  167.     'Rang groupe G
  168.     If groupe >= 650 Then
  169.         Rang = 10:  GoTo GIR
  170.     Else
  171.         Rang = 0
  172.     End If
  173.  
  174.     'Teste Une Chaine pour le groupe H
  175.     groupe = 0
  176.     If Mid$(UneChaine, 3, 1) = "C" Then groupe = groupe + 3000
  177.     If Mid$(UneChaine, 4, 1) = "C" Then groupe = groupe + 3000
  178.     If Mid$(UneChaine, 5, 1) = "C" Then groupe = groupe + 3000
  179.     If Mid$(UneChaine, 6, 1) = "C" Then groupe = groupe + 3000
  180.     If Mid$(UneChaine, 7, 1) = "C" Then groupe = groupe + 1000
  181.     If Mid$(UneChaine, 8, 1) = "C" Then groupe = groupe + 1000
  182.  
  183.     If Mid$(UneChaine, 3, 1) = "B" Then groupe = groupe + 2000
  184.     If Mid$(UneChaine, 4, 1) = "B" Then groupe = groupe + 2000
  185.     If Mid$(UneChaine, 5, 1) = "B" Then groupe = groupe + 2000
  186.     If Mid$(UneChaine, 6, 1) = "B" Then groupe = groupe + 2000
  187.     If Mid$(UneChaine, 7, 1) = "B" Then groupe = groupe + 2000
  188.     If Mid$(UneChaine, 8, 1) = "B" Then groupe = groupe + 1000
  189.     'Rang groupe H
  190.     Select Case groupe
  191.           Case Is >= 4000
  192.             Rang = 11
  193.           Case 2000 To 3999
  194.             Rang = 12
  195.           Case Is < 2000
  196.             Rang = 13
  197.     End Select
  198.     GoTo GIR
  199.  
  200.  
  201.  
  202. GIR:
  203.     Select Case Rang
  204.           Case Is = 1
  205.             GIR = 1
  206.           Case 2 To 7
  207.             GIR = 2
  208.           Case 8 To 9
  209.             GIR = 3
  210.           Case 10 To 11
  211.             GIR = 4
  212.           Case 12
  213.             GIR = 5
  214.           Case 13
  215.             GIR = 6
  216.     End Select
  217.  
  218. End Function


Quoted for later reference.

 

Sinon envoie le python.

 

Edit : Grilled?

Message cité 1 fois
Message édité par Shinuza le 23-11-2009 à 15:54:11

---------------
Mains power can kill, and it will hurt the entire time you’re dying from it.
n°1943569
lorill
Posté le 23-11-2009 à 15:54:39  profilanswer
 

c'est chouette, un boulot avec du python, il n'y a surement que du code bien écrit du coup [:dawa]

Message cité 2 fois
n°1943574
masklinn
í dag viðrar vel til loftárása
Posté le 23-11-2009 à 15:59:15  profilanswer
 

Shinuza a écrit :

Quoted for later reference.
 
Sinon envoie le python.
 
Edit : Grilled?


Code :
  1. if gir.coherence == "C": #Groupe A
  2.                     groupe = 2000
  3.                 if gir.orientation == "C":
  4.                     groupe = groupe+1200
  5.                 if gir.toilette == "C":
  6.                     groupe = groupe+40
  7.                 if gir.habillage == "C":
  8.                     groupe = groupe+40
  9.                 if gir.alimentation == "C":
  10.                     groupe = groupe+60
  11.                 if gir.elimination == "C":
  12.                     groupe = groupe+100
  13.                 if gir.transferts == "C":
  14.                     groupe = groupe+800
  15.                 if gir.moveint == "C":
  16.                     groupe = groupe+200
  17.                 if gir.toilette == "B":
  18.                     groupe = groupe+16
  19.                 if gir.habillage == "B":
  20.                     groupe = groupe+16
  21.                 if gir.alimentation == "B":
  22.                     groupe = groupe+20
  23.                 if gir.elimination == "B":
  24.                     groupe = groupe+16
  25.                 if gir.transferts == "B":
  26.                     groupe = groupe+120
  27.                 if gir.moveint == "B":
  28.                     groupe = groupe+32
  29.                 if groupe >= 4380:
  30.                     rang = 1
  31.                 if groupe >= 4140 and groupe <= 4379:
  32.                     rang = 2
  33.                 if groupe >= 3390 and groupe <= 4139:
  34.                     rang = 3
  35.                 if rang == 0 :
  36.                     groupe = 0 # Groupe B
  37.                     if gir.coherence == "C":
  38.                         groupe = 1500
  39.                     if gir.orientation == "C":
  40.                         groupe = groupe+1200
  41.                     if gir.toilette == "C":
  42.                         groupe = groupe+40
  43.                     if gir.habillage == "C":
  44.                         groupe = groupe+40
  45.                     if gir.alimentation == "C":
  46.                         groupe = groupe+60
  47.                     if gir.elimination == "C":
  48.                         groupe = groupe+100
  49.                     if gir.transferts == "C":
  50.                         groupe = groupe+800
  51.                     if gir.moveint == "C":
  52.                         groupe = groupe+80
  53.                     if gir.coherence == "B":
  54.                         groupe = groupe+320
  55.                     if gir.orientation == "B":
  56.                         groupe = groupe+120
  57.                     if gir.toilette == "B":
  58.                         groupe = groupe+16
  59.                     if gir.habillage == "B":
  60.                         groupe = groupe+16
  61.                     if gir.alimentation == "B":
  62.                         groupe = groupe+0
  63.                     if gir.elimination == "B":
  64.                         groupe = groupe+16
  65.                     if gir.transferts == "B":
  66.                         groupe = groupe+120
  67.                     if gir.moveint == "B":
  68.                         groupe = groupe+40
  69.                     if groupe >= 2016:
  70.                         rang = 4
  71.                     else:
  72.                         rang = 0
  73.                     if rang == 0:
  74.                         groupe = 0 # Groupe C
  75.                         if gir.toilette == "C":
  76.                             groupe = groupe+40
  77.                         if gir.habillage == "C":
  78.                             groupe = groupe+40
  79.                         if gir.alimentation == "C":
  80.                             groupe = groupe+60
  81.                         if gir.elimination == "C":
  82.                             groupe = groupe+160
  83.                         if gir.transferts == "C":
  84.                             groupe = groupe+1000
  85.                         if gir.moveint == "C":
  86.                             groupe = groupe+400
  87.  
  88.                         if gir.toilette == "B":
  89.                             groupe = groupe+16
  90.                         if gir.habillage == "B":
  91.                             groupe = groupe+16
  92.                         if gir.alimentation == "B":
  93.                             groupe = groupe+20
  94.                         if gir.elimination == "B":
  95.                             groupe = groupe+20
  96.                         if gir.transferts == "B":
  97.                             groupe = groupe+200
  98.                         if gir.moveint == "B":
  99.                             groupe = groupe+40
  100.                         if groupe >= 1700:
  101.                             rang = 5
  102.                         if groupe >= 1432 and groupe <= 1699:
  103.                             rang = 6
  104.                         if rang == 0:
  105.                             groupe = 0 # Groupe D
  106.                             if gir.alimentation == "C":
  107.                                 groupe = groupe+2000
  108.                             if gir.elimination == "C":
  109.                                 groupe = groupe+400
  110.                             if gir.transferts == "C":
  111.                                 groupe = groupe+2000
  112.                             if gir.moveint == "C":
  113.                                 groupe = groupe+200
  114.                                 
  115.                             if gir.alimentation == "B":
  116.                                 groupe = groupe+200
  117.                             if gir.elimination == "B":
  118.                                 groupe = groupe+200
  119.                             if gir.transferts == "B":
  120.                                 groupe = groupe+200
  121.                             if groupe >= 2400:
  122.                                 rang = 7
  123.                             if rang == 0:
  124.                                 groupe = 0 # Groupe E
  125.                                 if gir.coherence == "C":
  126.                                     groupe = 400
  127.                                 if gir.orientation == "C":
  128.                                     groupe = groupe+400
  129.                                 if gir.toilette == "C":
  130.                                     groupe = groupe+400
  131.                                 if gir.habillage == "C":
  132.                                     groupe = groupe+400
  133.                                 if gir.alimentation == "C":
  134.                                     groupe = groupe+400
  135.                                 if gir.elimination == "C":
  136.                                     groupe = groupe+800
  137.                                 if gir.transferts == "C":
  138.                                     groupe = groupe+800
  139.                                 if gir.moveint == "C":
  140.                                     groupe = groupe+200   
  141.                     
  142.                                 if gir.toilette == "B":
  143.                                     groupe = groupe+100
  144.                                 if gir.habillage == "B":
  145.                                     groupe = groupe+100
  146.                                 if gir.alimentation == "B":
  147.                                     groupe = groupe+100
  148.                                 if gir.elimination == "B":
  149.                                     groupe = groupe+100
  150.                                 if gir.transferts == "B":
  151.                                     groupe = groupe+100
  152.                                 if groupe >= 1200:
  153.                                     rang = 8
  154.                                 if rang == 0:
  155.                                     groupe = 0 # Groupe F
  156.                                     if gir.coherence == "C":
  157.                                         groupe = 200
  158.                                     if gir.orientation == "C":
  159.                                         groupe = groupe+200
  160.                                     if gir.toilette == "C":
  161.                                         groupe = groupe+500
  162.                                     if gir.habillage == "C":
  163.                                         groupe = groupe+500
  164.                                     if gir.alimentation == "C":
  165.                                         groupe = groupe+500
  166.                                     if gir.elimination == "C":
  167.                                         groupe = groupe+500
  168.                                     if gir.transferts == "C":
  169.                                         groupe = groupe+500
  170.                                     if gir.moveint == "C":
  171.                                         groupe = groupe+200                   
  172.                                     if gir.coherence == "B":
  173.                                         groupe = groupe + 100
  174.                                     if gir.orientation == "B":
  175.                                         groupe = groupe+100
  176.                                     if gir.toilette == "B":
  177.                                         groupe = groupe+100
  178.                                     if gir.habillage == "B":
  179.                                         groupe = groupe+100
  180.                                     if gir.alimentation == "B":
  181.                                         groupe = groupe+100
  182.                                     if gir.elimination == "B":
  183.                                         groupe = groupe+100
  184.                                     if gir.transferts == "B":
  185.                                         groupe = groupe+100                   
  186.                                     if groupe >= 800:
  187.                                         rang = 9
  188.                                     if rang == 0:
  189.                                         groupe = 0 # Groupe G
  190.                                         if gir.coherence == "C":
  191.                                             groupe = 150
  192.                                         if gir.orientation == "C":
  193.                                             groupe = groupe+150
  194.                                         if gir.toilette == "C":
  195.                                             groupe = groupe+300
  196.                                         if gir.habillage == "C":
  197.                                             groupe = groupe+300
  198.                                         if gir.alimentation == "C":
  199.                                             groupe = groupe+500
  200.                                         if gir.elimination == "C":
  201.                                             groupe = groupe+500
  202.                                         if gir.transferts == "C":
  203.                                             groupe = groupe+400
  204.                                         if gir.moveint == "C":
  205.                                             groupe = groupe+200       
  206.                                         if gir.toilette == "B":
  207.                                             groupe = groupe+200
  208.                                         if gir.habillage == "B":
  209.                                             groupe = groupe+200
  210.                                         if gir.alimentation == "B":
  211.                                             groupe = groupe+200
  212.                                         if gir.elimination == "B":
  213.                                             groupe = groupe+200
  214.                                         if gir.transferts == "B":
  215.                                             groupe = groupe+200
  216.                                         if gir.moveint == "B":
  217.                                             groupe = groupe+100
  218.                                         if groupe >= 650:
  219.                                             rang = 10
  220.                                             if rang == 0:
  221.                                                 groupe = 0 # Groupe H
  222.                                                 if gir.toilette == "C":
  223.                                                     groupe = groupe+3000
  224.                                                 if gir.habillage == "C":
  225.                                                     groupe = groupe+3000
  226.                                                 if gir.alimentation == "C":
  227.                                                     groupe = groupe+3000
  228.                                                 if gir.elimination == "C":
  229.                                                     groupe = groupe+300
  230.                                                 if gir.transferts == "C":
  231.                                                     groupe = groupe+1000
  232.                                                 if gir.moveint == "C":
  233.                                                     groupe = groupe+1000
  234.                                                 if gir.toilette == "B":
  235.                                                     groupe = groupe+2000
  236.                                                 if gir.habillage == "B":
  237.                                                     groupe = groupe+2000
  238.                                                 if gir.alimentation == "B":
  239.                                                     groupe = groupe+2000
  240.                                                 if gir.elimination == "B":
  241.                                                     groupe = groupe+2000
  242.                                                 if gir.transferts == "B":
  243.                                                     groupe = groupe+2000
  244.                                                 if gir.moveint == "B":
  245.                                                     groupe = groupe+1000
  246.                                                 if groupe >= 4000:
  247.                                                     rang = 11
  248.                                                 if groupe >= 2000 and \
  249.                                                         groupe <= 3999:
  250.                                                     rang = 12 
  251.                                                 if groupe < 2000:
  252.                                                     rang = 13 
  253.                 if rang == 1:
  254.                     girage = 1
  255.                 if rang > 1 and rang < 8:
  256.                     girage = 2
  257.                 if rang > 7 and rang < 10:
  258.                     girage = 3
  259.                 if rang > 9 and rang < 12:
  260.                     girage = 4
  261.                 if rang == 12:
  262.                     girage = 5
  263.                 if rang == 13:
  264.                     girage = 6
  265.                 if groupe >= 4380:
  266.                     rang = 1
  267.                 if groupe >= 4140 and groupe <= 4379:
  268.                     rang = 2
  269.                 if groupe >= 3390 and groupe <= 4139:
  270.                     rang = 3
  271.                 if rang != 0 :
  272.                     if rang == 1:
  273.                         girage = 1
  274.                     if rang > 1 and rang < 8:
  275.                         girage = 2
  276.                     if rang > 7 and rang < 10:
  277.                         girage = 3
  278.                     if rang > 9 and rang < 12:
  279.                         girage = 4
  280.                     if rang == 12:
  281.                         girage = 5
  282.                     if rang == 13:
  283.                         girage = 6


[:pingouino]

lorill a écrit :

c'est chouette, un boulot avec du python, il n'y a surement que du code bien écrit du coup [:dawa]


Ils ont trouvé des indiens qui font du python [:sisicaivrai]

Message cité 3 fois

---------------
I mean, true, a cancer will probably destroy its host organism. But what about the cells whose mutations allow them to think outside the box by throwing away the limits imposed by overbearing genetic regulations? Isn't that a good thing?
n°1943575
___alt
Posté le 23-11-2009 à 16:03:43  profilanswer
 

masklinn a écrit :

Ils ont trouvé des indiens qui font du python [:sisicaivrai]


 
 [:cannot be unseen]

Message cité 1 fois

---------------
TRIPS RIGHT BUNCH F SHUTTLE TOM AND JERRY RIGHT YELLOW
n°1943576
kadreg
profil: Utilisateur
Posté le 23-11-2009 à 16:04:09  profilanswer
 

alors que c'est plutot du cobra la bas [:hfrbaxter]

Message cité 1 fois

---------------
brisez les rêves des gens, il en restera toujours quelque chose...  -- laissez moi troller sur discu !
n°1943577
Shinuza
This is unexecpected
Posté le 23-11-2009 à 16:04:56  profilanswer
 

masklinn a écrit :


Code :
  1. # Yikes11!!1


[:pingouino]

Je regrette pas d'avoir demandé :D

 
masklinn a écrit :

Code :
  1. if 'price' in self.context and self.context.has_key('price'):
  2.     return self.context['price']       
  3. return 0.0


[:sisicaivrai]

Comment t'écris ça en Python? La premiere ligne est un peu redondante, la derniere tient pas compte de la localisation, mais tu dois bien vérifier l'existence de la clé a un moment...


Message édité par Shinuza le 23-11-2009 à 16:05:41

---------------
Mains power can kill, and it will hurt the entire time you’re dying from it.
n°1943578
masklinn
í dag viðrar vel til loftárása
Posté le 23-11-2009 à 16:05:10  profilanswer
 

___alt a écrit :

 

[:cannot be unseen]


Bah suffit de voir

Code :
  1. if 'price' in self.context and self.context.has_key('price'):
  2.     return self.context['price']       
  3. return 0.0


une personne sachant coder (en python) écrirait:

Code :
  1. return self.context.get('price', 0.0)


[:sadnoir]

Shinuza a écrit :

Comment t'écris ça en Python? La premiere ligne est un peu redondante, la derniere tient pas compte de la localisation, mais tu dois bien vérifier l'existence de la clé nan?


Cf au dessus, ya une méthode get sur les dicts (et la première ligne est complètement redondante, les deux parties du 'and' disent exactement la même chose) :o

Message cité 1 fois
Message édité par masklinn le 23-11-2009 à 16:07:36

---------------
I mean, true, a cancer will probably destroy its host organism. But what about the cells whose mutations allow them to think outside the box by throwing away the limits imposed by overbearing genetic regulations? Isn't that a good thing?
n°1943579
KangOl
Profil : pointeur
Posté le 23-11-2009 à 16:07:43  profilanswer
 

masklinn a écrit :

Code :
  1. if 'price' in self.context and self.context.has_key('price'):
  2.     return self.context['price']       
  3. return 0.0


[:sisicaivrai]


c'est pour être sûr :o

Message cité 1 fois

---------------
Nos estans firs di nosse pitite patreye...
n°1943580
Shinuza
This is unexecpected
Posté le 23-11-2009 à 16:07:45  profilanswer
 

masklinn a écrit :


Cf au dessus, ya une méthode get sur les dicts :o

Ptain j'ai pas pythonné depuis pratiquement 1 an, j'ai tout oublié :(


---------------
Mains power can kill, and it will hurt the entire time you’re dying from it.
n°1943581
KangOl
Profil : pointeur
Posté le 23-11-2009 à 16:08:18  profilanswer
 

lorill a écrit :

c'est chouette, un boulot avec du python, il n'y a surement que du code bien écrit du coup [:dawa]


lol


---------------
Nos estans firs di nosse pitite patreye...
n°1943582
masklinn
í dag viðrar vel til loftárása
Posté le 23-11-2009 à 16:08:52  profilanswer
 

KangOl a écrit :


c'est pour être sûr :o


 [:hellomard]


---------------
I mean, true, a cancer will probably destroy its host organism. But what about the cells whose mutations allow them to think outside the box by throwing away the limits imposed by overbearing genetic regulations? Isn't that a good thing?
n°1943585
matrixise
Posté le 23-11-2009 à 16:13:06  profilanswer
 

j'avais propose ceci
 

Code :
  1. return self.context and self.context.get('price', 0.0) or 0.0


 
;-)

Message cité 1 fois
Message édité par matrixise le 23-11-2009 à 16:14:02
n°1943586
LePhasme
Les Belges domineront le monde
Posté le 23-11-2009 à 16:16:52  profilanswer
 

drasche a écrit :


C'était pas une proposition de loi française? Ou j'ai mal lu et c'est destiné à l'Europe?


 

Citation :

A la veille des vingt ans de la Convention internationale des droits de l’enfant, le médecin estime qu’il est temps de changer les mentalités et de s’aligner sur la demande formulée par les Nations unies il y a cinq ans déjà, reprise par le Conseil de l’Europe en 2008, et également suggérée par la défenseure des enfants l’an dernier.


---------------
Instagram - Mon PVT en Australie.
n°1943587
masklinn
í dag viðrar vel til loftárása
Posté le 23-11-2009 à 16:17:52  profilanswer
 

matrixise a écrit :

j'avais propose ceci
 

Code :
  1. return self.context and self.context.get('price', 0.0) or 0.0


 
;-)


Oui mais chuis d'un naturel optimiste :o
 
Personne ne va me donner un None quand j'attends un dict, ça n'arriverait jamais :o :o :o


---------------
I mean, true, a cancer will probably destroy its host organism. But what about the cells whose mutations allow them to think outside the box by throwing away the limits imposed by overbearing genetic regulations? Isn't that a good thing?
n°1943589
Xavier_OM
Monarchiste régicide (fr quoi)
Posté le 23-11-2009 à 16:21:53  profilanswer
 

masklinn a écrit :


Ils ont trouvé des indiens qui font du python [:sisicaivrai]


 
Ou alors un ptit malin a codé un 'vb to python' devant l'horreur du vb, comme ça pas besoin de le lire/comprendre/refactorer :o

Message cité 1 fois

---------------
Il y a autant d'atomes d'oxygène dans une molécule d'eau que d'étoiles dans le système solaire.
n°1943590
flo850
moi je
Posté le 23-11-2009 à 16:22:05  profilanswer
 

il y a de ces vainqueurs sur audio/vidéo
il y en a un qui essaye de me convaincre que la compression lossless change la qualité du son :cry:
 

Message cité 4 fois

---------------

mood
Publicité
Posté le   profilanswer
 

 Page :   1  2  3  4  5  ..  16931  16932  16933  ..  27004  27005  27006  27007  27008  27009
Page Suivante
Page Précédente
Haut de page 

Aller à :
Ajouter une réponse
 

Sujets relatifs
Plus de sujets relatifs à : [blabla@olympe] Le topic du modo, dieu de la fibre et du monde

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.543 secondes

Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)