Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > Diğer Yazılımlar > WEB Tasarım&Programlama
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 28-12-2016, 21:58   #1
işsiz123
Altın Üye
 
Giriş: 13/07/2016
Şehir: MARDİN
Mesaj: 305
Excel Vers. ve Dili:
Excel 2010 & 2016 Türkçe
Varsayılan Optik tarayici

Arkadaşlar merhabar
Basit bir Optik okuyucu nasıl yapabilirim.
__________________
#MEHMET EMİN ALKAN
“ Kendi dilini bilmeyen başka dil öğrenemez ”
işsiz123 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-07-2017, 01:36   #2
BedriA
Altın Üye
 
BedriA kullanıcısının avatarı
 
Giriş: 03/06/2017
Şehir: Antalya
Mesaj: 797
Excel Vers. ve Dili:
2007, 32
Varsayılan

Alıntı:
işsiz123 tarafından gönderildi Mesajı Görüntüle
Arkadaşlar merhabar
Basit bir Optik okuyucu nasıl yapabilirim.
Excel VBA ile mi Visual Studio gibi bir program ile mi?
__________________
Demiri demirle dövdüler, biri sıcak biri soğuktu.
İnsanı insana kırdırdılar, biri aç biri toktu.

Pir Sultan Abdal
BedriA Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-07-2017, 15:23   #3
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,415
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

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

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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
__________________
www.asriakdeniz.com
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-07-2017, 18:12   #4
BedriA
Altın Üye
 
BedriA kullanıcısının avatarı
 
Giriş: 03/06/2017
Şehir: Antalya
Mesaj: 797
Excel Vers. ve Dili:
2007, 32
Varsayılan

Alıntı:
asri tarafından gönderildi Mesajı Görüntüle
Tarayıcı ortamım olmadığı için şuan deneyemedim.
İlk aşama olarak aşağıdaki kod ile başlayabilirsiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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ı?
__________________
Demiri demirle dövdüler, biri sıcak biri soğuktu.
İnsanı insana kırdırdılar, biri aç biri toktu.

Pir Sultan Abdal
BedriA Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-07-2017, 18:31   #5
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,415
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

Alıntı:
BedriA tarafından gönderildi Mesajı Görüntüle
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.
__________________
www.asriakdeniz.com
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-07-2017, 18:34   #6
BedriA
Altın Üye
 
BedriA kullanıcısının avatarı
 
Giriş: 03/06/2017
Şehir: Antalya
Mesaj: 797
Excel Vers. ve Dili:
2007, 32
Varsayılan

Alıntı:
asri tarafından gönderildi Mesajı Görüntüle
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.
__________________
Demiri demirle dövdüler, biri sıcak biri soğuktu.
İnsanı insana kırdırdılar, biri aç biri toktu.

Pir Sultan Abdal
BedriA Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-07-2017, 18:35   #7
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,415
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

Alıntı:
BedriA tarafından gönderildi Mesajı Görüntüle
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.
__________________
www.asriakdeniz.com
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-07-2017, 18:37   #8
BedriA
Altın Üye
 
BedriA kullanıcısının avatarı
 
Giriş: 03/06/2017
Şehir: Antalya
Mesaj: 797
Excel Vers. ve Dili:
2007, 32
Varsayılan

Alıntı:
asri tarafından gönderildi Mesajı Görüntüle
Tarama yaptığı için resim olarak gelir. Yarın iş yerinde dener sonucu bildiririm.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Width = 912#
Selection.ShapeRange.Height = 1092#
Koddan anlaşılan o ki resim olarak atıyor.
__________________
Demiri demirle dövdüler, biri sıcak biri soğuktu.
İnsanı insana kırdırdılar, biri aç biri toktu.

Pir Sultan Abdal
BedriA Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-08-2017, 11:04   #9
pys60
 
Giriş: 28/07/2015
Şehir: Gaziantep
Mesaj: 89
Excel Vers. ve Dili:
ingilizce ve türkçe
Varsayılan

bu iş için görüntü işleme teknikleri kullanılıyor ve excel üzerinden yapmak zor olur.
__________________
İyi Çalışmalar;
Saygılarımla
Alıntı:
mesutdeniz.com.tr
pys60 Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 01:03


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon- Çorlu Dans- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden