Excel Forum

Excel Forum (http://www.excel.web.tr/index.php)
-   WEB Tasarım&Programlama (http://www.excel.web.tr/forumdisplay.php?f=71)
-   -   Optik tarayici (http://www.excel.web.tr/showthread.php?t=160866)

işsiz123 28-12-2016 21:58

Optik tarayici
 
Arkadaşlar merhabar
Basit bir Optik okuyucu nasıl yapabilirim.

BedriA 23-07-2017 01:36

Alıntı:

işsiz123 tarafından gönderildi (Mesaj 875498)
Arkadaşlar merhabar
Basit bir Optik okuyucu nasıl yapabilirim.

Excel VBA ile mi Visual Studio gibi bir program ile mi?

asri 23-07-2017 15:23

Tarayıcı ortamım olmadığı için şuan deneyemedim.
İlk aşama olarak aşağıdaki kod ile başlayabilirsiniz.

Kod:

Sub SCAN()
Range("A1").Select
ActiveCell.FormulaR1C1 = 1
Const FromScannerorCamera As Long = 1764
Application.CommandBars.FindControl(, FromScannerorCamera).Execute
'
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Width = 912#
Selection.ShapeRange.Height = 1092#
'
End Sub


BedriA 23-07-2017 18:12

Alıntı:

asri tarafından gönderildi (Mesaj 902701)
Tarayıcı ortamım olmadığı için şuan deneyemedim.
İlk aşama olarak aşağıdaki kod ile başlayabilirsiniz.

Kod:

Sub SCAN()
Range("A1").Select
ActiveCell.FormulaR1C1 = 1
Const FromScannerorCamera As Long = 1764
Application.CommandBars.FindControl(, FromScannerorCamera).Execute
'
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Width = 912#
Selection.ShapeRange.Height = 1092#
'
End Sub



Asri Hocam,

Zaten taranmış olarak bilgisayarda olan dosyalar için de bir seçenek koyabilir misiniz? Bu arada taranmış belge PDF mi olmalı? Biraz açabilir misiniz? Nasıl bir optik form kullanmalı? Cevap anahtarını nerden almalı?

asri 23-07-2017 18:31

Alıntı:

BedriA tarafından gönderildi (Mesaj 902717)
Asri Hocam,

Zaten taranmış olarak bilgisayarda olan dosyalar için de bir seçenek koyabilir misiniz? Bu arada taranmış belge PDF mi olmalı? Biraz açabilir misiniz? Nasıl bir optik form kullanmalı? Cevap anahtarını nerden almalı?

Yanlış anlama olmasın.
Konuda istenen şey detaylı bir iş.Özellikle belirttim, ilk aşama için diye
bu kod ise bulduğum ancak denemediğim, anladığım kadarı ile tarayıcıdan excel e taramaya yarıyor.

Tarama yapıldıktan sonra oluşan resim dosyasından cevaplara ulaşmak çok farklı bir konu olacak.

BedriA 23-07-2017 18:34

Alıntı:

asri tarafından gönderildi (Mesaj 902719)
Yanlış anlama olmasın.
Konuda istenen şey detaylı bir iş.Özellikle belirttim, ilk aşama için diye
bu kod ise bulduğum ancak denemediğim, anladığım kadarı ile tarayıcıdan excel e taramaya yarıyor.

Tarama yapıldıktan sonra oluşan resim dosyasından cevaplara ulaşmak çok farklı bir konu olacak.

Peki excele resim olarak mı atıyor yoksa hücrelere text olarak mı?
Hatırlarsınız, benzer işlem için Abby ve Acrobat kullanmaya çalışmıştık.
Koddan anlaşılan o ki resim olarak atıyor.

asri 23-07-2017 18:35

Alıntı:

BedriA tarafından gönderildi (Mesaj 902720)
Peki excele resim olarak mı atıyor yoksa hücrelere text olarak mı?
Hatırlarsınız, benzer işlem için Abby ve Acrobat kullanmaya çalışmıştık.

Tarama yaptığı için resim olarak gelir. Yarın iş yerinde dener sonucu bildiririm.

BedriA 23-07-2017 18:37

Alıntı:

asri tarafından gönderildi (Mesaj 902721)
Tarama yaptığı için resim olarak gelir. Yarın iş yerinde dener sonucu bildiririm.

Kod:

Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Width = 912#
Selection.ShapeRange.Height = 1092#

Koddan anlaşılan o ki resim olarak atıyor.

pys60 08-08-2017 11:04

bu iş için görüntü işleme teknikleri kullanılıyor ve excel üzerinden yapmak zor olur.


Saat 11:19

Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.