#define global push_on_button_set_A %tbt_set_unil_A %i0 #define global get_on_button_set_A %tbt_set_unil_A *%p #define global pop_on_button_set_A %tbt_set_unil_A *%o #define global push_on_button_set_B %tbt_set_unil_B %i0 #define global get_on_button_set_B %tbt_set_unil_B *%p #define global pop_on_button_set_B %tbt_set_unil_B *%o // 特殊マクロについて 詳しくは、HSP Document Libraryの#defineのページにて // buttonを押すと変数に値を代入してからjumpするマクロ // %1:buttonに表示する文字列 // %2:buttonを押すと代入する対象 // %3:代入する値 // %4:buttonを押すと代入をしてからjumpするラベル #define global ctype button_set(%1,%2,%3,%4):push_on_button_set_A:push_on_button_set_B:\ button %1,get_on_button_set_A:goto get_on_button_set_B:pop_on_button_set_A:%2=%3:goto %4:pop_on_button_set_B // ユニークlabelを使わない時はこんなかんじ // primitive:原始 #define global ctype primitive_button_set(%1,%2,%3,%4,%5):\ button %2,*%1_next_A:\ goto *%1_next_B:\ *%1_next_A:%3=%4:goto %5:\ *%1_next_B /* TEST button_set("A",x,"Aだよ",*lmes) button_set("B",x,"Bだよ",*lmes) button_set("C",x,"Cだよ",*lmes) button_set("D",x,"Dだよ",*lmes) primitive_button_set(tmp_AA,"AA",x,"AAだよ",*lmes) primitive_button_set(tmp_BB,"BB",x,"BBだよ",*lmes) primitive_button_set(tmp_CC,"CC",x,"CCだよ",*lmes) primitive_button_set(tmp_DD,"DD",x,"DDだよ",*lmes) stop *lmes mes x stop*/ |