オブジェクトID/HSP2

  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

 *start
    cls
    txt = "テキスト"
    litem = 0
    citem = 0
    chk   = 0
    objsize 100,20
    objmode 1
 
    ; オブジェクトの配置とID管理変数と参照名の設定
    button txt,*dummy
    idObj.stat = stat : dup idBtn , idObj.stat
 
    input txt
    idObj.stat = stat : dup idIpt , idObj.stat
 
    mesbox txt,,,2
    idObj.stat = stat : dup idMbx , idObj.stat
 
    chkbox txt,chk
    idObj.stat = stat : dup idChk , idObj.stat
 
    listbox litem,50,txt
    idObj.stat = stat : dup idLst , idObj.stat
 
    combox citem,50,txt
    idObj.stat = stat : dup idCbx , idObj.stat
 
    ; 各オブジェクトIDにアクセスするのは設定した参照名
    ; オブジェクトが増えたら
    ; idBtnStart,idLstItem,idChkAnswer
    ; のように具体名を付けるといい
    mes "BUTTON  ID = " + idBtn
    mes "LISTBOX ID = " + idLst
    mes "COMBOX  ID = " + idCbx
    mes "MESBOX  ID = " + idMbx
    mes "INPUT   ID = " + idIpt
 
    mes "3秒後にオブジェクトラベルの変更"
    repeat 3
        mes cnt+1
        wait 100
    loop
 
    ; オブジェクトの内容と状態変更
    ; ID指定に定数ではなく変数を指定している点に注意
    ; 余裕のある人はオブジェクトの配置順序を入れ替えて実験してみよう
    objprm idBtn, "もう一度"
    objprm idIpt, "入力ボックス"
    objprm idMbx, "メッセージボックス"
    objprm idCbx, "りんご\nみかん\nなす"
    objprm idCbx,2            ; なすを選択
    objprm idLst, "東京\n大阪\nアフリカ"
    objprm idLst,1            ; 大阪を選択
    objprm idChk, "チェックボックス"
    objprm idChk,1            ; チェックオン
 
    stop
 *dummy
    goto *start

  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

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
|
!
-
|
|
|
!
 
 
 
 
 
 

/******************************************************************************
 *                                                                            *
 *     オブジェクトIDを固定したままオブジェクトを削除・再作成するサンプル     *
 * --------------------------- おまけゲームルール --------------------------- *
 *      ボタンを押すとランダムで１０個のボタンが選ばれます。                  *
 *      選ばれたボタンが･･･                                                   *
 *      作成（表示）されていれば削除され、                                    *
 *      削除されていれば作成（表示）されます。                                *
 *      削除されるボタンを予想してボタンをクリックします。                    *
 *      見事予想が的中してボタンが削除されると同時に削除されたボタンのＩＤ    *
 *      の合計がスコアに加算されます。                                        *
 *      予想が外れた場合は押したボタンのＩＤがスコアから引かれます＾＾；      *
 *                                                                            *
 ******************************************************************************/
 
    #include "rnx.as"
 
    #define BTNW    (winx/8)
    #define BTNH    (winy/8)
    dim mapObj,64
 
    screen 0,640,480,1
 
    objmode 1 : objsize BTNW , BTNH
 
    repeat 64
        pos cnt\8*BTNW , cnt/8*BTNH
        button ""+cnt , *choice
        mapObj.stat = 0
    loop
 
    mref bmscr , 67
 
    stop
 *choice
    idClick = stat
    delpoint = 0
    repeat 10
        await 0
        rndex r , 64
        target = r + 41
        mapObj.r = mapObj.r ! 1
        if mapObj.r{
            clrobj r , r
            bmscr.target = 1
            delpoint += r
        }
        else{
            bmscr.target = 0
            pos r\8*BTNW , r/8*BTNH
            button ""+r,*choice
        }
    loop
    rnx_reset
 
    if mapObj.idClick = 1 : score += delpoint : else : score -= idClick
    title "Click Button ID : " + idClick + " / Score : " + score
    stop