| Faites de la musique avec votre TI. |
| Auteur |
Message |
alexvire
Autorisation : Membre
Nb de messages : 230
Inscrit le : Dim 10 Mai 2009, 13:31
|
Posté le : Lun 05 Juil 2010, 16:11
|
|
 |
Bonjour, en m'inspirant d'un programme déjà existant, j'avais fais un programme en ASM permettant de produire des sons, le voilà: (Pour entendre les sons, voir ici.)
ZSOUND: (Ne faites pas d'erreurs !)
| Code | F306D078D300CD8E42213A803641CDEC4ECDFC4E43C5CD8E42213A803642CDEC4ECDFC4E63C1C53E
FFD300440010FD3EFCD300440010FDC110ECFBC9
End
0000
End |
Pour le faire fonctionner, entrez une valeur comprise entre 0 et 255 dans les variables A et B puis faites Envoi(9prgmZSOUND) pour produire un son. Biensûr vous pouvez créer un programme (A l'aide des boucles "For(" par exemple.) qui change les valeurs des variables tout en lançant le programme ASM. Les valeurs de A sont le tempo tandis que celles de B sont la sonorité. (Grave ou aigu.)
----------------------
Salut, visitez mon site:
Et mon forum !
Mes programmes.
Convertissez vos images en un programme à mettre sur votre TI. |
 |
  |
| |
Akmdad
Autorisation : Membre
Nb de messages : 713
Inscrit le : Mar 22 Jui 2010, 21:03
|
Posté le : Lun 05 Juil 2010, 17:53
|
|
|
bravo pour ton prog!
voici Piano, qui va avec!
a utiliser en tournant la calto écran a droite et les toutes les touches!
| Code |
100->A
Lbl 1
codetouche->C
C/10->C
partDéc(C)×2->D
partEnt(C)+D->C
C×10->C
C×2+20->B
If C>20
Envoi(9prgmZSOUND
Goto 1
|
----------------------
retrouvez moi sur twitter!!!
j'ai une ti 82 stats fr et une ti89 titanium  |
| |
|
| |
Akmdad
Autorisation : Membre
Nb de messages : 713
Inscrit le : Mar 22 Jui 2010, 21:03
|
Posté le : Mar 06 Juil 2010, 3:49
|
|
|
c'est génial l'ASM
----------------------
retrouvez moi sur twitter!!!
j'ai une ti 82 stats fr et une ti89 titanium |
| |
|
| |
Akmdad
Autorisation : Membre
Nb de messages : 713
Inscrit le : Mar 22 Jui 2010, 21:03
|
Posté le : Mar 06 Juil 2010, 16:40
|
|
|
pas de remerciements???
----------------------
retrouvez moi sur twitter!!!
j'ai une ti 82 stats fr et une ti89 titanium |
| |
|
| |
Rézus
Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35
|
Posté le : Mar 06 Juil 2010, 19:59
|
|
|
Je crois que personne n'a encore testé.
|
| |
|
| |
Akmdad
Autorisation : Membre
Nb de messages : 713
Inscrit le : Mar 22 Jui 2010, 21:03
|
Posté le : Mar 06 Juil 2010, 20:40
|
|
|
testez-le alors
----------------------
retrouvez moi sur twitter!!!
j'ai une ti 82 stats fr et une ti89 titanium |
| |
|
| |
Rézus
Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35
|
Posté le : Jeu 08 Juil 2010, 11:37
|
|
|
J'ai pas les écouteurs qui vont avec.
|
| |
|
| |
Akmdad
Autorisation : Membre
Nb de messages : 713
Inscrit le : Mar 22 Jui 2010, 21:03
|
Posté le : Jeu 08 Juil 2010, 11:48
|
|
|
moi non plus mais t'as une radio reglable am, fm?
----------------------
retrouvez moi sur twitter!!!
j'ai une ti 82 stats fr et une ti89 titanium |
| |
|
| |
Rézus
Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35
|
Posté le : Jeu 08 Juil 2010, 11:50
|
|
|
Oui mais la fréquence ne va que jusqu'à 160 en AM.
Et puis ici il faut brancher des écouteurs ou des hauts parleurs à la Ti
|
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
Akmdad
Autorisation : Membre
Nb de messages : 713
Inscrit le : Mar 22 Jui 2010, 21:03
|
Posté le : Jeu 08 Juil 2010, 11:53
|
|
|
faux, tu peux utiliser l'AM enfin si t'y arrive...moi sa marche a 702
----------------------
retrouvez moi sur twitter!!!
j'ai une ti 82 stats fr et une ti89 titanium |
| |
|
| |
Mégaforce22
Autorisation : Membre
Nb de messages : 11
Inscrit le : Mer 09 Nov 2011, 18:49
|
Posté le : Sam 19 Nov 2011, 19:21
|
|
|
j'ai les écouteurs mais j'attends d'être sur ordi(je suis sur téléphone là) pour télécharger l'ASM car c'est risqué à la main et que j'ai pas de backup à jour.
Edit: cela ne marche pas.
----------------------
"Alors Dieu voulut créer l'homme parfait. Puis il se rappela qu'il m'avait déjà créé." L'Évangile selon Saint-Moi,1,1. |
| |
|
| |
Sangohan38
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Sam 19 Nov 2011, 20:21
|
|
|
Double post, remontage de sujet ... Toi tu commence mal.
Sinon, essaye avec la radio en mode AM.
Sangohan38
|
| |
|
| |
charlesjean
Autorisation : Membre
Nb de messages : 32
Inscrit le : Lun 08 Oct 2012, 18:28
|
Posté le : Lun 05 Nov 2012, 18:49
|
|
|
je vous met tous au défi d' écrire une belle mélodie avec
ce prgm en mettant les numéros correspondant aux notes dans une liste(pas plus de 999 notes!)
| Code | dim(La->c
200->A
for(e,1,c
La(e)->b
Envoi(9prgmNOM DU PRGM
End |
(La=liste a)
----------------------
une journée sans rire est une journée perdue .
rire 30 minutes par jour rends la santé et augmente la durée de vie!
(ne remplace pas l'avis d'un spécialiste ou d'un professionnel de la santé,veuillez consulter un médecin) |
| |
|
| |
ld
Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
|
Posté le : Lun 05 Nov 2012, 19:05
|
|
|
Bravo pour ton prgm ! Excellent ! 
Pour ma part j'ai les écouteurs avec la prise Jack compatible.
Charlesjean je relève le défis de faire jouer Für Elise à cette calto !
----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie |
| |
|
| |
charlesjean
Autorisation : Membre
Nb de messages : 32
Inscrit le : Lun 08 Oct 2012, 18:28
|
Posté le : Lun 05 Nov 2012, 20:16
|
|
|
bonne idée,voici quelqu'un de courageux!
----------------------
une journée sans rire est une journée perdue .
rire 30 minutes par jour rends la santé et augmente la durée de vie!
(ne remplace pas l'avis d'un spécialiste ou d'un professionnel de la santé,veuillez consulter un médecin) |
| |
|
| |
ld
Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
|
Posté le : Mar 06 Nov 2012, 18:07
|
|
|
Charlejean ? 
Euh... L’intervalle entre deux valeurs de B ne semble pas proportionnel à la fréquence.
Si on imagine par exemple:
B=100 alors F=400Hz
alors la suite:
B=200 alors F=800HZ
n'est pas vrai.
De plus la durée des notes semble aussi se raccourcir en allant pour une même valeur de A.
Cà ne va pas être simple.
C'est normal tout çà ? 
Question qui n'a aucun rapport:
Comment fait'on sur ce forum pour mettre des liens vers ses programmes, de façon a ce que l'adresse n'apparaisse pas s'il vous plait ? Du genre cliquer "ici".
----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie |
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Mar 06 Nov 2012, 19:00
|
|
|
Il me semble probable que les fréquences soient générées par une division de la fréquence de la calculatrice par B+constante ou 2^B. (on effectuerait une temporisation entre deux impulsions de son)
[url=http]ici[*/url]
----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store |
| |
|
| |
ld
Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
|
Posté le : Mar 06 Nov 2012, 19:16
|
|
|
Non je ne pense pas que ce soit "B + constante"...
Pour l'autre c'est probable mais d'où sors-tu 2^B ? Comme çà ?? 
Merci pour [url=http]ici[/url] 
Tu as fait une erreur il y avait une étoile * en trop.
----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie |
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Mar 06 Nov 2012, 21:29
|
|
|
2^B parce qu'imbriquer des boucles ou utiliser de la récursivité permet de simuler un diviseur de fréquence.
En électronique logique on utilise des bascules Toggle synchrones en série, chaque bascule divisant la fréquence de l'horloge par 2. B bascules divisent par 2^B.
f=F/2^B
(ici je néglige la durée d'execution des instructions qui simuleraient le diviseur)
B+constante parce qu'une boucle peut temporiser de B cycles, et qu'il faut tenir compte des cycles d'execution de la boucle.
Cependant je me suis trompé en l'énonçant, ce serait f=1/(B+cst)
EDIT: il est encore plus simple d'incrémenter un/des registres/variables et de tester le bit B pour arriver à une division de fréquence par 2^B.
Ou bien les exeperts de l'assembleur on trouvé une autre méthode.
Dans tous les cas je manque d'expérience.
Cependant on peut chercher expérimentalement des notes.
L'étoile permettait d'être sûr que tu visses (verbe voir) le code source.
----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store |
| |
|
| |
ld
Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
|
Posté le : Mar 06 Nov 2012, 21:34
|
|
|
PARIS GAGNE !
https://tout82.pages-perso.free.fr/forum/sujet.php?message=48305#48305
----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie |
| |
|
| |
grmycaire
Autorisation : Membre
Nb de messages : 37
Inscrit le : Lun 21 Oct 2013, 22:12
|
Posté le : Ven 29 Nov 2013, 19:22
|
|
|
moi quand je fais Envoi(9prgmZSOUND il y a une erreur syntaxe.
|
| |
|
| |
m@thieu41
Autorisation : Membre
Nb de messages : 848
Inscrit le : Mer 18 Juil 2012, 18:44
|
Posté le : Ven 29 Nov 2013, 19:46
|
|
|
Bonjour,
As-tu bien mis le
à la fin de ZSOUND ?
Tu as bien une ti 82stats.fr?
----------------------
Pour vous aidez dans vos débuts (et même ensuite ^^) :
*Tuto Algo->Ti Basic (par Linkakro) : Traduisez vos algo (de type algobox) en prgm pour votre TI!
*Catalogue des emplacements et traductions (anglais/français) des fonctions sur la TI.
*Faites vos propres programmes de maths (par ash)
Et au fait: la politesse n'a jamais tué personne |
| |
|
| |
grmycaire
Autorisation : Membre
Nb de messages : 37
Inscrit le : Lun 21 Oct 2013, 22:12
|
Posté le : Ven 29 Nov 2013, 22:20
|
|
|
j'ai bien mis End:0000:End à la fin du prog et j'ai relus le programme 9*10^99 fois. je possede bien une ti 82 stats fr
|
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Sam 30 Nov 2013, 0:02
|
|
|
Ton problème est-il résolu depuis cette réponse ?
https://tout82.pages-perso.free.fr/forum/sujet.php?sujet=3961
----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store |
| |
|
| |
grmycaire
Autorisation : Membre
Nb de messages : 37
Inscrit le : Lun 21 Oct 2013, 22:12
|
Posté le : Sam 30 Nov 2013, 11:31
|
|
|
oui c'est bon.
|
| |
|
| |
joni
Invité
|
Posté le : Mer 18 Déc 2013, 16:25
|
|
|
bonjour,
voila: je ne m'y connais pas très bien en programmation et j'ai rentrer tous le programme comme il faut mais je ne sais pas comment l'utiliser
merci 
|
| |
|
| |
m@thieu41
Autorisation : Membre
Nb de messages : 848
Inscrit le : Mer 18 Juil 2012, 18:44
|
Posté le : Mer 18 Déc 2013, 19:43
|
|
|
Bonjour,
As tu essayé ça?
| Citer | | Pour le faire fonctionner, entrez une valeur comprise entre 0 et 255 dans les variables A et B puis faites Envoi(9prgmZSOUND) pour produire un son. Les valeurs de A sont le tempo tandis que celles de B sont la sonorité. (Grave ou aigu.) |
----------------------
Pour vous aidez dans vos débuts (et même ensuite ^^) :
*Tuto Algo->Ti Basic (par Linkakro) : Traduisez vos algo (de type algobox) en prgm pour votre TI!
*Catalogue des emplacements et traductions (anglais/français) des fonctions sur la TI.
*Faites vos propres programmes de maths (par ash)
Et au fait: la politesse n'a jamais tué personne |
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
R0cks1
Autorisation : Membre
Nb de messages : 18
Inscrit le : Mar 04 Nov 2014, 19:17
|
Posté le : Lun 15 Déc 2014, 21:31
|
|
|
| Citer : Akmdad | | moi non plus mais t'as une radio reglable am, fm? |
en fm c'est quelle fréquence ? pck j'ai pas la radio am moi 
----------------------
signature classique : Geek un jour , Geek toujours
mon blog : https://web.archive.org/web/20130314204331/http://duke-nukem14.skyrock.com/ |
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Lun 15 Déc 2014, 22:25
|
|
|
Aucune idée. Et l'article de alexvire (Alexy dans son forum) déjà mentionné indique AM, pas FM.
http://web.archive.org/web/20250517181442/https://espace-ti.e-monsite.com/pages/astuces/musique-sur-la-ti.html
Je ne suis même pas certain que les valeurs des signaux admettent l'approximation de Bessel d'ordre 0 qui est indispensable pour approcher une équivalence entre les deux.
p:porteuse, n:modulant, m:modulé
Amplification modulation (situation cos*cos) : um=un*up=(an*cos(wn*t))*(ap*cos(wp*t))
um=ap*an/2*(cos(wp-wn)+cos(wp+wn))
J'ai supposé les valeurs moyennes nulles pour faire plus joli.
Frequency modulation : um=ap*cos(wp*t+an*cos(wn*t))
Si an est négligeable, je ne me souviens plus exactement devant quoi, alors la FM est très proche de la modulation AM, même spectre
----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store |
| |
|
| |
ld
Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
|
Posté le : Mar 16 Déc 2014, 12:00
|
|
|
Voici les fréquences pour lesquels çà fonctionne
En AM, sur les ondes moyennes (MW) :
690, 920 et 1150 KHz.
Et une page pour jouer quelques notes :
https://tout82.pages-perso.free.fr/forum/sujet.php?sujet=3527
----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie |
| |
|
| |
R0cks1
Autorisation : Membre
Nb de messages : 18
Inscrit le : Mar 04 Nov 2014, 19:17
|
Posté le : Mar 16 Déc 2014, 16:22
|
|
|
| Citer : linkakro | Aucune idée. Et l'article de alexvire (Alexy dans son forum) déjà mentionné indique AM, pas FM.
http://web.archive.org/web/20250517181442/https://espace-ti.e-monsite.com/pages/astuces/musique-sur-la-ti.html
Je ne suis même pas certain que les valeurs des signaux admettent l'approximation de Bessel d'ordre 0 qui est indispensable pour approcher une équivalence entre les deux.
p:porteuse, n:modulant, m:modulé
Amplification modulation (situation cos*cos) : um=un*up=(an*cos(wn*t))*(ap*cos(wp*t))
um=ap*an/2*(cos(wp-wn)+cos(wp+wn))
J'ai supposé les valeurs moyennes nulles pour faire plus joli.
Frequency modulation : um=ap*cos(wp*t+an*cos(wn*t))
Si an est négligeable, je ne me souviens plus exactement devant quoi, alors la FM est très proche de la modulation AM, même spectre |
J'ai juste demandé si ça marchait en FM et si oui quelle fréquence c'était en général !
----------------------
signature classique : Geek un jour , Geek toujours
mon blog : https://web.archive.org/web/20130314204331/http://duke-nukem14.skyrock.com/ |
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Mar 16 Déc 2014, 16:38
|
|
|
T'inquiète ça m'amuse juste de réviser même si cela ne sert à rien.
Et merci ld pour la réponse.
----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store |
| |
|
| |
