Bowers Group Sylvac Opto Instruments - Manual (Page 5)

4
, Changement de référence.
Rappel du preset.
L'instrument envoie la valeur du preset de la référence active.
Introduction du preset: les valeurs numériques doivent toujours être précédées du signe.
Se reporter au manuel d’utilisation de l’instrument pour les cas particuliers.
Exemples de programmation
Basic standard
Fiche simplex
Ouverture du port OPEN "COM1 :4800,7,E,2,PE"
Activation des lignes d’alimentation
(RTS=ON, DTR = ON)
&H3FC adresse registre (COM2: &H2FC) OUT &H3FC,&H0B
désactivation de la diode de demande de
données
(RTS=ON, DTR = OFF) OUT &H3FC,&H0A
Lecture des données Line input #1,a$
Fiche duplex
Ouverture du port OPEN « COM1 :4800,7,E,2,PE »
Activation des lignes d’alimentation
(RTS=OFF, DTR = ON)
&H3FC adresse registre (COM2: &H2FC) OUT &H3FC,&H09
Demande de données (le CR est généré
automatiquement) PRINT #1, « ? »
Lecture des données LINE INPUT #1,a$
Visual Basic
Il faut utiliser les contrôles de communication (MsComm) de VisualBasic:
Ouverture du port: ' Use COM1.
Comm1.CommPort = 1
' 4800 baud, even parity, 7 data, and 2 stop bit.
Comm1.Settings = "4800,E,7,2"
' Open the port.
Comm1.PortOpen = True
Activation des lignes
d'alimentation: ' Simplex Cable'
Form1.MSComm1.DTREnable = True
Form1.MSComm1.RTSEnable = True
' Duplex Cable'
Form1.MSComm1.DTREnable = True
Form1.MSComm1.RTSEnable = False
Demande de données: ' Simplex Cable'
MSComm1.DTREnable = False
Timer1.Interval = 150
Timer1.Enabled = True
'Duplex cable + duplex instrument'
MSComm1.Output = "?" + Chr$(13)
'Duplex cable + simplex instrument'
MSComm1.Break = True
'Incremente Timer1.Interval in case of no transmission'
Timer1.Interval = 10
Timer1.Enabled = True
MSComm1.Break = False
Lecture des données InString$ = Comm1.Input
Pour plus d'informations, se reporter au menu d'aide de Visual Basic sur les contrôles MsComm