15/11/10 20:45:07.99 sQYcRDGy0.net
エラーメッセージも書かないといけない
「"IE"が未定義です」 とか出てたら動くはずが無い
1062:名無しさん@お腹いっぱい。
15/11/11 12:25:27.60 2Pi5v3OW0.net
ランダムな数字0~7のうち重複しない6つを取り出したい。
ランダムな数字を排出するスクリプトはみつけたが、理解できず応用できなかった。
URLリンク(i.imgur.com)
とりあえず動くものは作れたがもっとスマートにしたい。(Printは挙動を確認するためにいれただけ)
任意の場所で、重複しないランダムな数字を使いたいんです…
考え方のヒント、アドバイス、または直接的なスクリプト教えてください!
1063:名無しさん@お腹いっぱい。
15/11/11 12:32:39.75 4BfDA9UG0.net
UWSC関係ある?
1064:名無しさん@お腹いっぱい。
15/11/11 12:49:54.14 rpEewyDo0.net
>>1018
配列(0..7) をランダムに並び替えた上で、最初の6つを取り出す。
配列をランダムにするアルゴリズムは探せば見つかるし、
考え方も間違えようのないくらいに簡単でしょ?
1065:名無しさん@お腹いっぱい。
15/11/11 12:57:23.95 oN5GYFPP0.net
それ単に前の値と比較して同じなら再抽選しているだけ
別にそういったロジックが駄目とかいう話ではないが
そのロジックすら理解できないのであればスマートとか考えない�
1066:ルうが良いと思う 欲しい幅と数が予め決まっているならそれを配列で返す関数にするのが一般的な手法だと思う
1067:名無しさん@お腹いっぱい。
15/11/11 13:03:47.18 2Pi5v3OW0.net
>>1020-1021
>>1018の画像の奴はとりあえず作ったものです。使うたびに比較するので冗長化してしまって質問した次第です…
配列というもの初めて知りました。先に箱をシャッフルしてから取り出すと…なるほど。
いろいろ応用できそうで楽しそう。UWSCはおろかプログラミングもド初心者なんで助かりました。ありがとう!
1068:名無しさん@お腹いっぱい。
15/11/11 13:17:49.54 +oPzgSay0.net
動作を止めずに手軽にプログラム内の値を変える方法はないかな
メッセージボックスみたいなウィンドウを常時表示していて
それをクリックしたりで値が変わるようになるのが理想なんだけど
メッセージボックス系って表示されたら動作止まっちゃうよね?
俺の知識だとINIファイルを読み込むぐらいしか思いつかない
だけどこれはINIファイルを書き込まなきゃいけないからちょっと違うんだよなあ
1069:名無しさん@お腹いっぱい。
15/11/11 13:24:28.30 QGUfCker0.net
吹き出し出して使用メモリを逐一書き出せばいいじゃない
カーソルメモリもつけておいて吹き出しにメニューみたいにしてカーソル移動させて+-キーで増減
ってこんなことみんな普通やってるよね
1070:名無しさん@お腹いっぱい。
15/11/11 13:39:45.83 QGUfCker0.net
Public Dim Memory[5]
Public Cursol = 1
Memory[1] = 0
Memory[2] = 0
Memory[3] = 6
Memory[4] = 8
Memory[5] = 5
While true
GetMemory()
// なんか適当な処理()
Sleep(1)
WEnd
Procedure GetMemory()
Dim Str
for i = 1 to 5
If GetKeyState(VK_ESC) Then ExitExit
If GetKeyState(VK_Left) Then Memory[Cursol] = Memory[Cursol] - 1
If GetKeyState(VK_Right) Then Memory[Cursol] = Memory[Cursol] + 1
If GetKeyState(VK_Return)Then Memory[Cursol] = Input("Memory["+Cursol+"]", Memory[Cursol])
While GetKeyState(VK_Return); WEnd
If GetKeyState(VK_Up) Then Cursol = Cursol - 1
If GetKeyState(VK_Down) Then Cursol = Cursol + 1
If Cursol = 0 Then Cursol = ReSize(Memory)
If Cursol = ReSize(Memory) + 1 Then Cursol = 1
If Cursol = i Then Str = Str + "→ Memory ["+i+"] = " + Memory[i] + "<#CR>"
If Cursol <> i Then Str = Str + " Memory ["+i+"] = " + Memory[i] + "<#CR>"
Next
Fukidasi(Str + "[ESC] Then End")
FEnd
1071:名無しさん@お腹いっぱい。
15/11/11 13:40:25.31 +oPzgSay0.net
>>1024-1025
ありがとう
知識不足だから適当にググッて調べてみる
ところで次スレはたってる?
たってないなら立ててこようかと思うが
1072:名無しさん@お腹いっぱい。
15/11/11 13:42:49.32 epNBIc2p0.net
立てろください
遅くなったが>>1乙
1073:名無しさん@お腹いっぱい。
15/11/11 13:48:05.29 +oPzgSay0.net
ホイ次
自動化ツールUWSC使いよ集まれ16
スレリンク(software板)
1074:名無しさん@お腹いっぱい。
15/11/11 13:56:07.08 /NKmtO7I0.net
>>1025
UWSCだけしか動かしてないならそれでいいんだけど、他の作業すると
GETKEYSTATEが誤爆するのが嫌なんだよな。
一々ファイル読み書きするのもアレだし、何か適当なGUIで動的に設定値変えられたらいいな。
UWSC単独の設定ダイアログとかあったらいいのに。
任意のGUIとか作れないのが残念。
1075:名無しさん@お腹いっぱい。
15/11/11 14:31:53.79 4u9iSm250.net
>>1015
IESetData(ie,"テスト","","id=searchTextbox")
IESetData(ie,True,"","<SPAN class=<#DBL>ui-icon ui-icon-seek-next<#DBL>></SPAN>")
1076:名無しさん@お腹いっぱい。
15/11/11 14:47:22.01 QGUfCker0.net
>>1029
そんならIEフォーム作って逐一読み書きすりゃいいだろうがッ
さすがにコード長くなるから割愛
1077:名無しさん@お腹いっぱい。
15/11/11 14:58:25.04 /NKmtO7I0.net
>>103
1078:1 そんな当たり前の事一々指摘せんでもいいわw UWSC単独で出来ないのが残念って言ってるだけだろ
1079:1001
Over 1000 Thread.net
このスレッドは1000を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。
1080:名無しさん@お腹いっぱい。
15/11/15 12:02:56.27 m+7YSRn1D
次スレ
自動化ツールUWSC使いよ集まれ16
スレリンク(software板)
1081:過去ログ ★
[過去ログ]
■ このスレッドは過去ログ倉庫に格納されています