Table of Contents
Advertisement
RUSKA 7750i
Users Manual
Sample Program 3 — RUSKA 7750i Serial (RS-232) — Controls Pressure to 20.000
%FS
5-14
/* request_7000 : write a query command and read the response
/*--------------------------------------------------------------------*/
void request_7000 (char *s)
{
ibwrt (device, s, strlen (s));
ibrd (device, buffer, sizeof (buffer));
}
/*------------------------------------------------------------------
--*/
/*--------------------------------------------------------------------*/
/*
Sample Program 3 - 7750 Serial (RS-232)
/*
/*
Controls pressure to 20.000 %FS
/*--------------------------------------------------------------------*/
#include <stdio.h>
#include <stdlib.h>
#include <conio.h>
#include <dos.h>
#include <time.h>
#define TRUE 1
#define FALSE 0
#define TIMEOUT (CLK_TCK * 5)
#define XON 0x11
#define XOFF 0x13
#define CLEAR 0x03
#define DLE 0x10
#define QUEUE_SIZE 1024
char
buffer[QUEUE_SIZE];
double pressure;
int
status;
int
address;
int
portbase;
int
intnum;
volatile int
transmit_enabled = TRUE;
char inqueue[QUEUE_SIZE];
int
inq_in;
int
inq_out;
void interrupt (*old_vector) ( );
int
check_errors (void);
void serial_initialize (void);
void write_7000_serial (char *s);
void serial_close (void);
int request_7000_serial (char *s);
void serial_write (char ch);
/*--------------------------------------------------------------------*/
void main (void)
{
char *p;
/*-----------------------------*/
/* Initialize Serial Interface */
/*-----------------------------*/
address = 4;
serial_initialize ( );
/*-----------------------------------------------------------*/
/* Initialize 7750 Interface
/*
/*
UNIT %FS
/*
PRES 20.0
/*
PRES:TOL 0.001
/*
OUTP:MODE CONTROL
/*-----------------------------------------------------------*/
write_7000_serial ("UNIT %FS;:PRES 20.0;TOL 0.001;:OUTP:MODE CONTROL\n");
/* 5 second timeout */
/* buffer for input/output strings */
/* Pressure read from unit */
/* Status register from unit */
Set units to percent of full scale */
Set control setpoint to 20 %FS
Set control tolerance to 0.001 %FS */
Enter control mode
*/
*/
*/
*/
*/
*/
*/
*/
Advertisement
Table of Contents
