Rechercher
 
 

Résultats par :
 


Rechercher Recherche avancée

Connexion

Récupérer mon mot de passe

Chatbox externe


Derniers sujets
» [JEU] Mon voisin du dessous
Mar 10 Oct 2017 - 19:42 par Wistaro

» Lancement du TI-Concours 2017 !
Sam 20 Mai 2017 - 0:27 par Paulo1026

» Chaînes Youtube des membres
Ven 19 Mai 2017 - 22:41 par Wistaro

» cacul du taux d'intêret
Ven 24 Mar 2017 - 21:50 par m@thieu41

» [Projet] Un mario by tout82
Dim 29 Jan 2017 - 14:09 par Wistaro

» Cherche documentation assembleur TI82stat
Mer 25 Jan 2017 - 12:29 par Ti64CLi++

» Probleme Ti-82 Stats fr
Jeu 12 Jan 2017 - 13:56 par Ti64CLi++

» ROM 82 stats.fr
Jeu 15 Déc 2016 - 10:24 par Ti64CLi++

» flappy bird
Jeu 15 Déc 2016 - 10:23 par Ti64CLi++

Partenaires
TI-Planet Espace-TI : Forum

Faire un don à Tout-82...
Où va cet argent ?
Membres donateurs:- Persalteas (10€)
- Wistaro (5€)
- jo2geek (22€)

Les posteurs les plus actifs du mois
Wistaro
 


Joyeux noel 2015 !!!

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

Joyeux noel 2015 !!!

Message par m@thieu41 le Jeu 24 Déc 2015 - 17:32

Bonjour tout le monde ! santa

De bonnes fêtes à tous !

J'ai réalisé ce programme à partir de ce que j'avais déjà fait à d'autres occasions Wink



Voici le code :
Code:
ClrHome
ClrDraw
"JOYEUX  NOEL!!! →Str0
sub(Ans,9,7→Str1
sub(Str0,1,7→Str2
getKey
6rand
If Ans<1
Goto 1
If Ans<2
Goto 2
If Ans<3
Goto 3
If Ans<4
Goto 4
If Ans<5
Goto 5
1→A
1→D
Repeat getKey
min(8,max(1,A+D→A
ClrHome
For(θ,1,8
A
If fPart(.5θ
9-Ans
Output(Ans,2θ,sub(Str1+" ",θ,1
End
If A=1 or A=8
⁻D→D
End
Goto 0
Lbl 5
Disp Str0
15→dim(L₁
Fill(1,L₁
Repeat Ans
randInt(1,15
Ans-(Ans=8→N
L₁(N→A
1-2(8=A→D
Repeat Ans or A=1 or A=8
Output(A,N,"
D+A→A
Output(Ans,N,sub(Str0,N,1
Ans→L₁(N
getKey→K
End
End
Goto 0
Lbl 4
Output(1,1,Str1
Repeat getKey
Output(randInt(1,8),randInt(1,16),Str0
End
Goto 0
Lbl 3
Repeat getKey
Text(randInt(0,57),randInt(0,68),Str0
End
Goto 0
Lbl 2
5→A
4→B
Repeat getKey
B→F
A→E
min(8,max(1,A+randInt(⁻1,1→A
min(10,max(1,B+randInt(⁻1,1→B
Output(E,F,"     
Output(A,B,sub(Str0,1+8int(2rand),8
20!
End
Goto 0
Lbl 1
{1,1,1,1,1,1,5,10,1,⁻1,1,1→L₁
Repeat getKey
For(θ,0,1
6θ→B
For(A,1,2
L₁(B+A→L₁(B+4+A
End
max(1,min(8,L₁(B+1)+L₁(B+3→L₁(B+1
If Ans=1 or Ans=8
⁻L₁(B+3→L₁(B+3
max(1,min(10,L₁(B+2)+L₁(B+4)→L₁(B+2
Output(L₁(B+5),L₁(B+6),"     
Output(L₁(B+1),Ans,sub(Str0,1+8θ,8
If Ans=1 or Ans=10
⁻L₁(B+4→L₁(B+4
End
End
Lbl 0
ClrHome
ClrDraw

Ho ho ho !! santa

__________________________________________________________________________
ZSNAKE Mon premier (et unique) jeu en ASM:
Un Snake 2 joueurs (2caltos)
-> Je travaille sur une version plus stable du jeu, je poste dès que possible.
avatar
m@thieu41
----------------------
----------------------

Messages : 934
Points Concours : 65
Productivité : 47
Date d'inscription : 02/06/2013
Localisation : Nice, France
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Joyeux noel 2015 !!!

Message par Mingerton le Ven 25 Déc 2015 - 18:44

Waw, c'est la magie de Noël Smile
avatar
Mingerton
----------------------
----------------------

Messages : 251
Points Concours : 103
Productivité : 5
Date d'inscription : 10/10/2013
Localisation : Comté de Kerry, Irlande

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Joyeux noel 2015 !!!

Message par Ti64CLi++ le Sam 26 Déc 2015 - 17:12

Joyeux Noël à tout le monde (en retard, je sais Twisted Evil )

__________________________________________________________________________
Retrouves tout mes programmes pour calculatrice(s) TI

Regarde ici Invité:
Bonjour Invité !
Ta dernière visite sur Tout82.org date de
Tu as posté 78 message(s).
Tu as 0 ans et tu es né le 0

NEURONIX IS WATCHING YOU!!!
avatar
Ti64CLi++
Intéressé
Intéressé

Messages : 93
Points Concours : 1
Productivité : 1
Date d'inscription : 16/07/2015
Localisation : Valence
Calculatrice(s) :
  • TI-82
  • TI-82 Stats
  • TI-82 Stats.fr

. : TI-82 Stats

Voir le profil de l'utilisateur http://www.tout82.org/

Revenir en haut Aller en bas

Re: Joyeux noel 2015 !!!

Message par STV le Mar 29 Déc 2015 - 14:53

Cool ! Very Happy
C'est noelnadal qui va être content Trollface !
avatar
STV
Intéressé
Intéressé

Messages : 29
Points Concours : 90
Productivité : 0
Date d'inscription : 08/09/2015
Localisation : 92, France
Calculatrice(s) :
  • TI-82
  • TI-82 Stats
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Joyeux noel 2015 !!!

Message par Wistaro le Mar 29 Déc 2015 - 22:30

Joyeuses fêtes à tous et à toutes ! Smile

__________________________________________________________________________
Clique ici pour retrouver tout mes programmes en TIbasic

Tu es curieux, Invité? Alors clique ici:


Coucou Invité !Ta dernière visite sur ce forum date de . Tu as posté un total de 78 message(s) sur Tout 82 et enfin, tu as 0 ans.
Si nous sommes le 0, je te souhaite un joyeux anniversaire ;-)

avatar
Wistaro
Passioné
Passioné

Messages : 910
Points Concours : 86
Productivité : 28
Date d'inscription : 16/06/2013
Localisation : Tarbes - DUT GEII
Calculatrice(s) :
  • TI-82
  • TI-82 Stats
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur http://www.youtube.com/user/Wistaro

Revenir en haut Aller en bas

Re: Joyeux noel 2015 !!!

Message par clem130 le Mar 5 Jan 2016 - 10:01

Joyeux Noël (très en retard je sais) et Bonne année 2016
Sinon très bon programme m@thieu41

clem130
Nouveau Venu
Nouveau Venu

Messages : 1
Points Concours : 0
Productivité : 0
Date d'inscription : 04/12/2015

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Joyeux noel 2015 !!!

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum