Mode De Fonctionnement Shift, Exemple De Programme 10 - Omega BDF-24 Série Manuel D'emploi

10.1.- MODE DE FONCTIONNEMENT SHIFT, EXEMPLE DE PROGRAMME
Mise
sous tension
Début
XOFF
adressage
Début
XON
message
Adresse
Adresse
appareil
Polarité
Polarité
Dépassement
Caractère à
placer sur
6ème digit
digit MSB
5ème digit
4ème digit
3ème digit
2ème digit
1er digit
Caractère à
placer sur
digit LSB
XOFF
Fin de
message
Message suivant
ESC : Remet l'affichage dans la condition de mise sous
tension. A la priorité sur tout autre caractère.
Adresse : Configurér sur le sélecteur S4 (+30 hex). Tous
les appareils dont l'adresse est "0" (ASCII 30
hex), affichent toutes les données, y compris le
code adresse émis, et cette adresse permet à
tous les appareils de recevoir des données.
Polarité : Le segment du milieu s'allume.
Dépassement : L'indicateur à LED situé au dessus du
segment de polarité, s"allume.
Page : 17
/* ============= PROGRAMME 1 ==============
/* Demo programm for series BDF-XX-S connected to a PC
/* Example of comunication in Shift operating mode using XON/XOFF */
/* To be used under Turbo "C++" of Borland Version 1.01
/* Version 01, realized on Dec 1th of 1997
/*mode shift*/
#include<bios.h> /*
#include<conio.h>
#include<stdio.h>
#define COM1 0 /*
#define COM2 1 /*
#define TRUE 1
#define FALSE 0
#define EVEN 0x18
#define ODD 0x10
#define NONE 0x0
#define BIT7 0x2
#define BIT8 0x3
#define STOP1 0x0
#define STOP2 0x4
#define BAUD300 0x40
#define BAUD600 0x60
#define BAUD1200 0x80
#define BAUD2400 0xA0
#define BAUD4800 0xC0
#define BAUD9600 0xE0
int main(void)
{
int count,DONE=FALSE; /*counter & end loop condition
char dat1,men1[25]; /*temporary data and string*/
/*__________Initializing Host port________________*/
bioscomp(0,(BAUD9600 | BIT8 | NONE | STOP1),COM2); /*open COM2 port*/
/*__________Initializing instrument_______________*/
bioscom(1,'\x13', COM1); /*Start addressing (XOFF)*/
*/__________Main loop of the programm_______________*/
ciscr(); /*Clear Screen*/
while(!DONE){ /*start transmmision loop*/
/*__________Read message introduced using the keyboard________________*/
count=0
/*reading the string introduced using the keyboard*/
gotoxy(10,3);
printf("enter the mesage (0-7 characters)");
do{
dat1=getche();
Men1[count]=dat1;
count++;
}while (dat1!='\x0d);
men1[count]='\r';
/*_________Send the message and present it on the screen_____________*/
cirscr();
bioscom(1,'\x11',COM2); /*Send XON*/
gotoxy(12.10);
printf("XON");
bioscom(1,'0' , COM2); /* Send address*/
printf("0");
count=0
/*_______Message Loop Transmmision_________*/
while (men1[count]!='\r'){
/*Covert to capital letters to see the small letters*/
if (men1[count]<123 & men1[count]>96) men1[count]=men1[count]-32;
*/Print on the screen and send every message character to the port until carriage return*/
printf("%c", men1[count]);
bioscom(1,men1[count],COM2);
count++;
bioscom(1,'\x13',COM2); /*Send XOFF; End of message*/
printf("XOFF");
}
return 0;
}
' ============= PROGRAMME 2 ==============
' Demo programm for series BDF-XX-S connected to a PC
' Example of comunication in Shift operating mode using XON/XOFF
' Realizer for Microsoft Qbasic, version 1.1
' Version 01, realized on Dec 1th of 1997
OPEN "COM2:9600,N,8,1,OP0,RS,TB20,RB20" FOR RANDOM AS #1
'Open port 2 without protocols, 9600, 8, none, buffers for 20 characters'
CLS
PRINT#,CHR$(19)
DO
LOCATE 10,5
INPUT "Enter message";A$
A$ = UCASE$(A$) 'Conversion to capital letters'
CLS
LOCATE 12,5
PRINT "XON 0" + A$ + " XOFF"
PRINT #1, CHR$(17) + "0" +A$ + CHR$(19) 'Send string to the port'
LOOP WHILE NOT (A$="")
32/97 Rev. 0112/97
*/
*/
*/
/*Until press Enter key*/
'Print string on screen'
'Until empty string is entered'