検索
AND検索
OR検索
トップ
|
リロード
|
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
rangeモジュール をテンプレートにして作成
メニュー
簡易掲示板
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
開始行:
Y_repeatは昔is_Digitを
if p==0||p==1||p==2||p==3||p==4||p==5||p==6||p==7||p==8|...
みたいに書いて親切なんだかバカなんだか みたい評価をいた...
さっきrangeモジュールを書いたら書きやすいかな?と思い書い...
楽に書けましたw
決め打ちで3種類関数にしちゃってもいいかも。ですねw
#module m_range mem_min,mem_max
#modinit int p_min,int p_max
if p_min>p_max : dialog "error min は max より大きいで...
mem_min=p_min
mem_max=p_max
return
#modcfunc in_range int _p
if mem_min <= _p{
if _p <= mem_max{ return 1 }
}
return 0
#global
#if 1
newmod is_1keta,m_range,0,9
repeat 20,-5
mes "" + cnt + ":" + in_range(is_1keta,cnt)
loop
logmes "0 : "+'0'
logmes "1 : "+'1'
logmes "2 : "+'2'
logmes "3 : "+'3'
logmes "4 : "+'4'
logmes "5 : "+'5'
logmes "6 : "+'6'
logmes "7 : "+'7'
logmes "8 : "+'8'
logmes "9 : "+'9'
logmes ""
newmod is_digit,m_range,'0','9'
logmes "0 : " + in_range(is_digit,'0')
logmes "1 : " + in_range(is_digit,'1')
logmes "2 : " + in_range(is_digit,'2')
logmes "3 : " + in_range(is_digit,'3')
logmes "4 : " + in_range(is_digit,'4')
logmes "5 : " + in_range(is_digit,'5')
logmes "6 : " + in_range(is_digit,'6')
logmes "7 : " + in_range(is_digit,'7')
logmes "8 : " + in_range(is_digit,'8')
logmes "9 : " + in_range(is_digit,'9')
logmes "a : " + in_range(is_digit,'a')
logmes "z : " + in_range(is_digit,'z')
logmes "A : " + in_range(is_digit,'A')
logmes "Z : " + in_range(is_digit,'Z')
logmes ""
newmod is_S_char,m_range,'a','z'
logmes "0 : " + in_range(is_S_char,'0')
logmes "9 : " + in_range(is_S_char,'9')
logmes "A : " + in_range(is_S_char,'A')
logmes "Z : " + in_range(is_S_char,'Z')
logmes "a : " + in_range(is_S_char,'a')
logmes "b : " + in_range(is_S_char,'b')
logmes "c : " + in_range(is_S_char,'c')
logmes "d : " + in_range(is_S_char,'d')
logmes "e : " + in_range(is_S_char,'e')
logmes "f : " + in_range(is_S_char,'f')
logmes "g : " + in_range(is_S_char,'g')
logmes "h : " + in_range(is_S_char,'h')
logmes "i : " + in_range(is_S_char,'i')
logmes "j : " + in_range(is_S_char,'j')
logmes "k : " + in_range(is_S_char,'k')
logmes "l : " + in_range(is_S_char,'l')
logmes "m : " + in_range(is_S_char,'m')
logmes "n : " + in_range(is_S_char,'n')
logmes "o : " + in_range(is_S_char,'o')
logmes "p : " + in_range(is_S_char,'p')
logmes "q : " + in_range(is_S_char,'q')
logmes "r : " + in_range(is_S_char,'r')
logmes "s : " + in_range(is_S_char,'s')
logmes "t : " + in_range(is_S_char,'t')
logmes "u : " + in_range(is_S_char,'u')
logmes "v : " + in_range(is_S_char,'v')
logmes "w : " + in_range(is_S_char,'w')
logmes "x : " + in_range(is_S_char,'x')
logmes "y : " + in_range(is_S_char,'y')
logmes "z : " + in_range(is_S_char,'z')
logmes ""
newmod is_L_char,m_range,'A','Z'
logmes "0 : " + in_range(is_L_char,'0')
logmes "9 : " + in_range(is_L_char,'9')
logmes "a : " + in_range(is_L_char,'a')
logmes "b : " + in_range(is_L_char,'b')
logmes "A : " + in_range(is_L_char,'A')
logmes "B : " + in_range(is_L_char,'B')
logmes "C : " + in_range(is_L_char,'C')
logmes "D : " + in_range(is_L_char,'D')
logmes "E : " + in_range(is_L_char,'E')
logmes "F : " + in_range(is_L_char,'F')
logmes "G : " + in_range(is_L_char,'G')
logmes "H : " + in_range(is_L_char,'H')
logmes "I : " + in_range(is_L_char,'I')
logmes "J : " + in_range(is_L_char,'J')
logmes "K : " + in_range(is_L_char,'K')
logmes "L : " + in_range(is_L_char,'L')
logmes "M : " + in_range(is_L_char,'M')
logmes "N : " + in_range(is_L_char,'N')
logmes "O : " + in_range(is_L_char,'O')
logmes "P : " + in_range(is_L_char,'P')
logmes "Q : " + in_range(is_L_char,'Q')
logmes "R : " + in_range(is_L_char,'R')
logmes "S : " + in_range(is_L_char,'S')
logmes "T : " + in_range(is_L_char,'T')
logmes "U : " + in_range(is_L_char,'U')
logmes "V : " + in_range(is_L_char,'V')
logmes "W : " + in_range(is_L_char,'W')
logmes "X : " + in_range(is_L_char,'X')
logmes "Y : " + in_range(is_L_char,'Y')
logmes "Z : " + in_range(is_L_char,'Z')
#endif
終了行:
Y_repeatは昔is_Digitを
if p==0||p==1||p==2||p==3||p==4||p==5||p==6||p==7||p==8|...
みたいに書いて親切なんだかバカなんだか みたい評価をいた...
さっきrangeモジュールを書いたら書きやすいかな?と思い書い...
楽に書けましたw
決め打ちで3種類関数にしちゃってもいいかも。ですねw
#module m_range mem_min,mem_max
#modinit int p_min,int p_max
if p_min>p_max : dialog "error min は max より大きいで...
mem_min=p_min
mem_max=p_max
return
#modcfunc in_range int _p
if mem_min <= _p{
if _p <= mem_max{ return 1 }
}
return 0
#global
#if 1
newmod is_1keta,m_range,0,9
repeat 20,-5
mes "" + cnt + ":" + in_range(is_1keta,cnt)
loop
logmes "0 : "+'0'
logmes "1 : "+'1'
logmes "2 : "+'2'
logmes "3 : "+'3'
logmes "4 : "+'4'
logmes "5 : "+'5'
logmes "6 : "+'6'
logmes "7 : "+'7'
logmes "8 : "+'8'
logmes "9 : "+'9'
logmes ""
newmod is_digit,m_range,'0','9'
logmes "0 : " + in_range(is_digit,'0')
logmes "1 : " + in_range(is_digit,'1')
logmes "2 : " + in_range(is_digit,'2')
logmes "3 : " + in_range(is_digit,'3')
logmes "4 : " + in_range(is_digit,'4')
logmes "5 : " + in_range(is_digit,'5')
logmes "6 : " + in_range(is_digit,'6')
logmes "7 : " + in_range(is_digit,'7')
logmes "8 : " + in_range(is_digit,'8')
logmes "9 : " + in_range(is_digit,'9')
logmes "a : " + in_range(is_digit,'a')
logmes "z : " + in_range(is_digit,'z')
logmes "A : " + in_range(is_digit,'A')
logmes "Z : " + in_range(is_digit,'Z')
logmes ""
newmod is_S_char,m_range,'a','z'
logmes "0 : " + in_range(is_S_char,'0')
logmes "9 : " + in_range(is_S_char,'9')
logmes "A : " + in_range(is_S_char,'A')
logmes "Z : " + in_range(is_S_char,'Z')
logmes "a : " + in_range(is_S_char,'a')
logmes "b : " + in_range(is_S_char,'b')
logmes "c : " + in_range(is_S_char,'c')
logmes "d : " + in_range(is_S_char,'d')
logmes "e : " + in_range(is_S_char,'e')
logmes "f : " + in_range(is_S_char,'f')
logmes "g : " + in_range(is_S_char,'g')
logmes "h : " + in_range(is_S_char,'h')
logmes "i : " + in_range(is_S_char,'i')
logmes "j : " + in_range(is_S_char,'j')
logmes "k : " + in_range(is_S_char,'k')
logmes "l : " + in_range(is_S_char,'l')
logmes "m : " + in_range(is_S_char,'m')
logmes "n : " + in_range(is_S_char,'n')
logmes "o : " + in_range(is_S_char,'o')
logmes "p : " + in_range(is_S_char,'p')
logmes "q : " + in_range(is_S_char,'q')
logmes "r : " + in_range(is_S_char,'r')
logmes "s : " + in_range(is_S_char,'s')
logmes "t : " + in_range(is_S_char,'t')
logmes "u : " + in_range(is_S_char,'u')
logmes "v : " + in_range(is_S_char,'v')
logmes "w : " + in_range(is_S_char,'w')
logmes "x : " + in_range(is_S_char,'x')
logmes "y : " + in_range(is_S_char,'y')
logmes "z : " + in_range(is_S_char,'z')
logmes ""
newmod is_L_char,m_range,'A','Z'
logmes "0 : " + in_range(is_L_char,'0')
logmes "9 : " + in_range(is_L_char,'9')
logmes "a : " + in_range(is_L_char,'a')
logmes "b : " + in_range(is_L_char,'b')
logmes "A : " + in_range(is_L_char,'A')
logmes "B : " + in_range(is_L_char,'B')
logmes "C : " + in_range(is_L_char,'C')
logmes "D : " + in_range(is_L_char,'D')
logmes "E : " + in_range(is_L_char,'E')
logmes "F : " + in_range(is_L_char,'F')
logmes "G : " + in_range(is_L_char,'G')
logmes "H : " + in_range(is_L_char,'H')
logmes "I : " + in_range(is_L_char,'I')
logmes "J : " + in_range(is_L_char,'J')
logmes "K : " + in_range(is_L_char,'K')
logmes "L : " + in_range(is_L_char,'L')
logmes "M : " + in_range(is_L_char,'M')
logmes "N : " + in_range(is_L_char,'N')
logmes "O : " + in_range(is_L_char,'O')
logmes "P : " + in_range(is_L_char,'P')
logmes "Q : " + in_range(is_L_char,'Q')
logmes "R : " + in_range(is_L_char,'R')
logmes "S : " + in_range(is_L_char,'S')
logmes "T : " + in_range(is_L_char,'T')
logmes "U : " + in_range(is_L_char,'U')
logmes "V : " + in_range(is_L_char,'V')
logmes "W : " + in_range(is_L_char,'W')
logmes "X : " + in_range(is_L_char,'X')
logmes "Y : " + in_range(is_L_char,'Y')
logmes "Z : " + in_range(is_L_char,'Z')
#endif
ページ名: