hinekure.net が http://hspdev-wiki.net/ から自動クローリングした結果を表示しています。画像やリソースなどのリンクが切れています。予めご了承ください。
便利ツール/HSP/乱数作成外部ツール - HSP開発wiki
トップ    編集凍結 差分バックアップ添付複製名前変更リロード   新規一覧単語検索最終更新   最終更新のRSS

便利ツール

乱数作成外部ツール

指定したパラメータで乱数を生成します。ダミー関数・ダミー変数などに使います。 ran.png

使用方法

自分なりに使いやすいよう改造してexeにパックしたあと外部ツールに登録してください。

ソース

乱数生成
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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
/*-----------------------------------------------------
 
 外部ツール 乱数生成 Ver 1.01
 
-------------------------------------------------------*/
#packopt name "rndform"
#packopt hide 1
 
#include "hsedsdk.as"
 
sdim irand,256
sdim keta,256
 
 
 
title "乱数生成"
screen 0,300,180,6,ginfo_dispx-400,90
 
pos 20,20: input irand,255,21
hrand=objinfo(stat,2)
objsize 120,21,13
 
 
 
pos 20,60:
mes "使用する文字種"
chkbox "アルファベット(大文字)",ch(0)
chkbox "アルファベット(小文字)",ch(1)
chkbox "数字(0-9)",ch(2)
chkbox "アンダーバー(_)",ch(3)
 
 
 
pos 160,60:
mes "桁数"
input keta,110,21,4
 
objsize 115,35
pos 160,100: button "乱数生成",*rands
objsize 115,21
pos 160,136: chkbox "自動で挿入する",ch(4)
onkey *keys
 
gsel 0,2
stop
*rands
 
 
sdim irand,256
bb=0
repeat 4
if ch(cnt)=1{
ifm(bb)=cnt
bb+
}
loop
if bb=0:stop
 
 
repeat int(keta)
 
switch ifm(rnd(bb))
case 0
moji=""
poke moji,0,int($+rnd(26)+$41)
swbreak
case 1
moji=""
poke moji,0,int($+rnd(26)+$61)
swbreak
case 2
moji=str(rnd(10))
swbreak
case 3
moji="_"
swbreak
 
swend
irand+=moji
loop
objprm 0,irand
if ch(4)=1{
hsed_sendstr irand
}
stop
 
 
*keys
getkey key,17
if (wparam=65)&(key=1){
sendmsg hrand,$B1,0,-1
}
 
 
stop

コメント

  • 外部ツールじゃなくって単に乱数列を生成するスクリプトのような気がするんですが...
  • exeでパックして公開するといろいろと自分なりの使い方ができなくなるとおもったので^^;
    exeにコンパイルして使います。
  • あ、この機能すっごく欲しかった機能です!ありがとうございます! [smile2] -- 93 2007-02-18 (日) 06:54:39
  • exeにパック≠exeにコンパイルです。あとexeにしたからってこれがHSPエディタと関係あるようには思えない。単にエディタの外部ツールに登録して使うだけなら便利ツールか、小ワザにリンクされていたほうが妥当かと。 -- 2007-02-18 (日) 11:17:56
  • 何が不満なのかわかりませんが、確かにHSPエディタ以外の用途にも利用することは可能です。これを単なる乱数生成スクリプトと受け止めているようですが、私は単純な機能しかないただのツールだと思っています。これの他に#deffunc等の命令を含めて出力したり、0から100までなどの連番の乱数を作成できるようにしたほうがよかったのでしょうか?
    そこまで複雑な機能がほしいのでありれば作りますが? -- 2007-03-05 (月) 22:43:16

URL B I U SIZE Black Maroon Green Olive Navy Purple Teal Gray Silver Red Lime Yellow Blue Fuchsia Aqua White

添付ファイル:
fileran.png
208件 [詳細]
fileran.hsp
116件 [詳細]
トップ    編集凍結 差分バックアップ添付複製名前変更リロード   新規一覧単語検索最終更新   最終更新のRSS
Last-modified: 2007-04-08 (日) 02:48:43 (2436d)