Piano à 88 touches

label touche,nouveau,suppr,liste,jouer
dim i,j,k,x0,x1,num
dim note_b(7)
dim note_n(5),pos_n(5)
dim nom_note$(12)
dim a$,note,gamme,a,b
a$=chr$(10)+chr$(13)
midi_on

width 0,1009:caption 0,"Touches De Piano":height 0,400

picture 1
left 1,10
top 1,9
width 1,981
height 1,132
color 1,0,0,0
note_b(1) = 1-1
note_b(2) = 3-1
note_b(3) = 5-1
note_b(4) = 6-1
note_b(5) = 8-1
note_b(6) = 10-1
note_b(7) = 12-1

nom_note$(1) = "DO"
nom_note$(2) = "DO#"
nom_note$(3) = "RÉ"
nom_note$(4) = "MIb"
nom_note$(5) = "MI"
nom_note$(6) = "FA"
nom_note$(7) = "FA#"
nom_note$(8) = "SOL"
nom_note$(9) = "LAb"
nom_note$(10)= "LA"
nom_note$(11)= "SIb"
nom_note$(12)= "SI"

note_n(1) = 2-1
note_n(2) = 4-1
note_n(3) = 7-1
note_n(4) = 9-1
note_n(5) = 11-1


pos_n(1) = 1
pos_n(2) = 2
pos_n(3) = 4
pos_n(4) = 5
pos_n(5) = 6

for i=1 to 7
  x0 = 11+ 140*(i-1)
  for j=1 to 7
    x1 = x0 + 20*(j-1)
    num = 24 + 12*(i-1) + note_b(j)
    picture num:top num,10:width num,19:left num,x1:height num,130
    on_click num,touche
  next j
next i

for i=1 to 7
  x0 = 24 + 140*(i-1)
  for j=1 to 5
    x1 = x0 + 20*(pos_n(j)-1)
    num = 24 + 12*(i-1) + note_n(j)
    picture num:top num,9:width num,13:left num,x1:height num,90
    on_click num,touche
    color num,0,0,0
  next j
next i

alpha 109
top 109,160
left 109,40
caption 109,"Temps de la note :"

edit 110
left 110,15
width 110,130
top 110,190
text 110,"4"

list 111
top 111,165
left 111,200
width 111,300
height 111,150
on_click 111,liste

alpha 112
left 112,210
top 112,148
caption 112,"Musique Écrite :"

button 113
left 113,510
top 113,170
width 113,100
caption 113,"Supprimer une ligne"
inactive 113
on_click 113,suppr

button 114
left 114,510
top 114,200
width 114,100
caption 114,"Ajouter une ligne"

button 115
left 115,510
top 115,230
width 115,100
caption 115,"Nouveau"
on_click 115,nouveau

alpha 116
top 116,320
left 116,220
font_color 116,0,0,255

button 117
left 117,510
top 117,270
width 117,100
caption 117,"Jouer"
inactive 117
on_click 117,jouer

list 118:hide 118
list 119:hide 119

end

touche:
if val(text$(110))<1 or val(text$(110))>11 then message "temps non corect ;":text 110,"4":return
for k=24 to 107
  if clicked(k)=1
    gamme = int((k-24)/12 + 1)
    note = (k-23) - 12*(gamme-1)
    active 117
    item_add 111,"Gamme "+str$(gamme)+", "+nom_note$(note)+", "+text$(110)
    item_add 118,str$(k):item_add 119,text$(110)
    midi_play k,text$(110)
  end_if
next k
return

nouveau:
clear 111
inactive 113
return

suppr:
item_delete 111,item_index(111)
if count(111)=0 then inactive 113
return

liste:
active 113
caption 116,item_index$(111)
return

jouer:
for a=1 to count(118)
  for b=1 to count(119)
    midi_play item_read$(118,a),item_read$(119,b)
  next b
next a
message "Terminé..."
return

label touche,nouveau,suppr,liste,jouer
label nombre
dim i,j,k,x0,x1,num
dim note_b(7)
dim note_n(5),pos_n(5)
dim nom_note$(12)
dim a$,note,gamme,a,b
a$=chr$(10)+chr$(13)
midi_on

width 0,1009:caption 0,"Touches De Piano":height 0,400

picture 1
left 1,10
top 1,9
width 1,981
height 1,132
color 1,0,0,0
note_b(1) = 1-1
note_b(2) = 3-1
note_b(3) = 5-1
note_b(4) = 6-1
note_b(5) = 8-1
note_b(6) = 10-1
note_b(7) = 12-1

nom_note$(1) = "DO"
nom_note$(2) = "DO#"
nom_note$(3) = "RÉ"
nom_note$(4) = "MIb"
nom_note$(5) = "MI"
nom_note$(6) = "FA"
nom_note$(7) = "FA#"
nom_note$(8) = "SOL"
nom_note$(9) = "LAb"
nom_note$(10)= "LA"
nom_note$(11)= "SIb"
nom_note$(12)= "SI"

note_n(1) = 2-1
note_n(2) = 4-1
note_n(3) = 7-1
note_n(4) = 9-1
note_n(5) = 11-1


pos_n(1) = 1
pos_n(2) = 2
pos_n(3) = 4
pos_n(4) = 5
pos_n(5) = 6

for i=1 to 7
  x0 = 11+ 140*(i-1)
  for j=1 to 7
    x1 = x0 + 20*(j-1)
    num = 24 + 12*(i-1) + note_b(j)
    picture num:top num,10:width num,19:left num,x1:height num,130
    on_click num,touche
  next j
next i

for i=1 to 7
  x0 = 24 + 140*(i-1)
  for j=1 to 5
    x1 = x0 + 20*(pos_n(j)-1)
    num = 24 + 12*(i-1) + note_n(j)
    picture num:top num,9:width num,13:left num,x1:height num,90
    on_click num,touche
    color num,0,0,0
  next j
next i

alpha 109
top 109,160
left 109,40
caption 109,"Temps de la note :"

edit 110
left 110,15
width 110,130
top 110,190
text 110,"4"

list 111
top 111,165
left 111,200
width 111,300
height 111,150
on_click 111,liste

alpha 112
left 112,210
top 112,148
caption 112,"Musique Écrite :"

button 113
left 113,510
top 113,170
width 113,100
caption 113,"Supprimer une ligne"
inactive 113
on_click 113,suppr

button 114
left 114,510
top 114,200
width 114,100
caption 114,"Ajouter une ligne"

button 115
left 115,510
top 115,230
width 115,100
caption 115,"Nouveau"
on_click 115,nouveau

alpha 116
top 116,320
left 116,220
font_color 116,0,0,255

button 117
left 117,510
top 117,270
width 117,100
caption 117,"Jouer"
inactive 117
on_click 117,jouer

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

alpha 121
left 121,50
top 121,270
caption 121,"Volume : 127"
hint 121,"Volume : "+str$(128-position(120))+a$+a$+"MIDI Volume      "+a$+"Volume MIDI        "

' invisibles ------------------

list 118:hide 118
list 119:hide 119

end

touche:
if val(text$(110))<1 or val(text$(110))>11 then message "temps non corect ;":text 110,"4":return
for k=24 to 107
  if clicked(k)=1
    gamme = int((k-24)/12 + 1)
    note = (k-23) - 12*(gamme-1)
    active 117
    item_add 111,"Gamme "+str$(gamme)+", "+nom_note$(note)+", "+text$(110)
    item_add 118,str$(k):item_add 119,text$(110)
    midi_play k,text$(110)
  end_if
next k
return

nouveau:
clear 111:clear 118:clear 119
inactive 113
return

suppr:
item_delete 111,item_index(111)
if count(111)=0 then inactive 113
return

liste:
active 113
caption 116,item_index$(111)
return

jouer:
for a=1 to count(118)
    midi_play item_read$(118,a),item_read$(119,a)
next a
message "Terminé...                "
return

nombre:
caption 121,"Volume : "+str$(128-position(120))
midi_volume 128-position(120)
caption 0,"Touches De Piano  -  Volume MIDI : "+str$(128-position(120))
hint 121,"Volume : "+str$(128-position(120))+a$+a$+"MIDI Volume      "+a$+"Volume MIDI        "
return