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


HSPTV!掲示板


未解決 解決 停止 削除要請

2015
0718
Mituki (投稿者削除)2解決


Mituki

リンク

2015/7/18(Sat) 22:35:55|NO.70146

この記事は投稿者により削除されました。
2015/8/13(Thu) 01:10:36



この記事に返信する


リンク

2015/7/18(Sat) 23:59:31|NO.70151

ほい

; stick命令によるメニュー選択サンプル ; cls 4 color 255,255,255 pos 300,180:mes "SELECTION-1" pos 300,200:mes "SELECTION-2" pos 300,220:mes "SELECTION-3" pos 300,240:mes "PROGRAM END" a=0 x=280:y=180:sel=0:maxsel=3 *selmain color 0,0,0:boxf x,y,x+20,y+20 y=sel*20+180 color 255,255,255 pos x,y:mes "*" *selloop stick a,1 if a&2 : a=-1:goto *selchg if a&8 : a=1:goto *selchg if a&$30 : goto *selok await 10:goto *selloop *selchg a=a+sel if (a<0)or(a>maxsel) : a=sel sel=a:goto *selmain *selok if sel=3 : end a=sel+1 dialog "SELECTION-"+a goto *selloop



skyblue

リンク

2015/7/19(Sun) 10:33:43|NO.70153

>タイトルどおり Stickサンプルを消してしまいました・・・
zip版をダウンロードして該当ファイルをコピーアンドペーストでOK?



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