使用經典的基本播放命令和 MML 創建 MIDI 文件

  勇芳 2018-6-6 5439

此程序是播放例程的變體, 而不是播放軟件, 而是使用序列創建 MIDI 文件。

它像正常的編程播放命令一樣工作, 但它支持多個曲目 (使用相同的 GWBasic 和 MSX 基本語法,播放string1 ,string2 ,String3...............)。

注意:可以放在 {} 之間以播放和弦。

該例程創建單個或多軌 midi 文件。

FB源碼(VFB源碼在勇芳編程群里下載)

FUNCTION WriteVarLen(Value as integer) as string
 dim a as string

 a=chr(Value AND 127)

  DO WHILE (Value > 127)
   Value = Value shr 7
   a=chr((Value AND 127)or 128)+a
  LOOP 
 return a
END FUNCTION

FUNCTION WriteFourBytes(Value as integer) as string
 dim a as string
 a=chr(Value and 255)
 Value shr= 8
 a=chr(Value and 255)+a
 Value shr= 8
 a=chr(Value and 255)+a
 Value shr= 8
 a=chr(Value and 255)+a
 return a
end function
論壇限制,代碼太多,發不了,請進勇芳編程群下載源碼


因國家互聯網安全管理要求,關閉回帖功能。大家需要留言,請使用【勇芳軟件客服】即時聯系勇芳點此打開->>勇芳軟件客服
返回
聯系勇芳
一个人看的www视频播放中文_2012中文字幕电影_亚洲国产成人高清在线观看_中文字幕天堂最新版在线网