Labsphere SC-5500 - RS-232 C Programming in QuickBasic

SX-01635-000, Rev. 5 37
char CommString[32];
char PortString[32];
const int RecvQueueSize=2048;
const int SendQueueSize=2048;
strcpy(&CommString[0],"COM"); //COM
itoa(comport,&PortString[0],10); //1
strcat(&CommString[0],&PortString[0]); //COM1
//Open a hailing frequency
idComDev = OpenComm(&CommString[0], RecvQueueSize, SendQueueSize);
if(idComDev<0)
{ //ReadHand the OpenComm Failure
err = CloseComm(idComDev);
return -1;
}
strcat(&CommString[0],":9600,n,8,1");
//Translates Device Definition String to DCB codes
err = BuildCommDCB(&CommString[0], &dcb);
if(err==-1)
{
err = CloseComm(idComDev);
return -1;
}
//Sets communication device to state defined in DCB
err = SetCommState(&dcb);
if (err < 0)
{
err = CloseComm(idComDev);
return -1;
}
return idComDev;
}
void zero_on_serial(void)
{
WriteComm(sc_idComDev,"Z0X",strlen("Z0X"));
}
void zero_off_serial(void)
{
WriteComm(sc_idComDev,"Z1X",strlen("Z1X"));
}
void norm_on_serial(void)
{
WriteComm(sc_idComDev,"N0X",strlen("N0X"));
}
void norm_off_serial(void)
{
WriteComm(sc_idComDev,"N1X",strlen("N1X"));
Artisan Technology Group - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisantg.com