configuration appareil rs-232

[loic3869]

Bonjour

Je dois récupérer des courbes d'un appareil dans Excel et le configurer depuis excel. La communication serait en RS-232. Comment faire ?

Merci

 

[jmd2]

Re : configuration appareil rs-232

hello

communication avec les ports séries (rs232)

RS232 Debug Interface - Data Capture with Excel 97 on Windows 95/98/ME/NT

jettes-y un oeil

 

[Roland_M]

Re : configuration appareil rs-232

bonsoir

voici un classeur avec des routines concernant RS232
que j'ai trouvé sur le NET !

Roland

 

[loic3869]

Re : configuration appareil rs-232

Merci.

J’ai trouvé ce site : Pencom - Visual Basic for Application Serial Port Software Example

Après avoir fait la manipulation je pourrais contrôler le Port COM depuis Excel ? Ensuite comment récupérer les données du Port COM (courbes, curseurs) et comment envoyer des commandes (en Basic) dans le Port COM ?

Merci.

 

[jmd2]

Re : configuration appareil rs-232

re hello

tente les solutions proposées.

et reviens avec un question plus précise.

 

[PascalXLD]

Re : configuration appareil rs-232

Bonjour

Tu devrais aller voir le programme de Ti sur Veriti

VeriTi V 3, le site des amis d'Excel et OOo - Programmes VeriTi

 

[loic3869]

Re : configuration appareil rs-232

Merci mais je ne comprends pas tout dans le fichier du GPS.
Comment et quelle commandes utiliser pour envoyer un texte sur le port et de récupérer le résultat ?

Merci.

 

[Roland_M]

Re : configuration appareil rs-232

bonjour à tous
ce code est tiré d'une routine d'un de mes programmes
qui servait à la saisie des poids/capacités dans une verrerie
seulement il est écrit sous le compilateur QuickBasic 4.5
et la routine complète ne tournerait pas ici
tu peux essayer ceci tout seul pour voir les résultats !?
Mais je doute que cela fonctionne sous excel !?

Sub EssaiBalance()
'rem le A$ ne sert que pour tirer le dernier caractère retour
Dim Reponse As Variant
Do
 NF1 = FREEFILE: Open "COM2:2400,E,7,1,CD0,CS0,DS0,RS" For Random As #NF1
 If Not EOF(NF1) Then Line Input #NF1, Resultat$: A$ = Input$(1, #NF1)
 M$ = "Valeur = " & Resultat$ & vbLf & vbLf & "Suite Oui/Non ?"
 Reponse = MsgBox(M$, vbYesNo, "Saisie RS232")
 If Reponse <> vbYes Then Close #NF1: Exit Do
Loop
End Sub

Roland

 

[Staple1600]

Re : configuration appareil rs-232

Bonjour


Une petite précision.


Pour tester le code de Roland_M

Sous XP, utiliser DosBox (voir ici: DOSBox, a x86 emulator with DOS)

Et avoir QBasic 4.5

(Dispo sur le CD d'installation de W98, pour ceux qui l'ont encore)
Ou téléchargeable ici:
Ce lien n'existe plus

Et le code doit être enregistré dans un fichier *.bas

 

[MJ13]

Re : configuration appareil rs-232

Bonjour à tous

Voici uin programme écrit en gwbasic que j'ai fait il y a 10 ans environ pour récupérer les données d'un appareil (chromamètre Minolta CR200). A al fin il faut taper Ctrl+pause puis F4 pour fermer le fichier et F5 pour sortir.
Par contre pour dialoguer avec un appareil , c'est plus compliqué. Le programme de Ti dervrait y arriver. L'important est de bien parmêtrer la vitesse, le nombre de bit etc...
Ensuite il faut un cable bien adapté.

Si cela peut t'inspirer:

5 CLS
10 KEY ON
12 KEY 4,"close"+CHR$(13)
14 KEY 5,"system"+CHR$(13)
1006 PRINT "NOM DU FICHIER ( A la fin de la transmission, taper sur CTRL + Pause puis taper close + enter puis taper SYSTEM + Entr‚‚ puis ALT F4)":INPUT A$
1007 OPEN "O",#2,A$+".TXT"
1010 OPEN"COM1:4800,E,7,2,CS,DS,CD"AS#1
1035 INPUT#1,A$
1046 PRINT #2,A$
1060 GOTO 1035
1100 END