π
<-
Chat plein-écran
[^]

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

:32ti73: :32ti73e: :32ti73e2: :32ti76f: :32ti80: :32ti81: :32ti82: :32ti82s: :32ti82sf: :32ti82sfn: :32ti83: :32ti83p: :32ti83pb: :32ti83pr: :32ti83pfr: :32ti83pse: :32ti84pfr: :32ti84p: :32ti84pse: :32ti85: :32ti86: :32tinsk84: :32tinsk84n: :32tinstpk84: :32tinstpk84n: :32ti83pce: :32ti82a:
En ligne

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

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

896089717284
Texas 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 18: DC (Deus ex Calculatorum)
Niveau 18: DC (Deus ex Calculatorum)
Prochain niv.: 62%
 
Messages: 27259
Images: 6338
Inscription: 25 Oct 2008, 00:00
Localisation: Aix-Marseille
Genre: Homme
Calculatrice(s):
Classe: Lycée
YouTube: critor3000
Twitter: critor2000
Facebook: critor.ti

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 3 invités

-
Rechercher
-
Sujets à la une
"NumWorks++": Challenge de modification matérielle pour rajouter une puce de mémoire Flash !
Offre TI-Planet/Jarrety pour avoir la TI-83 Premium CE avec son chargeur pour 79,79€ port inclus !
Offre TI-Planet/Jarrety pour avoir la TI-Nspire CX CAS à seulement 130€ TTC port inclus!
Jailbreake ta TI-Nspire avec Ndless et profite des meilleurs jeux et applications !
Transforme ta TI-Nspire CX en console Game Boy Advance!
12345
-
Donations/Premium
Pour plus de concours, de lots, de tests, nous aider à payer le serveur et les domaines...
PayPal : paiement en ligne sécurisé - secure online payments
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 
-
Stats.
191 utilisateurs:
>161 invités
>24 membres
>6 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)