Faire une mauvaise blague à un pote... ou à un prof !

→ **MyCalcs** profile · by **randlog** » 23 Jun 2016, 10:40

J'avoue j'ai déjà fait pareil mais avec un for qui en plus faisait perdre du temps... genre fallait attendre quasiment une demi-seconde pour avoir la réponse et là ça devient vraiment amusant... pour peu qu'il y ait un rapide message quelque part sur l'écran pour vraiment perturber les gens...

→ **MyCalcs** profile · by **critor** » 23 Jun 2016, 11:05

Ah ben bravo - un déterrage de plus de 6 ans, je me demande même si c'est pas le record !

Mais bref, c'est bien de vouloir lire tout TI-Planet, même moi je n'y arrive pas !

→ **MyCalcs** profile · by **Clément.7** » 23 Jun 2016, 11:56

Tiens tiens je suis pas le seul à avoir eu l'idée d'un programme qui calcule mal ^^
L'un de ceux que j'avais fait affichait le résultat à plus ou moins un nombre aléatoire entre 0 et 1/100ème du nombre je crois... ça devait donner un truc du genre :

Code: Select all: Lbl 0 Input "",A Disp A+A*randInt(-100,100)/10000 Goto 0

(le code me paraît un peu bizarre à vrai dire...)

My calculator programs · by **Adriweb** » 23 Jun 2016, 12:01

Me semble que l'on a tous plus ou moins fait ce genre de programmes - du moins, j'ai fait quasiment exactement le même que celui de Levak à plusieurs reprises pour piéger des gens

→ **MyCalcs** profile · by **randlog** » 23 Jun 2016, 12:03

Et maintenant avec la géniale PCE, on peut mettre des accents et donc mettre un menu du genre erreur syntaxe ou qqch dans le genre !
ps critor ce n'est pas un record : viewtopic.php?f=8&t=3912&p=205178#p205178

→ **MyCalcs** profile · by **Epharius** » 23 Jun 2016, 12:05

Hum hum, je ne l'ai jamais fait, je devrais peut-être m'y mettre, vu ce que je pourrais faire aux autres gens de la classe avec la calculatrice, genre la bricker... bon d'accord ce ne serait pas du basic, mais ce serait drôle, HA HA HA HA !

→ **MyCalcs** profile · by **Ti64CLi++** » 24 Jun 2016, 17:48

Après, en ASM ce petit code marche très bien aussi

Code: Select all: org userMem-2 db $BB,$6D Start: ld hl,RandHook ld de,$8000 ld bc,EndHook-RandHook+1 ldir ld hl,$8000 ld a,1 bcall $4FAB ret HomescreenHook: db 83h ; Required for all hooks or a ; are we in condition 0 (display value?) jr nz,ReturnZ BCALL Random ; change our output value to a random # ReturnZ: cp a ; set zero condition ret EndHook: