π
<-
Chat plein-écran
[^]

Démo TI-Rover n°3 : danse - vidéo APMEP Nantes 2017

:32ti73: :32ti73e: :32ti73e2: :32ti76f: :32ti80: :32ti81: :32ti82: :32ti85: :32ti86: :32ti82s: :32ti82sf: :32ti82sfn: :32ti83: :32ti83p: :32ti83pb: :32ti83pr: :32ti83pfr: :32ti83pse: :32ti84p: :32ti84pse: :32ti84ppse: :32ti84pfr: :32ti84pcse: :32ti83pfrusb: :32ti82p: :32ti82a: :32ti84pce: :32ti83pce:

Démo TI-Rover n°3 : danse - vidéo APMEP Nantes 2017

Message non lude critor » 04 Nov 2017, 12:10

896089717284Texas Instruments diffuse sur son site un programme de démo pour son robot pilotable TI-Innovator Rover, pour calculatrices TI-83 Premium CE (ou TI-84 Plus CE) et TI-Nspire CX munies d'une interface TI-Innovator à insérer ici dans le robot.

Aux journées APMEP à Nantes et au congrès de l'UdPPC à Limoges, l'on pouvait tester ce programme avec une TI-83 Premium CE bleue fort bien assortie au TI-Innovator Rover.

Le programme comporte en fait 3 sous-programmes que l'on active alternativement en tapant :ns1: :ns2: ou :ns3: .

Regardons aujourd'hui le sous-programme n°3 dont une version simplifiée est reproduite ci-dessous :
Code: Tout sélectionner
{1041.74,928.09,1041.74,928.09,928.09,619.43,928.09,520.87}→L₁
{0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125}→L₂
{0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125}→L₃
{1041.74,1169.32,1238.85,1169.32,1238.85,1041.74,1169.32,1041.74,1169.32,928.09,1041.74,928.09,1041.74,826.83,1041.74}→L₄
{0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125}→L₅
{0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.125,0.625}→L₆
0.76→F
Send("CONNECT RV")
Send("SET RV FORWARD 2")
Send("SET RV BACKWARD 2")
Send("SET RV FORWARD 1")
Send("SET RV.COLOR 255 0 255")
For(I,1,3)
Send("SET RV.COLOR 102 255 102")
Send("SET RV LEFT 30")
Send("SET RV RIGHT 30")
Send("SET RV FORWARD 1")
Send("SET RV RIGHT 30")
Send("SET RV.COLOR 51 102 255")
For(A,1,dim(L₁))
  Send("SET SOUND TO eval(L₁(A)) eval(L₂(A)*F)")
  Wait L₂(A)*F+L₃(A)*F
End
Send("SET RV LEFT 180")
Send("SET RV.COLOR 255 0 255")
Send("SET RV LEFT 30")
Send("SET RV BACKWARD  1")
Send("SET RV LEFT 30")
Send("SET RV RIGHT 30")
Send("SET RV.COLOR 102 255 102")
For(A,1,dim(L₁))
  Send("SET SOUND TO eval(L₁(A)) eval(L₂(A)*F)")
  Wait L₂(A)*F+L₃(A)*F
End
Send("SET RV.COLOR 51 102 255")
Send("SET RV FORWARD 1")
Send("SET RV RIGHT 30")
Send("SET RV LEFT 30")
Send("SET RV RIGHT 30")
Send("SET RV LEFT 30")
For(A,1,dim(L₄))
  Send("SET SOUND TO eval(L₄(A)) eval(L₅(A)*F)")
  Wait L₅(A)*F+L₆(A)*F
End
Send("SET RV BACKWARD 1")
Send("SET RV.COLOR 102 255 102")
End
For(Q,1,2)
For(A,1,dim(L₁))
  Send("SET SOUND TO eval(L₁(A)) eval(L₂(A)*F)")
  Wait L₂(A)*F+L₃(A)*F
End
End
For(A,1,dim(L₄))
Send("SET SOUND TO eval(L₄(A)) eval(L₅(A)*F)")
Wait L₅(A)*F+L₆(A)*F
End
Send("SET RV LEFT 360)
Send("SET RV.COLOR 0 0 0")


Il s'agit en fait à la fois d'un programme de danse et de son et lumière, contenant plusieurs listes de fréquences et de durées, et déplaçant le robot tout en jouant ces sons sur le haut-parleur intégré au TI-Innovator et éclairant la diode RVB du robot sous différentes couleurs :


On peut toutefois regretter qu'avec l'interface TI-Innovator insérée dans le robot, les sons soient ici difficilement audibles sur un salon. En pratique, il faudra donc un public particulièrement calme et silencieux...



Téléchargements :
Crédits audio : https://www.nonstop2k.com
Image
Avatar de l’utilisateur
critorAdmin
Niveau 19: CU (Créateur Universel)
Niveau 19: CU (Créateur Universel)
Prochain niv.: 41.8%
 
Messages: 41465
Images: 14479
Inscription: 25 Oct 2008, 00:00
Localisation: Montpellier
Genre: Homme
Calculatrice(s):
MyCalcs profile
YouTube: critor3000
Twitter/X: critor2000
GitHub: critor

Retourner vers News TI-z80 (TI-73, 76, 80, 81, 82, 83, 84, 85, 86)

Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 82 invités

-
Rechercher
-
Social TI-Planet
-
Sujets à la une
Comparaisons des meilleurs prix pour acheter sa calculatrice !
Aidez la communauté à documenter les révisions matérielles en listant vos calculatrices graphiques !
Phi NumWorks jailbreak
123
-
Faire un don / Premium
Pour plus de concours, de lots, de tests, nous aider à payer le serveur et les domaines...
Faire un don
Découvrez les avantages d'un compte donateur !
JoinRejoignez the donors and/or premium!les donateurs et/ou premium !


Partenaires et pub
Notre partenaire Jarrety Calculatrices à acheter chez Calcuso
-
Stats.
1967 utilisateurs:
>1944 invités
>18 membres
>5 robots
Record simultané (sur 6 mois):
6892 utilisateurs (le 07/06/2017)
-
Autres sites intéressants
Texas Instruments Education
Global | France
 (English / Français)
Banque de programmes TI
ticalc.org
 (English)
La communauté TI-82
tout82.free.fr
 (Français)