HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2020
0406
ゆうやんbeep 階名(ドレミ)表記モジュール2解決


ゆうやん

リンク

2020/4/6(Mon) 22:34:06|NO.89978

暇なので、beep音で階名(ドレミ)表記のモジュールを作ってみました。

#uselib "kernel32.dll" #func _beep_ "Beep" int,int #define beep(%1,%2) await:_beep_ %1,%2 #packopt hide 1 //階名表記定義 #const ド 524 #const ド♯ 554 #const レ♭ 554 #const レ 587 #const レ♯ 622 #const ミ♭ 622 #const ミ 660 #const ファ 698 #const ファ♯ 740 #const ソ♭ 740 #const ソ 784 #const ソ♯ 830 #const ラ♭ 830 #const ラ 880 #const ラ♯ 932 #const シ♭ 932 #const シ 988 #const ド_ 1046 #const C 524 #const C♯ 554 #const D♭ 554 #const D 587 #const D♯ 622 #const E♭ 622 #const E 660 #const F 698 #const F♯ 740 #const G♭ 740 #const G 784 #const G♯ 830 #const A♭ 830 #const A 880 #const A♯ 932 #const B♭ 932 #const B 988 #const C_ 1046 //↓以下サンプル screen 0,195,315,2 title "ビープ音 階名" button gosub "ド",*_do_ button gosub "ド♯ レ♭",*_do♯ button gosub "レ",*_re button gosub "レ♯ ミ♭",*_re♯ button gosub "ミ",*_mi button gosub "ファ",*_fa button gosub "ファ♯ ソ♭",*_fa♯ button gosub "ソ",*_sol button gosub "ソ♯ ラ♭",*_sol♯ button gosub "ラ",*_la button gosub "ラ♯ シ♭",*_la♯ button gosub "シ",*_si button gosub "ド",*do_ pos 65,0 button gosub "ド",*do_ button gosub "ド♯ レ♭",*do♯ button gosub "レ",*re button gosub "レ♯ ミ♭",*re♯ button gosub "ミ",*mi button gosub "ファ",*fa button gosub "ファ♯ ソ♭",*fa♯ button gosub "ソ",*sol button gosub "ソ♯ ラ♭",*sol♯ button gosub "ラ",*la button gosub "ラ♯ シ♭",*la♯ button gosub "シ",*si button gosub "ド",*do__ pos 130,0 button gosub "ド",*do__ button gosub "ド♯ レ♭",*do♯_ button gosub "レ",*re_ button gosub "レ♯ ミ♭",*re♯_ button gosub "ミ",*mi_ button gosub "ファ",*fa_ button gosub "ファ♯ ソ♭",*fa♯_ button gosub "ソ",*sol_ button gosub "ソ♯ ラ♭",*sol♯_ button gosub "ラ",*la_ button gosub "ラ♯ シ♭",*la♯_ button gosub "シ",*si_ button gosub "ド",*do___ gsel 0,1 stop ;/2で1オクターブ下げる。 *_do_ beep ド/2,400 return *_do♯ beep ド♯/2,400 return *_re beep レ/2,400 return *_re♯ beep レ♯/2,400 return *_mi beep ミ/2,400 return *_fa beep ファ/2,400 return *_fa♯ beep ファ♯/2,400 return *_sol beep ソ/2,400 return *_sol♯ beep ソ♯/2,400 return *_la beep ラ/2,400 return *_la♯ beep ラ♯/2,400 return *_si beep シ/2,400 return *do_ beep ド,400 return *do♯ beep ド♯,400 return *re beep レ,400 return *re♯ beep レ♯,400 return *mi beep ミ,400 return *fa beep ファ,400 return *fa♯ beep ファ♯,400 return *sol beep ソ,400 return *sol♯ beep ソ♯,400 return *la beep ラ,400 return *la♯ beep ラ♯,400 return *si beep シ,400 return *do__ beep ド_,400 return ;*2で1オクターブ上げる。 *do♯_ beep ド♯*2,400 return *re_ beep レ*2,400 return *re♯_ beep レ♯*2,400 return *mi_ beep ミ*2,400 return *fa_ beep ファ*2,400 return *fa♯_ beep ファ♯*2,400 return *sol_ beep ソ*2,400 return *sol♯_ beep ソ♯*2,400 return *la_ beep ラ*2,400 return *la♯_ beep ラ♯*2,400 return *si_ beep シ*2,400 return *do___ beep ド_*2,400 return



この記事に返信する


GENKI

リンク

2020/4/7(Tue) 00:47:36|NO.89984

モジュールになってないじゃんというツッコミはさておき、beep音って過去ログ見てみると忘れた頃に話題に上がりますね。やっぱり音が鳴るのは楽しい。

http://hsp.tv/play/pforum.php?mode=all&num=88747
http://hsp.tv/play/pforum.php?mode=pastwch&num=74512
http://hsp.tv/play/pforum.php?mode=pastwch&num=68473
http://hsp.tv/play/pforum.php?mode=pastwch&num=44922



ゆうやん

リンク

2020/11/16(Mon) 18:12:20|NO.91810

確かにそうですねw
耳コピに使えそうかもです。



ONION software Copyright 1997-2023(c) All rights reserved.