No.2ベストアンサー
- 回答日時:
例えば、
' 出目を取得する関数
Function Deme
Dim iNum
iNum=-1
' 0~36までの画像を、画面(500,100)-(550,150)の出目と比較
if ChkImg("00.bmp", 0, 500, 100, 550, 150) then iNum=0 '出目が0
if ChkImg("01.bmp", 0, 500, 100, 550, 150) then iNum=1 '出目が1
if ChkImg("02.bmp", 0, 500, 100, 550, 150) then iNum=2 '出目が2
if ChkImg("03.bmp", 0, 500, 100, 550, 150) then iNum=3 '出目が3
~(略)~
if ChkImg("36.bmp", 0, 500, 100, 550, 150) then iNum=36 '出目が36
Result = iNum
FEnd
とか。
--
> uwscで空回しはしてるのと、
だったらその間はどうせエクセル操作できないんだから、
> エクセルのA1縦列に、
エクセル立ち上げとく意味は無いです。
メモリも無駄だし、UWSCの動作も不安定化しやすいし。
fid = FOpen("deme.txt", F_READ or FWRITE)
でファイルオープンしといて、
n=deme()
FPut(fid, n)
で書き込み、テキストファイルをドラッグ&ドロップで開くとか。
何だったら、処理終了時に、
EXCEL = CREATEOLEOBJ("Excel.Application")
EXCEL.visible = True
EXCEL.workbooks.open("C:\~\deme.txt")
でExcel起動して開くとか。
No.1
- 回答日時:
例えば、
1)
ルーレットの結果が出るのを待つ。
一定時間おきに、CHKIMGで終了が確認出来る画像を探すとか。
2)
テキストボックスとかのコントロールに出目が表示されてるなら、POSACC関数で出目の数字を取得。
グラフィカルな文字なんかで出目が表示されているなら、MODIを使ってOCR処理したり、数字をIMGCHKでマッチングしたり。
ぽけっとろぐ - [UWSC]OfficeのOCR機能を使う
https://pocketlog.net/20161217/post-1783/
3)
出目をテキストに保存。
を繰り返しとか。
> Excelに取り込むには
テキストファイルに保存しておけば、Excelに一括で読み込むのは後から簡単に出来るハズ。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 株式市場・株価 複数株の履歴 2 2023/04/07 22:41
- Excel(エクセル) VBAで複数のExcelを1つのExcelにまとめる 1 2022/09/04 11:08
- その他(Microsoft Office) ExcelデータをPDFにして保存するとWordデータに変換されるようになった 10 2023/06/20 09:03
- その他(プログラミング・Web制作) pythonでクラスで複数のメソッドを利用する方法 2 2022/04/15 04:17
- システム CSVファイルのマッピング処理の省力化 1 2022/11/24 00:01
- Excel(エクセル) iphonからone driveに保存してあるExcelを閲覧すると表示の仕方がちがうデータ 2 2022/12/21 13:51
- その他(プログラミング・Web制作) uwscについて質問です。 1 2022/06/18 18:31
- Visual Basic(VBA) マクロを教えてください。 7 2023/06/01 19:47
- その他(Microsoft Office) PCを買い換えました。 今使っているノートパソコンが10年以上使っており新しく買い換えました。Win 5 2023/03/26 00:18
- PDF パソコン詳しい方教えてください! pdfに会社のロゴが2つあります。 それを1つ保存してExcelに 4 2022/06/25 00:25
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【VBA】テキストファイルを指定...
-
vbaでテキストファイル(*.txt...
-
複数のテキストファイル内の複...
-
unixのシェルスクリプトで特定...
-
Excelにて、フォルダ内のTextフ...
-
テキストファイルの最終行を消...
-
EXCELのVBAでEOFを誤認識
-
VBScript(vbs)での行の取得につ...
-
アスキー、バイナリーの違い、...
-
uwscでExcelに自動記入
-
VBAでテキストファイルを最後ま...
-
同一フォルダにある複数のテキ...
-
句点で改行
-
ファイルのアクセス回数について
-
エクセルのプロパティーでセキ...
-
バッチファイル 二つ上のディ...
-
エクセルvbaでdocuworksprinter...
-
Wordで差込印刷した後に別々の...
-
カンマ区切りのCSVファイルから...
-
エクセルで複数のコメントのサ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【VBA】テキストファイルを指定...
-
同一フォルダにある複数のテキ...
-
EXCELのVBAでEOFを誤認識
-
アスキー、バイナリーの違い、...
-
複数のテキストファイル内の複...
-
テキストファイルの最終行を消...
-
VBAでテキストファイルを最後ま...
-
VBScript(vbs)での行の取得につ...
-
Excelにて、フォルダ内のTextフ...
-
uwscでExcelに自動記入
-
VBscript
-
unixのシェルスクリプトで特定...
-
VBSを使用し、指定フォルダ内の...
-
スペース区切りのテキストファ...
-
Java バブルソート
-
Visual Studioでボタンを押した...
-
【VBA】テキストファイルの内容...
-
VBS【特定のレコード長で件数取...
-
shスクリプトでftp接続してファ...
-
VBSで文字を比較して一致するセ...
おすすめ情報
回答ありがとうございます。
uwscで空回しはしてるのと、
あと、ルーレットの0〜36の画像は
保存してます。
エクセルのA1縦列に、ルーレットの出目を出た順に取り込みたいのですが、具体的な
コードを教えてくれませんか?