Forum Liberty Basic France

Général » Il est temps de faire les courses recette de cuisine ?
Le 19/01/2017 à 22h51

Modérateur

Groupe: Modérateur

Inscrit le: 09/02/2015
Messages: 741
En fait c'est ce que je me suis dit ce matin, horrifié, en ouvrant le placard...

Hello tout le monde !

Code VB :
 
data 2805,1073,2236,1740,11035,915,412302,390018,121896
data 9521432,9581,7303933,55000,58,11321,45203,13543,27703
data 1235,328,240,58,53002,7387,162812,928685,141013,21,43
 
read c,d,e : riz=c*d+e
read c,d,e : lait=c*d+e
read c,d,e : caramel=c*d+e
read c,d,e : oeuf=c*d+e
read c,d,e : beurre=c*d+e
read c,d,e : beurre=beurre*10^9+c*d+e
read c,d,e : vanille=c*d+e
read c,d,e : vanille=vanille*10^7+c*d+e'
read c,d,e : PinceeDeSel=c*d+e
read c,d : farine=c : sucre=d
 
a$=""
ingredient$=str$(riz):gosub [melange]
ingredient$=str$(lait):gosub [melange]
ingredient$=str$(caramel):gosub [melange]
ingredient$=str$(oeuf):gosub [melange]
ingredient$=str$(beurre):gosub [melange]
ingredient$=str$(vanille):gosub [melange]
ingredient$=str$(PinceeDeSel):gosub [melange]
print a$
 
end
 
[melange]
    if len(ingredient$) mod 2 <> 0 then ingredient$="0"+ingredient$
    b=1
    for a=1 to len(ingredient$)/2
        eau=val(mid$(ingredient$,b,2)):b=b+2
        if eau=32 or eau=33 or eau=39 then base=eau else base=farine+sucre+eau
        a$=a$+chr$(base)
    next
return
 
 


;)

(ça devrait marcher comme prévu^^)
____________________
Just BASIC v2.0 :
  • utilisation courante avec GNU/Linux Mageia7+ Wine (Pas trouvé d'incohérences ou de bug de compilation à ce jour)
  • utilisation occasionnelle ou vérification/débugage difficile avec Windows XP sur un petit eeepc

   
Le 20/01/2017 à 09h25

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2489
Gloups ! WTF ???
____________________
Roro

   
Le 20/01/2017 à 12h50

Modérateur

Groupe: Modérateur

Inscrit le: 09/02/2015
Messages: 741
C'était un petit délire pour m'évader de ce monde cruel et sans pitié où toutes les tâches, même les plus insignifiantes, s'étaient donné le mot pour m'embêter... Na !

Si ça fonctionne il devrait s'afficher une phrase indiquant l'ingrédient responsable de l'état d'urgence. Le prog manipule de grands nombres, et j'avais peur de me trouver avec un nombre tronqué à 8 chiffres significatifs + puissance de 10, comme sur les vieilles machines, et ici il fallait tous les chiffres du nombre, c'était capital.

Cela aurait été un peu plus déroutant pour l'utilisateur amusant pour moi si j'avais fait appel à des fonctions ou des routines au lieu des gosub, mais je n'y ai pas pensé...

Y'a moyen de faire plus compliqué ?
____________________
Just BASIC v2.0 :
  • utilisation courante avec GNU/Linux Mageia7+ Wine (Pas trouvé d'incohérences ou de bug de compilation à ce jour)
  • utilisation occasionnelle ou vérification/débugage difficile avec Windows XP sur un petit eeepc

   
Le 20/01/2017 à 13h16

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2489
Maintenant on en est sûrs
La programmation rend fou
____________________
Roro

   
Le 21/01/2017 à 16h19

Modérateur

Groupe: Modérateur

Inscrit le: 09/02/2015
Messages: 741
;)

(A cette heure-ci il n'y a toujours pas de chocolat, mais la situation devrait revenir à la normale en cours de soirée)
____________________
Just BASIC v2.0 :
  • utilisation courante avec GNU/Linux Mageia7+ Wine (Pas trouvé d'incohérences ou de bug de compilation à ce jour)
  • utilisation occasionnelle ou vérification/débugage difficile avec Windows XP sur un petit eeepc

   
Le 21/01/2017 à 17h27

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2489
Citation:
la situation devrait revenir à la normale en cours de soirée

On est rassurés
Mais on craint la suite
____________________
Roro

   
Le 02/02/2017 à 17h29

Modérateur

Groupe: Modérateur

Inscrit le: 09/02/2015
Messages: 741
Pas de panique, je viens de voir un transatlantique passer devant mes fenêtres, tout va bien... :party
____________________
Just BASIC v2.0 :
  • utilisation courante avec GNU/Linux Mageia7+ Wine (Pas trouvé d'incohérences ou de bug de compilation à ce jour)
  • utilisation occasionnelle ou vérification/débugage difficile avec Windows XP sur un petit eeepc

   
Général » Il est temps de faire les courses recette de cuisine ?  

 |  |

1 Utilisateur en ligne : 0 Administrateur, 0 Modérateur, 0 Membre et 1 Visiteur
Utilisateur en ligne : Aucun membre connecté
Répondre
Vous n'êtes pas autorisé à écrire dans cette catégorie