ab.com コミュニティ

色々とやってみた結果です。

1.「Sub MainWnd_PlayButton_Click」のなか、
nMax = (MCI_MSF_MINUTE(msp.dwReturn) * 60 + MCI_MSF_SECOND(msp.dwReturn)) * 10
SendMessage(hTrackBar,TBM_SETRANGE,0,MAKELONG(0,nMax))
を
SendMessage(hTrackBar, TBM_SETRANGE, 0, MAKELONG(0,(MCI_MSF_MINUTE(msp.dwReturn) * 60 + MCI_MSF_SECOND(msp.dwReturn)) * 10))
とし、nMaxを使用しないように変更。

2.「Sub MainWnd_HScroll」のなか、
Dim dwWk As Dword '動作安定化の為のダミー追加
bErr = mciSendCommand(mop.wDeviceID, MCI_SEEK, MCI_TO, mciSeekParms)の前に
mciSendCommand(mop.wDeviceID, MCI_STOP, MCI_NOTIFY, dwWk) '停止コマンド追加

上記2点の追加・変更で想定される動きになります。

また、TrackBar1が無意味な状態でも操作できるので、
再生中または一時停止中の時以外は、
EnableWindow(GetDlgItem(hMainWnd, TrackBar1), 0)
で無効化。
再生中または一時停止中の時は、
EnableWindow(GetDlgItem(hMainWnd, TrackBar1), 1)
で有効化したほうがいいかもしれません。

> 演奏中にTrackBar上の任意の１点をクリックしても最初からしか演奏されない件について
は、メッセージボックスをつかっていたせいでした。
メッセージボックスをはずすとOKでした。
上のメッセージのコードを入れると、TrackBarをスライドさせると正しくなりました。
(入れないと、TrackBarの位置と曲の位置があいません)
ただし、まだ２回連続して、この部分が動いてるかもしれません。

演奏中にTrackBar上の任意の１点をクリックしても最初からしか演奏されない件について
mciSendCommand(mop.wDeviceID,MCI_STOP,MCI_NOTIFY,dwWk) '停止コマンド追加
と
bErr=mciSendCommand(mop.wDeviceID,MCI_SEEK,MCI_TO,mciSeekParms)
の前に挿入。一度停止させる事で、途中から演奏が続くようになりました。
Dim dwWk as Dwordで定義しています。
ただ、この方法が正しいのかは、
If IsWindowEnabled(GetDlgItem(hMainWnd,PlayButton))=0 Then
'再生中のときは一時停止
SendMessage(hMainWnd,WM_COMMAND,PauseButton,0)
とゆうコードが前方にあるのでどうなのかな？とは思いますが。

計算の前後を入れ換えると結果が異なる件ですが、バグ報告のほうに
ＫＩＣＯさんが投稿されました、題名: リテラル値同士の演算結果があります。
バグと言うことですが、今回の件も同じと考えていいのでしょうか？
そうだとすると、一応目処が立ったと考えますが。
でも、バーをクリックした時の動作がおかしいのがまだ解決した訳ではないのですが。
よろしくお願いします。

お忙しい中調べていただいてありがとうございます。
> 下記のようにすれば問題はたぶん、起きないはずです。
> 確かに、上記の様にしますと、すぐに終わりにいく現象は直りました。
あほみたいな素朴な疑問なんですが、
SendMessage(hTrackBar,TBM_SETRANGE,0,MAKELONG(0,nMax))　を
SendMessage(hTrackBar,TBM_SETRANGE,0,MAKELONG(0,(MCI_MSF_MINUTE(msp.dwReturn) * 60 + MCI_MSF_SECOND(msp.dwReturn)) * 10))
の様にかくことでも、不具合が起きなくなりました。
計算途中の型の問題だとすると、nMaxのかわりに直接算式を書いても、おかしくなる気がするのですが、正常のようです。
代入の場合のみ発生するのでしょうか。
MessageBox(hMainWnd,Str$(MCI_MSF_MINUTE(msp.dwReturn)*60),"分*60　時間",MB_OK)
と書いても、正常値が表示されます。
お時間取れるときにでも、ご教授いただけたらと思います。

> nMax = (MCI_MSF_MINUTE(msp.dwReturn) * 60 + MCI_MSF_SECOND(msp.dwReturn)) * 10
> SendMessage(hTrackBar,TBM_SETRANGE,0,MAKELONG(0,nMax))
> で設定しています。
> MessageBoxを使って調べてみると、nMaxの値が変な値になっています。

シークがうまくできない理由までは突き止められていませんが、このnMaxの問題は分かりましたのでご報告しておきます。


これは単純にキャストの問題でした。 MCI_MSF_MINUTE()関数の返す値はBYTE形式であるため*60の結果が0～256の範囲に自動的に丸められていただけです。

下記のようにすれば問題はたぶん、起きないはずです。
今は、忙しいのでここまででご勘弁を（笑

> あと、AB4.24のサンプルに付属のＥＸＥを実行すると、まともな動作をします。
> ただ、トラックバーを動かすと、バグりますけど。
情報ありがとうございます。
確かに、TrackBarの最大値の問題をクリアしても、TrackBarクリックでもおかしいですね。
一番最初から再生にしかなりませんね。
どうも、Sub MainWnd_HScrollの処理が２回連続で実行されるようです。
pos=SendMessage(GetDlgItem(hMainWnd,TrackBar1),TBM_GETPOS,0,0)\10
MessageBox(hMainWnd,Str$(pos),"pos",MB_OK)
mciSeekParms.dwTo=MCI_MAKE_TMSF(TrackNum, pos\60, pos mod 60,0)
上記の様に、途中にMessageBoxを挿入するだけで、途中からの再生ができるようになります。
まだ、それでも、TrackBarのクリックした位置と、TrackBarのカーソルの位置があっていないです。
このサンプルは、現在のABの学習用サンプルとしては、まずいと言うか
単なる代入さえ処理できない言語なのかと思ってしまいます。

私も、その問題で困っていたことがあり、結局、あきらめました。
確かに、すぐに終わってしまいます。
環境は、以下の通りです。
ＯＳ：Windows98SE/Me
ＡＢのバージョン：4.2Ｘ
曲の長さ：約4:25
トラックバーの終了までの時間：約16秒（ＯＳによってバラバラみたい）
ＣＤライター：WinCD-R v6.5
ＣＤリーダーのメーカー：バッファロー（型はわかりません）
ちなみに、ActiveBasicオフィシャルユーザーズガイドに付いている、
ＣＤのサンプルのＥＸＥを実行すると、正常に動作するのですが。。。
あと、AB4.24のサンプルに付属のＥＸＥを実行すると、まともな動作をします。
ただ、トラックバーを動かすと、バグりますけど。

> わたしは現在AudioCDを持っていないのでテストできないのですが、
> MUGIさんがテストで再生しようとしているオーディオデータの長さはどれくらいでしょうか？
ありがとうございます。
再生している音楽CDは、１曲５分8秒とか大体５分前後の曲です。
音楽の再生自体は、全く問題ありません。
単に、TrackBar の最大値が変なので、曲はまだ演奏開始したばかりなのに
終了まで移動してしまい、役に立たないのです。

> > バグだバグだと失敗を押し付けてしまうことは簡単なことです。すぐに諦めずもっとアガいてみましょう(^_^;)
>
> 失敗なら、このAB最新版についてくるサンプル作られた人の失敗ですよ。
> 私は、ソースに変更を加えず、単にコンパイルして動かそうとしてるだけですから。
> なのに正しく動いてくれない。
> 念のため、別の回線と別のPCを使って、ABをダウンロードし直して追試しましたが、
> 現象は同じです。
> よって、ダウンロード時のファイルの破損等は考えられません。


わたしは現在AudioCDを持っていないのでテストできないのですが、
MUGIさんがテストで再生しようとしているオーディオデータの長さはどれくらいでしょうか？

> バグだバグだと失敗を押し付けてしまうことは簡単なことです。すぐに諦めずもっとアガいてみましょう(^_^;)

失敗なら、このAB最新版についてくるサンプル作られた人の失敗ですよ。
私は、ソースに変更を加えず、単にコンパイルして動かそうとしてるだけですから。
なのに正しく動いてくれない。
念のため、別の回線と別のPCを使って、ABをダウンロードし直して追試しましたが、
現象は同じです。
よって、ダウンロード時のファイルの破損等は考えられません。

質問に書いているように
>MessageBoxを使って調べてみると、nMaxの値が変な値になっています。
値は、本当は3080とかになるはずなのに、8とかになります。
型をおおきなものにしても、かわりはありません。
nMaxへの代入時に、おかしくなっているか、nMaxの参照アドレスがおかしいなどでしょうかね。

> サンプルは元々、Dim nMax As Integer　になっています。
> wordにしても、まったく変わりません。
じゃあ逆に、Long型やDWord型にしてみてください。
(MCI_MSF_MINUTE(msp.dwReturn) * 60 + MCI_MSF_SECOND(msp.dwReturn)) * 10 の値がいくつになるか分からないんですけど、Integer型やWord型では収まりきらないのかもしれません。

バグだバグだと失敗を押し付けてしまうことは簡単なことです。すぐに諦めずもっとアガいてみましょう(^_^;)

ありがとうございます。
> MAKELONG関数に渡すのは16ビット整数値なので、Integer型やWord型にしてみては如何でしょう？
サンプルは元々、Dim nMax As Integer　になっています。
wordにしても、まったく変わりません。
ということは、AB424のバグと言うことでしょうか？

> 文法的にも、nMaxに関しておかしいところは無いみたいです。
> なぜ、nMaxを使うとおかしくなるのか、わかられるかたいらしゃいましたら教えていただけないでしょうか。
想像のお話ですけど、変数nMaxの型に問題があるんじゃないでしょうか？
Dim nMax As Longだとダメだけど、Dim nMax As DWordにするとオーケーなどなど。
MAKELONG関数に渡すのは16ビット整数値なので、Integer型やWord型にしてみては如何でしょう？