検索
AND検索
OR検索
トップ
|
リロード
|
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
NO_470 をテンプレートにして作成
メニュー
簡易掲示板
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
開始行:
[[簡単言語_NO467toNO479]]
**NO_470 [#d0d88c17]
なんか しばらくしたら 何を実装したかったか 忘れそうw
#module mod_label i_name,i_ID,i_l_value
#modinit str p_name,int p_ID,int p_l_value
i_name=p_name
i_ID=p_ID
i_l_value=p_l_value
return
#modcfunc get_i_name
return i_name
#modcfunc get_i_ID
return i_ID
#modcfunc get_i_l_value
return i_l_value
#deffunc x_label_init int sw_new_p,str _p_name,int _p_l_...
; global fv_ID
if sw_new_p==1{
fv_ID=0
}
newmod o_label,mod_label,_p_name,fv_ID,_p_l_value
fv_ID++
return
#defcfunc get_x_label_l_value str __p_name,int __p_ID,lo...
r_name=get_i_name(o_label.__p_ID)
if r_name!=__p_name:return -1
return get_i_l_value(o_label.__p_ID)
#global
dim pc_stack,256
n_pc_stack=0
hoge_pc=1
dim num_stack,128
repeat length(num_stack)
num_stack.cnt=-1
loop
// line search のみ有効
flag_on_do=0
flag_on_line_search=1
flag_on_label_search=0
*sw_begin
await 1
my_line=int(__LINE__) //2行でcaseみたいな処理
if line_pc==my_line{ //1
if flag_on_do==1{
my_pc++:goto *sw_begin
}
}
if flag_on_line_search==1{
pc_stack.hoge_pc=my_line:hoge_pc++
}
if flag_on_label_search==1{
my_pc_B=1
if my_pc_B==1{my_pc_B++:cp1=1 }
if my_pc_B==2{my_pc_B++:cp2="a" }
if my_pc_B==3{my_pc_B++:cp3=1 }
if my_pc_B==4{my_pc_B++:
x_label_init cp1,cp2,cp3 }
if my_pc_B==5{my_pc_B=1:my_pc++ }// label
}
my_line=int(__LINE__) //2行でcaseみたいな処理
if line_pc==my_line{ //2
if flag_on_do==1{
; cr_com=en_cls0:goto *com_sw // *com_sw 未実装
}
}
if flag_on_line_search==1{
pc_stack.hoge_pc=my_line:hoge_pc++
}
if flag_on_label_search==1{
}
my_line=int(__LINE__) //2行でcaseみたいな処理
if line_pc==my_line{ //3
if flag_on_do==1{
if my_pc_B==1{my_pc_B++:cp1=120:goto *sw_begin }
if my_pc_B==2{my_pc_B++:cp2=24: goto *sw_begin }
; if my_pc_B==3{cr_com=en_objsize:
; my_pc_B=1:my_pc++:goto *com_sw }// *com_sw 未実装
my_pc++
}
}
if flag_on_line_search==1{
pc_stack.hoge_pc=my_line:hoge_pc++
}
if flag_on_label_search==1{
}
// pc_stack dump
repeat 5
logmes ""+cnt+" "+pc_stack.cnt
loop
repeat 5
if pc_stack.cnt!=0{
num_stack(pc_stack.cnt)=cnt
}
loop
repeat 100
logmes ""+cnt+":"+num_stack.cnt
loop
stop
//
0 0
1 43
2 62
3 74
4 0
0:-1
1:-1
2:-1
3:-1
4:-1
5:-1
6:-1
7:-1
8:-1
9:-1
10:-1
11:-1
12:-1
13:-1
14:-1
15:-1
16:-1
17:-1
18:-1
19:-1
20:-1
21:-1
22:-1
23:-1
24:-1
25:-1
26:-1
27:-1
28:-1
29:-1
30:-1
31:-1
32:-1
33:-1
34:-1
35:-1
36:-1
37:-1
38:-1
39:-1
40:-1
41:-1
42:-1
43:1
44:-1
45:-1
46:-1
47:-1
48:-1
49:-1
50:-1
51:-1
52:-1
53:-1
54:-1
55:-1
56:-1
57:-1
58:-1
59:-1
60:-1
61:-1
62:2
63:-1
64:-1
65:-1
66:-1
67:-1
68:-1
69:-1
70:-1
71:-1
72:-1
73:-1
74:3
75:-1
76:-1
77:-1
78:-1
79:-1
80:-1
81:-1
82:-1
83:-1
84:-1
85:-1
86:-1
87:-1
88:-1
89:-1
90:-1
91:-1
92:-1
93:-1
94:-1
95:-1
96:-1
97:-1
98:-1
99:-1
終了行:
[[簡単言語_NO467toNO479]]
**NO_470 [#d0d88c17]
なんか しばらくしたら 何を実装したかったか 忘れそうw
#module mod_label i_name,i_ID,i_l_value
#modinit str p_name,int p_ID,int p_l_value
i_name=p_name
i_ID=p_ID
i_l_value=p_l_value
return
#modcfunc get_i_name
return i_name
#modcfunc get_i_ID
return i_ID
#modcfunc get_i_l_value
return i_l_value
#deffunc x_label_init int sw_new_p,str _p_name,int _p_l_...
; global fv_ID
if sw_new_p==1{
fv_ID=0
}
newmod o_label,mod_label,_p_name,fv_ID,_p_l_value
fv_ID++
return
#defcfunc get_x_label_l_value str __p_name,int __p_ID,lo...
r_name=get_i_name(o_label.__p_ID)
if r_name!=__p_name:return -1
return get_i_l_value(o_label.__p_ID)
#global
dim pc_stack,256
n_pc_stack=0
hoge_pc=1
dim num_stack,128
repeat length(num_stack)
num_stack.cnt=-1
loop
// line search のみ有効
flag_on_do=0
flag_on_line_search=1
flag_on_label_search=0
*sw_begin
await 1
my_line=int(__LINE__) //2行でcaseみたいな処理
if line_pc==my_line{ //1
if flag_on_do==1{
my_pc++:goto *sw_begin
}
}
if flag_on_line_search==1{
pc_stack.hoge_pc=my_line:hoge_pc++
}
if flag_on_label_search==1{
my_pc_B=1
if my_pc_B==1{my_pc_B++:cp1=1 }
if my_pc_B==2{my_pc_B++:cp2="a" }
if my_pc_B==3{my_pc_B++:cp3=1 }
if my_pc_B==4{my_pc_B++:
x_label_init cp1,cp2,cp3 }
if my_pc_B==5{my_pc_B=1:my_pc++ }// label
}
my_line=int(__LINE__) //2行でcaseみたいな処理
if line_pc==my_line{ //2
if flag_on_do==1{
; cr_com=en_cls0:goto *com_sw // *com_sw 未実装
}
}
if flag_on_line_search==1{
pc_stack.hoge_pc=my_line:hoge_pc++
}
if flag_on_label_search==1{
}
my_line=int(__LINE__) //2行でcaseみたいな処理
if line_pc==my_line{ //3
if flag_on_do==1{
if my_pc_B==1{my_pc_B++:cp1=120:goto *sw_begin }
if my_pc_B==2{my_pc_B++:cp2=24: goto *sw_begin }
; if my_pc_B==3{cr_com=en_objsize:
; my_pc_B=1:my_pc++:goto *com_sw }// *com_sw 未実装
my_pc++
}
}
if flag_on_line_search==1{
pc_stack.hoge_pc=my_line:hoge_pc++
}
if flag_on_label_search==1{
}
// pc_stack dump
repeat 5
logmes ""+cnt+" "+pc_stack.cnt
loop
repeat 5
if pc_stack.cnt!=0{
num_stack(pc_stack.cnt)=cnt
}
loop
repeat 100
logmes ""+cnt+":"+num_stack.cnt
loop
stop
//
0 0
1 43
2 62
3 74
4 0
0:-1
1:-1
2:-1
3:-1
4:-1
5:-1
6:-1
7:-1
8:-1
9:-1
10:-1
11:-1
12:-1
13:-1
14:-1
15:-1
16:-1
17:-1
18:-1
19:-1
20:-1
21:-1
22:-1
23:-1
24:-1
25:-1
26:-1
27:-1
28:-1
29:-1
30:-1
31:-1
32:-1
33:-1
34:-1
35:-1
36:-1
37:-1
38:-1
39:-1
40:-1
41:-1
42:-1
43:1
44:-1
45:-1
46:-1
47:-1
48:-1
49:-1
50:-1
51:-1
52:-1
53:-1
54:-1
55:-1
56:-1
57:-1
58:-1
59:-1
60:-1
61:-1
62:2
63:-1
64:-1
65:-1
66:-1
67:-1
68:-1
69:-1
70:-1
71:-1
72:-1
73:-1
74:3
75:-1
76:-1
77:-1
78:-1
79:-1
80:-1
81:-1
82:-1
83:-1
84:-1
85:-1
86:-1
87:-1
88:-1
89:-1
90:-1
91:-1
92:-1
93:-1
94:-1
95:-1
96:-1
97:-1
98:-1
99:-1
ページ名: