Fréquence MIDI

Invité

Salut à tous !

J'ai ici une programme qu'on écrit la fréquence du son et ont choisi la note ;

Code:: label nombre,start
label do,re,fa,sol,la,mi,si,do2

midi_on

caption 0,"Fréquence de Musique MIDI"

scroll_bar 1
top 1,5
left 1,10
width 1,100
vertical 1
min 1,1:max 1,127
position 1,50
on_change 1,nombre

alpha 2
left 2,35
top 2,20
caption 2,"Volume : 50"

button 3
left 3,35
width 3,50
top 3,50
caption 3,"Play"
on_click 3,start

alpha 4
left 4,120
top 4,30
caption 4,"Fréquence :"

edit 5
left 5,125
width 5,80
font_size 5,10
top 5,55
text 5,"4"

alpha 7
left 7,105
top 7,57
font_size 7,10
caption 7,"60"

alpha 9
left 9,120
top 9,58
caption 9,","

button 6
top 6,20
left 6,220
width 6,30
height 6,70
caption 6,"DO"
on_click 6,do

button 8
top 8,20
left 8,255
width 8,30
height 8,70
caption 8,"RÉ"
on_click 8,re

button 10
top 10,20
left 10,290
width 10,30
height 10,70
caption 10,"MI"
on_click 10,mi

button 11
top 11,20
left 11,325
width 11,30
height 11,70
caption 11,"FA"
on_click 11,fa

button 12
top 12,20
left 12,360
width 12,30
height 12,70
caption 12,"SOL"
on_click 12,sol

button 13
top 13,20
left 13,395
width 13,30
height 13,70
caption 13,"LA"
on_click 13,la

button 14
top 14,20
left 14,430
width 14,30
height 14,70
caption 14,"SI"
on_click 14,si

button 15
top 15,20
left 15,465
width 15,30
height 15,70
caption 15,"DO"
on_click 15,do2

height 0,150:width 0,520

end

nombre:
caption 2,"Volume : "+str$(position(1))
midi_volume position(1)
return

start:
if val(text$(5))<1 or val(text$(5))>11
message "Le chiffre ne peut pas être plus grand que 11 ou plus petit que 1":text 5,"4":return
else
midi_play caption$(7),text$(5)
end_if
return

do:
caption 7,"60"
return

re:
caption 7,"62"
return

mi:
caption 7,"64"
return

fa:
caption 7,"65"
return

sol:
caption 7,"67"
return

la:
caption 7,"69"
return

si:
caption 7,"71"
return

do2:
caption 7,"72"
return

Sujet: re Jeu 26 Nov 2009 - 19:45

salut Nicolas

Essaye de remplacer cette partie de code pour ton scroll_bar et essaye le

Code:: nombre:
caption 2,"Volume : "+str$(128-position(1))
midi_volume 128-position(1)
return

quand pense tu?
@+

Sujet: Re: Fréquence MIDI Jeu 26 Nov 2009 - 20:16

Nicolas, il a pas l'air, mais il a des idées.

Une petite remarque, ton SCROLL_BAR pour le volume est inversé, Dans un ampli (ou sur une table de mixage) le curseur de volume commence en bas (son mimimum) pour finir en haut (son maximum).

Bravo, tout de même, car je vois que tu touches à tous, et il semble que tu assimiles à la vitesse Grand V.

A+

Invité

Ouais ! Georges il est bien ton petit bout de code. Je l'ai essayer et je garde le code mais avec le petit bout de code que tu m'as donné.

Invité

Salut à tous !

Dans le code suivant j'ai mis un mode 2 (piano) et un mode3 (Automatique) qui est un clavier de piano que en ce servant des touches F1,F2,F3,F4,F5,F6,F7 et F8 colore la touche en noir. Ce mode s'active en cliquant sur ajuster. Dans le programme suivant il y a des lettres pour dire la touches enfoncer et la fréquence de la touches enfoncer. Les touches de raccourci sont les suivante : F1,F2,F3,F4,F5,F6,F7,F8,P et J. Il y a un petit problême c'est qu'ont ne peut pas faire on_key_up N,L ou on_key_down N,L a des barres.

Voici le programme :

Code:: label nombre,start,ChangeNote,nombre2,suit,ChangeNote2
label do,re,fa,sol,la,mi,si,do2,volume:dim piano,is_pratique
label do3,re2,fa2,sol2,la2,mi2,si2,do4,ajuster,effacer

midi_on
piano=0
is_pratique=0

caption 0,"Fréquence de Musique MIDI - Volume : 127":on_key_up 0,suit

scroll_bar 1
top 1,5
left 1,10
width 1,100
vertical 1
min 1,1:max 1,127
on_change 1,nombre

alpha 2
left 2,35
top 2,20
caption 2,"Volume : 127"

button 3
left 3,35
width 3,50
top 3,50
caption 3,"Play"
hint 3,"PLAY : P"
on_click 3,start
on_key_up 3,suit

alpha 4
left 4,120
top 4,30
caption 4,"Fréquence :"

edit 5
left 5,125
width 5,80
font_size 5,10
top 5,55
text 5,"4"
hint 5,"Entrer Un Chiffre Entre 1 Et 11"
on_key_up 5,suit

alpha 7
left 7,105
top 7,57
font_size 7,10
hint 7,"Note"
caption 7,"60"

alpha 9
left 9,120
top 9,58
caption 9,","

button 6
top 6,20
left 6,220
width 6,30
height 6,70
caption 6,"DO"
hint 6,"DO : F1"
on_click 6,do
on_key_up 6,suit

button 8
top 8,20
left 8,255
width 8,30
height 8,70
caption 8,"RÉ"
hint 8,"RÉ : F2"
on_click 8,re
on_key_up 8,suit

button 10
top 10,20
left 10,290
width 10,30
height 10,70
caption 10,"MI"
hint 10,"MI : F3"
on_click 10,mi
on_key_up 10,suit

button 11
top 11,20
left 11,325
width 11,30
height 11,70
caption 11,"FA"
hint 11,"FA : F4"
on_click 11,fa
on_key_up 11,suit

button 12
top 12,20
left 12,360
width 12,30
height 12,70
caption 12,"SOL"
hint 12,"SOL : F5"
on_click 12,sol
on_key_up 12,suit

button 13
top 13,20
left 13,395
width 13,30
height 13,70
caption 13,"LA"
hint 13,"LA : F6"
on_click 13,la
on_key_up 13,suit

button 14
top 14,20
left 14,430
width 14,30
height 14,70
caption 14,"SI"
hint 14,"SI : F7"
on_click 14,si
on_key_up 14,suit

button 15
top 15,20
left 15,465
width 15,30
height 15,70
caption 15,"DO"
hint 15,"deuxième DO : F8"
on_click 15,do2
on_key_up 15,suit

button 16
top 16,90
left 16,60
width 16,150
height 16,21
caption 16,"Jouer la Note si Clic dessus"
hint 16,"Jouer la Note si Clic dessus : J"
on_click 16,ChangeNote
on_key_up 16,suit

alpha 17
left 17,230
top 17,95
caption 17,"Touche Enfoncée :"

button 18
top 18,92
left 18,395
width 18,100
height 18,21
caption 18,"Ajuster le Volume..."
on_click 18,volume
on_key_up 18,suit

alpha 19
left 19,250
top 19,2

alpha 20
left 20,400
top 20,2
caption 20,"| Ajuster..."
on_click 20,ajuster

height 0,150:width 0,520

rem invisibles ----------------------------------------------

alpha 30
hide 30
left 30,105
top 30,5
font_size 30,10
caption 30,"Servez-Vous des touches : F1,F2,F3,F4,F5,F6,F7 et F8"

alpha 31
hide 31
left 31,90
top 31,135
font_size 31,10
font_bold 31
caption 31,"DO RÉ MI FA SOL LA SI DO"

picture 29
hide 29
left 29,79
width 29,317
height 29,102
top 29,29
color 29,100,0,200

picture 21
hide 21
left 21,80
top 21,30
width 21,35
height 21,100

picture 22
hide 22
left 22,120
top 22,30
width 22,35
height 22,100

picture 23
hide 23
left 23,160
top 23,30
width 23,35
height 23,100

picture 24
hide 24
left 24,200
top 24,30
width 24,35
height 24,100

picture 25
hide 25
left 25,240
top 25,30
width 25,35
height 25,100

picture 26
hide 26
left 26,280
top 26,30
width 26,35
height 26,100

picture 27
hide 27
left 27,320
top 27,30
width 27,35
height 27,100

picture 28
hide 28
left 28,360
top 28,30
width 28,35
height 28,100

button 32
hide 32
left 32,407
width 32,100
top 32,107
height 32,21
caption 32,"Effacer"
on_click 32,effacer
on_key_up 32,suit

end

' Touches de raccourcis--------------------------------------

suit:
if key_up_code=112 then goto do3
if key_up_code=113 then goto re2
if key_up_code=114 then goto mi2
if key_up_code=115 then goto fa2
if key_up_code=116 then goto sol2
if key_up_code=117 then goto la2
if key_up_code=118 then goto si2
if key_up_code=119 then goto do4

if key_up_code=80 then goto start
if key_up_code=74 then goto ChangeNote
if key_up_code=86 then goto volume
return

' Autres --------------------------------------

nombre:
caption 2,"Volume : "+str$(128-position(1))
midi_volume 128-position(1)
caption 0,"Fréquence de Musique MIDI - Volume : "+str$(128-position(1))
return

nombre2:
caption 2,"Volume : "+str$(128-position(1))
midi_volume 128-position(1)
caption 0,"Mode2 - Piano - Volume : "+str$(128-position(1))
return

start:
if val(text$(5))<1 or val(text$(5))>11
beep:message "Le chiffre ne peut pas être plus grand que 11 ou plus petit que 1":text 5,"4":return
else
midi_play caption$(7),text$(5)
end_if
return

do:
caption 7,"60"
caption 17,"Touche Enfoncée : DO"
wait 800
caption 17,"Touche Enfoncée :"
return

re:
caption 7,"62"
caption 17,"Touche Enfoncée : RÉ"
wait 800
caption 17,"Touche Enfoncée :"
return

mi:
caption 7,"64"
caption 17,"Touche Enfoncée : MI"
wait 800
caption 17,"Touche Enfoncée :"
return

fa:
caption 7,"65"
caption 17,"Touche Enfoncée : FA"
wait 800
caption 17,"Touche Enfoncée :"
return

sol:
caption 7,"67"
caption 17,"Touche Enfoncée : SOL"
wait 800
caption 17,"Touche Enfoncée :"
return

la:
caption 7,"69"
caption 17,"Touche Enfoncée : LA"
wait 800
caption 17,"Touche Enfoncée :"
return

si:
caption 7,"71"
caption 17,"Touche Enfoncée : SI"
wait 800
caption 17,"Touche Enfoncée :"
return

do2:
caption 7,"72"
caption 17,"Touche Enfoncée : deuxième DO"
wait 800
caption 17,"Touche Enfoncée :"
return

ChangeNote:
if val(text$(5))<1 or val(text$(5))>11
beep:message "Le chiffre ne peut pas être plus grand que 11 ou plus petit que 1":text 5,"4":return
else
goto ChangeNote2
end_if
ChangeNote2:
if (piano=0)
caption 0,"Mode2 - Piano - Volume : "+str$(128-position(1))
on_click 6,do3:inactive 3
on_click 8,re2:inactive 4
on_click 10,mi2:inactive 5
on_click 11,fa2:inactive 9
on_click 12,sol2:inactive 7
on_click 13,la2:on_change 1,nombre2
on_click 14,si2
on_click 15,do4
piano=1
else
on_click 6,do:active 3
on_click 8,re:active 4
on_click 10,mi:active 5
on_click 11,fa:active 9
on_click 12,sol:active 7
on_click 13,la:on_change 1,nombre
on_click 14,si
on_click 15,do2
caption 0,"Fréquence de Musique MIDI - Volume : "+str$(128-position(1))
piano=0
end_if
return

do3:
caption 17,"Touche Enfoncée : DO":color 21,0,0,0
caption 19,"DO - Fréquence : "+caption$(7)+","+text$(5)
midi_play 60,text$(5)
wait 500
caption 17,"Touche Enfoncée :":color 21,255,255,255
return

re2:
caption 17,"Touche Enfoncée : RÉ":color 22,0,0,0
caption 19,"RÉ - Fréquence : "+caption$(7)+","+text$(5)
midi_play 62,text$(5)
wait 500
caption 17,"Touche Enfoncée :":color 22,255,255,255
return

mi2:
caption 17,"Touche Enfoncée : MI":color 23,0,0,0
caption 19,"MI - Fréquence : "+caption$(7)+","+text$(5)
midi_play 64,text$(5)
wait 500
caption 17,"Touche Enfoncée :":color 23,255,255,255
return

fa2:
caption 17,"Touche Enfoncée : FA":color 24,0,0,0
caption 19,"FA - Fréquence : "+caption$(7)+","+text$(5)
midi_play 65,text$(5)
wait 500
caption 17,"Touche Enfoncée :":color 24,255,255,255
return

sol2:
caption 17,"Touche Enfoncée : SOL":color 25,0,0,0
caption 19,"SOL - Fréquence : "+caption$(7)+","+text$(5)
midi_play 67,text$(5)
wait 500
caption 17,"Touche Enfoncée :":color 25,255,255,255
return

la2:
caption 17,"Touche Enfoncée : LA":color 26,0,0,0
caption 19,"LA - Fréquence : "+caption$(7)+","+text$(5)
midi_play 69,text$(5)
wait 500
caption 17,"Touche Enfoncée :":color 26,255,255,255
return

si2:
caption 17,"Touche Enfoncée : SI":color 27,0,0,0
caption 19,"SI - Fréquence : "+caption$(7)+","+text$(5)
midi_play 71,text$(5)
wait 500
caption 17,"Touche Enfoncée :":color 27,255,255,255
return

do4:
caption 17,"Touche Enfoncée : deuxième DO":color 28,0,0,0
caption 19,"DO - Fréquence : "+caption$(7)+","+text$(5)
midi_play 72,text$(5)
wait 500
caption 17,"Touche Enfoncée :":color 28,255,255,255
return

' ajustement du volume --------------------------

volume:
execute "sndvol32.exe"
return

ajuster:
if (is_pratique=0)
font_color 20,255,0,0
wait 500
font_color 20,0,0,0:caption 20,"| Retour..."
height 0,190:top 18,132:height 1,140:top 2,10
hide 3:hide 5:hide 9:left 18,407:show 24
hide 4:hide 7:hide 6:left 20,430:show 23
hide 8:hide 10:hide 11:show 30:show 31
hide 12:hide 13:hide 14:hide 15:show 29
hide 17:hide 16:hide 19:show 21:show 22
show 25:show 26:show 27:show 28:show 32
color 21,255,255,255:color 22,255,255,255:color 23,255,255,255
color 24,255,255,255:color 25,255,255,255:color 26,255,255,255
color 27,255,255,255:color 28,255,255,255
is_pratique=1
else
font_color 20,255,0,0
wait 500
font_color 20,0,0,0:caption 20,"| Ajuster..."
show 3:show 5:show 9:left 18,407:show 4:show 7:show 6:left 20,400
show 8:show 10:show 11:hide 29:hide 30:hide 31
show 12:show 13:show 14:show 15:hide 28
show 17:show 16:show 19:hide 26:hide 27
hide 21:hide 22:hide 25:hide 24:hide 23:hide 32
top 18,92:height 1,100:top 2,20:height 0,150
is_pratique=0
end_if
return

effacer:
color 21,255,255,255:color 22,255,255,255:color 23,255,255,255
color 24,255,255,255:color 25,255,255,255:color 26,255,255,255
color 27,255,255,255:color 28,255,255,255
return

Sujet: Re: Fréquence MIDI Dim 29 Nov 2009 - 10:54

Bravo Nicolas,

un bel exemple de ce que l'on peut faire avec KEY_UP_CODE en utilisant l'outil scancode. Tu iras loin

A+

Invité

Il y a un défaut à mon programme c'est que dans le mode3 (automatique) si on enfonce plus d'une touches à la fois elle reste noir c'est pour ça le bouton "Effacer"

Sujet: Re: Fréquence MIDI Dim 29 Nov 2009 - 16:11

Si tu remplaçes COLOR N,255,255,255 aux LABEL(S) do3,re2,mi2,fa2,sol2,la2,si2,do4 par GOSUB effacer, çà marche.

Invité

Ouais ! Là ça marche mieux Jean Claude

Invité

Voici la mise à jour la plus récente :

Code:: label nombre,start,ChangeNote,nombre2,suit,ChangeNote2,choisir,jouer
label do,re,fa,sol,la,mi,si,do2,volume:dim piano,is_pratique,a$,b$
label do3,re2,fa2,sol2,la2,mi2,si2,do4,ajuster,effacer,verif,deux,fermer

midi_on
piano=0
is_pratique=0

caption 0,"Fréquence de Musique MIDI - Volume : 127":on_key_up 0,suit

scroll_bar 1
top 1,5
left 1,10
width 1,100
vertical 1
min 1,1:max 1,127
on_change 1,nombre

alpha 2
left 2,35
top 2,20
caption 2,"Volume : 127"

button 3
left 3,35
width 3,50
top 3,50
caption 3,"Play"
hint 3,"PLAY : P"
on_click 3,start
on_key_up 3,suit

alpha 4
left 4,120
top 4,30
caption 4,"Fréquence :"

edit 5
left 5,125
width 5,80
font_size 5,10
top 5,55
text 5,"4"
hint 5,"Entrer Un Chiffre Entre 1 Et 11"
on_key_up 5,suit

alpha 7
left 7,105
top 7,57
font_size 7,10
hint 7,"Note"
caption 7,"60"

alpha 9
left 9,120
top 9,58
caption 9,","

button 6
top 6,20
left 6,220
width 6,30
height 6,70
caption 6,"DO"
hint 6,"DO : F1"
on_click 6,do
on_key_up 6,suit

button 8
top 8,20
left 8,255
width 8,30
height 8,70
caption 8,"RÉ"
hint 8,"RÉ : F2"
on_click 8,re
on_key_up 8,suit

button 10
top 10,20
left 10,290
width 10,30
height 10,70
caption 10,"MI"
hint 10,"MI : F3"
on_click 10,mi
on_key_up 10,suit

button 11
top 11,20
left 11,325
width 11,30
height 11,70
caption 11,"FA"
hint 11,"FA : F4"
on_click 11,fa
on_key_up 11,suit

button 12
top 12,20
left 12,360
width 12,30
height 12,70
caption 12,"SOL"
hint 12,"SOL : F5"
on_click 12,sol
on_key_up 12,suit

button 13
top 13,20
left 13,395
width 13,30
height 13,70
caption 13,"LA"
hint 13,"LA : F6"
on_click 13,la
on_key_up 13,suit

button 14
top 14,20
left 14,430
width 14,30
height 14,70
caption 14,"SI"
hint 14,"SI : F7"
on_click 14,si
on_key_up 14,suit

button 15
top 15,20
left 15,465
width 15,30
height 15,70
caption 15,"DO"
hint 15,"deuxième DO : F8"
on_click 15,do2
on_key_up 15,suit

button 16
top 16,90
left 16,60
width 16,150
height 16,21
caption 16,"Jouer la Note si Clic dessus"
hint 16,"Jouer la Note si Clic dessus : J"
on_click 16,ChangeNote
on_key_up 16,suit

alpha 17
left 17,230
top 17,95
caption 17,"Touche Enfoncée :"

button 18
top 18,92
left 18,395
width 18,100
height 18,21
caption 18,"Ajuster le Volume..."
on_click 18,volume
on_key_up 18,suit

alpha 19
left 19,225
top 19,2

alpha 20
left 20,400
top 20,2
caption 20,"| Ajuster..."
on_click 20,ajuster

alpha 33
left 33,345
top 33,2
caption 33,"| Choisir..."
font_color 33,0,0,255
on_click 33,choisir

height 0,150:width 0,520

rem invisibles ----------------------------------------------

alpha 30
hide 30
left 30,105
top 30,5
font_size 30,10
caption 30,"Servez-Vous des touches : F1,F2,F3,F4,F5,F6,F7 et F8"

alpha 31
hide 31
left 31,90
top 31,135
font_size 31,10
font_bold 31
caption 31,"DO RÉ MI FA SOL LA SI DO"

picture 29
hide 29
left 29,79
width 29,317
height 29,102
top 29,29
color 29,100,0,200

picture 21
hide 21
left 21,80
top 21,30
width 21,35
height 21,100

picture 22
hide 22
left 22,120
top 22,30
width 22,35
height 22,100

picture 23
hide 23
left 23,160
top 23,30
width 23,35
height 23,100

picture 24
hide 24
left 24,200
top 24,30
width 24,35
height 24,100

picture 25
hide 25
left 25,240
top 25,30
width 25,35
height 25,100

picture 26
hide 26
left 26,280
top 26,30
width 26,35
height 26,100

picture 27
hide 27
left 27,320
top 27,30
width 27,35
height 27,100

picture 28
hide 28
left 28,360
top 28,30
width 28,35
height 28,100

button 32
hide 32
left 32,407
width 32,100
top 32,107
height 32,21
caption 32,"Effacer"
on_click 32,effacer
on_key_up 32,suit

end

' Touches de raccourcis--------------------------------------

suit:
if key_up_code=112 then goto do3
if key_up_code=113 then goto re2
if key_up_code=114 then goto mi2
if key_up_code=115 then goto fa2
if key_up_code=116 then goto sol2
if key_up_code=117 then goto la2
if key_up_code=118 then goto si2
if key_up_code=119 then goto do4

if key_up_code=80 then goto start
if key_up_code=74 then goto ChangeNote
if key_up_code=86 then goto volume
return

' Autres --------------------------------------

nombre:
caption 2,"Volume : "+str$(128-position(1))
midi_volume 128-position(1)
caption 0,"Fréquence de Musique MIDI - Volume : "+str$(128-position(1))
return

nombre2:
caption 2,"Volume : "+str$(128-position(1))
midi_volume 128-position(1)
caption 0,"Mode2 - Piano - Volume : "+str$(128-position(1))
return

start:
if val(text$(5))<1 or val(text$(5))>11
beep:message "Le chiffre ne peut pas être plus grand que 11 ou plus petit que 1":text 5,"4":return
else
midi_play caption$(7),text$(5)
end_if
return

do:
caption 7,"60"
caption 17,"Touche Enfoncée : DO"
wait 800
caption 17,"Touche Enfoncée :"
return

re:
caption 7,"62"
caption 17,"Touche Enfoncée : RÉ"
wait 800
caption 17,"Touche Enfoncée :"
return

mi:
caption 7,"64"
caption 17,"Touche Enfoncée : MI"
wait 800
caption 17,"Touche Enfoncée :"
return

fa:
caption 7,"65"
caption 17,"Touche Enfoncée : FA"
wait 800
caption 17,"Touche Enfoncée :"
return

sol:
caption 7,"67"
caption 17,"Touche Enfoncée : SOL"
wait 800
caption 17,"Touche Enfoncée :"
return

la:
caption 7,"69"
caption 17,"Touche Enfoncée : LA"
wait 800
caption 17,"Touche Enfoncée :"
return

si:
caption 7,"71"
caption 17,"Touche Enfoncée : SI"
wait 800
caption 17,"Touche Enfoncée :"
return

do2:
caption 7,"72"
caption 17,"Touche Enfoncée : deuxième DO"
wait 800
caption 17,"Touche Enfoncée :"
return

ChangeNote:
if val(text$(5))<1 or val(text$(5))>11
beep:message "Le chiffre ne peut pas être plus grand que 11 ou plus petit que 1":text 5,"4":return
else
goto ChangeNote2
end_if
ChangeNote2:
if (piano=0)
caption 0,"Mode2 - Piano - Volume : "+str$(128-position(1))
on_click 6,do3:inactive 3
on_click 8,re2:inactive 4
on_click 10,mi2:inactive 5
on_click 11,fa2:inactive 9
on_click 12,sol2:inactive 7
on_click 13,la2:on_change 1,nombre2
on_click 14,si2
on_click 15,do4
piano=1
else
on_click 6,do:active 3
on_click 8,re:active 4
on_click 10,mi:active 5
on_click 11,fa:active 9
on_click 12,sol:active 7
on_click 13,la:on_change 1,nombre
on_click 14,si
on_click 15,do2
caption 0,"Fréquence de Musique MIDI - Volume : "+str$(128-position(1))
piano=0
end_if
return

do3:
caption 17,"Touche Enfoncée : DO":color 21,0,0,0:caption 7,"60"
caption 19,"DO - Fréquence : "+caption$(7)+","+text$(5)
midi_play 60,text$(5)
wait 500
caption 17,"Touche Enfoncée :":color 21,255,255,255
' les remettre en état -----------------------------------------------
color 22,255,255,255:color 24,255,255,255:color 25,255,255,255
color 26,255,255,255:color 27,255,255,255:color 28,255,255,255:color 23,255,255,255
return

re2:
caption 17,"Touche Enfoncée : RÉ":color 22,0,0,0:caption 7,"62"
caption 19,"RÉ - Fréquence : "+caption$(7)+","+text$(5)
midi_play 62,text$(5)
wait 500
caption 17,"Touche Enfoncée :":color 22,255,255,255
' les remettre en état -----------------------------------------------
color 23,255,255,255:color 24,255,255,255:color 25,255,255,255
color 26,255,255,255:color 27,255,255,255:color 28,255,255,255:color 21,255,255,255
return

mi2:
caption 17,"Touche Enfoncée : MI":color 23,0,0,0:caption 7,"64"
caption 19,"MI - Fréquence : "+caption$(7)+","+text$(5)
midi_play 64,text$(5)
wait 500
caption 17,"Touche Enfoncée :":color 23,255,255,255
' les remettre en état -----------------------------------------------
color 22,255,255,255:color 24,255,255,255:color 25,255,255,255
color 26,255,255,255:color 27,255,255,255:color 28,255,255,255:color 21,255,255,255
return

fa2:
caption 17,"Touche Enfoncée : FA":color 24,0,0,0:caption 7,"65"
caption 19,"FA - Fréquence : "+caption$(7)+","+text$(5)
midi_play 65,text$(5)
wait 500
caption 17,"Touche Enfoncée :":color 24,255,255,255
' les remettre en état -----------------------------------------------
color 22,255,255,255:color 23,255,255,255:color 25,255,255,255
color 26,255,255,255:color 27,255,255,255:color 28,255,255,255:color 21,255,255,255
return

sol2:
caption 17,"Touche Enfoncée : SOL":color 25,0,0,0:caption 7,"67"
caption 19,"SOL - Fréquence : "+caption$(7)+","+text$(5)
midi_play 67,text$(5)
wait 500
caption 17,"Touche Enfoncée :":color 25,255,255,255
' les remettre en état -----------------------------------------------
color 22,255,255,255:color 24,255,255,255:color 23,255,255,255
color 26,255,255,255:color 27,255,255,255:color 28,255,255,255:color 21,255,255,255
return

la2:
caption 17,"Touche Enfoncée : LA":color 26,0,0,0:caption 7,"69"
caption 19,"LA - Fréquence : "+caption$(7)+","+text$(5)
midi_play 69,text$(5)
wait 500
caption 17,"Touche Enfoncée :":color 26,255,255,255
' les remettre en état -----------------------------------------------
color 22,255,255,255:color 24,255,255,255:color 25,255,255,255
color 23,255,255,255:color 27,255,255,255:color 28,255,255,255:color 21,255,255,255
return

si2:
caption 17,"Touche Enfoncée : SI":color 27,0,0,0:caption 7,"71"
caption 19,"SI - Fréquence : "+caption$(7)+","+text$(5)
midi_play 71,text$(5)
wait 500
caption 17,"Touche Enfoncée :":color 27,255,255,255
' les remettre en état -----------------------------------------------
color 22,255,255,255:color 24,255,255,255:color 25,255,255,255
color 26,255,255,255:color 23,255,255,255:color 28,255,255,255:color 21,255,255,255
return

do4:
caption 17,"Touche Enfoncée : deuxième DO":color 28,0,0,0:caption 7,"72"
caption 19,"DO - Fréquence : "+caption$(7)+","+text$(5)
midi_play 72,text$(5)
wait 500
caption 17,"Touche Enfoncée :":color 28,255,255,255
' les remettre en état -----------------------------------------------
color 22,255,255,255:color 24,255,255,255:color 25,255,255,255
color 26,255,255,255:color 27,255,255,255:color 23,255,255,255:color 21,255,255,255
return

' ajustement du volume --------------------------

volume:
execute "sndvol32.exe"
return

ajuster:
if (is_pratique=0)
font_color 20,255,0,0
wait 500
font_color 20,0,0,0:caption 20,"| Retour..."
height 0,190:top 18,132:height 1,140:top 2,10
hide 3:hide 5:hide 9:left 18,407:show 24
hide 4:hide 7:hide 6:left 20,430:show 23
hide 8:hide 10:hide 11:show 30:show 31
hide 12:hide 13:hide 14:hide 15:show 29
hide 17:hide 16:hide 19:show 21:show 22
show 25:show 26:show 27:show 28:show 32
color 21,255,255,255:color 22,255,255,255:color 23,255,255,255
color 24,255,255,255:color 25,255,255,255:color 26,255,255,255
color 27,255,255,255:color 28,255,255,255
is_pratique=1
else
font_color 20,255,0,0
wait 500
font_color 20,0,0,0:caption 20,"| Ajuster..."
show 3:show 5:show 9:left 18,407:show 4:show 7:show 6:left 20,400
show 8:show 10:show 11:hide 29:hide 30:hide 31
show 12:show 13:show 14:show 15:hide 28
show 17:show 16:show 19:hide 26:hide 27
hide 21:hide 22:hide 25:hide 24:hide 23:hide 32
top 18,92:height 1,100:top 2,20:height 0,150
is_pratique=0
end_if
return

effacer:
color 21,255,255,255:color 22,255,255,255:color 23,255,255,255
color 24,255,255,255:color 25,255,255,255:color 26,255,255,255
color 27,255,255,255:color 28,255,255,255
return

choisir:
' colorier ---------------------------------------
font_color 33,0,0,0
wait 500:font_color 33,255,0,0
wait 500:font_color 33,0,0,255
' apparaître -------------------------------------

form 34
left 34,100
top 34,50
height 34,144
width 34,290
caption 34,"Choisir..."
command_target_is 34

alpha 35
left 35,15
top 35,10
caption 35,"Écriver la Fréquence que vous-voulez :"

edit 36
left 36,30
width 36,50
top 36,50
text 36,caption$(7)

edit 37
left 37,88
width 37,50
top 37,50
text 37,text$(5)

alpha 38
left 38,83
top 38,56
caption 38,","
font_size 38,10

button 39
left 39,30
top 39,80
caption 39,"Jouer"
on_click 39,jouer

button 40
left 40,110
top 40,80
caption 40,"Vérifier"
on_click 40,verif

button 41
left 41,190
top 41,80
caption 41,"Fermer"
on_click 41,fermer
return

verif:
if val(text$(37))<1 or val(text$(37))>11
beep:message "Le chiffre ne peut pas être plus grand que 11 ou plus petit que 1":text 37,"4":goto deux
else
a$=""
a$=text$(37)
end_if

deux:
' autre partie -------------------------------------------------------------------------------------------------------

if val(text$(36))<21 or val(text$(36))>108
beep:message "Le chiffre ne peut pas être plus grand que 108 ou plus petit que 21":text 36,"60":return
else
b$=""
b$=text$(36)
end_if
return

' jouer la fréquence choisi -------------------------------------------------------------------------------------------

jouer:
if val(text$(37))<1 or val(text$(37))>11
beep:message "Le chiffre ne peut pas être plus grand que 11 ou plus petit que 1":text 37,"4":goto deux
else
a$=""
a$=text$(37)
end_if

deux:
if val(text$(36))<21 or val(text$(36))>108
beep:message "Le chiffre ne peut pas être plus grand que 108 ou plus petit que 21":text 36,"60":return
else
b$=""
b$=text$(36)
midi_play b$,a$
end_if
return

fermer:
hide 35:hide 36:hide 37:hide 38:hide 39:hide 40:hide 41:hide 34
return

» Utilitaire pour les instructions midi
» midi karaoke
» Un arpégiateur midi avec un petit séquenceur
» Recherche Hardware MIDI
» Un exemple de génération de mélodie avec les fonctions MIDI