検索
AND検索
OR検索
トップ
|
リロード
|
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
ws_014_subr をテンプレートにして作成
メニュー
簡易掲示板
LINK集
y.tackの公式BBSブックマーク
practice room
?
最新の20件
2022-10-09
多角形の内外判定
2021-05-19
RecentDeleted
2018-08-01
FrontPage
文字列型変数管理サブルーチン
GAME作成システム
2018-07-31
double型変数管理サブルーチン
int型変数管理サブルーチン
2018-07-21
GUIとメイン分割処理。たたき台2
2018-07-11
memo
NO_579_sample
GUIとメイン分割処理。たたき台
2018-06-28
NO_714
NO_712
NO_706
NO_705
NO_704
NO_703
NO_702
2018-06-23
Shift_JIS
モートン番号テーブル化 / 八分木
total
0
today
0
yesterday
0
now
1
Menu
Total:0/Today:0
開始行:
* サブルーチン [#s82041cf]
mdl_one_value~
について~
モジュール変数 一つを格納するサブルーチンです~
インクルードガード~
#ifndef _mdl_value_H_~
モジュール変数 オブジェクト~
mem_value~
格納するオブジェクト~
int str double のいずれかを格納~
ラベル型データ とかでもたぶん格納できます~
setter getter の関係で 変数に格納出来るデータのみです~
#modinit~
コンストラクタ~
引数を取りません なにもしません~
モジュール変数機能のため 定義が必要っぽいので実装しただ...
#modfunc local set var p~
mem_valueのセッターです~
即値を渡そうとするとエラー~
変数のみ渡せます~
その代わり 渡せるデータの型を多いです~
#modcfunc local get~
mem_valueのゲッターです~
HSPの仕様で返せる型も多めです~
#modcfunc local ret_vartype~
データの型(数値)を返します~
label 1 str 2 dbl 3 int 4 modvar 5~
#modcfunc local tostr_vartype~
データの型(文字列)を返します~
"label" "str" "dbl" "int" "modvar"~
** mdl_value.as [#q3d4d216]
// モジュール変数 一つを格納するサブルーチンです
// インクルードガード
#ifndef _mdl_value_H_
#define _mdl_value_H_
// mem_value
// 格納するオブジェクト
// int str double のいずれかを格納
// ラベル型データ とかでもたぶん格納できます
// setter getter の関係で 変数に格納出来るデータのみです
#module mdl_one_value mem_value
// コンストラクタ
// 引数を取りません なにもしません
// モジュール変数機能のため 定義が必要っぽいので実装し...
#modinit
return
// mem_valueのセッターです
// 即値を渡そうとするとエラー
// 変数のみ渡せます
// その代わり 渡せるデータの型を多いです
#modfunc local set var p
mem_value=p
return
// mem_valueのゲッターです
// HSPの仕様で返せる型も多めです
#modcfunc local get
return mem_value
// データの型(数値)を返します
// label 1 str 2 dbl 3 int 4 modvar 5
#modcfunc local ret_vartype
return vartype(mem_value)
// データの型(文字列)を返します
// "label" "str" "dbl" "int" "modvar"
#modcfunc local tostr_vartype
switch vartype(mem_value)
case 1:return "label"
case 2:return "str"
case 3:return "dbl"
case 4:return "int"
case 5:return "modvar"
swend
return "other"
#global
#endif
#if 0
// TEST CODE
newmod test_o_int,mdl_one_value
newmod test_o_dbl,mdl_one_value
newmod test_o_str,mdl_one_value
a=1
set@mdl_one_value test_o_int,a
b=1.23
set@mdl_one_value test_o_dbl,b
c="HELLO"
set@mdl_one_value test_o_str,c
mes get@mdl_one_value(test_o_int)
mes get@mdl_one_value(test_o_dbl)
mes get@mdl_one_value(test_o_str)
mes ret_vartype@mdl_one_value(test_o_int)
mes ret_vartype@mdl_one_value(test_o_dbl)
mes ret_vartype@mdl_one_value(test_o_str)
mes tostr_vartype@mdl_one_value(test_o_int)
mes tostr_vartype@mdl_one_value(test_o_dbl)
mes tostr_vartype@mdl_one_value(test_o_str)
#endif
* 仕様定数 [#gaa2c315]
インクルードガード~
#ifndef _MY_WS_DEFINE_~
STACK_MEMBERS~
スタックの大きさ~
HEAP_MEMBERS~
ヒープの大きさ~
MAX_LABELS~
定義できるラベルの多さ~
MAX_LABEL_LENGTH~
ラベルの名前の長さの最大~
MAX_INSTRUCTIONS~
命令の数の最大~
MAX_INSTRUCTION_LENGTH~
命令のデータの長さの最大~
MAX_NESTED_SUBROUTINES~
サブルーチンのネストの最大~
** mdl_ws_define.as [#ya8daea5]
#ifndef _MY_WS_DEFINE_
#define _MY_WS_DEFINE_
// knowbugが配列インスタンスを800くらいまでしか表示して...
// スタックの大きさ
#define STACK_MEMBERS 750
// ヒープの大きさ
#define HEAP_MEMBERS 400
// 定義できるラベルの多さ
#define MAX_LABELS 200
// ラベルの名前の長さの最大
#define MAX_LABEL_LENGTH 500
// 命令の数の最大
#define MAX_INSTRUCTIONS 30
// 命令のデータの長さの最大
#define MAX_INSTRUCTION_LENGTH 10
// サブルーチンのネストの最大
#define MAX_NESTED_SUBROUTINES 20
#endif
終了行:
* サブルーチン [#s82041cf]
mdl_one_value~
について~
モジュール変数 一つを格納するサブルーチンです~
インクルードガード~
#ifndef _mdl_value_H_~
モジュール変数 オブジェクト~
mem_value~
格納するオブジェクト~
int str double のいずれかを格納~
ラベル型データ とかでもたぶん格納できます~
setter getter の関係で 変数に格納出来るデータのみです~
#modinit~
コンストラクタ~
引数を取りません なにもしません~
モジュール変数機能のため 定義が必要っぽいので実装しただ...
#modfunc local set var p~
mem_valueのセッターです~
即値を渡そうとするとエラー~
変数のみ渡せます~
その代わり 渡せるデータの型を多いです~
#modcfunc local get~
mem_valueのゲッターです~
HSPの仕様で返せる型も多めです~
#modcfunc local ret_vartype~
データの型(数値)を返します~
label 1 str 2 dbl 3 int 4 modvar 5~
#modcfunc local tostr_vartype~
データの型(文字列)を返します~
"label" "str" "dbl" "int" "modvar"~
** mdl_value.as [#q3d4d216]
// モジュール変数 一つを格納するサブルーチンです
// インクルードガード
#ifndef _mdl_value_H_
#define _mdl_value_H_
// mem_value
// 格納するオブジェクト
// int str double のいずれかを格納
// ラベル型データ とかでもたぶん格納できます
// setter getter の関係で 変数に格納出来るデータのみです
#module mdl_one_value mem_value
// コンストラクタ
// 引数を取りません なにもしません
// モジュール変数機能のため 定義が必要っぽいので実装し...
#modinit
return
// mem_valueのセッターです
// 即値を渡そうとするとエラー
// 変数のみ渡せます
// その代わり 渡せるデータの型を多いです
#modfunc local set var p
mem_value=p
return
// mem_valueのゲッターです
// HSPの仕様で返せる型も多めです
#modcfunc local get
return mem_value
// データの型(数値)を返します
// label 1 str 2 dbl 3 int 4 modvar 5
#modcfunc local ret_vartype
return vartype(mem_value)
// データの型(文字列)を返します
// "label" "str" "dbl" "int" "modvar"
#modcfunc local tostr_vartype
switch vartype(mem_value)
case 1:return "label"
case 2:return "str"
case 3:return "dbl"
case 4:return "int"
case 5:return "modvar"
swend
return "other"
#global
#endif
#if 0
// TEST CODE
newmod test_o_int,mdl_one_value
newmod test_o_dbl,mdl_one_value
newmod test_o_str,mdl_one_value
a=1
set@mdl_one_value test_o_int,a
b=1.23
set@mdl_one_value test_o_dbl,b
c="HELLO"
set@mdl_one_value test_o_str,c
mes get@mdl_one_value(test_o_int)
mes get@mdl_one_value(test_o_dbl)
mes get@mdl_one_value(test_o_str)
mes ret_vartype@mdl_one_value(test_o_int)
mes ret_vartype@mdl_one_value(test_o_dbl)
mes ret_vartype@mdl_one_value(test_o_str)
mes tostr_vartype@mdl_one_value(test_o_int)
mes tostr_vartype@mdl_one_value(test_o_dbl)
mes tostr_vartype@mdl_one_value(test_o_str)
#endif
* 仕様定数 [#gaa2c315]
インクルードガード~
#ifndef _MY_WS_DEFINE_~
STACK_MEMBERS~
スタックの大きさ~
HEAP_MEMBERS~
ヒープの大きさ~
MAX_LABELS~
定義できるラベルの多さ~
MAX_LABEL_LENGTH~
ラベルの名前の長さの最大~
MAX_INSTRUCTIONS~
命令の数の最大~
MAX_INSTRUCTION_LENGTH~
命令のデータの長さの最大~
MAX_NESTED_SUBROUTINES~
サブルーチンのネストの最大~
** mdl_ws_define.as [#ya8daea5]
#ifndef _MY_WS_DEFINE_
#define _MY_WS_DEFINE_
// knowbugが配列インスタンスを800くらいまでしか表示して...
// スタックの大きさ
#define STACK_MEMBERS 750
// ヒープの大きさ
#define HEAP_MEMBERS 400
// 定義できるラベルの多さ
#define MAX_LABELS 200
// ラベルの名前の長さの最大
#define MAX_LABEL_LENGTH 500
// 命令の数の最大
#define MAX_INSTRUCTIONS 30
// 命令のデータの長さの最大
#define MAX_INSTRUCTION_LENGTH 10
// サブルーチンのネストの最大
#define MAX_NESTED_SUBROUTINES 20
#endif
ページ名: