linse/sicspsi
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

updates for SeaServer

Browse Source
This commit is contained in:
zolliker
2007-04-26 14:47:42 +00:00
parent a24f56e7fb
commit 768c674aa8
3 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
lsc370driv.c
View File

@ -35,6 +35,7 @@ typedef struct {
float t;
float htr;
float set;
float res;
} Lsc370;
static ParClass lsc370Class = { "LSC370", sizeof(Lsc370) };
@ -53,6 +54,9 @@ static void Lsc370ParDef(void *object) {
ParName("htr"); ParTail("%");
ParFloat(&drv->htr, PAR_NAN);
ParName("res"); ParTail("Ohm");
ParFloat(&drv->res, PAR_NAN);
EaseBasePar(drv);
EaseSendPar(drv);
EaseDrivPar(drv, "%.5g", "K");
@ -68,6 +72,9 @@ static long Lsc370Read(long pc, void *object) {
EaseWrite(eab, "RDGK?1");
return __LINE__; case __LINE__: /**********************************/
drv->t = atof(eab->ans);
EaseWrite(eab, "RDGR?1");
return __LINE__; case __LINE__: /**********************************/
drv->res = atof(eab->ans);
EaseWrite(eab, "HTR?");
return __LINE__; case __LINE__: /**********************************/
drv->htr = atof(eab->ans);