- 【QBASIC互換!?】FreeBasic【GPL】
880 ：デフォルトの名無しさん[]：2016/10/23(日) 10:06:03.38 ID:xOvwZfT4 - 構造体の初期化に関して、
手持ちのMIDIによるBEEP音が
'http://park7.wakwak.com/~efc21/cgi-bin/exqalounge.cgi?print+200707/07070177.txt
しかないので、これ関係。
'declare function midiOutOpen(byval phmo as LPHMIDIOUT, byval uDeviceID as UINT, byval dwCallback as DWORD_PTR, byval dwInstance as DWORD_PTR, byval fdwOpen as DWORD) as MMRESULT
より、
Dim midHnd As HMIDIOUT__
Dim ImidHndPTR As HMIDIOUT = @midHnd
Dim ImidHndPTRPTR As LPHMIDIOUT = @ImidHndPTR
を用意して
midHnd.unused = 0
If (ImidHndPTR <> @midHnd) Then
MessageBox(TakaHWND, "Hello (ImidHndPTR) 範囲外" + Str(ImidHndPTR)+","+Str$(@midHnd), "Messagebox caption", MB_ICONINFORMATION)
EndIf
If (ImidHndPTRPTR <> @ImidHndPTR) Then
MessageBox(TakaHWND, "Hello (ImidHndPTRPTR) 範囲外" + Str(ImidHndPTRPTR)+","+Str$(@ImidHndPTR), "Messagebox caption", MB_ICONINFORMATION)
EndIf
とやったらば、MessageBox()が実行されなかった。だから、構造体に値が入っているかどうかは別にして、
アドレス(ポインター)はDimで決定されるみたい。
| - 【QBASIC互換!?】FreeBasic【GPL】
881 ：デフォルトの名無しさん[]：2016/10/23(日) 10:15:29.01 ID:xOvwZfT4 - MSの Replace()は、手持ちで類似ルーチンがあるので、類似ルーチンを使用して
MSReturnCode = midiOutOpen(@ImidHndPTR, MIDI_MAPPER, 0, 0, CALLBACK_NULL)
MSReturnCode = midiOutClose(@midHnd)
Private Function BeepMidiOut(ImidHnd As HMIDIOUT__, DataString as String) As Long
'ルーチン名の変更 Sub Midi_out() → Sub BeepMidiOut()
ImidHndPTR = @ImidHnd
ImidHndPTRPTR = @ImidHndPTR
MSReturnCode = midiOutPrepareHeader(ImidHndPTR, @lpMidiOutHdr, Len(lpMidiOutHdr))
MSReturnCode = midiOutLongMsg(ImidHndPTR, @lpMidiOutHdr, Len(lpMidiOutHdr))
で、コンパイルエラーはなくなった。
しかし、ハングする。今のところ、対応はわからない。
| - 【QBASIC互換!?】FreeBasic【GPL】
882 ：デフォルトの名無しさん[]：2016/10/23(日) 14:27:32.03 ID:xOvwZfT4 - >>881 のつづき。
TakaDammyReturnCode = BeepMidiOut(midHnd, MdiMsg)
入れておく必要があるかな?。
機械の方のMIDIを見るべく、手持ちのMIDIファイルをエクスプローラーでクリック。
MIDI 音源がありません
とのこと。MIDI 関係はここで打ち切り。
Win 10, 32bit で動きそうな仮想音源があったらば、知らせてほしい。
検索で見つかったところは、
http://homepage3.nifty.com/3gatudo/mididl.htm
ぐらいで、
Microsoft GS Wavetable SW Synth
は見つからない。ＤｉｒｅｃｔＸが入っていないのかもしれない。
ＳＷ−１０
は、Nifの販促CD-ROM(2001)より。ソフトが起動してしまって、中身が見られなくて、スージーを使ってコピー。
起動したけど、動かなかった。
Ｓ−ＹＧＸ５０
は、ヤマハのサイトが見つからなくて試せず。
| - 【QBASIC互換!?】FreeBasic【GPL】
883 ：デフォルトの名無しさん[]：2016/10/23(日) 20:38:27.04 ID:xOvwZfT4 - http://makoto-watanabe.main.jp/freebasic/tipsFileDialog.html#start
いじったことのある方へ。
当方 Win10, 32Bit で以下の障害メッセージが発生。
先頭から
'********************* Usage: *****************************
までを
D:\bas\Projects\File03\Mod\FL01SBCom.BI へコピー。
Function FileSelectFolder (Byref title As String = "Choose A Folder", ByVal nCSIDL As Integer, iFlags As ULong = BIF_EDITBOX, ByRef sz_InitialDir As String) As String
'D:\bas\Projects\File03\Mod\FL01SBCom.BI(91) warning 36(0): Mismatching parameter initializer, at parameter 3 (iFlags) of FileSelectFolder()
ret = SHGetSpecialFolderLocation(HWND_DESKTOP, nCSIDL, @bi.pidlRoot)
'D:\bas\Projects\File03\Mod\FL01SBCom.BI(101) error 180: Invalid assignment/conversion, at parameter 3 of SHGETSPECIALFOLDERLOCATION() in 'ret = SHGetSpecialFolderLocation(HWND_DESKTOP, nCSIDL, @bi.pidlRoot)'
ret = SHGetFolderLocation(HWND_DESKTOP, CSIDL_DESKTOP , NULL, NULL, @bi.pidlRoot)
'D:\bas\Projects\File03\Mod\FL01SBCom.BI(106) error 180: Invalid assignment/conversion, at parameter 5 of SHGETFOLDERLOCATION() in 'ret = SHGetFolderLocation(HWND_DESKTOP, CSIDL_DESKTOP , NULL, NULL, @bi.pidlRoot)'
CoTaskMemFree bi.pidlRoot
'D:\bas\Projects\File03\Mod\FL01SBCom.BI(135) error 180: Invalid assignment/conversion, at parameter 1 of COTASKMEMFREE() in 'CoTaskMemFree bi.pidlRoot'
以上、警告メッセージ1、障害メッセージ3が発生。
| - 【QBASIC互換!?】FreeBasic【GPL】
884 ：デフォルトの名無しさん[]：2016/10/23(日) 20:46:42.61 ID:xOvwZfT4 - #Ifndef _FILE_HELPERS_WIN32
という、コンパイラに対する命令文の意味が分からず
C:\tool\FreeBASIC
"C:\FbEdit"
http://makoto-watanabe.main.jp/freebasic/
ではヒットしない。
誰かが、何かの条件で、どこかで決めているはずだけれども
http://search.yahoo.co.jp/search;_ylt=A2RA2EPKogxYJGMA2UIDdNt7?p=_FILE_HELPERS_WIN32&search.x=1&fr=top_ga1_sa&tid=top_ga1_sa&ei=UTF-8&aq=&oq=&afs=
では、本家と日本語サイトのみに記載有り。
|
|