Merhaba hocalarım.

Forumda aradım fakat örnek bir uygulama bulamadım. Ekli örnekte formda bulunan verilere Kare kod üretip pc ye kaydedebiliyorum.

Kare kodu Androidte kare kod okuyucu uygulama ile,
Windows ta ise Form üzerinde bulunan kamera aç butonu ile zbarcam adlı barkod okuyucu uygulamayı açıp, kare kodu okutuyorum.
ekli resimde de görüleceği üzere bilgiyi cmd ekranında göstermekte ve türkçe karakterler bozulmaktadır.




Benim yapmak istediğim form içinde kamerayı açmak ve okutulan kare kodda bulunan metni form üzerinde görmek. Yani Access Kare kod okuyucu yapmak

İlginize şimdiden teşekkürler.

Merhaba.
Ozan Hocamın desteği ile http://www.qrcodeshowto.com/qr-code-webc...heet-zbar/ adresindeki işlemleri projeme uygulamaya çalıştım.

Zbar Command Prompt komutunu çalıştırmak için QRScan.bat dosyası oluşturdum ve Form üzerindeki buton tıklandığı olayına

"Shell ("C:\QRScan.bat")

kodunu yazdım. butonu tıklayınca aşağıdaki ekran açılmakta 

gelen ekrana "Zbarss" yazıp enter diyorum.



ve ekrandaki gibi " Erişim Engellendi" hatası vermekte ve işlemi yapamamaktadır. Hata Yönetici olarak çalıştırılmadığından dolayı işlemi yapmamaktadır.
""QRScan.bat"" dosyasını normalde çalıştırdığımda hata vermemektedir.

Form buton tıklandığı olayında dosyayı yönetici olarak çalıştırmak için nasıl bir söz dizimi kullanmalıyım

isterseniz bir modüle eğer başka formlarda kullanmayacaksanız 

Shell ("C:\QRScan.bat")

kodunun olduğu formun modülüne
aşağıdaki kodu ekleyin

#If VBA7 And Win64 Then '64 bit için

Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _

    ByVal hWnd As Long, _

    ByVal lpOperation As String, _

    ByVal lpFile As String, _

    ByVal lpParameters As String, _

    ByVal lpDirectory As String, _

    ByVal nShowCmd As Long) As Long

#Else '32 bit için

Private Declare  Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _

    ByVal hWnd As Long, _

    ByVal lpOperation As String, _

    ByVal lpFile As String, _

    ByVal lpParameters As String, _

    ByVal lpDirectory As String, _

    ByVal nShowCmd As Long) As Long

#End If





Const SW_SHOWNORMAL = 1

sonrada

Shell ("C:\QRScan.bat")

kodunu aşağıdaki kodla değiştirerek deneyin
bat dosyası içine yazdığınız kodları bilmiyorum ama shell komutunun içine gömemez misiniz o kodları?
dilerim işinize yarar

  ShellExecute 0, "runas", "C:\QRScan.bat", "", vbNullString, SW_SHOWNORMAL

Merhaba.
Başta burda bizlere her konuda destek olan hocalarıma teşekkür ederim. Hepsinin üzerimde emeği fazlasıyla vardır.

Access Üzerinden webcam kullanarak kare kod okuma örnek uygulama ektedir. İnceleyebilirsiniz.

İŞLEMLER:

Ozan Hocamın desteği ile http://www.qrcodeshowto.com/qr-code-webc...heet-zbar/ adresindeki işlemleri projeme uyguladım. Burada belirtildiği gibi dosyaları indirip yönergeleri izleyebilirsiniz.
(Dosyalar Ekte mevcuttur.)
1- zbar-0.10-setup dosyasını bilgisayara kurdum.
2- zbarSpreadSheet ve zbarss dosyalarını programın kurulu olduğu dizine ekledim.
3- Ekli dosyada bulunan QRScan.bat, Zbarvars ve Zbarvars2 Dosyalarını kendime göre düzenledim.

bu işlemler bittiğinde Formu açıp Kamera aç butonuna tıkladığımda bir mesaj penceresi ve Webcam açılıyor. Açılan pencereye "Tamam" demeden önce formuma eklediğim alt forma maus ile tıklayıp  daha sonra tamama bastığımda kare kodda bulunan verileri tabloya yazdı. 

Umarım işinize yarar.

paylaşım için teşekkürler @murat dikme

(16/10/2019, 00:23)berduş yazdı: paylaşım için teşekkürler @murat dikme

Emekleriniz için size ve diğer hocalarıma ben teşekkür ederim sayın @berduş