Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionJe veux que vous m'aidiez
Je viens de terminer un programme commercial - j'ai désespérément besoin d'ajouter code à barres pour le programme. Mais je ne sais pas comment
Je tiens à ajouter des informations codes à barres pour le programme de mon....
Comment as(vas)-tu stocker la liste des codes à barres? Une base de données? un fichier?
Tu peux déjà commencer en tapant les 13 chiffres des codes à la main (sans lecteur), concernant les codes EAN 13 (European Article Numbering à 13 chiffres), ce sont les codes à barres utilisés dans le monde entier.
La saisie manuelle sera indispensable dans le cas d'une défaillance de lecture, tu dois donc l'inclure.
Public BufferInput Public Nb_Caractere As Integer Public Caractere_Fin Public Nb_Code As Integer Private Sub Form_Load() '************************************** 'Initialisation Port COMx: 'a modifier suivant le port utilise MSComm1.CommPort = 4 'Parametrage ligne serie MSComm1.Settings = "9600,N,8,1" 'Ouvre le port de communication. On Error Resume Next MSComm1.PortOpen = True ' Vide le tampon d'entrée. MSComm1.InBufferCount = 0 'interruption port comm Ok MSComm1.RThreshold = 1 '************************************** End Sub Private Sub MSComm1_OnComm() Dim TemPort As Single TemPort = Timer 'Arret interruption MSComm1.RThreshold = 0 BufferInput = "" Label1.Caption = "" Label2.Caption = "" 'Temp d'attente Do While Timer - TemPort < 0.1 DoEvents Loop BufferInput = MSComm1.Input Label1.Caption = Left(BufferInput, 14) & "-----" & Len(BufferInput) Label2.Caption = BufferInput & "-----" & Len(BufferInput) ' Vide le tampon d'entrée. MSComm1.InBufferCount = 0 'interruption MSComm1.RThreshold = 1 End Sub