HSPTV!掲示板

スレッド一覧 | 新規書き込み | 新着一覧 | 使い方 | 過去ログ

未解決

解決

停止

削除要請


	2012 0316	Dangerous scripts	(投稿者削除)	3

Dangerous scripts

2012/3/16(Fri) 09:29:38|NO.45432

この記事は投稿者により削除されました。
2012/3/30(Fri) 11:26:56

この記事に返信する

cats

2012/3/17(Sat) 15:47:30|NO.45457

ページに入っても何も無かったので分かりませんでしたがたぶんができてるはずです。



width 200,70
mes "ボリュームWAVE"
pos 0,20 :winobj "msctls_trackbar32", "", , $50000000 | $1, 200, 30
hTrackbar = objinfo(stat, 2)
sendmsg hTrackbar, $405, 1,100
sendmsg hTrackbar, $414, 10
objsize 100,20:pos 0,50:button "2",*Volumec
objsize 100,20:pos 100,50:button "1",*Volumem
#uselib "winmm.dll"
#func global waveOutSetVolume "waveOutSetVolume" int, int
#module
#deffunc setvolume int right, int left, local i
i = limit(right, 0, 100) * 0xFFFF / 100, limit(left, 0, 100) * 0xFFFF / 100
waveOutSetVolume 0xFFFFFFFF, (i.0 << 16) + i.1
return
#global
*waveVolume
setvolume Volume,Volume // 音量を指定サイズに変更する
oncmd gosub *vscroll, $114
wait 1
goto *waveVolume;*waveVolumeとのループ
*Volumec
exec "sndvol32" ;ボリューム
goto *waveVolume;ループに戻る
stop
*Volumem
exec "sndvol32 /t" ;メインボリューム
goto *waveVolume;ループに戻る
*vscroll
if lparam = hTrackbar {
sendmsg hTrackbar, $400
Volume=stat
}
return

Dangerous scripts

2012/3/17(Sat) 23:26:51|NO.45463

catsさんありがとう
これでトラックバーで操作できます。

Dangerous scripts

2012/3/19(Mon) 19:01:06|NO.45501

実行したときにボリュームが0になるのでvolume=100を追加しました。

width 200,70
mes "ボリュームWAVE"
pos 0,20 :winobj "msctls_trackbar32", "", , $50000000 | $1, 200, 30
hTrackbar = objinfo(stat, 2)
sendmsg hTrackbar, $405, 1,100
sendmsg hTrackbar, $414, 10
objsize 100,20:pos 0,50:button "2",*Volumec
objsize 100,20:pos 100,50:button "1",*Volumem
#uselib "winmm.dll"
#func global waveOutSetVolume "waveOutSetVolume" int, int
#module
#deffunc setvolume int right, int left, local i
i = limit(right, 0, 100) * 0xFFFF / 100, limit(left, 0, 100) * 0xFFFF / 100
waveOutSetVolume 0xFFFFFFFF, (i.0 << 16) + i.1
return
#global
volume=100;初期音量を100にする
*waveVolume
setvolume Volume,Volume // 音量を指定サイズに変更する
oncmd gosub *vscroll, $114
wait 1
goto *waveVolume;*waveVolumeとのループ
*Volumec
exec "sndvol32" ;ボリューム
goto *waveVolume;ループに戻る
stop
*Volumem
exec "sndvol32 /t" ;メインボリューム
goto *waveVolume;ループに戻る
*vscroll
if lparam = hTrackbar {
sendmsg hTrackbar, $400
Volume=stat
}
return