clavier de piano et notes

dim i,NomsNotes$(36),NotesNatx%(22),NotesAltx%(37)
dim NotesNat%(21),note%,positionx%

label MontrerNotes

width 0,800
height 0,300
color 0,200,255,255
font_name 0,verdana

data "DO","DO#/REb","RE","RE#/MIb","MI","FA","FA#/SOLb"
data "SOL","SOL#/LAb","LA","LA#/SIb","SI"
for i=1 to 12
  read NomsNotes$(i)
next i
for i=13 to 36
  NomsNotes$(i) = NomsNotes$(i-12)
next i

data 1,3,5,6,8,10,12
for i=1 to 7
  read NotesNat%(i)
next i
for i=8 to 21
  NotesNat%(i) = NotesNat%(i-7) + 12
next i

for i=1 to 22
  NotesNatx%(i) = (i-1)*30
next i

data 0,20,40,50,70,90,110,130,140,160,170,190

for i=1 to 12
  read NotesAltx%(i)
next i
for i=13 to 37
  NotesAltx%(i) = NotesAltx%(i-12) + 210
next i

picture 1
width 1,630
height 1,100
left 1,85
top 1,50
file_load 1,"clavier.bmp"
on_click 1,MontrerNotes

alpha 2
width 2,500
left 2,85
top 2,20
font_size 2,12
caption 2,"clique sur une touche du clavier pour voir la note"

alpha 3
width 3,50
left 3,300
top 3,200
font_size 3,20
font_bold 3
font_color 3,0,128,255


end

MontrerNotes:
  positionx% = mouse_x_position(1)

if mouse_y_position(1) > 60
 for i=1 to 21
  if (positionx% > NotesNatx%(i)) and (positionx% <= NotesNatx%(i+1))
  note% = NotesNat%(i)
  end_if
 next i
else
 for i=1 to 36
  if (positionx% > NotesAltx%(i)) and (positionx% <= NotesAltx%(i+1))
  note% = i
  end_if
 next i
end_if

caption 3,NomsNotes$(note% )

return

label fclav$
fclav$ = "C:\images\bmp\clavier.bmp"

file_load 1, fclav$