Test Compatibilité à deux balles...

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

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

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