FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» KGF_dll - nouvelles versions
par Klaus Aujourd'hui à 23:33

» KGF.dll - demandes ou suggestions de modifications ou ajouts
par Pedro Alvarez Aujourd'hui à 22:45

» StratégoV8
par Jean Claude Aujourd'hui à 19:55

» probleme de touche (verr num)
par pascal10000 Aujourd'hui à 16:20

» Mah-Jong européen new-look
par jjn4 Aujourd'hui à 15:58

» track_bar circulaire
par Klaus Hier à 21:41

» Gestionnaire de Projets Panoramic
par Jean Claude Hier à 20:41

» Gestion de l'Unicode
par jean_debord Hier à 11:21

» Button_picture
par pascal10000 Jeu 14 Déc 2017 - 11:41

» Pourquoi le compilateur stagne
par Minibug Jeu 14 Déc 2017 - 11:09

» 4 (en analyse): SYNEDIT_TARGET_IS_OBJECT devient inactif
par Jack Jeu 14 Déc 2017 - 10:09

» 3 (en analyse): Mauvaise interprétation du string "THEN"
par Jack Jeu 14 Déc 2017 - 10:03

» API Windows
par Klaus Mar 12 Déc 2017 - 3:21

» Cartes de voeux, menus, etc.
par JL35 Lun 11 Déc 2017 - 17:48

» a l'aide klaus
par Minibug Lun 11 Déc 2017 - 11:42

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier

Partagez | 
 

 Test Compatibilité à deux balles...

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Yannick

avatar

Nombre de messages : 8002
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: Test Compatibilité à deux balles...   Mar 20 Aoû 2013 - 22:44

Je me suis amusé avec un de ces test à deux francs
des magazines féminins...
Laughing Laughing Laughing Laughing 
Monsieur est il compatible avec Madame selon leurs prénoms ?
lol! 
Bon...voilà ce que cela donne:
Code:
dim a%(9),Mr$,Md$,Mr%,Md%
label click

Caption 0,"Test de compatibilité ou presque..."
height 0,440 : width 0,400
top 0,(screen_y-height(0))/2 : left 0,(screen_x-width(0))/2 :font_name 0,arial

Alpha 1 :top 1,10 :left 1,10 : caption 1,"Prénom de Monsieur"
Alpha 2 :top 2,10 :left 2,200: caption 2,"Prénom de Madame"

edit 3: top 3,25 : left 3,10 : width 3,170
edit 4: top 4,25 : left 4,200: width 4,170

Button 5 : top 5,55 : left 5,(width(0)-95): caption 5,"Tester":cursor_point 5
on_click 5,click

Memo 6 : top 6,90 :left 6,10 :width 6,360 :height 6,300 :bar_vertical 6
Alpha 7 : top 7,70:left 7,10 :font_color 7,0,0,255
end

click:
   clear 6
   Mr$=text$(3)
   Md$=text$(4)
   if Mr$=""
      Vide(1)
   else
      if Md$=""
         Vide(2)
      else
         Test()
      end_if
   end_if
return

Sub Vide(C%)
   if C%=1
      Message "Vous n' avez pas entré le prénom de monsieur"
   else
      Message "Vous n' avez pas entré le prénom de Madame"
   end_if
End_sub

Sub Test()
   dim_local x%,a$,b$,c$,d$,res%

   a$=Upper$(Mr$):Mr$=a$
   for x%=1 to len(Mr$)
      a$=left$(Mr$,1):Mr$=right$(Mr$,len(Mr$)-1)
      if a$="A" or a$="J" or a$="S" :Mr%=Mr%+1 : end_if
      if a$="B" or a$="K" or a$="T" :Mr%=Mr%+2 : end_if
      if a$="C" or a$="L" or a$="U" :Mr%=Mr%+3 : end_if
      if a$="D" or a$="M" or a$="V" :Mr%=Mr%+4 : end_if
      if a$="E" or a$="N" or a$="W" :Mr%=Mr%+5 : end_if
      if a$="F" or a$="O" or a$="X" :Mr%=Mr%+6 : end_if
      if a$="G" or a$="P" or a$="Y" :Mr%=Mr%+7 : end_if
      if a$="H" or a$="Q" or a$="Z" :Mr%=Mr%+8 : end_if
      if a$="I" or a$="R" :Mr%=Mr%+9 : end_if
   next x%

   a$=Upper$(Md$):Md$=a$
   for x%=1 to len(Md$)
      a$=left$(Md$,1):Md$=right$(Md$,len(Md$)-1)
      if a$="A" or a$="J" or a$="S" :Md%=Md%+1 : end_if
      if a$="B" or a$="K" or a$="T" :Md%=Md%+2 : end_if
      if a$="C" or a$="L" or a$="U" :Md%=Md%+3 : end_if
      if a$="D" or a$="M" or a$="V" :Md%=Md%+4 : end_if
      if a$="E" or a$="N" or a$="W" :Md%=Md%+5 : end_if
      if a$="F" or a$="O" or a$="X" :Md%=Md%+6 : end_if
      if a$="G" or a$="P" or a$="Y" :Md%=Md%+7 : end_if
      if a$="H" or a$="Q" or a$="Z" :Md%=Md%+8 : end_if
      if a$="I" or a$="R" :Md%=Md%+9 : end_if
   next x%
  
  if Mr%>9
      b$=str$(Mr%)
      Mr%=0
         for x%=1 to len(b$)
            a$=left$(b$,1):b$=right$(b$,len(b$)-1)
            Mr%=Mr%+val(a$)
         next x%
   end_if
  
  if Md%>9
      c$=str$(Md%)
      Md%=0
         for x%=1 to len(c$)
            a$=left$(c$,1):c$=right$(c$,len(c$)-1)
            Md%=Md%+val(a$)
         next x%
   end_if
  
  res%=Mr%+Md%
  
  if res%>9
      d$=str$(res%)
      res%=0
         for x%=1 to len(d$)
            a$=left$(d$,1):d$=right$(d$,len(d$)-1)
            res%=res%+val(a$)
         next x%
   end_if
  
  caption 7,"Vous avez trouvé "+str$(res%)
  
  for x%=1 to 20
      read a$
      if left$(a$,1)=str$(res%)
         a$=right$(a$,len(a$)-1)
         item_add 6,a$
      end_if
   next x%
End_sub

data "1Le couple «coup de cœur»...Vous avez flashé, il a «kiffé»: attraction instantanée, pas même le temps d'y penser et c'est arrivé! Cette rencontre a des allures de coup de foudre et entre vous, tout est instinctif et surdimensionné: beaucoup de passion mais si peu de raison... Ce genre d'attraction formidable n'a qu'un vrai danger: il faut entretenir la flamme de peur de vous lasser... Cet homme-là vous met sûrement dans tous vos états: le cœur sens dessus dessous et le corps chaud comme la braise... Le 1 vous conseille de ne pas brûler la chandelle par les deux bouts: s'il manquait du carburant à vos élans, vos amours seraient réduites à néant!"
data "1Attention: cet homme-là est peut-être égoïste et sûrement indépendant! Ne vous laissez pas mener par le bout du nez mais n'oubliez pas de le laisser respirer! Tant que vous le placez sur un piédestal, cet amour ne sera jamais banal mais si vous lui reprochiez trop souvent ses défauts, il irait sans doute se laisser admirer ailleurs..."
data "2Qui se ressemble s'assemble!"
data "2Le 2 est le chiffre-même du couple! Rien à faire: vous êtes faits pour vous plaire, vous comprendre, vous compléter, vous aimer! Vous rêviez d'une âme sœur? Le ciel vous l'a fait rencontrer! Oui, vous l'avez sans doute trouvé celui qui peut se révéler être votre moitié. Ne vous posez pas trop de questions: quelquefois, l'amour est comme une évidence! Vous avez déniché celui qui vous ressemble et il ne vous reste plus qu'à confirmer l'adage «qui se ressemble, s'assemble»... Fous rires assurés, complicité à volonté, même longueur d'onde à explorer. Vous pouvez compter sur sa sincérité, sa fidélité mais gare à la dépendance: lâchez-vous de temps en temps les baskets pour être plus souvent à la fête! Conservez un peu de votre individualité et ne transformez pas une jolie passion en mauvaise addiction!"
data "3Un couple «papillon»"
data "3Voici un duo fait pour créer des vagues sur l'ennui, pour multiplier les intérêts communs: c'est le compagnon idéal pour fêter la vie, amuser votre mode de vie, sortir en bonne compagnie. Avec lui, pas moyen de s'ennuyer: invitations à gogo, copains à volonté! Vous pourriez même jouer en duo le couple le plus branché de l'année! Cet homme-là est sûrement un sacré boute-en-train: il ne vous reste plus qu'à devenir son animatrice préférée!"
data "3Mais tendresse et intimité ne sont pas toujours à la clé de cette association «trop bien entourée». Abusez de la joie de vivre et développez ce côté «bons vivants à volonté» mais essayez quand même de vous préserver un petit jardin secret, bien à l'abri des regards indiscrets... Parce qu'à force de vous éparpiller, vous pourriez égarer au passage vos vraies raisons d'aimer. Rappelez-vous qu'un tête-à-tête peut aussi être une vraie fête et qu'être amoureux, c'est aussi s'amuser à deux."
data "4Pas facile de parvenir à un bon équilibre: votre association n'est pas forcément une évidence et ça grésille parfois sur votre fréquence! Avec lui, il ne faut pas aller plus vite que la musique: prenez ce que le présent vous accorde et vous verrez bien demain pour le reste! Cette histoire doit se construire: elle a besoin de temps. Petit à petit, la femme avisée fait son nid."
data "4Si cet homme-là n'est pas démonstratif, c'est peut-être qu'il est timide, secret ou prudent. Ne lui faites surtout pas de «rentre-dedans» et prouvez-lui seulement vos bonnes intentions. Analysez ses réactions pour éviter les futures complications, employez la douceur pour faire parler son cœur. S'il s'ouvre comme une fleur, c'est qu'il aura enfin décidé de vous donner le meilleur de lui-même. Ce grand froid au cœur tendre pourrait bien vous surprendre... avec le temps."
data "5Amour fou, passion dévastatrice."
data "5Vous aimez les histoires paisibles? Vous n'avez pas fait bonne pioche! Avec lui, il faut s'attendre à tout! Ce couple-là a quelque chose d'infernal: «Je t'aime... moi non plus!», «Fuis-moi, je te suis!» et tutti quanti... Attraction irrésistible, amour fou, passion dévastatrice: vous êtes montés sur les montagnes russes du cœur et il va falloir l'avoir bien accroché (ce cœur) pour ne pas décrocher! Brûler la chandelle par les deux bouts, s'aimer à dormir debout, se quitter pour rien du tout et ne jamais en voir le bout: la passion, c'est excitant alors excluez dores et déjà un programme reposant. Vous l'avez sans doute rendu fou mais il n'est jamais complètement à vos genoux. Côté cœur, on dit que rien n'est jamais acquis et vous pourriez bien l'expérimenter savamment avec lui!"
data "6Entre similaires et complémentaires."
data "6Pas de problème: cette association-là respire l'équilibre. Vous êtes sans doute sur la même longueur d'onde: le 6 est le chiffre de l'harmonie et ça devrait rouler pour vous! Vos cœurs battent au diapason, vous avez les mêmes valeurs, vos fous rires se font écho et vos rêves devraient même finir par se rejoindre... Vous êtes entre similaires et complémentaires et de toutes façons, les deux font joliment la paire! L'harmonie est aussi une philosophie de vie et ce n'est sûrement pas un hasard si vous vous êtes choisis! Couple exemplaire, rien ne va de travers, affinités d'enfer: une véritable association se construit sur des bases solides et vous avez sans doute déniché le bon filon. L'amour peut aussi être un joli fleuve tranquille. ou se trouver tout bêtement dans le pré: la sérénité n'empêche surtout pas d'aimer!"
data "7Le prendre (et le garder) dans vos filets? Une question de temps..."
data "7Pas de panique! Il y a des couples qui ont besoin de temps ou de revirements pour se trouver vraiment et vous êtes peut-être de ceux-là... Cette proie-là n'est pas une conquête facile et vous devez souvent vous arracher les cheveux pour lui faire perdre la tête. Il faut parfois laisser le temps au temps, même et surtout dans le domaine du sentiment: apprenez à être là où il ne vous attend pas, devancez ses envies sans rien lui dire et ne comptez pas trop sur la logique dans cette histoire qui ne l'est pas toujours! Il faut parfois prendre du recul pour mieux laisser venir les choses (et les gens): vous vous attendez sûrement mais pas toujours au bon moment. En résumé: en apprenant à vous connaître, vous saurez mieux dénicher la petite faiblesse qui le fait craquer, vous aurez de meilleurs arguments pour durer plus longtemps : soyez patiente et futée mais ne le laissez jamais «s'encroûter»!"
data "8La magie des émotions"
data "8Ce duo-là ne fonctionne que sur la magie des émotions: frissons, passion, jalousie, impulsions, volupté. Rien de tiède entre vous : l'amour est bien cet amplificateur d'émotions qui frise souvent le rouge-passion! Il vous fait littéralement fondre et vous le faites craquer: vous adorez aussi vous disputer, juste pour la réconciliation sur l'oreiller! Avec le 8 en résultat, le sexe risque également d'être l'un de vos exploits. Vous pensez que le vamper n'a que du bon: vous savez le rendre fou autant que le rendre jaloux... Vous savez exactement comment faire pour allumer ses feux ou le faire tourner en bourrique. Mais attention: à trop jouer avec le feu, on finit parfois par se brûler les doigts. Ses réactions pourraient quelquefois vous dérouter pour de bon! En résumé, votre couple n'aime pas la routine et ne supporte pas le calme plat. A vous de créer la vague qui déchaînera une tempête d'émotions: pourvu qu'elle ne se transforme pas en tsunami et vous aurez tout compris!"
data "9Un amour comme dans un conte de fée..."
data "9Yeux doux, mots d'amour à profusion, rencontre ultra-romantique, détours romanesques, baisers de cinéma, serments d'amour, tendresse à volonté: votre vraie place est sur un petit nuage et vous vous êtes trouvés pour planer un bon bout de temps! Il vous décrocherait bien la lune juste pour vous faire rêver, pourrait bien être le chevalier servant que vous attendiez tant ou le champion du SMS amoureux et vous n'en croirez pas vos yeux..."
data "9Vous avez peut-être trouvé la perle rare dont parlent tous les livres, le prince charmant de vos rêves d'enfant et le bel amant qui assure même sur l'oreiller... Attention: le lâcher des yeux serait un péché car si vous n'y preniez pas garde, on pourrait bien vous le voler."
PS: ca fait du bien de re coder en Panoramic...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
pascal10000

avatar

Nombre de messages : 625
Localisation : Troyes
Date d'inscription : 05/02/2011

MessageSujet: Re: Test Compatibilité à deux balles...   Mer 21 Aoû 2013 - 2:58

bonjour Ygeromini

jais pas teste ton programme mais je n'ai pas pu résiste
et a te félicite a tes vers poétique tu nous avais cacher ça
je t'en vol certain parmi eux
a+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur En ligne
papydall

avatar

Nombre de messages : 5613
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Test Compatibilité à deux balles...   Mer 21 Aoû 2013 - 3:12

Ygeronimi a écrit:
Je me suis amusé avec un de ces test à deux francs
des magazines féminins...
De quel franc tu parles ?
Est-ce du peuple germanique dont le franc (ou francique ) était la langue parlée ?
Est-ce de l’ancien franc français ?

Je ne paierais même pas un centime de sou pour ce genre de test trop sérieux à mon goût !!!!
Néanmoins, je paierais volontiers 2 balles (balles de quoi ?) pour le code en Panoramic.

Après mûre réflexion et comme je n’ai pas de monnaie, voilà je t’offre 5 francs  




Edit :
Tu veux bien me rendre mes 5 francs ?
Car, voici le juste prix




Re Edit :
Quand Monsieur s’appelle Papydall et Madame s’appelle Mamydall ça roule bien ! HA HA HA!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

Nombre de messages : 5865
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Test Compatibilité à deux balles...   Mer 21 Aoû 2013 - 8:31

Wink C'est original, on n'avait pas encore ça dans nos stocks Wink
Par contre ton programme supportait mal d'être relancé par un second test, je l'ai modifié un peu:

Code:
dim a%(9),Mr$,Md$,Mr%,Md%
label click

Caption 0,"Test de compatibilité ou presque..."
height 0,440 : width 0,400
top 0,(screen_y-height(0))/2 : left 0,(screen_x-width(0))/2 :font_name 0,arial

Alpha 1 :top 1,10 :left 1,10 : caption 1,"Prénom de Monsieur"
Alpha 2 :top 2,10 :left 2,200: caption 2,"Prénom de Madame"

edit 3: top 3,25 : left 3,10 : width 3,170
edit 4: top 4,25 : left 4,200: width 4,170

Button 5 : top 5,55 : left 5,(width(0)-95): caption 5,"Tester":cursor_point 5
on_click 5,click

Memo 6 : top 6,90 :left 6,10 :width 6,360 :height 6,300 :bar_vertical 6
Alpha 7 : top 7,70:left 7,10 :font_color 7,0,0,255
end

click:
  clear 6
  Mr$=text$(3)
  Md$=text$(4)
  if Mr$=""
      Vide(1)
  else
      if Md$=""
        Vide(2)
      else
        Test()
      end_if
  end_if
return

Sub Vide(C%)
  if C%=1
      Message "Vous n' avez pas entré le prénom de monsieur"
  else
      Message "Vous n' avez pas entré le prénom de Madame"
  end_if
End_sub

Sub Test()
  dim_local x%,a$,b$,c$,d$,res%

  a$=Upper$(Mr$):Mr$=a$:Mr%=0
  for x%=1 to len(Mr$)
      a$=left$(Mr$,1):Mr$=right$(Mr$,len(Mr$)-1)
      if a$="A" or a$="J" or a$="S" :Mr%=Mr%+1 : end_if
      if a$="B" or a$="K" or a$="T" :Mr%=Mr%+2 : end_if
      if a$="C" or a$="L" or a$="U" :Mr%=Mr%+3 : end_if
      if a$="D" or a$="M" or a$="V" :Mr%=Mr%+4 : end_if
      if a$="E" or a$="N" or a$="W" :Mr%=Mr%+5 : end_if
      if a$="F" or a$="O" or a$="X" :Mr%=Mr%+6 : end_if
      if a$="G" or a$="P" or a$="Y" :Mr%=Mr%+7 : end_if
      if a$="H" or a$="Q" or a$="Z" :Mr%=Mr%+8 : end_if
      if a$="I" or a$="R" :Mr%=Mr%+9 : end_if
  next x%

  a$=Upper$(Md$):Md$=a$:Md%=0
  for x%=1 to len(Md$)
      a$=left$(Md$,1):Md$=right$(Md$,len(Md$)-1)
      if a$="A" or a$="J" or a$="S" :Md%=Md%+1 : end_if
      if a$="B" or a$="K" or a$="T" :Md%=Md%+2 : end_if
      if a$="C" or a$="L" or a$="U" :Md%=Md%+3 : end_if
      if a$="D" or a$="M" or a$="V" :Md%=Md%+4 : end_if
      if a$="E" or a$="N" or a$="W" :Md%=Md%+5 : end_if
      if a$="F" or a$="O" or a$="X" :Md%=Md%+6 : end_if
      if a$="G" or a$="P" or a$="Y" :Md%=Md%+7 : end_if
      if a$="H" or a$="Q" or a$="Z" :Md%=Md%+8 : end_if
      if a$="I" or a$="R" :Md%=Md%+9 : end_if
  next x%

  if Mr%>9
      b$=str$(Mr%)
      Mr%=0
        for x%=1 to len(b$)
            a$=left$(b$,1):b$=right$(b$,len(b$)-1)
            Mr%=Mr%+val(a$)
        next x%
  end_if

  if Md%>9
      c$=str$(Md%)
      Md%=0
        for x%=1 to len(c$)
            a$=left$(c$,1):c$=right$(c$,len(c$)-1)
            Md%=Md%+val(a$)
        next x%
  end_if

  res%=Mr%+Md%

  if res%>9
      d$=str$(res%)
      res%=0
        for x%=1 to len(d$)
            a$=left$(d$,1):d$=right$(d$,len(d$)-1)
            res%=res%+val(a$)
        next x%
  end_if

  caption 7,"Vous avez trouvé "+str$(res%)

  restore
  for x%=1 to 9
      read a$
      if left$(a$,1)=str$(res%)
        a$=right$(a$,len(a$)-1)
        item_add 6,a$
      end_if
  next x%
End_sub

data "1Le couple «coup de cœur»...Vous avez flashé, il a «kiffé»: attraction instantanée, pas même le temps d'y penser et c'est arrivé! Cette rencontre a des allures de coup de foudre et entre vous, tout est instinctif et surdimensionné: beaucoup de passion mais si peu de raison... Ce genre d'attraction formidable n'a qu'un vrai danger: il faut entretenir la flamme de peur de vous lasser... Cet homme-là vous met sûrement dans tous vos états: le cœur sens dessus dessous et le corps chaud comme la braise... Le 1 vous conseille de ne pas brûler la chandelle par les deux bouts: s'il manquait du carburant à vos élans, vos amours seraient réduites à néant!"
data "1Attention: cet homme-là est peut-être égoïste et sûrement indépendant! Ne vous laissez pas mener par le bout du nez mais n'oubliez pas de le laisser respirer! Tant que vous le placez sur un piédestal, cet amour ne sera jamais banal mais si vous lui reprochiez trop souvent ses défauts, il irait sans doute se laisser admirer ailleurs..."
data "2Qui se ressemble s'assemble!"
data "2Le 2 est le chiffre-même du couple! Rien à faire: vous êtes faits pour vous plaire, vous comprendre, vous compléter, vous aimer! Vous rêviez d'une âme sœur? Le ciel vous l'a fait rencontrer! Oui, vous l'avez sans doute trouvé celui qui peut se révéler être votre moitié. Ne vous posez pas trop de questions: quelquefois, l'amour est comme une évidence! Vous avez déniché celui qui vous ressemble et il ne vous reste plus qu'à confirmer l'adage «qui se ressemble, s'assemble»... Fous rires assurés, complicité à volonté, même longueur d'onde à explorer. Vous pouvez compter sur sa sincérité, sa fidélité mais gare à la dépendance: lâchez-vous de temps en temps les baskets pour être plus souvent à la fête! Conservez un peu de votre individualité et ne transformez pas une jolie passion en mauvaise addiction!"
data "3Un couple «papillon»"
data "3Voici un duo fait pour créer des vagues sur l'ennui, pour multiplier les intérêts communs: c'est le compagnon idéal pour fêter la vie, amuser votre mode de vie, sortir en bonne compagnie. Avec lui, pas moyen de s'ennuyer: invitations à gogo, copains à volonté! Vous pourriez même jouer en duo le couple le plus branché de l'année! Cet homme-là est sûrement un sacré boute-en-train: il ne vous reste plus qu'à devenir son animatrice préférée!"
data "3Mais tendresse et intimité ne sont pas toujours à la clé de cette association «trop bien entourée». Abusez de la joie de vivre et développez ce côté «bons vivants à volonté» mais essayez quand même de vous préserver un petit jardin secret, bien à l'abri des regards indiscrets... Parce qu'à force de vous éparpiller, vous pourriez égarer au passage vos vraies raisons d'aimer. Rappelez-vous qu'un tête-à-tête peut aussi être une vraie fête et qu'être amoureux, c'est aussi s'amuser à deux."
data "4Pas facile de parvenir à un bon équilibre: votre association n'est pas forcément une évidence et ça grésille parfois sur votre fréquence! Avec lui, il ne faut pas aller plus vite que la musique: prenez ce que le présent vous accorde et vous verrez bien demain pour le reste! Cette histoire doit se construire: elle a besoin de temps. Petit à petit, la femme avisée fait son nid."
data "4Si cet homme-là n'est pas démonstratif, c'est peut-être qu'il est timide, secret ou prudent. Ne lui faites surtout pas de «rentre-dedans» et prouvez-lui seulement vos bonnes intentions. Analysez ses réactions pour éviter les futures complications, employez la douceur pour faire parler son cœur. S'il s'ouvre comme une fleur, c'est qu'il aura enfin décidé de vous donner le meilleur de lui-même. Ce grand froid au cœur tendre pourrait bien vous surprendre... avec le temps."
data "5Amour fou, passion dévastatrice."
data "5Vous aimez les histoires paisibles? Vous n'avez pas fait bonne pioche! Avec lui, il faut s'attendre à tout! Ce couple-là a quelque chose d'infernal: «Je t'aime... moi non plus!», «Fuis-moi, je te suis!» et tutti quanti... Attraction irrésistible, amour fou, passion dévastatrice: vous êtes montés sur les montagnes russes du cœur et il va falloir l'avoir bien accroché (ce cœur) pour ne pas décrocher! Brûler la chandelle par les deux bouts, s'aimer à dormir debout, se quitter pour rien du tout et ne jamais en voir le bout: la passion, c'est excitant alors excluez dores et déjà un programme reposant. Vous l'avez sans doute rendu fou mais il n'est jamais complètement à vos genoux. Côté cœur, on dit que rien n'est jamais acquis et vous pourriez bien l'expérimenter savamment avec lui!"
data "6Entre similaires et complémentaires."
data "6Pas de problème: cette association-là respire l'équilibre. Vous êtes sans doute sur la même longueur d'onde: le 6 est le chiffre de l'harmonie et ça devrait rouler pour vous! Vos cœurs battent au diapason, vous avez les mêmes valeurs, vos fous rires se font écho et vos rêves devraient même finir par se rejoindre... Vous êtes entre similaires et complémentaires et de toutes façons, les deux font joliment la paire! L'harmonie est aussi une philosophie de vie et ce n'est sûrement pas un hasard si vous vous êtes choisis! Couple exemplaire, rien ne va de travers, affinités d'enfer: une véritable association se construit sur des bases solides et vous avez sans doute déniché le bon filon. L'amour peut aussi être un joli fleuve tranquille. ou se trouver tout bêtement dans le pré: la sérénité n'empêche surtout pas d'aimer!"
data "7Le prendre (et le garder) dans vos filets? Une question de temps..."
data "7Pas de panique! Il y a des couples qui ont besoin de temps ou de revirements pour se trouver vraiment et vous êtes peut-être de ceux-là... Cette proie-là n'est pas une conquête facile et vous devez souvent vous arracher les cheveux pour lui faire perdre la tête. Il faut parfois laisser le temps au temps, même et surtout dans le domaine du sentiment: apprenez à être là où il ne vous attend pas, devancez ses envies sans rien lui dire et ne comptez pas trop sur la logique dans cette histoire qui ne l'est pas toujours! Il faut parfois prendre du recul pour mieux laisser venir les choses (et les gens): vous vous attendez sûrement mais pas toujours au bon moment. En résumé: en apprenant à vous connaître, vous saurez mieux dénicher la petite faiblesse qui le fait craquer, vous aurez de meilleurs arguments pour durer plus longtemps : soyez patiente et futée mais ne le laissez jamais «s'encroûter»!"
data "8La magie des émotions"
data "8Ce duo-là ne fonctionne que sur la magie des émotions: frissons, passion, jalousie, impulsions, volupté. Rien de tiède entre vous : l'amour est bien cet amplificateur d'émotions qui frise souvent le rouge-passion! Il vous fait littéralement fondre et vous le faites craquer: vous adorez aussi vous disputer, juste pour la réconciliation sur l'oreiller! Avec le 8 en résultat, le sexe risque également d'être l'un de vos exploits. Vous pensez que le vamper n'a que du bon: vous savez le rendre fou autant que le rendre jaloux... Vous savez exactement comment faire pour allumer ses feux ou le faire tourner en bourrique. Mais attention: à trop jouer avec le feu, on finit parfois par se brûler les doigts. Ses réactions pourraient quelquefois vous dérouter pour de bon! En résumé, votre couple n'aime pas la routine et ne supporte pas le calme plat. A vous de créer la vague qui déchaînera une tempête d'émotions: pourvu qu'elle ne se transforme pas en tsunami et vous aurez tout compris!"
data "9Un amour comme dans un conte de fée..."
data "9Yeux doux, mots d'amour à profusion, rencontre ultra-romantique, détours romanesques, baisers de cinéma, serments d'amour, tendresse à volonté: votre vraie place est sur un petit nuage et vous vous êtes trouvés pour planer un bon bout de temps! Il vous décrocherait bien la lune juste pour vous faire rêver, pourrait bien être le chevalier servant que vous attendiez tant ou le champion du SMS amoureux et vous n'en croirez pas vos yeux..."
data "9Vous avez peut-être trouvé la perle rare dont parlent tous les livres, le prince charmant de vos rêves d'enfant et le bel amant qui assure même sur l'oreiller... Attention: le lâcher des yeux serait un péché car si vous n'y preniez pas garde, on pourrait bien vous le voler."
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 8002
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Mer 21 Aoû 2013 - 11:35

Je crois que j' avais oublié de ré-initialiser l' alpha 7 aussi...
...je re-débute....
lol!

@ Papydall,

ce n' est qu' une expression comme la "question à 100 balles". Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5613
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Test Compatibilité à deux balles...   Mer 21 Aoû 2013 - 11:41

@Jicehel
Dans ta modification :
Si le nom de Monsieur commence par PAP comme Papydall alors ça ne marche plus !!
ça ne marche pas non plus si Monsieur s’appelle aaa et Madame bbb, etc.. etc..
Au contraire, le code d’origine marche toujours pour la 1ère fois.
Pour pouvoir exécuter le programme plusieurs fois de suite et  éviter l’erreur  (60) Out of data. Line : 107, il suffit d’ajouter en ligne 105 : RESTORE

EDIT
@Ygeronimi
Tu peux garder la monnaie puisqu'il s'agit de l'inutile qui peut servir!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

Nombre de messages : 5865
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Test Compatibilité à deux balles...   Mer 21 Aoû 2013 - 13:10

papydall, le simple ajout du restore ne suffit pas, tu n'obtient pas le même résultat avec le même prénom si tu ne réinitialise pas les variables (sauf si tu as de la chance)

J'ai fais les modifs rapidos ce matin en me levant et en effet, il ne faut pas modifier la ligne 108:
( for x%=1 to 20), j'avais mis 9 en lisant rapidement le programme pour trouver le problème mais ça n'avait rien à voir, j'ai juste laissé la valeur modifiée alors qu'il n'y a aucune raison de le faire (désolé)

Donc le bon code est :
Code:
dim a%(9),Mr$,Md$,Mr%,Md%
label click

Caption 0,"Test de compatibilité ou presque..."
height 0,440 : width 0,400
top 0,(screen_y-height(0))/2 : left 0,(screen_x-width(0))/2 :font_name 0,arial

Alpha 1 :top 1,10 :left 1,10 : caption 1,"Prénom de Monsieur"
Alpha 2 :top 2,10 :left 2,200: caption 2,"Prénom de Madame"

edit 3: top 3,25 : left 3,10 : width 3,170
edit 4: top 4,25 : left 4,200: width 4,170

Button 5 : top 5,55 : left 5,(width(0)-95): caption 5,"Tester":cursor_point 5
on_click 5,click

Memo 6 : top 6,90 :left 6,10 :width 6,360 :height 6,300 :bar_vertical 6
Alpha 7 : top 7,70:left 7,10 :font_color 7,0,0,255
end

click:
  clear 6
  Mr$=text$(3)
  Md$=text$(4)
  if Mr$=""
      Vide(1)
  else
      if Md$=""
        Vide(2)
      else
        Test()
      end_if
  end_if
return

Sub Vide(C%)
  if C%=1
      Message "Vous n' avez pas entré le prénom de monsieur"
  else
      Message "Vous n' avez pas entré le prénom de Madame"
  end_if
End_sub

Sub Test()
  dim_local x%,a$,b$,c$,d$,res%

  a$=Upper$(Mr$):Mr$=a$:Mr%=0
  for x%=1 to len(Mr$)
      a$=left$(Mr$,1):Mr$=right$(Mr$,len(Mr$)-1)
      if a$="A" or a$="J" or a$="S" :Mr%=Mr%+1 : end_if
      if a$="B" or a$="K" or a$="T" :Mr%=Mr%+2 : end_if
      if a$="C" or a$="L" or a$="U" :Mr%=Mr%+3 : end_if
      if a$="D" or a$="M" or a$="V" :Mr%=Mr%+4 : end_if
      if a$="E" or a$="N" or a$="W" :Mr%=Mr%+5 : end_if
      if a$="F" or a$="O" or a$="X" :Mr%=Mr%+6 : end_if
      if a$="G" or a$="P" or a$="Y" :Mr%=Mr%+7 : end_if
      if a$="H" or a$="Q" or a$="Z" :Mr%=Mr%+8 : end_if
      if a$="I" or a$="R" :Mr%=Mr%+9 : end_if
  next x%

  a$=Upper$(Md$):Md$=a$:Md%=0
  for x%=1 to len(Md$)
      a$=left$(Md$,1):Md$=right$(Md$,len(Md$)-1)
      if a$="A" or a$="J" or a$="S" :Md%=Md%+1 : end_if
      if a$="B" or a$="K" or a$="T" :Md%=Md%+2 : end_if
      if a$="C" or a$="L" or a$="U" :Md%=Md%+3 : end_if
      if a$="D" or a$="M" or a$="V" :Md%=Md%+4 : end_if
      if a$="E" or a$="N" or a$="W" :Md%=Md%+5 : end_if
      if a$="F" or a$="O" or a$="X" :Md%=Md%+6 : end_if
      if a$="G" or a$="P" or a$="Y" :Md%=Md%+7 : end_if
      if a$="H" or a$="Q" or a$="Z" :Md%=Md%+8 : end_if
      if a$="I" or a$="R" :Md%=Md%+9 : end_if
  next x%

  if Mr%>9
      b$=str$(Mr%)
      Mr%=0
        for x%=1 to len(b$)
            a$=left$(b$,1):b$=right$(b$,len(b$)-1)
            Mr%=Mr%+val(a$)
        next x%
  end_if

  if Md%>9
      c$=str$(Md%)
      Md%=0
        for x%=1 to len(c$)
            a$=left$(c$,1):c$=right$(c$,len(c$)-1)
            Md%=Md%+val(a$)
        next x%
  end_if

  res%=Mr%+Md%

  if res%>9
      d$=str$(res%)
      res%=0
        for x%=1 to len(d$)
            a$=left$(d$,1):d$=right$(d$,len(d$)-1)
            res%=res%+val(a$)
        next x%
  end_if

  caption 7,"Vous avez trouvé "+str$(res%)

  restore
 
  for x%=1 to 20
      read a$
      if left$(a$,1)=trim$(str$(res%))
        a$=right$(a$,len(a$)-1)
        item_add 6,a$
      end_if
  next x%
 
End_sub

data "1Le couple «coup de cœur»...Vous avez flashé, il a «kiffé»: attraction instantanée, pas même le temps d'y penser et c'est arrivé! Cette rencontre a des allures de coup de foudre et entre vous, tout est instinctif et surdimensionné: beaucoup de passion mais si peu de raison... Ce genre d'attraction formidable n'a qu'un vrai danger: il faut entretenir la flamme de peur de vous lasser... Cet homme-là vous met sûrement dans tous vos états: le cœur sens dessus dessous et le corps chaud comme la braise... Le 1 vous conseille de ne pas brûler la chandelle par les deux bouts: s'il manquait du carburant à vos élans, vos amours seraient réduites à néant!"
data "1Attention: cet homme-là est peut-être égoïste et sûrement indépendant! Ne vous laissez pas mener par le bout du nez mais n'oubliez pas de le laisser respirer! Tant que vous le placez sur un piédestal, cet amour ne sera jamais banal mais si vous lui reprochiez trop souvent ses défauts, il irait sans doute se laisser admirer ailleurs..."
data "2Qui se ressemble s'assemble!"
data "2Le 2 est le chiffre-même du couple! Rien à faire: vous êtes faits pour vous plaire, vous comprendre, vous compléter, vous aimer! Vous rêviez d'une âme sœur? Le ciel vous l'a fait rencontrer! Oui, vous l'avez sans doute trouvé celui qui peut se révéler être votre moitié. Ne vous posez pas trop de questions: quelquefois, l'amour est comme une évidence! Vous avez déniché celui qui vous ressemble et il ne vous reste plus qu'à confirmer l'adage «qui se ressemble, s'assemble»... Fous rires assurés, complicité à volonté, même longueur d'onde à explorer. Vous pouvez compter sur sa sincérité, sa fidélité mais gare à la dépendance: lâchez-vous de temps en temps les baskets pour être plus souvent à la fête! Conservez un peu de votre individualité et ne transformez pas une jolie passion en mauvaise addiction!"
data "3Un couple «papillon»"
data "3Voici un duo fait pour créer des vagues sur l'ennui, pour multiplier les intérêts communs: c'est le compagnon idéal pour fêter la vie, amuser votre mode de vie, sortir en bonne compagnie. Avec lui, pas moyen de s'ennuyer: invitations à gogo, copains à volonté! Vous pourriez même jouer en duo le couple le plus branché de l'année! Cet homme-là est sûrement un sacré boute-en-train: il ne vous reste plus qu'à devenir son animatrice préférée!"
data "3Mais tendresse et intimité ne sont pas toujours à la clé de cette association «trop bien entourée». Abusez de la joie de vivre et développez ce côté «bons vivants à volonté» mais essayez quand même de vous préserver un petit jardin secret, bien à l'abri des regards indiscrets... Parce qu'à force de vous éparpiller, vous pourriez égarer au passage vos vraies raisons d'aimer. Rappelez-vous qu'un tête-à-tête peut aussi être une vraie fête et qu'être amoureux, c'est aussi s'amuser à deux."
data "4Pas facile de parvenir à un bon équilibre: votre association n'est pas forcément une évidence et ça grésille parfois sur votre fréquence! Avec lui, il ne faut pas aller plus vite que la musique: prenez ce que le présent vous accorde et vous verrez bien demain pour le reste! Cette histoire doit se construire: elle a besoin de temps. Petit à petit, la femme avisée fait son nid."
data "4Si cet homme-là n'est pas démonstratif, c'est peut-être qu'il est timide, secret ou prudent. Ne lui faites surtout pas de «rentre-dedans» et prouvez-lui seulement vos bonnes intentions. Analysez ses réactions pour éviter les futures complications, employez la douceur pour faire parler son cœur. S'il s'ouvre comme une fleur, c'est qu'il aura enfin décidé de vous donner le meilleur de lui-même. Ce grand froid au cœur tendre pourrait bien vous surprendre... avec le temps."
data "5Amour fou, passion dévastatrice."
data "5Vous aimez les histoires paisibles? Vous n'avez pas fait bonne pioche! Avec lui, il faut s'attendre à tout! Ce couple-là a quelque chose d'infernal: «Je t'aime... moi non plus!», «Fuis-moi, je te suis!» et tutti quanti... Attraction irrésistible, amour fou, passion dévastatrice: vous êtes montés sur les montagnes russes du cœur et il va falloir l'avoir bien accroché (ce cœur) pour ne pas décrocher! Brûler la chandelle par les deux bouts, s'aimer à dormir debout, se quitter pour rien du tout et ne jamais en voir le bout: la passion, c'est excitant alors excluez dores et déjà un programme reposant. Vous l'avez sans doute rendu fou mais il n'est jamais complètement à vos genoux. Côté cœur, on dit que rien n'est jamais acquis et vous pourriez bien l'expérimenter savamment avec lui!"
data "6Entre similaires et complémentaires."
data "6Pas de problème: cette association-là respire l'équilibre. Vous êtes sans doute sur la même longueur d'onde: le 6 est le chiffre de l'harmonie et ça devrait rouler pour vous! Vos cœurs battent au diapason, vous avez les mêmes valeurs, vos fous rires se font écho et vos rêves devraient même finir par se rejoindre... Vous êtes entre similaires et complémentaires et de toutes façons, les deux font joliment la paire! L'harmonie est aussi une philosophie de vie et ce n'est sûrement pas un hasard si vous vous êtes choisis! Couple exemplaire, rien ne va de travers, affinités d'enfer: une véritable association se construit sur des bases solides et vous avez sans doute déniché le bon filon. L'amour peut aussi être un joli fleuve tranquille. ou se trouver tout bêtement dans le pré: la sérénité n'empêche surtout pas d'aimer!"
data "7Le prendre (et le garder) dans vos filets? Une question de temps..."
data "7Pas de panique! Il y a des couples qui ont besoin de temps ou de revirements pour se trouver vraiment et vous êtes peut-être de ceux-là... Cette proie-là n'est pas une conquête facile et vous devez souvent vous arracher les cheveux pour lui faire perdre la tête. Il faut parfois laisser le temps au temps, même et surtout dans le domaine du sentiment: apprenez à être là où il ne vous attend pas, devancez ses envies sans rien lui dire et ne comptez pas trop sur la logique dans cette histoire qui ne l'est pas toujours! Il faut parfois prendre du recul pour mieux laisser venir les choses (et les gens): vous vous attendez sûrement mais pas toujours au bon moment. En résumé: en apprenant à vous connaître, vous saurez mieux dénicher la petite faiblesse qui le fait craquer, vous aurez de meilleurs arguments pour durer plus longtemps : soyez patiente et futée mais ne le laissez jamais «s'encroûter»!"
data "8La magie des émotions"
data "8Ce duo-là ne fonctionne que sur la magie des émotions: frissons, passion, jalousie, impulsions, volupté. Rien de tiède entre vous : l'amour est bien cet amplificateur d'émotions qui frise souvent le rouge-passion! Il vous fait littéralement fondre et vous le faites craquer: vous adorez aussi vous disputer, juste pour la réconciliation sur l'oreiller! Avec le 8 en résultat, le sexe risque également d'être l'un de vos exploits. Vous pensez que le vamper n'a que du bon: vous savez le rendre fou autant que le rendre jaloux... Vous savez exactement comment faire pour allumer ses feux ou le faire tourner en bourrique. Mais attention: à trop jouer avec le feu, on finit parfois par se brûler les doigts. Ses réactions pourraient quelquefois vous dérouter pour de bon! En résumé, votre couple n'aime pas la routine et ne supporte pas le calme plat. A vous de créer la vague qui déchaînera une tempête d'émotions: pourvu qu'elle ne se transforme pas en tsunami et vous aurez tout compris!"
data "9Un amour comme dans un conte de fée..."
data "9Yeux doux, mots d'amour à profusion, rencontre ultra-romantique, détours romanesques, baisers de cinéma, serments d'amour, tendresse à volonté: votre vraie place est sur un petit nuage et vous vous êtes trouvés pour planer un bon bout de temps! Il vous décrocherait bien la lune juste pour vous faire rêver, pourrait bien être le chevalier servant que vous attendiez tant ou le champion du SMS amoureux et vous n'en croirez pas vos yeux..."
data "9Vous avez peut-être trouvé la perle rare dont parlent tous les livres, le prince charmant de vos rêves d'enfant et le bel amant qui assure même sur l'oreiller... Attention: le lâcher des yeux serait un péché car si vous n'y preniez pas garde, on pourrait bien vous le voler."
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 8002
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Mer 21 Aoû 2013 - 13:37

Je n' aurai pas pensé que ce petit inutilitaire fasse la une de la journée...
lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5865
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Test Compatibilité à deux balles...   Mer 21 Aoû 2013 - 13:48

Tu n'as qu'à en faire un autre et on aura un autre sujet à ce mettre sous la dent Very Happy
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 8002
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Mer 21 Aoû 2013 - 14:27

J' suis en panne de magazines...Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5613
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Test Compatibilité à deux balles...   Mer 21 Aoû 2013 - 17:38

Tout le monde sait l’utilité de l’utile, mais combien de personnes sachent l’utilité de l’inutile ?
Alors, à vos claviers pour d’autres inutilitaires !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Yannick

avatar

Nombre de messages : 8002
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Mer 21 Aoû 2013 - 19:16

Tout le monde sait l’utilité de l’utile, mais combien de personnes sachent (savent) l’utilité de l’inutile ?
Very Happy 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5613
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Test Compatibilité à deux balles...   Mer 21 Aoû 2013 - 20:11

Ben oui, je me suis trompé ! Ça prouve que je suis normal !
Comme c’est inutile, pourquoi n’aurais-je pas le droit de me tromper en conjuguant le verbe savoir ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Yannick

avatar

Nombre de messages : 8002
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Mer 21 Aoû 2013 - 20:25

Moi, ce que j' en dis....bof, c' est inutile...Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Test Compatibilité à deux balles...   

Revenir en haut Aller en bas
 
Test Compatibilité à deux balles...
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Test Compatibilité à deux balles...
» Quelle partie de votre cerveau utilisez-vous ?
» LDT HSI-88-M
» [résolu]horloge test en swf
» Question sur compatibilité entre carte mére et carte graphique

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Les inutilitaires-
Sauter vers: