Vos identifiants
Bienvenue
Voir tous les scripts
Pour mirc 6.1 et moins
Pour mirc 6.2
Pour mirc 6.3
Pour mirc 7.1
Top 10
Vous aimez ou détestez
Soumettre un script
Foire aux questions
Forum de discussion



Les bases du Scripting
Le virus "irc.worm.gen"
Le mIRC D'Or
ScreenShots
Le Défi du moment
Tag-moi-ça
Le Pire de l'IRC
L'IRC pour les nuls
Tutoriaux
Configurer UnrealIRCD
Configurer votre box
Attention à l'arnaque!
Usenet et les News
Arrêter de fumer
Un peu d'orthographe
Unreal/Anope Admin
mIRC Script Server
Proxy Web Chat
Magneto for Unreal
Super Poupées
Tour de cartes
L'Equipe
Partenariat
Administration

CodesWall: Déposer et coloriser des codes sources
Web Of Trust
www.chat.exolia.net (Francophone)
fantasya.org (Francophone)
hiersay (francophone)
JhdScript

                                            

$gamme et $arpege
Auteur(s): DixrouE
Date de soumission (Heure française): 13 janvier 2005 (04:58)
Taille du fichier: 1.1 Ko  
Type du fichier: snippet  
Déjà visualisé: 2390 fois
Poster un commentaire
Retourne la gamme ou l'arpege de la note spécifié (69.70.178.***)


;$gamme(note) et $arpege(note)
;Les notes dièses s'écrivent note#, ex: do#

alias gamme {
;Énumération de toute les notes et intiliasation des variables
  var %a = do.do#.ré.ré#.mi.fa.fa#.sol.sol#.la.la#.si, %b = $findtok(%a,$1,1,46), %c = 1, %d = %b, %e
  if (!%b) return Note invalide!
  else {
    while (%c < 9) {
      if (%b > 12) %b = %b - 12 | %e = $+(%e,-,$gettok(%a,%b,46))
;On incrémene la variable selon la "règle" des gammes
      inc %b $gettok(2.2.1.2.2.2.1.2,%c,46)
;On incrémente la variable
      inc %c
    }
;Retourne la gamme correspondant
    return $right(%e,-1)
  }
}
alias arpege {
;Énumération de toute les notes et intiliasation des variables
  var %a = do.do#.ré.ré#.mi.fa.fa#.sol.sol#.la.la#.si, %b = $findtok(%a,$1,1,46), %c = 1, %d = %b, %e
  if (!%b) return Note invalide!
  else {
    while (%c < 5) {
      if (%b > 12) %b = %b - 12 | %e = $+(%e,-,$gettok(%a,%b,46))
;On incrémente la variable selon la "règle" des arpege
      if (%c == 1) inc %b 4 | if (%c == 2) inc %b 3 | if (%c == 3) inc %b 5
;On incrémente la variable
      inc %c
    }
;Retourne l'arpege correspondant
    return $right(%e,-1)
  }
}

Retour à la liste des snippets

Si vous le souhaitez, vous pouvez laisser votre commentaire sur ce snippet:  
Vous identifier d'abord
 

Cette annonce est-elle crédible? Cliquez ici pour le savoir