Tout 82
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
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
Joyeux noel 2015 !!! EmptyDim 16 Oct 2022 - 21:11 par Wistaro

» Bonne année 2018!
Joyeux noel 2015 !!! EmptyVen 2 Nov 2018 - 19:42 par Ti64CLi++

» Lancement du TI-Concours 2017 !
Joyeux noel 2015 !!! EmptySam 20 Mai 2017 - 0:27 par Paulo1026

» Chaînes Youtube des membres
Joyeux noel 2015 !!! EmptyVen 19 Mai 2017 - 22:41 par Wistaro

» cacul du taux d'intêret
Joyeux noel 2015 !!! EmptyVen 24 Mar 2017 - 21:50 par m@thieu41

» [Projet] Un mario by tout82
Joyeux noel 2015 !!! EmptyDim 29 Jan 2017 - 14:09 par Wistaro

» Cherche documentation assembleur TI82stat
Joyeux noel 2015 !!! EmptyMer 25 Jan 2017 - 12:29 par Ti64CLi++

» Probleme Ti-82 Stats fr
Joyeux noel 2015 !!! EmptyJeu 12 Jan 2017 - 13:56 par Ti64CLi++

» ROM 82 stats.fr
Joyeux noel 2015 !!! EmptyJeu 15 Déc 2016 - 10:24 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
Aucun utilisateur

-50%
Le deal à ne pas rater :
-50% Baskets Nike Air Huarache
64.99 € 129.99 €
Voir le deal

Joyeux noel 2015 !!!

+2
Mingerton
m@thieu41
6 participants

Aller en bas

Joyeux noel 2015 !!! Empty Joyeux noel 2015 !!!

Message par m@thieu41 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

Joyeux noel 2015 !!! FZC6

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
m@thieu41
m@thieu41
----------------------
----------------------

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

. : TI-82 Stats.fr

Revenir en haut Aller en bas

Joyeux noel 2015 !!! Empty Re: Joyeux noel 2015 !!!

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

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

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

Revenir en haut Aller en bas

Joyeux noel 2015 !!! Empty Re: Joyeux noel 2015 !!!

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

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

Messages : 102
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

http://www.tout82.org/

Revenir en haut Aller en bas

Joyeux noel 2015 !!! Empty Re: Joyeux noel 2015 !!!

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

Cool ! Very Happy
C'est noelnadal qui va être content Trollface !
STV
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

Revenir en haut Aller en bas

Joyeux noel 2015 !!! Empty Re: Joyeux noel 2015 !!!

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

Joyeuses fêtes à tous et à toutes ! Smile
Wistaro
Wistaro
Passioné
Passioné

Messages : 918
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

https://www.youtube.com/user/Wistaro

Revenir en haut Aller en bas

Joyeux noel 2015 !!! Empty Re: Joyeux noel 2015 !!!

Message par clem130 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

Revenir en haut Aller en bas

Joyeux noel 2015 !!! Empty Re: Joyeux noel 2015 !!!

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

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