Forum Liberty Basic France
• Index
En fait c'est ce que je me suis dit ce matin, horrifié, en ouvrant le placard...
Hello tout le monde !
Code VB :

(ça devrait marcher comme prévu
)
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 occasionnelle ou vérification/débugage difficile avec Windows XP sur un petit eeepc
Just BASIC v2.0 :
Gloups ! WTF ???
____________________
Roro
Roro
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 plusdé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é ?
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
Y'a moyen de faire plus compliqué ?
____________________
Just BASIC v2.0 :
utilisation occasionnelle ou vérification/débugage difficile avec Windows XP sur un petit eeepc
Just BASIC v2.0 :
Maintenant on en est sûrs
La programmation rend fou
La programmation rend fou
____________________
Roro
Roro

(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 occasionnelle ou vérification/débugage difficile avec Windows XP sur un petit eeepc
Just BASIC v2.0 :
Citation:
On est rassurés
Mais on craint la suite
la situation devrait revenir à la normale en cours de soirée
On est rassurés
Mais on craint la suite
____________________
Roro
Roro
Pas de panique, je viens de voir un transatlantique passer devant mes fenêtres, tout va bien...

____________________
Just BASIC v2.0 :
utilisation occasionnelle ou vérification/débugage difficile avec Windows XP sur un petit eeepc
Just BASIC v2.0 :
• Index
1 Utilisateur en ligne : 0 Administrateur, 0 Modérateur, 0 Membre et 1 Visiteur
Utilisateur en ligne : Aucun membre connecté
Utilisateur en ligne : Aucun membre connecté
Répondre
Vous n'êtes pas autorisé à écrire dans cette catégorie