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
Lun 19 Juin 2017 - 18:11 par Clément.7

» 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
Clément.7
 


Joyeux noel 2015 !!!

Poster un nouveau sujet   Répondre au sujet

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 : 92
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 : 904
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 pouvez répondre aux sujets dans ce forum