|
|
Partie du
programme correspondante
Retour
accords
La
variable g au début est le nombre de quatre
chiffres prit et défini dans la liste, la
variable d est la partie entière servant à la
première note formant l’accord, la variable n a
déjà été définie, et la variable m est
l’addition de n et du nombre de demis tons
associés à d. Pour les variables du deuxième
groupe d’instructions, elles ont les mêmes
fonctions, mais pas les mêmes noms. Mais vous
pouvez sûrement retrouver leur fonction ...
Cette partie du programme contient les deux
blocs qui servent à construire les accords : il
y en a un pour chaque note des accords (excepté
pour la note fondamentale).
: g/100-c»x
:
:
: partEnt(x*10)»d
:
: If d=0 Then
: Text "Rien..."
: Goto c
: ElseIf d=1 Then
: n+2»m
: Goto b
: ElseIf d=2
Then
: n+4»m
: Goto b
: ElseIf d=3 Then
: n+5»m
: Goto b
: ElseIf d=4 Then
: n+7»m
: Goto b
: ElseIf d=5 Then
: n+9»m
: Goto b
: ElseIf d=6 Then
: n+11»m
: Goto b
: ElseIf d=7 Then
: n+12»m
: Goto b
: ElseIf d=8 Then
: n+14»m
: Goto b
: Else
: n+16»m
: Goto b
: EndIf
:
: Lbl b
: mod(m,12)»m
:
: If m=0 Then
: Text "do"
: ElseIf m=1 Then
: Text "do diese"
: ElseIf m=2 Then
: Text "re"
: ElseIf m=3 Then
: Text "re diese"
: ElseIf m=4 Then
: Text "mi"
: ElseIf m=5 Then
: Text "fa"
: ElseIf m=6 Then
: Text "fa diese"
: ElseIf m=7 Then
: Text "sol"
: ElseIf m=8 Then
: Text "sol diese"
: ElseIf m=9 Then
: Text "la"
: ElseIf m=10 Then
: Text "la diese"
: Else
: Text "si"
: EndIf
:
: Lbl c
: x*10-d»x
: partEnt(x*10)»u
:
: If u=0 Then
: Text "Rien..."
: Goto aa
: ElseIf u=1 Then
: n+2»p
: Goto r
: ElseIf u=2 Then
: n+4»p
: Goto r
: ElseIf u=3 Then
: n+5»p
: Goto r
: ElseIf u=4 Then
: n+7»p
: Goto r
: ElseIf u=5 Then
: n+9»p
: Goto r
: ElseIf u=6 Then
: n+11»p
: Goto r
: ElseIf u=7 Then
: n+12»p
: Goto r
: ElseIf u=8 Then
: n+14»p
: Goto r
: Else
: n+16»p
: Goto r
: EndIf
:
: Lbl r
: reste(p,12)»p
:
: If p=0 Then
: Text "do"
: ElseIf p=1 Then
: Text "do diese"
: ElseIf p=2 Then
: Text "re"
: ElseIf p=3 Then
: Text "re diese"
: ElseIf p=4 Then
: Text "mi"
: ElseIf p=5 Then
: Text "fa"
: ElseIf p=6 Then
: Text "fa diese"
: ElseIf p=7 Then
: Text "sol"
: ElseIf p=8 Then
: Text "sol diese"
: ElseIf p=9 Then
: Text "la"
: ElseIf p=10 Then
: Text "la diese"
: Else
: Text "si"
: EndIf
Retour aux accords
|
|
