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


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



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