Προσπαθώ να φτιάξω μια μικρή εφαρμογή για ένα PDA Symbol PPC 2003 με scanner χρησιμοποιώντας VB2005. Προκειμένου να ενεργοποιηθεί το scanner θα πρέπει σε κάθε φόρμα να γράφω τον παρακάτω κώδικα. Αυτό εκτός από το ότι καθυστερεί το άνοιγμα των φορμών δεν μου επιτρέπει να ανοίξω περισσότερες από μια φόρμες ταυτόχρονα. Γνωρίζετε πως θα μπορούσα να βάλω τον κώδικα σε ένα module; Δοκίμασα αλλά δεν τα κατάφερα.


Private WithEvents MyReader As Symbol.Barcode.Reader = Nothing
Private MyReaderData As Symbol.Barcode.ReaderData = Nothing

Private sub Load_form (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      MyReader = New Symbol.Barcode.Reader
      MyReaderData = New Symbol.Barcode.ReaderData(Symbol.Barcode.ReaderDataTypes.Text, Symbol.Barcode.ReaderDataLengths.DefaultText)
      MyReader.Actions.Enable()
      MyReader.Actions.Read(MyReaderData)
End sub

Private Sub MyReader_ReadNotify(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyReader.ReadNotify
      Dim TheReaderData As Symbol.Barcode.ReaderData = MyReader.GetNextReaderData

      Select Case TheReaderData.Result
            Case Symbol.Results.SUCCESS

            Case Symbol.Results.CANCELED
            Case Else
      End Select
End Sub

 Private Sub Main_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        MyReader.Actions.Flush()
        MyReader.Actions.Disable()
        MyReader.Dispose()
        MyReader = Nothing
        MyReaderData = Nothing     
    End Sub

Αν σε κατάλαβα σωστά τότε πρέπει να δημιουργήσεις μια public τάξη (μιλάω με ορολογία C# διότι είμαι από τον κόσμο του C#) που θα εμπεριέχει τα functions σου και να τα ορίσεις ως Shared. Αν κάνεις αυτή την τάξη όπως σου λέω θα μπορείς να την καλείς χωρίς να την ορίζεις (δηλαδή χωρίς το Dim, αν δεν κάνω λάθος). Για την καθυστέρηση σε συμβουλεύω να τα κάνεις σε ξεχωριστό Tread.

Τάξη????? πως φαίνοντε οι φοιτητες του Κάβουρα :P.

και το κλάση ελληνικότατο ειναι. no offence.

'Οπως είπε και ο Geo κάνε μία κλάση που θα κάνει την δουλεία σου και κάλεσαι την όταν την χρείαζεσαι σε κάθε φόρμα. Για παράδειγμα σε κάποιο button click. Επίσης θα μπορούσες να κάνεις την κλάση να κάνει όλη την δουλεία και να σου επιστέφει το αποτέλεσμα που θές, για παραδειγμα:

1. ενεργοποιηση scanner

2. scan-αρισμα

3 απενεργοποιηση scanner

Σας παρακαλώ, μην αναφέρεστε στο όνομα του Κάβουρα, γιατί παθαίνω νευρικό κλονισμό. Ακόμα θυμάμαι το "κατάσταση απογραμμής" (offline)...

---

Μην αφήνετε τα media να σας "ταΐζουν"!

Mitsaras wrote:

Σας παρακαλώ, μην αναφέρεστε στο όνομα του Κάβουρα, γιατί παθαίνω νευρικό κλονισμό. Ακόμα θυμάμαι το "κατάσταση απογραμμής" (offline)...

Hehe, και να μας βλέπει απο μια γωνεία!

---

Παναγιώτης Κεφαλίδης

"Για να επιτύχεις, θα πρέπει το πάθος σου για την επιτυχία να είναι μεγαλύτερο απο τον φόβο σου για την αποτυχία"

Οι απαντήσεις παρέχονται για συγκεκριμένες ερωτήσεις και χωρίς καμιά εγγύηση. Παρακαλώ διαβάστε τους όρους χρήσης.