Salut,
Je cherche à résoudre un problème de communication avec le port série d’un appareil de pesage appelé ITEM IDé400. Cet appareil affiche le poids des véhicules stationnés sur un pont bascule. J’ai développé une application avec Access 2007 et j’aimerais, à partir d’un formulaire, enregistré dans ma abse de données le poids net de chaque véhicule. J’ai installé VB6 pour pouvoir utiliser l’API MScomm32 puis j’ai utilisé le code de Grafikm( http://grafikm.developpez.com/portcomm/) sans avoir de resultat, ensuite j’ai adapté les codes suivants , https://support.microsoft.com/en-us/kb/158008, et http://www.excelforum.com/excel-prog...ial-device.htm . Mais rien ne s’affiche dans mon contrôle zone de texte. Ca fait 4 mois que j’essaie de résoudre le problème mais je n’y parviens pas. J’ai finalement opté pour l’utilisation l’OCX Scomm32 qui, parait-il, semble être plus efficace. Voici le code que j’ai utilisé pour mon formulaire.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Private Sub Form_Load() With SComm1 'configuration du port .CommPort = 1 'On utilise le port COM1: .Handshaking = 0 'RTS .RThreshold = 1 .RTSEnable = True 'mieux pour le port COM: .Settings = "9600,n,8,1" .SThreshold = 1 .PortOpen = True End With End SubMon ordinateur est sous win 7 professionnel et j’utilise access 2007. Je désire ardemment recevoir de l’aide même si celle-ci est payante je suis preneur. Je souhaite vraiment résoudre ce problème une bonne fois pour toute quelque soit la solution.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 Private Sub SComm1_OnComm() Select Case SComm1.CommEvent Case comEvReceive Do While SComm1.InBufferCount > 0 Me.Texte0.Value = SComm1.Input Loop Case Is > 1000 Me.Texte0.Text = "Some ComPort Error occurred" Case Else End Select End Sub
Partager