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


HSPTV!掲示板


未解決 解決 停止 削除要請

2008
0808
tsuka右下がり2解決


tsuka

リンク

2008/8/8(Fri) 11:17:14|NO.17989

chkboxで何となく作って見たんですが...
右下がりになってしまいます
どこがおかしいんでしょう?


dim black,32*24 dim d,32*24 buffer 1,32,24 mes "ABCD" gsel 0 x=20 objsize x,x,x pos 0,0 repeat ginfo_winx/x repeat ginfo_winy/x no++ chkbox "",d(no) loop s++ pos x*s,0 loop repeat 32*24 gsel 1 pget cx,cy r=ginfo_r g=ginfo_g b=ginfo_b nn++ if r=0&(g=0)&(b=0) :black(nn)=1 if cy>24 :cx++ :cy=0 cy++ loop gsel 0 repeat if black(f)=1 :objprm f,1 f++ if f>=24*32 :stop wait 1 loop



この記事に返信する


SYAM

リンク

2008/8/8(Fri) 11:29:29|NO.17990

2つめのrepeatの終わりの cy の計算と条件が間違っていますね。
cyに1を足してから、 cyが24『以上』の時に次の列に移るのが正しいです。



tsuka

リンク

2008/8/8(Fri) 11:38:11|NO.17991

なるほど!

うまくいきました


repeat 32*24 gsel 1 pget cx,cy r=ginfo_r g=ginfo_g b=ginfo_b nn++ if r=0&(g=0)&(b=0) :black(nn)=1 cy++ if cy>=24 :cx++ :cy=0 loop
こうすればいいんですね



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