UWSC｜あいまいな画像認識の前に“できない理由”を調べる

通常の画像認識でどこまで確実にできるかを確認するため、デバッグ機能付きの関数を作成します。

●2つの選択ボタン（“取得”と“5秒後に取得”）を持つダイアログを表示→選択に従い、ソースコードのあるディレクトリにファイル名“画像_000X.bmp”で画像保存。
●関数を抜ける条件はダイアログの閉じるボタン（Xボタン）が押されたとき。

※関数の形にしましたが、独立した画像取得アプリにしておいてもいいかもしれません。

FUNCTION get_pic(id)
            cancel=0
WHILE (cancel=0)
      SELECT SLCTBOX(slct_btn,0,1,400,"画像を取得します。","取得","5秒後に取得")
      CASE -1
            cancel=1
      CASE 1
            wait=0
      CASE 2
            wait=1
      SELEND
   IF cancel=0
            PRINT "準備しています。"
      IF id<>-1
         IF STATUS(id,ST_ICON)//最小化状態かどうか
            CTRLWIN(id,NORMAL)//通常表示に
         ENDIF
         IF !STATUS(id,ST_ACTIVE)//非アクティブかどうか
            CTRLWIN(id,ACTIVATE)//アクティブに
         ENDIF
      ELSE
            PRINT "アプリが見つからないので全体画像を取得します。"
      ENDIF
      IF wait=1
         FOR i=5 TO 1 step -1
            PRINT i+"秒後に取得します。"
            SLEEP(1)
         NEXT
      ENDIF
            n=0
      WHILE (0=0)
            path=GET_CUR_DIR+"\画像_"+REPLACE(FORMAT(n,4)," ","0")+".bmp"
         IF FOPEN(path,F_EXISTS)
            n=n+1
         ELSE
         IF id<>-1
            SAVEIMG(path,id)
         ELSE
            SAVEIMG(path)
         ENDIF
            PRINT "画像を取得しました。"
            break
         ENDIF
      SLEEP(0.1)
      WEND
   ENDIF
SLEEP(0.05)
WEND
            RESULT=1
FEND

トラブルがあった際に、呼び出し側のソースをデバッグ用に変更して（デバッグ引数1を渡す）すぐに検索範囲を確認できるようにしておきます。

FUNCTION imgxyd(m,pic,db)
            DIM xy[1]
            wh=bmp(pic)
   IF db=1
            FUKIDASI(SX1+","+SY1,SX1,SY1,0,,,$000000,$00CCEE)
      FOR i=SX1 TO SX2 step (SX2-SX1)/100
            MMV(i,SY1)
            SLEEP(0.001)
      NEXT
            FUKIDASI(SX2+","+SY1,SX2,SY1,0,,,$000000,$00CCEE)
      FOR j=SY1 TO SY2 step (SY2-SY1)/100
            MMV(SX2,j)
            SLEEP(0.001)
      NEXT
            FUKIDASI(SX2+","+SY2,SX2,SY2,0,,,$000000,$00CCEE)
      FOR i=SX2 TO SX1 step (SX1-SX2)/100
            MMV(i,SY2)
            SLEEP(0.001)
      NEXT
            FUKIDASI(SX1+","+SY2,SX1,SY2,0,,,$000000,$00CCEE)
      FOR j=SY2 TO SY1 step (SY1-SY2)/100
            MMV(SX1,j)
            SLEEP(0.001)
      NEXT
   ENDIF
      SELECT m
      CASE 1
            haba="IMG_MSK_BGR1"
      CASE 2
            haba="IMG_MSK_BGR2"
      CASE 3
            haba="IMG_MSK_BGR3"
      CASE 4
            haba="IMG_MSK_BGR4"
      DEFAULT
            haba="IMG_MSK_BGR4"
      SELEND
         IF CHKIMG(pic,,SX1,SY1,SX2,SY2,,haba)
            xy[0]=G_IMG_X+wh[0]/2
            xy[1]=G_IMG_Y+wh[1]/2
            FUKIDASI(xy[0]+","+xy[1],xy[0],xy[1],0,,,$FFFFFF,$008800)
         ELSE
            xy[0]=0
            xy[1]=0
            FUKIDASI("画像が見つかりません。",0,0,0,,,$FFFFFF,$008800)
         ENDIF
            RESULT=SLICE(xy,0,LENGTH(xy)-1)
FEND

Windowsを自動化！UWSC逆引き本

Amazon

トラブル時にはこの関数の引数dbを1にしてやることですぐ調べられます。