#author("2017-11-08T12:07:38+09:00","","")
[[簡単言語_NO454toNO463]]


**NO_455 [#zce126f4]

命令をサブルーチン化

 dim one_code,256
 x=0
 //	ボタンによって選択される選択肢のID
 selected_btnext="a"
 
 my_pc=1
 *sw_begin
 	await 1
 switch my_pc
 case 1:my_pc++:		gosub *c_cls0:goto *sw_begin
 case 2:my_pc++:		cp1=120:cp2=24:gosub *c_objsize:goto *sw_begin
 case 3:my_pc++:		cp1="Ｘ足す１":bt_pc_1=8:gosub *c_button_A:goto *sw_begin
 case 4:my_pc++:		cp1="Ｘ引く１":bt_pc_2=9:gosub *c_button_B:goto *sw_begin
 case 5:my_pc++:		cp1=150:cp2=0:gosub *c_pos:goto *sw_begin
 case 6:my_pc++:		cp1="ボタンを押してください":gosub *c_mes:goto *sw_begin
 case 7:my_pc++:		goto *c_stop:goto *sw_begin
 
 case 8:				x+=1:my_pc=10:goto *sw_begin
 case 9:				x-=1:my_pc=10:goto *sw_begin
 //ax
 case 10:my_pc++:	gosub *c_cls0:goto *sw_begin
 case 11:my_pc++:	cp1=120:cp2=24:gosub *c_objsize:goto *sw_begin
 case 12:my_pc++:	cp1="NEXT":bt_pc_1=1:gosub *c_button_A:goto *sw_begin
 case 13:my_pc++:	cp1=150:cp2=0:gosub *c_pos:goto *sw_begin
 case 14:my_pc++:	cp1="Ｘの値は"+x+"です":gosub *c_mes:goto *sw_begin
 case 15:my_pc++:	goto *c_stop:goto *sw_begin
 swend
 *bt_hoge_1
 	my_pc=bt_pc_1
 	goto *sw_begin
 *bt_hoge_2
 	my_pc=bt_pc_2
 	goto *sw_begin
 *sw_end
 	stop
 *c_button_A
 	button cp1,*bt_hoge_1
 	return
 *c_button_B
 	button cp1,*bt_hoge_2
 	return
 *c_cls0
 	cls 0
 	return
 *c_objsize
 	objsize cp1,cp2
 	return
 *c_pos
 	pos cp1,cp2
 	return
 *c_mes
 	mes ""+cp1
 	return
 *c_stop
 	stop