Optik tarayici

[işsiz123]

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

 

[BedriA]

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

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

 

[Asri]

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

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]

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

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]

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]

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]

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]

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

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

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

 

[pys60]

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