便利ツール/HSP/乱数作成外部ツール

OFFICIAL/関連

• HSP
• HSPTV!
• OpenHSP-trac
• HSPWiKi
• HSP Users Group
• HSP-users.jp
• Online HDL
• CodeZine-HSP

TUTORIAL

• HSP基礎講座

TOPICS

• ソフト開発
• 小ワザ
• アルゴリズム
• プラグイン
• モジュール
• マクロ

ETC

• 読み物
• 雑談
• IRCチャンネル
• 便利ツール
• ネタ収集BOX
• 用語集
• 外部リンク
• ご意見・ご要望

EDIT

• 練習ページ
• InterWikiName

REFERENCE

• 整形ルール
• プラグインマニュアル
• ここで導入中のプラグイン
• ヘルプ
• 逆引きHSP開発wiki
• Menuedit

LOG

• 人気/今日の100件
• RecentDeleted
• RenameLog

お知らせ

• お知らせ

HSP Web-Ring

最新の40件

便利ツール

乱数作成外部ツール †

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

自分なりに使いやすいよう改造して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
	syscolor 15 : boxf
	sysfont 17  : syscolor 8
 
	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
	randomize
 
 
	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
	mouse
	getkey key,17
	if (wparam=65)&(key=1){
		objsel 0
		sendmsg hrand,$B1,0,-1
	}
 
 
	stop

• 外部ツールじゃなくって単に乱数列を生成するスクリプトのような気がするんですが...
• exeでパックして公開するといろいろと自分なりの使い方ができなくなるとおもったので＾＾；
  exeにコンパイルして使います。
• あ、この機能すっごく欲しかった機能です！ありがとうございます！ -- 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