Duyuruyu Kapat
Facebook Gözat
Twitter Gözat

Visual Basic 6 Klavye Takibi

Konu, 'Visual Basic' kısmında UgurSirin tarafından paylaşıldı.

  1. UgurSirin

    UgurSirin Üye

    Kayıt:
    9 Ocak 2008
    Mesajlar:
    45
    Beğenilen Mesajlar:
    0
    Merhaba,

    İnternetten bulduğum kodlar pek işime yaramadı.

    Dokunmatik ekranın etrafına 10 adet buton yaptım.

    Bu butonları da klavyeden tuşlara atamak istiyorum.

    ATM'lerdeki gibi..

    Bu butonları klavyeden bazı tuşlara fiziki kablolarla bağladım. Yani dokunmatik ekranın yanındaki tuşlara basınca klavyeden o tuşa basılmış gibi oluyor.

    İstediğim aynen şöyle..

    Visual Basic 6.0'da örnek olarak "a" tuşuna basıldığında Visual Basic 6.0'daki form.1 invisible true olsun. "b" tuşuna basıldığında ise invisible false değerine dönüşsün.

    Bu konuda örnek uygulaması olan var mı ?
    Yol göstererek de yapabileceğime inanıyorum.
     
  2. mermer

    mermer Üye

    Kayıt:
    6 Haziran 2017
    Mesajlar:
    48
    Beğenilen Mesajlar:
    5
    Şehir:
    istanbul
    Sorduğun soruyu anlayamadım :(

    Resim var mı ?
     
    UgurSirin bunu beğendi.
  3. UgurSirin

    UgurSirin Üye

    Kayıt:
    9 Ocak 2008
    Mesajlar:
    45
    Beğenilen Mesajlar:
    0

    A harfine sağ üstten alta 1. buton
    B harfine sağ üstten alta 2. buton
    .
    .
    .
    J harfine sağ üstten alta 10. butonu atadım.


    K harfine sol üstten alta 1. buton
    L harfine sol üstten alta 2. buton
    .
    .
    .
    U harfine sol üstten alta 10. butonu atadım.

    [​IMG]

    Yön tuşlarını da yine ATM'lerdeki gibi rakamların yazıldığı yere yön tuşlarına atadım.
    Jeton makinesinden gelen tetikleyiciyi de elektronikçi bir arkadaşımın yardımıyla "1" tuşuna atadım. Jeton makinesine para atılınca "1" tuşuna basıyor ve VisualBasic 2008'de KeyDown özelliği ile yazdırma butonunu true yapıyorum.

    Tüm bunlar tamamlanınca ekranda yeşil renkte yazdır butonu geliyor ve kullanıcı yazdır butonuna basınca dilekçe ekranın alt kısmında yazıcının ucuna bağladığım ince dilimli boşluktan kullanıcının eline veriyor. Tüm bu işlemler boyunca SpyCam isimli yazılım ile dilekçe yazdıran vatandaşın fotoğrafları bilgisayara kaydediliyor. Bunu güvenlik için gerekli buldum. tarih ve saat notuyla birlikte bunu da arşivliyor.

    Bu cihaz için bir dizüstü bilgisayar kullanıyorum.

    Umarım anlayabileceğiniz şekilde anlatmışımdır. Sizce daha iyi hale getirebileceğim bir tavsiyeniz var mı ? Tüm tavsiyeleri yazılımı daha iyi hale getirmek için olumlu/olumsuz dinlemek istiyorum.

    Teşekkürler..
     

    Ekli Dosyalar:

    • vs.jpg
      vs.jpg
      Boyut:
      101.3 KB
      Okunma:
      1
  4. UgurSirin

    UgurSirin Üye

    Kayıt:
    9 Ocak 2008
    Mesajlar:
    45
    Beğenilen Mesajlar:
    0
    Şimdi ben bunu bitirdim buna dair çözümü buldum başka bir sıkıntım var.

    Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim strPDFFile As String = Dir("d:\Test.pdf")
    Dim PrintPDFFile As New ProcessStartInfo

    Do Until strPDFFile Is Nothing
    PrintPDFFile.UseShellExecute = True
    PrintPDFFile.Verb = "print"
    PrintPDFFile.WindowStyle = ProcessWindowStyle.Hidden
    PrintPDFFile.FileName = strPDFFile
    Process.Start(PrintPDFFile)
    strPDFFile = Dir()
    Loop

    End Sub
    End Class

    bu kodda "Process.Start(PrintPDFFile)" bu satırda sorun yaşıyorum. Test.PDF isimli dosyayı yazdırması lazım ancak hata veriyor.

    Verdiği hata ise Win32Exception was unhandled. Nerede hata yapıyorum ?