アドバイスをいただいたこともあり、初めてのhspプログラム・簡易音楽プレイヤーが完成にちかづいてきました。
今は、コンボボックスで音量のパーセント値を選択して、音量を変更させるという機能を作っています。
上矢印を押すと、音量地に1プラス、下を押すと1マイナス、エンターで繁栄。
if文で、音量地が100委上0以下にならないようにも対処したつもりです。
でも、実際実行してみると、マイナス値がでたり、キーとパーセント値がまったく対応してなかったりと、思ったとおりにいきません。
なにがいけないのでしょうか?
下に、簡略かしたスクリプトをのせるので、アドバイスお願いします。
#include "hspogg.as" screen 1,600,300 dim volume_set volume_set=0 button "Select",*select button "Play",*play button "down",*down sdim content,1024 mesbox content,300,100,0 id_mes=stat stop *select dialog "ogg",16,"ogg" if stat=0: goto *info dmmini dmmload file,0,0 goto *info stop *play dmmvol 0,volume_set dmmplay 0 goto *info stop *down sdim volume_content,400 repeat 101 volume_content+=""+(100-cnt)+"\n" loop objsize 80,100 pos 5,0 combox volume_set,200,volume_content id_com=stat objsel id_com button "ok",*ok id_ok=stat repeat stick code,10,0 if code=2: volume_set+=1 if code>100: volume_set=100 if code=8: volume_set-=1 if code<0: volume_set=0 if code=32: break await 3 loop volume_set=(volume_set-100)*100 dmmvol 0,volume_set stop *ok dmmvol 0,volume_set clrobj id_com clrobj id_ok goto *info *info repeat content="" redraw 0 dmmstat iplay,0,1 content+=" (Volume="+(iplay+10000)/100+"%)\n" objprm id_mes,""+content await 1000 redraw 1 loop