sample6.c

来自「用cvi实现的GPIB演示」· C语言 代码 · 共 98 行

#include <ansi_c.h>
#include <gpib.h>
#include <cvirte.h>		/* Needed if linking in external compiler; harmless otherwise */
#include <userint.h>
#include "sample6.h"

static int panelHandle;
int paddress,maddress,saddress,ptime,pend,peos;
int device;

int main (int argc, char *argv[])
{
	if (InitCVIRTE (0, argv, 0) == 0)	/* Needed if linking in external compiler; harmless otherwise */
		return -1;	/* out of memory */
	if ((panelHandle = LoadPanel (0, "sample6.uir", PANEL)) < 0)
		return -1;
	DisplayPanel (panelHandle);
	RunUserInterface ();
	return 0;
}

int CVICALLBACK Configure (int panel, int control, int event,
		void *callbackData, int eventData1, int eventData2)
{
	switch (event)
		{
		case EVENT_COMMIT:
			GetCtrlVal(PANEL,PANEL_IOADDRESS,&paddress);
			GetCtrlVal(PANEL,PANEL_MAINADDRESS,&maddress);
			GetCtrlVal(PANEL,PANEL_SECONDADDRESS,&saddress);
			GetCtrlVal(PANEL,PANEL_TIMELIMIT,&ptime);
			GetCtrlVal(PANEL,PANEL_BINARYSWITCH,&pend);
			GetCtrlVal(PANEL,PANEL_SETEOS,&peos);
			device=ibdev(paddress,maddress,saddress,ptime,pend,peos);
			break;
		}
	return 0;
}

int CVICALLBACK send (int panel, int control, int event,
		void *callbackData, int eventData1, int eventData2)
{
	char mingling[20]; 
	switch (event)
		{
		case EVENT_COMMIT:
			GetCtrlVal(PANEL,PANEL_TEXTBOX,mingling);
			ibwrt(device,mingling,strlen(mingling));
			if (ibsta & 0x8000)
                {
                    SetCtrlVal (PANEL, PANEL_NUMERIC_2, iberr);
                }
                else
                {
                    SetCtrlVal (PANEL, PANEL_NUMERIC_2, 0);
                }
			break;
		}
	return 0;
}

int CVICALLBACK read (int panel, int control, int event,
		void *callbackData, int eventData1, int eventData2)
{
	char readstring[500];
	int num;
	switch (event)
		{
		case EVENT_COMMIT:
			GetCtrlVal(PANEL,PANEL_NUMERIC,&num);
			ibrd(device,readstring,num);
			if (ibsta & 0x8000)
                {
                    SetCtrlVal (PANEL, PANEL_NUMERIC_2, iberr);
                    ResetTextBox(PANEL,PANEL_TEXTBOX_2,"");
                }
                else
                {
                    SetCtrlVal (PANEL, PANEL_NUMERIC_2, 0);
                    ResetTextBox(PANEL,PANEL_TEXTBOX_2,readstring);
                }
			break;
		}
	return 0;
}

int CVICALLBACK quit (int panel, int control, int event,
		void *callbackData, int eventData1, int eventData2)
{
	switch (event)
		{
		case EVENT_COMMIT:
			QuitUserInterface (0);
			break;
		}
	return 0;
}