Jump to content

Her Harfi Sırayla Yazdırma


polat33
 Share

Recommended Posts

Arkadaşlar merhaba; Alt resimdeki harflere göre klavyede o resme denk gelen harfi sırayla yazdırmam gerekiyor, fakat yazdığım kod düzgün çalışmadı, yazdığım kodu ve resmi altta veriyorum, bana nerede hata yaptığımı ve doğru yazım konusunda yardımcı olursanız sevinirim.
 
istediğim alttaki resimde yer alan harfleri sırasıyla klavyeden yazmak, benim yaptığımdaysa ya ilk harfi defalarca üst üste yazıyor Örn: "D" , yada hepsini pas geçiyor sonuncuyu yazıyor, yada herhangi birisinde takılıyor
EkrandaKİ örnek resim:

rQ8nbM.jpg
resimdeki harfler ilgli klasörde var, tek başlarına olunca yazıyor fakat bu şekilde sıralı bastıramadım.
Not:harflerin sürekli sıraları değişiyor, ondan dolayı rastgele çıkan sıraya göre yazmalı

$result1 = _ImageSearch("A.bmp",1,$x1,$y1,10)
if $result1=1 Then
Send("{A}")
Else
$result2 = _ImageSearch("B.bmp",1,$x1,$y1,10)
if $result2=1 Then
Send("{B}")
Else
$result3 = _ImageSearch("C.bmp",1,$x1,$y1,10)
if $result3=1 Then
Send("{C}")
Else
$result4 = _ImageSearch("D.bmp",1,$x1,$y1,10)
if $result4=1 Then
Send("{D}")
   While 1
        $Search = _ImageSearch("A.bmp",1,$x1,$y1,10)
        $Search1 = _ImageSearch("B.bmp",1,$X1,$Y1,10)
        $Search2 = _ImageSearch("C.bmp",1,$X1,$Y1,10)
        $Search3 = _ImageSearch("D.bmp",1,$X1,$Y1,10)
        If $Search = 1 Then
Send("{A}")
        ElseIf $Search1 = 1 Then
Send("{B}")
        ElseIf $Search2 = 1 Then
Send("{C}")
        ElseIf $Search3 = 1 Then
Send("{D}")
        EndIf
        EndIf
        Sleep(200)
    WEnd

sayıları değişiyor, bazen 2 - 3 tane "D" harfi yada "A" yada "B, C" olabiliyor, bazen herhangi bir harf hiç olmayabiliyor diğerleri oluyor, amma her zaman 8 tane oluyor.

 

 

Link to comment
Share on other sites

Evet harfler hepsi 1 resimde, her defasında bu harfler karışarak geliyor, sıralı derkende rastlansal gelen resimdeki harfleri aynı sıra ile yazdırmak. imagesearch kullanma nedenim ise örneğin A harfi için A harfinin resmini taratıyorum, B için B harfinin resmini.

Link to comment
Share on other sites

  • 2 hafta sonra ...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...