Visual Basic - Sylvac Opto-Rs232 Simplex Bedienungsanleitung

<REF1>, <REF2> Changement de référence.
<PRE> Rappel du preset.
<PRE?> L'instrument envoie la valeur du preset de la référence active.
<PRE +123.45> Introduction du preset: les valeurs numériques doivent toujours être précédées du signe.
<PRE +0>
Se reporter au manuel d'utilisation de l'instrument pour les cas particuliers.
Exemples de programmation
Basic standard
Fiche simplex
Ouverture du port
Activation des lignes d'alimentation
(RTS=ON, DTR = ON)
&H3FC adresse registre (COM2: &H2FC)
désactivation de la diode de demande de
données
(RTS=ON, DTR = OFF)
Lecture des données
Fiche duplex
Ouverture du port
Activation des lignes d'alimentation
(RTS=OFF, DTR = ON)
&H3FC adresse registre (COM2: &H2FC)
Demande de données (le CR est généré
automatiquement)
Lecture des données

Visual Basic

Il faut utiliser les contrôles de communication (MsComm) de VisualBasic:
Ouverture du port:
Activation des lignes
d'alimentation:
Demande de données: ' Simplex Cable'
Lecture des données
Pour plus d'informations, se reporter au menu d'aide de Visual Basic sur les contrôles MsComm
' 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
' Simplex Cable'
Form1.MSComm1.DTREnable = True
Form1.MSComm1.RTSEnable = True
' Duplex Cable'
Form1.MSComm1.DTREnable = True
Form1.MSComm1.RTSEnable = False
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
InString$ = Comm1.Input
OPEN "COM1 :4800,7,E,2,PE"
OUT &H3FC,&H0B
OUT &H3FC,&H0A
Line input #1,a$
OPEN « COM1 :4800,7,E,2,PE »
OUT &H3FC,&H09
PRINT #1, « ? »
LINE INPUT #1,a$
4