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

10.2.- MODE DE FONCTIONNEMENT A DECLENCHEMENT, EXEMPLE DE PROGRAMME
Mise
sous tension
Début
ETX
adressage
Début
STX
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
Caractère à
placer sur 1er digit
digit LSB
Fin de
message
ETX
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.
/* ============= PROGRAMME 1 ==============
/* Demo programm for series BDF-XX-S connected to a PC
/* Example of comunication in Strobe operating mode using STX/ETX
/* To be used under Turbo "C++" of Borland Version 1.01
/* Version 01, realized on Dec 1th of 1997
/*mode strobe*/
#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*/
ciscr(); /*Clear Screen*/
/*__________Initializing Host port________________*/
bioscomp(0,(BAUD9600 | BIT8 | NONE | STOP1),COM2); /*open COM2 port*/
/*__________Initializing instrument_______________*/
bioscom(1,'\x3', COM1); /*Start addressing (ETX, also XOFF)*/
*/__________Main loop of the programm_______________*/
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,'\x2',COM2); /*Send STX*/
gotoxy(12.10);
printf("STX");
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,'\x3',COM2); /*Send ETX, End of message*/
printf("ETX");
}
}
return 0;
}
' ============= PROGRAMME 2 ==============
' Demo programm for series BDF-XX-S connected to a PC
' Example of comunication in Strobe operating mode using STX/ETX
' Realizer for Microsoft Qbasic, VERSION 1.1
' Version 01, realized on Dec 1th of 1997
OPEN "COM2:9600,N,8,1,CD0,CS0,DS0,OP0,RS,TB20,RB20" FOR RANDOM AS #1
'Open port 2 without protocols, 9600, 8, none, buffers for 20 characters'
CLS
PRINT#1,CHR$(3)
DO
LOCATE 10,5
INPUT "Enter message"; A$
A$ = UCASE$(A$) 'Conversion to capital letters'
CLS
LOCATE 12,5
PRINT "STX 0" + A$ + " ETX"
PRINT #1, CHR$(2) + "0" +A$ + CHR$(3) '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'
Page : 18