検索
AND検索
OR検索
トップ
|
リロード
|
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
NO_660_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_660_EDIT [#i74d2a1c]
~
追加・編集・削除・挿入~
ザックリ書きました~
Le.Antillaで書きましたよー~
~
#module one_block_data many_data,data_title,del_flag
#modinit int p_size
data_title=""
del_flag=0
sdim many_data,100,p_size
return
#modfunc local set_del_flag
del_flag=-1
sdim data_title,1
sdim many_data,1.1
return
#modfunc local set_title str p_str
data_title=p_str
return
#modcfunc local get_title
return data_title
#modcfunc local get_data_length
return length(many_data)
#modfunc local set_one_data int p_index,str p_str
if p_index >= length(many_data):dialog "p_index is too ...
many_data.p_index=p_str
return
#modcfunc local get_one_data int p_index
if p_index >= length(many_data):dialog "p_index is too ...
return many_data.p_index
#modfunc local str_dump
logmes "\ntitle:"+data_title+" del_flag:"+del_flag
repeat length(many_data)
logmes ""+cnt+":"+many_data.cnt
loop
return
#modfunc local reset int p_size
data_title=""
del_flag=0
sdim many_data,100,p_size
return
#modfunc local resize int p_size,local loc_length,local ...
loc_length=length(many_data)
sdim loc_array,100,loc_length
repeat loc_length
loc_array.cnt=many_data.cnt
loop
if loc_length > p_size {
sdim many_data,100,p_size
repeat p_size
many_data.cnt = loc_array.cnt
loop
}else{
sdim many_data,100,p_size
repeat loc_length
many_data.cnt = loc_array.cnt
loop
}
return
#global
// 試しにこんなデータ入力する
begin_var // case 1: def label
sta_l {
subr_do_eq_ldef4 1,"a",1,label_pc
if is_jump_p==1:is_jump_p=0:goto global_label
}
begin_do // case 2: cls 0
sta_c {
subr_do_eq_1 1,en_cls0
if is_jump_p==1:is_jump_p=0:goto global_label
}
begin_do // case 3: objsize
sta_c {
do_eq_three(1,en_objsize,120,24)
}
begin_do // case 4:
// read label
sta_c {
do_eq_three_lread(1,en_get_my_label,"aa1",11)
}
// button
sta_c {
switch my_pc_B
eq_B 4:cp1="X足す1":goto *sw_begin
eq_B 5:bt_pc_1=my_label: goto *sw_begin
eq_B 6:cr_com=en_button_A:cmd_fin
swend
}
#module block_manage
#deffunc local init
sdim _4note,10000
notesel _4note
num=0
return
#deffunc local add_block
newmod one_block_obj,one_block_data,8
num++
return num-1
#deffunc local many_dump
repeat num
str_dump@one_block_data one_block_obj@block_manage.cnt
loop
return
#deffunc local more_correct_dump
repeat notemax
tmp=""
noteget tmp,cnt
str_dump@one_block_data one_block_obj@block_manage.int(...
loop
return
#global
init@block_manage
// 追加
add_block@block_manage
index=stat
noteadd ""+str(index),-1,0
set_title@one_block_data one_block_obj@block_manage.ind...
tmp_data={"begin_var // case 1: def label
sta_l {
subr_do_eq_ldef4 1,\"a\",1,label_pc
if is_jump_p==1:is_jump_p=0:goto global_label
}"}
sdim tmp_array,100,8
split tmp_data,"\n",tmp_array
repeat length(tmp_array)
set_one_data@one_block_data one_block_obj@block_manage...
loop
str_dump@one_block_data one_block_obj@block_manage.index
// 追加
add_block@block_manage
index=stat
noteadd ""+str(index),-1,0
set_title@one_block_data one_block_obj@block_manage.ind...
tmp_data={"begin_do // case 2: cls 0
sta_c {
subr_do_eq_1 1,en_cls0
if is_jump_p==1:is_jump_p=0:goto global_label
}"}
sdim tmp_array,100,8
split tmp_data,"\n",tmp_array
repeat length(tmp_array)
set_one_data@one_block_data one_block_obj@block_manage...
loop
str_dump@one_block_data one_block_obj@block_manage.index
// 追加
add_block@block_manage
index=stat
noteadd ""+str(index),-1,0
set_title@one_block_data one_block_obj@block_manage.ind...
tmp_data={"begin_do // case 3: objsize
sta_c {
do_eq_three(1,en_objsize,120,24)
}"}
sdim tmp_array,100,8
split tmp_data,"\n",tmp_array
repeat length(tmp_array)
set_one_data@one_block_data one_block_obj@block_manage...
loop
str_dump@one_block_data one_block_obj@block_manage.index
// 追加
add_block@block_manage
index=stat
noteadd ""+str(index),-1,0
set_title@one_block_data one_block_obj@block_manage.ind...
tmp_data={"begin_do // case 4:
// read label
sta_c {
do_eq_three_lread(1,en_get_my_label,\"aa1\",11)
}
// button
sta_c {
switch my_pc_B
eq_B 4:cp1=\"X足す1\":goto *sw_begin
eq_B 5:bt_pc_1=my_label: goto *sw_begin
eq_B 6:cr_com=en_button_A:cmd_fin
swend
}"}
sdim tmp_array,100,8
split tmp_data,"\n",tmp_array
tmp_num=stat
if stat >= 8{
resize@one_block_data one_block_obj@block_manage.index,...
}
repeat length(tmp_array)
set_one_data@one_block_data one_block_obj@block_manage...
loop
str_dump@one_block_data one_block_obj@block_manage.index
// 削除
set_del_flag@one_block_data one_block_obj@block_manage.1
repeat notemax
tmp=""
noteget tmp,cnt
if tmp==1:notedel cnt:break
loop
// クリア
reset@one_block_data one_block_obj@block_manage.2,8
// 編集
index=2
set_title@one_block_data one_block_obj@block_manage.ind...
tmp_data={"begin_var // case 1: def label
sta_l {
subr_do_eq_ldef4 1,\"a\",1,label_pc
if is_jump_p==1:is_jump_p=0:goto global_label
}"}
sdim tmp_array,100,8
split tmp_data,"\n",tmp_array
repeat length(tmp_array)
set_one_data@one_block_data one_block_obj@block_manage...
loop
// 挿入
add_block@block_manage
index=stat
noteadd ""+str(index),2,0
set_title@one_block_data one_block_obj@block_manage.ind...
tmp_data={"begin_do // case 2: cls 0
sta_c {
subr_do_eq_1 1,en_cls0
if is_jump_p==1:is_jump_p=0:goto global_label
}"}
sdim tmp_array,100,8
split tmp_data,"\n",tmp_array
repeat length(tmp_array)
set_one_data@one_block_data one_block_obj@block_manage...
loop
; str_dump@one_block_data one_block_obj@block_manage.in...
; many_dump@block_manage
more_correct_dump@block_manage
終了行:
**NO_660_EDIT [#i74d2a1c]
~
追加・編集・削除・挿入~
ザックリ書きました~
Le.Antillaで書きましたよー~
~
#module one_block_data many_data,data_title,del_flag
#modinit int p_size
data_title=""
del_flag=0
sdim many_data,100,p_size
return
#modfunc local set_del_flag
del_flag=-1
sdim data_title,1
sdim many_data,1.1
return
#modfunc local set_title str p_str
data_title=p_str
return
#modcfunc local get_title
return data_title
#modcfunc local get_data_length
return length(many_data)
#modfunc local set_one_data int p_index,str p_str
if p_index >= length(many_data):dialog "p_index is too ...
many_data.p_index=p_str
return
#modcfunc local get_one_data int p_index
if p_index >= length(many_data):dialog "p_index is too ...
return many_data.p_index
#modfunc local str_dump
logmes "\ntitle:"+data_title+" del_flag:"+del_flag
repeat length(many_data)
logmes ""+cnt+":"+many_data.cnt
loop
return
#modfunc local reset int p_size
data_title=""
del_flag=0
sdim many_data,100,p_size
return
#modfunc local resize int p_size,local loc_length,local ...
loc_length=length(many_data)
sdim loc_array,100,loc_length
repeat loc_length
loc_array.cnt=many_data.cnt
loop
if loc_length > p_size {
sdim many_data,100,p_size
repeat p_size
many_data.cnt = loc_array.cnt
loop
}else{
sdim many_data,100,p_size
repeat loc_length
many_data.cnt = loc_array.cnt
loop
}
return
#global
// 試しにこんなデータ入力する
begin_var // case 1: def label
sta_l {
subr_do_eq_ldef4 1,"a",1,label_pc
if is_jump_p==1:is_jump_p=0:goto global_label
}
begin_do // case 2: cls 0
sta_c {
subr_do_eq_1 1,en_cls0
if is_jump_p==1:is_jump_p=0:goto global_label
}
begin_do // case 3: objsize
sta_c {
do_eq_three(1,en_objsize,120,24)
}
begin_do // case 4:
// read label
sta_c {
do_eq_three_lread(1,en_get_my_label,"aa1",11)
}
// button
sta_c {
switch my_pc_B
eq_B 4:cp1="X足す1":goto *sw_begin
eq_B 5:bt_pc_1=my_label: goto *sw_begin
eq_B 6:cr_com=en_button_A:cmd_fin
swend
}
#module block_manage
#deffunc local init
sdim _4note,10000
notesel _4note
num=0
return
#deffunc local add_block
newmod one_block_obj,one_block_data,8
num++
return num-1
#deffunc local many_dump
repeat num
str_dump@one_block_data one_block_obj@block_manage.cnt
loop
return
#deffunc local more_correct_dump
repeat notemax
tmp=""
noteget tmp,cnt
str_dump@one_block_data one_block_obj@block_manage.int(...
loop
return
#global
init@block_manage
// 追加
add_block@block_manage
index=stat
noteadd ""+str(index),-1,0
set_title@one_block_data one_block_obj@block_manage.ind...
tmp_data={"begin_var // case 1: def label
sta_l {
subr_do_eq_ldef4 1,\"a\",1,label_pc
if is_jump_p==1:is_jump_p=0:goto global_label
}"}
sdim tmp_array,100,8
split tmp_data,"\n",tmp_array
repeat length(tmp_array)
set_one_data@one_block_data one_block_obj@block_manage...
loop
str_dump@one_block_data one_block_obj@block_manage.index
// 追加
add_block@block_manage
index=stat
noteadd ""+str(index),-1,0
set_title@one_block_data one_block_obj@block_manage.ind...
tmp_data={"begin_do // case 2: cls 0
sta_c {
subr_do_eq_1 1,en_cls0
if is_jump_p==1:is_jump_p=0:goto global_label
}"}
sdim tmp_array,100,8
split tmp_data,"\n",tmp_array
repeat length(tmp_array)
set_one_data@one_block_data one_block_obj@block_manage...
loop
str_dump@one_block_data one_block_obj@block_manage.index
// 追加
add_block@block_manage
index=stat
noteadd ""+str(index),-1,0
set_title@one_block_data one_block_obj@block_manage.ind...
tmp_data={"begin_do // case 3: objsize
sta_c {
do_eq_three(1,en_objsize,120,24)
}"}
sdim tmp_array,100,8
split tmp_data,"\n",tmp_array
repeat length(tmp_array)
set_one_data@one_block_data one_block_obj@block_manage...
loop
str_dump@one_block_data one_block_obj@block_manage.index
// 追加
add_block@block_manage
index=stat
noteadd ""+str(index),-1,0
set_title@one_block_data one_block_obj@block_manage.ind...
tmp_data={"begin_do // case 4:
// read label
sta_c {
do_eq_three_lread(1,en_get_my_label,\"aa1\",11)
}
// button
sta_c {
switch my_pc_B
eq_B 4:cp1=\"X足す1\":goto *sw_begin
eq_B 5:bt_pc_1=my_label: goto *sw_begin
eq_B 6:cr_com=en_button_A:cmd_fin
swend
}"}
sdim tmp_array,100,8
split tmp_data,"\n",tmp_array
tmp_num=stat
if stat >= 8{
resize@one_block_data one_block_obj@block_manage.index,...
}
repeat length(tmp_array)
set_one_data@one_block_data one_block_obj@block_manage...
loop
str_dump@one_block_data one_block_obj@block_manage.index
// 削除
set_del_flag@one_block_data one_block_obj@block_manage.1
repeat notemax
tmp=""
noteget tmp,cnt
if tmp==1:notedel cnt:break
loop
// クリア
reset@one_block_data one_block_obj@block_manage.2,8
// 編集
index=2
set_title@one_block_data one_block_obj@block_manage.ind...
tmp_data={"begin_var // case 1: def label
sta_l {
subr_do_eq_ldef4 1,\"a\",1,label_pc
if is_jump_p==1:is_jump_p=0:goto global_label
}"}
sdim tmp_array,100,8
split tmp_data,"\n",tmp_array
repeat length(tmp_array)
set_one_data@one_block_data one_block_obj@block_manage...
loop
// 挿入
add_block@block_manage
index=stat
noteadd ""+str(index),2,0
set_title@one_block_data one_block_obj@block_manage.ind...
tmp_data={"begin_do // case 2: cls 0
sta_c {
subr_do_eq_1 1,en_cls0
if is_jump_p==1:is_jump_p=0:goto global_label
}"}
sdim tmp_array,100,8
split tmp_data,"\n",tmp_array
repeat length(tmp_array)
set_one_data@one_block_data one_block_obj@block_manage...
loop
; str_dump@one_block_data one_block_obj@block_manage.in...
; many_dump@block_manage
more_correct_dump@block_manage
ページ名: