メニュー

最新の20件
2022-10-09 2021-05-19 2018-08-01 2018-07-31 2018-07-21 2018-07-11 2018-06-28 2018-06-23
total 166 today 1 yesterday 1 now 1

Menu

  • Total:166/Today:1

簡単言語_NO454toNO463

ＮＯ４５４ †

書いてみた

dim one_code,256
x=0
//	ボタンによって選択される選択肢のID
selected_btnext="a"

my_pc=1
*sw_begin
	await 1
switch my_pc
case 1:my_pc++:cls 0:goto *sw_begin
case 2:my_pc++:objsize 120,24:goto *sw_begin
case 3:my_pc++:button "Ｘ足す１",*bt_hoge_1:bt_pc_1=8:goto *sw_begin
case 4:my_pc++:button "Ｘ引く１",*bt_hoge_2:bt_pc_2=9:goto *sw_begin
case 5:my_pc++:pos 150,0:goto *sw_begin
case 6:my_pc++:mes "ボタンを押してください":goto *sw_begin
case 7:my_pc++: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++:cls 0:goto *sw_begin
case 11:my_pc++:objsize 120,24:goto *sw_begin
case 12:my_pc++:button "NEXT",*bt_hoge_1:bt_pc_1=1:goto *sw_begin
case 13:my_pc++:pos 150,0:goto *sw_begin
case 14:my_pc++:mes "Ｘの値は"+x+"です":goto *sw_begin
case 15:my_pc++: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_emd