検索
AND検索
OR検索
トップ
|
リロード
|
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
NO_658_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_658_EDIT [#saf2b111]
~
まずはデータ構造作成からw~
1block data です~
ただの文字列配列と言えばそうなんですがw~
文字列配列に操作をくっつけたという意味では~
モジュールというくくりでいいのかな~
~
#module one_block_data many_data
#modinit int p_size
sdim many_data,100,p_size
return
#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
repeat length(many_data)
logmes ""+cnt+":"+many_data.cnt
loop
return
#modfunc resize int p_size,local loc_length,local loc_ar...
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
// TEST CODE
newmod block_obj_01,one_block_data,2
mes get_data_length@one_block_data(block_obj_01)
resize block_obj_01,1
mes get_data_length@one_block_data(block_obj_01)
newmod block_obj_02,one_block_data,3
mes get_data_length@one_block_data(block_obj_02)
resize block_obj_02,4
mes get_data_length@one_block_data(block_obj_02)
set_one_data@one_block_data block_obj_02,1,"a"
set_one_data@one_block_data block_obj_02,3,"b"
set_one_data@one_block_data block_obj_02,4,"c"
mes ""+get_one_data@one_block_data(block_obj_02,4)
str_dump@one_block_data block_obj_02
;モジュール命令 スペース オブジェクト名 "," 引数A "," 引...
終了行:
**NO_658_EDIT [#saf2b111]
~
まずはデータ構造作成からw~
1block data です~
ただの文字列配列と言えばそうなんですがw~
文字列配列に操作をくっつけたという意味では~
モジュールというくくりでいいのかな~
~
#module one_block_data many_data
#modinit int p_size
sdim many_data,100,p_size
return
#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
repeat length(many_data)
logmes ""+cnt+":"+many_data.cnt
loop
return
#modfunc resize int p_size,local loc_length,local loc_ar...
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
// TEST CODE
newmod block_obj_01,one_block_data,2
mes get_data_length@one_block_data(block_obj_01)
resize block_obj_01,1
mes get_data_length@one_block_data(block_obj_01)
newmod block_obj_02,one_block_data,3
mes get_data_length@one_block_data(block_obj_02)
resize block_obj_02,4
mes get_data_length@one_block_data(block_obj_02)
set_one_data@one_block_data block_obj_02,1,"a"
set_one_data@one_block_data block_obj_02,3,"b"
set_one_data@one_block_data block_obj_02,4,"c"
mes ""+get_one_data@one_block_data(block_obj_02,4)
str_dump@one_block_data block_obj_02
;モジュール命令 スペース オブジェクト名 "," 引数A "," 引...
ページ名: