検索
AND検索
OR検索
トップ
|
リロード
|
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
NO_508_EDIT をテンプレートにして作成
メニュー
簡易掲示板
LINK集
y.tackの公式BBSブックマーク
practice room
?
最新の20件
2022-10-09
多角形の内外判定
2021-05-19
RecentDeleted
2018-08-01
FrontPage
文字列型変数管理サブルーチン
GAME作成システム
2018-07-31
double型変数管理サブルーチン
int型変数管理サブルーチン
2018-07-21
GUIとメイン分割処理。たたき台2
2018-07-11
memo
NO_579_sample
GUIとメイン分割処理。たたき台
2018-06-28
NO_714
NO_712
NO_706
NO_705
NO_704
NO_703
NO_702
2018-06-23
Shift_JIS
モートン番号テーブル化 / 八分木
total
0
today
0
yesterday
0
now
1
Menu
Total:0/Today:0
開始行:
**NO_508_EDIT [#t1f9e9bc]
dialogを使って聞くように変更~
しつこいかもw~
#include "hspda.as"
#define WM_COMMAND 0x0111
onexit goto *prog_exit
// WM_COMMAND を捕まえる
oncmd gosub *lbl_WM_COMMAND, WM_COMMAND
objsize 640,480
sdim _4note,65000
notesel _4note
_4note="#define _001script v001=0:\n#define _002label v0...
stat4listbox=0
listbox stat4listbox,100,_4note
ID4listbox=stat
gosub *show_sub_B_window
gsel 2,-1
gosub *show_sub_A_window
gsel 1,-1
gosub *show_cmd_window
stop
*show_cmd_window
screen 10,320,300
objsize 80,20
button "vsave A",*do_vsave_A
button "vload A",*do_vload_A
pos 80,0
button "vsave B",*do_vsave_B
button "vload B",*do_vload_B
pos 160,0
button "vsave C",*do_vsave_C
button "vload C",*do_vload_C
pos 240,0
button "vsave D",*do_vsave_D
button "vload D",*do_vload_D
stat4input_FN="tmp.txt"
pos 0,40
input stat4input_FN,320,40
ID4input_FN=stat
button "notesave",*do_notesave
button "noteload",*do_noteload
stop
*do_notesave
dialog ""+stat4input_FN+"にnotesaveしてもいいですか?",2
if stat==7:dialog ""+stat4input_FN+"にnotesaveしません...
notesave stat4input_FN
dialog ""+stat4input_FN+"にnotesaveしました",0
stop
*do_noteload
dialog ""+stat4input_FN+"をnoteloadしてもいいですか?",2
if stat==7:dialog ""+stat4input_FN+"をnoteloadしません...
noteload stat4input_FN
gsel 0
objprm ID4listbox,_4note
dialog ""+stat4input_FN+"をnoteloadしました",0
stop
*do_vsave_A
dialog "Aにvsaveしてもいいですか?",2
if stat==7:dialog "Aにvsaveしませんでした",0:stop
vsave "v_tmp_A.dat"
dialog "Aにvsaveしました",0
stop
*do_vsave_B
dialog "Bにvsaveしてもいいですか?",2
if stat==7:dialog "Bにvsaveしませんでした",0:stop
vsave "v_tmp_B.dat"
dialog "Bにvsaveしました",0
stop
*do_vsave_C
dialog "Cにvsaveしてもいいですか?",2
if stat==7:dialog "Cにvsaveしませんでした",0:stop
vsave "v_tmp_C.dat"
dialog "Cにvsaveしました",0
stop
*do_vsave_D
dialog "Dにvsaveしてもいいですか?",2
if stat==7:dialog "Cにvsaveしませんでした",0:stop
vsave "v_tmp_D.dat"
dialog "Dにvsaveしました",0
stop
*do_vload_A
dialog "Aをvloadしてもいいですか?",2
if stat==7:dialog "Aをvloadしませんでした",0:stop
vload "v_tmp_A.dat"
gsel 0
objprm ID4listbox,_4note
dialog "Aをvloadしました",0
stop
*do_vload_B
dialog "Bをvloadしてもいいですか?",2
if stat==7:dialog "Bをvloadしませんでした",0:stop
vload "v_tmp_B.dat"
gsel 0
objprm ID4listbox,_4note
dialog "Bをvloadしました",0
stop
*do_vload_C
dialog "Cをvloadしてもいいですか?",2
if stat==7:dialog "Cをvloadしませんでした",0:stop
vload "v_tmp_C.dat"
gsel 0
objprm ID4listbox,_4note
dialog "Cをvloadしました",0
stop
*do_vload_D
dialog "Dをvloadしてもいいですか?",2
if stat==7:dialog "Dをvloadしませんでした",0:stop
vload "v_tmp_D.dat"
gsel 0
objprm ID4listbox,_4note
dialog "Dをvloadしました",0
stop
*show_sub_A_window
screen 1,300,300
stat4input_A=""
input stat4input_A,300,40
button "編集",*tmp_edit
button "script",*tmp_l
button "label",*tmp_ll
return
*show_sub_B_window
screen 2,300,80
stat4input=""
input stat4input,300,40
objsize 100,20
pos 0,40
button "上書き",*set_lb_str
pos 100,40
button "挿入",*insert_lb_str
pos 100,60
button "末尾挿入",*insert_last_lb_str
pos 0,60
button "キャンセル",*lb_cansel
return
*tmp_edit
stop
*tmp_l
gsel 1,-1
gsel 2,2
title "編集:script"
stop
*tmp_ll
gsel 1,-1
gsel 2,2
title "編集:label"
stop
*lbl_WM_COMMAND
if ( ( ( wparam >> 16 ) & 0xFFFF ) == 0x0002 ) {
; dialog "リストの " + stat4listbox + " 番目の要...
gsel 2
tmp=""
if stat4listbox!=-1{
noteget tmp,stat4listbox
objprm 0,tmp
gsel 1,2
}
}
return
*lb_cansel
gsel 2,-1
stop
*set_lb_str
noteadd stat4input,stat4listbox,1
gsel 0
objprm ID4listbox,_4note
gsel 2,-1
stop
*insert_lb_str
noteadd stat4input,stat4listbox,0
gsel 0
objprm ID4listbox,_4note
gsel 2,-1
stop
*insert_last_lb_str
noteadd stat4input,-1,0
gsel 0
objprm ID4listbox,_4note
gsel 2,-1
stop
*prog_exit
dialog "プログラムを終了しますか?",2
if stat==6:end
終了行:
**NO_508_EDIT [#t1f9e9bc]
dialogを使って聞くように変更~
しつこいかもw~
#include "hspda.as"
#define WM_COMMAND 0x0111
onexit goto *prog_exit
// WM_COMMAND を捕まえる
oncmd gosub *lbl_WM_COMMAND, WM_COMMAND
objsize 640,480
sdim _4note,65000
notesel _4note
_4note="#define _001script v001=0:\n#define _002label v0...
stat4listbox=0
listbox stat4listbox,100,_4note
ID4listbox=stat
gosub *show_sub_B_window
gsel 2,-1
gosub *show_sub_A_window
gsel 1,-1
gosub *show_cmd_window
stop
*show_cmd_window
screen 10,320,300
objsize 80,20
button "vsave A",*do_vsave_A
button "vload A",*do_vload_A
pos 80,0
button "vsave B",*do_vsave_B
button "vload B",*do_vload_B
pos 160,0
button "vsave C",*do_vsave_C
button "vload C",*do_vload_C
pos 240,0
button "vsave D",*do_vsave_D
button "vload D",*do_vload_D
stat4input_FN="tmp.txt"
pos 0,40
input stat4input_FN,320,40
ID4input_FN=stat
button "notesave",*do_notesave
button "noteload",*do_noteload
stop
*do_notesave
dialog ""+stat4input_FN+"にnotesaveしてもいいですか?",2
if stat==7:dialog ""+stat4input_FN+"にnotesaveしません...
notesave stat4input_FN
dialog ""+stat4input_FN+"にnotesaveしました",0
stop
*do_noteload
dialog ""+stat4input_FN+"をnoteloadしてもいいですか?",2
if stat==7:dialog ""+stat4input_FN+"をnoteloadしません...
noteload stat4input_FN
gsel 0
objprm ID4listbox,_4note
dialog ""+stat4input_FN+"をnoteloadしました",0
stop
*do_vsave_A
dialog "Aにvsaveしてもいいですか?",2
if stat==7:dialog "Aにvsaveしませんでした",0:stop
vsave "v_tmp_A.dat"
dialog "Aにvsaveしました",0
stop
*do_vsave_B
dialog "Bにvsaveしてもいいですか?",2
if stat==7:dialog "Bにvsaveしませんでした",0:stop
vsave "v_tmp_B.dat"
dialog "Bにvsaveしました",0
stop
*do_vsave_C
dialog "Cにvsaveしてもいいですか?",2
if stat==7:dialog "Cにvsaveしませんでした",0:stop
vsave "v_tmp_C.dat"
dialog "Cにvsaveしました",0
stop
*do_vsave_D
dialog "Dにvsaveしてもいいですか?",2
if stat==7:dialog "Cにvsaveしませんでした",0:stop
vsave "v_tmp_D.dat"
dialog "Dにvsaveしました",0
stop
*do_vload_A
dialog "Aをvloadしてもいいですか?",2
if stat==7:dialog "Aをvloadしませんでした",0:stop
vload "v_tmp_A.dat"
gsel 0
objprm ID4listbox,_4note
dialog "Aをvloadしました",0
stop
*do_vload_B
dialog "Bをvloadしてもいいですか?",2
if stat==7:dialog "Bをvloadしませんでした",0:stop
vload "v_tmp_B.dat"
gsel 0
objprm ID4listbox,_4note
dialog "Bをvloadしました",0
stop
*do_vload_C
dialog "Cをvloadしてもいいですか?",2
if stat==7:dialog "Cをvloadしませんでした",0:stop
vload "v_tmp_C.dat"
gsel 0
objprm ID4listbox,_4note
dialog "Cをvloadしました",0
stop
*do_vload_D
dialog "Dをvloadしてもいいですか?",2
if stat==7:dialog "Dをvloadしませんでした",0:stop
vload "v_tmp_D.dat"
gsel 0
objprm ID4listbox,_4note
dialog "Dをvloadしました",0
stop
*show_sub_A_window
screen 1,300,300
stat4input_A=""
input stat4input_A,300,40
button "編集",*tmp_edit
button "script",*tmp_l
button "label",*tmp_ll
return
*show_sub_B_window
screen 2,300,80
stat4input=""
input stat4input,300,40
objsize 100,20
pos 0,40
button "上書き",*set_lb_str
pos 100,40
button "挿入",*insert_lb_str
pos 100,60
button "末尾挿入",*insert_last_lb_str
pos 0,60
button "キャンセル",*lb_cansel
return
*tmp_edit
stop
*tmp_l
gsel 1,-1
gsel 2,2
title "編集:script"
stop
*tmp_ll
gsel 1,-1
gsel 2,2
title "編集:label"
stop
*lbl_WM_COMMAND
if ( ( ( wparam >> 16 ) & 0xFFFF ) == 0x0002 ) {
; dialog "リストの " + stat4listbox + " 番目の要...
gsel 2
tmp=""
if stat4listbox!=-1{
noteget tmp,stat4listbox
objprm 0,tmp
gsel 1,2
}
}
return
*lb_cansel
gsel 2,-1
stop
*set_lb_str
noteadd stat4input,stat4listbox,1
gsel 0
objprm ID4listbox,_4note
gsel 2,-1
stop
*insert_lb_str
noteadd stat4input,stat4listbox,0
gsel 0
objprm ID4listbox,_4note
gsel 2,-1
stop
*insert_last_lb_str
noteadd stat4input,-1,0
gsel 0
objprm ID4listbox,_4note
gsel 2,-1
stop
*prog_exit
dialog "プログラムを終了しますか?",2
if stat==6:end
ページ名: