Module/mod_oncmd2

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
!
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

//	mod_oncmd2.hsp
//	oncmd2
//	oncmd2 命令の機能を説明するためのサンプルです。
 
#include "mod_oncmd2.hsp"
 
    title "マウスのボタンを(押して)離すと割り込み発生"
 
#define WM_LBUTTONUP                    0x0202
#define WM_RBUTTONUP                    0x0205
 
    // 同一のウィンドウメッセージに対する割り込みジャンプ先の多重登録１
    oncmd2 gosub *sub00, WM_LBUTTONUP
    oncmd2 gosub *sub01, WM_LBUTTONUP
    oncmd2 gosub *sub02, WM_LBUTTONUP
    oncmd2 gosub *sub03, WM_LBUTTONUP
    oncmd2 gosub *sub04, WM_LBUTTONUP
    // goto ジャンプは最後に登録した一つのみ有効
    oncmd2 goto *to01, WM_LBUTTONUP
    oncmd2 goto *to00, WM_LBUTTONUP
 
    // 同一のウィンドウメッセージに対する割り込みジャンプ先の多重登録２
    oncmd2 gosub *sub04, WM_RBUTTONUP
    oncmd2 gosub *sub03, WM_RBUTTONUP
    oncmd2 gosub *sub02, WM_RBUTTONUP
    oncmd2 gosub *sub01, WM_RBUTTONUP
    oncmd2 gosub *sub00, WM_RBUTTONUP
    // キーワード省略は goto 扱い
    oncmd2 *to01, WM_RBUTTONUP
 
    // 割り込みが発生すると設定されたジャンプ先に設定順で連続 gosub ジャンプ、
    // 全ての gosub ジャンプ終了後に goto ジャンプが実行される。
    // gosub ジャンプ先から戻り値ありの return で戻ると残りの gosub ジャンプ処理を中断。
 
    objsize 128, 24
    f = 1, 1 : pos 0, 0 : chkbox "割り込み処理を許可", f(0)
    repeat 5 : pos 128 * cnt, 24 : chkbox strf( "sub%02dからの戻り値あり", cnt ), r(cnt) : loop
 
    pos 0, 48
 
*main
    if ( ginfo_cy > 479 ) : pos ginfo_cx + 128, 48
    // 割り込み処理の許可／一時停止
    if ( f(0) != f(1) ) {
        f(1) = f(0)
        if ( f(0) ) { oncmd2 1 } else { oncmd2 0 }
    }
    wait 3
    goto *main
 
*to00
    if ( iparam == WM_LBUTTONUP ) { color 255, 127, 0 : k = "L" } else { color 0, 127, 255 : k = "R" }
    mes " to00: " + k : goto *main
*to01
    if ( iparam == WM_LBUTTONUP ) { color 255, 127, 0 : k = "L" } else { color 0, 127, 255 : k = "R" }
    mes " to01: " + k : goto *main
*sub00
    if ( iparam == WM_LBUTTONUP ) { color 255, 0, 0 : k = "L" } else { color 0, 0, 255 : k = "R" }
    mes "sub00: " + k : if ( r(0) ) { return ( 0 ) } else { return }
*sub01
    if ( iparam == WM_LBUTTONUP ) { color 255, 0, 0 : k = "L" } else { color 0, 0, 255 : k = "R" }
    mes "sub01: " + k : if ( r(1) ) { return ( 0 ) } else { return }
*sub02
    if ( iparam == WM_LBUTTONUP ) { color 255, 0, 0 : k = "L" } else { color 0, 0, 255 : k = "R" }
    mes "sub02: " + k : if ( r(2) ) { return ( 0 ) } else { return }
*sub03
    if ( iparam == WM_LBUTTONUP ) { color 255, 0, 0 : k = "L" } else { color 0, 0, 255 : k = "R" }
    mes "sub03: " + k : if ( r(3) ) { return ( 0 ) } else { return }
*sub04
    if ( iparam == WM_LBUTTONUP ) { color 255, 0, 0 : k = "L" } else { color 0, 0, 255 : k = "R" }
    mes "sub04: " + k : if ( r(4) ) { return ( 0 ) } else { return }

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46

//	mod_oncmd2.hsp
//	oncmd 命令の置き換え
//	oncmd 命令を置き換えることで複数のモジュール、およびプログラムの本体部分で
//	共通のウィンドウメッセージに対してoncmd 命令で割り込みを設定している場合の設定の衝突を回避する。
 
    title "マウスの左ボタンを(押して)離すと割り込み発生。"
 
#define global  WM_LBUTTONUP                    0x0202
 
    // #define でキーワード __ONCMD2_REPLACEONCMD__ を定義した後でモジュールファイルを
    // インクルードすると oncmd 命令を置き換えます。( oncmd2 命令と同じ動作になります。)
    // (※)次の一行↓が存在しない場合の動作(本来の oncmd の動作)と比べてください。
    #define __ONCMD2_REPLACEONCMD__
    #include "mod_oncmd2.hsp"
 
#module mod0
#deffunc mod0init
    oncmd gosub *on_wmlbu_mod0, WM_LBUTTONUP // oncmd で WM_LBUTTONUP メッセージに対する割り込みを設定
    return
*on_wmlbu_mod0
    color rnd( 256 ), rnd( 256 ), rnd( 256 )
    boxf 160, 0, 319, 119
    return
#global
 
#module mod1
#deffunc mod1init
    oncmd gosub *on_wmlbu_mod1, WM_LBUTTONUP // oncmd で WM_LBUTTONUP メッセージに対する割り込みを設定
    return
*on_wmlbu_mod1
    color rnd( 256 ), rnd( 256 ), rnd( 256 )
    circle 0, 0, 159, 119
    return
#global
 
    randomize
    mod0init
    mod1init
    oncmd gosub *on_wmlbu_main, WM_LBUTTONUP // oncmd で WM_LBUTTONUP メッセージに対する割り込みを設定
    stop
 
*on_wmlbu_main
    color 0, 0, 0
    mes "Mouse L Button Up"
    return
   

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
|
!
 
-
|
|
|
!
 
 
 
 
 
 
 

//	mod_oncmd2.hsp
//	oncmd_on, oncmd_off
//	指定したメッセージに対する割り込みの許可／一時停止の設定
 
#include "mod_oncmd2.hsp"
 
    title "マウスのボタンを押して離すと割り込み発生"
 
#define WM_LBUTTONDOWN                  0x0201
#define WM_LBUTTONUP                    0x0202
#define WM_RBUTTONDOWN                  0x0204
#define WM_RBUTTONUP                    0x0205
 
    sdim t, 64, 6
    t = "WM_LBUTTONDOWN", "WM_LBUTTONUP", "", "WM_RBUTTONDOWN", "WM_RBUTTONUP", ""
 
    dim m, 4
    m = WM_LBUTTONDOWN, WM_LBUTTONUP, WM_RBUTTONDOWN, WM_RBUTTONUP
 
    dim f, 10
    f = 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
    objsize 160, 24
    pos   0, 24 : chkbox t(0), f(0)
    pos 160, 24 : chkbox t(1), f(1)
    pos 320, 24 : chkbox t(3), f(2)
    pos 480, 24 : chkbox t(4), f(3)
    pos   0,  0 : chkbox "割り込み処理(全体)を許可", f(8)
 
    oncmd gosub *onc, m(0)
    oncmd gosub *onc, m(1)
    oncmd gosub *onc, m(2)
    oncmd gosub *onc, m(3)
 
    pos 0, 48
 
*main
    if ( ginfo_cy > 479 ) : pos ginfo_cx + 160, 48
    repeat 4
        if ( f(cnt) != f(cnt + 4) ) {
            f(cnt + 4) = f(cnt)
            // 割り込み処理の許可／一時停止
            if ( f(cnt) ) { oncmd_on m(cnt) } else { oncmd_off m(cnt) }
        }
    loop
    if ( f(8) != f(9) ) {
        f(9) = f(8)
        // 割り込み処理(全体)の許可／一時停止
        if ( f(8) ) { oncmd 1 } else { oncmd 0 }
    }
    wait 3
    goto *main
 
*onc
    mes "" + t(iparam - WM_LBUTTONDOWN)
    return