G reussi à établir la com. en faisant cela :
Private Sub Form_Load()
MSComm1.PortOpen = True
End Sub
Private Sub MSComm1_OnComm()
'var
Dim truc As String
'debut
truc = MSComm1.Input
MsgBox truc
codeBarre = truc'(ca c'est une zone de text du form principlale)
End Sub
ca marche,mais des fois, pour certain code barre précis, le lecteur fait un bip(qui veut dire qu'il a lue), mais aprés il affiche rien à l'ecran.alors on repasse encore le même.puis quand j'en ai marre de passer celui la je passe un autre(qui lui marche d'hab) et la tout les codeBarre(clui qui marche pas(X fois) + celui qui marche) s'affiche dans une concatenaion, digne de notre chanson des muscle préférer!!!!!
avez vous une explication doc????
a+
marcelin
-------------------------------
Réponse au message :
-------------------------------
> Un example: le formulaire s'appelle FrmPort et le contrôle Com1
>
> Option Explicit
>
> Public Function Init_Port(ByVal NoPort As Integer, Settings As String) As Integer
>
> 'Fermeture du port au cas où :
>
> On Error Resume Next
> FrmPort.Com1.PortOpen = False
> On Error GoTo 0
>
> 'Définition des paramètres du port série:
>
> FrmPort.Com1.CommPort = NoPort
> FrmPort.Com1.Settings = Settings
> FrmPort.Com1.InputLen = 0
>
> 'Ouvrir le port:
>
> On Error GoTo ErrInit
> FrmPort.Com1.PortOpen = True
> On Error GoTo 0
>
> Init_Port = 0
>
> FinInit:
> Exit Function
> ErrInit:
> Init_Port = 1
> Resume FinInit
> End Function
>
> Public Function Read_Port(BufferIn As String, TimeOut As Integer) As Integer
> Dim TopDépart As Long
>
> TopDépart = Timer
> BufferIn = ""
> On Error GoTo Errread
> Do Until InStr(BufferIn, Chr(10)) > 0
> If Timer - TopDépart > TimeOut Then
> Read_Port = 1
> Exit Do
> End If
> BufferIn = BufferIn & FrmPort.Com1.Input
> Loop
> On Error GoTo 0
>
> Read_Port = 0
>
> FinRead:
> Exit Function
> Errread:
> Read_Port = 1
> Resume FinRead
> End Function
>
> Public Function Write_Port(BufferOut As String) As Integer
> On Error GoTo ErrWrite
> FrmPort.Com1.Output = BufferOut
> On Error GoTo 0
> Write_Port = 0
>
> FinWrite:
> Exit Function
> ErrWrite:
> Write_Port = 1
> Resume FinWrite
> End Function
>
>
> Public Function Close_Port(ByVal NoPort As Integer) As Integer
> On Error Resume Next
> FrmPort.Com1.PortOpen = False
> On Error GoTo 0
> Close_Port = 0
> End Function
>
>
> Le programme principal initilise le port et l'ouvre par un call Init_Port
>
> On peut se mettre en attente de lecture sur le port par un call Read_Port avec un timeout
>
> On peut aussi envoyer des infos au port avec Write_Port, par example un caractère qui déclenche l'envoi d'une chaine mémorisée dans l'appareil connecté.
>
> Bonne chance
>
> cmusy
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > merci mais ca je l'avait fait...
> > mais c'est pour la suite que je plante....
> > comment on fait pour recuperer les données que le lecteur lie?
> > pour mes test , je voudrais simplement le metre dans une zone text
> >
> > a+
> >
> > marcelin
> >
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > Bonjour,
> > >
> > > Il faut rajouter par un clic du bouton droit dans les contrôles de formulaires le composant ou component Microsoft Comm Control. Il est symbolysé par un téléphone.
> > > En ajoutant ce control à un formulaire on à accès au port série par methodes et attributs du contrôle.
> > >
> > > Bonne chance.
> > >
> > > cmusy
> > >
> > >
> > > -------------------------------
> > > Réponse au message :
> > > -------------------------------
> > >
> > > > je travail sur une appli qui doit tourner avec un lecteur de badge à code barre brancher sur le port MS Comm.
> > > >
> > > > je vien de le recevoir aujourd'hui, mais je comprend pas comme faire mes test.
> > > >
> > > > il imporant de le programmer avec les carte en carton nul qu'il fournissent avec ou bien, c'est préprogramer pour une utilisation basic du lecteur?
> > > >
> > > > et puis en vb comment fait on pour etablir la communication entre le port Ms Comm et le lecteur.
> > > >
> > > >
> > > > si qqun a deja été confronter à ca(et je suis sure que oui.....)
> > > > si il pouvait m'indiquer l demarche à suivre car là j'avoue que j'ai du mal.........
> > > >
> > > > merci
> > > >
> > > > a+
> > > >
> > > >
> > > > marcelin
> > > >
> > > >
> > > >
> > > >
> > >
> >
>