00001 // ===================================================================== 00002 // $Id: TRs232cKeithley2700Module.cc,v 1.6 2004/03/07 10:30:31 goiwai Exp $ 00003 // $Name: CLDAQ-1-14-03 $ 00004 // $Log: TRs232cKeithley2700Module.cc,v $ 00005 // Revision 1.6 2004/03/07 10:30:31 goiwai 00006 // ROOTに組みこむためのおまじないマクロを埋めこみました。 00007 // 全てにおいて完全に動作するわけではありません。 00008 // 00009 // Revision 1.5 2003/10/06 17:02:40 goiwai 00010 // *** empty log message *** 00011 // 00012 // Revision 1.4 2003/07/30 16:19:10 goiwai 00013 // ファイルにコミットログをつけることにしました. 00014 // 00015 // ===================================================================== 00016 #include "TRs232cKeithley2700Module.hh" 00017 00018 TRs232cKeithley2700Module::TRs232cKeithley2700Module( const Tstring devfile, Tint nchannel ) 00019 : TRs232cModule( devfile, nchannel ) 00020 {;} 00021 00022 TRs232cKeithley2700Module::TRs232cKeithley2700Module( Tint nchannel, Tstring devfile ) 00023 : TRs232cModule( nchannel, devfile ) 00024 {;} 00025 00026 TRs232cKeithley2700Module::TRs232cKeithley2700Module( const TRs232cKeithley2700Module& right ) 00027 : TRs232cModule( right ) 00028 {;} 00029 00030 TRs232cKeithley2700Module::~TRs232cKeithley2700Module() 00031 {;} 00032 00033 Tvoid TRs232cKeithley2700Module::defineClearMethod( Tint channel ) 00034 { 00035 //エラーキューをクリアする 00036 Write( "*CLS" ); 00037 return; 00038 } 00039 00040 Tvoid TRs232cKeithley2700Module::defineUpdateMethod( Tint channel ) 00041 { 00042 Clear(); 00043 return; 00044 } 00045 00046 Tvoid TRs232cKeithley2700Module::defineInitializeMethod( Tint channel ) 00047 { 00048 //デフォルト設定に戻す 00049 Write( "*RST" ); 00050 00051 //BEEP OFF 00052 //Write( ":SYST:BEEP OFF" ); 00053 00054 //センサの種類を定義シングルクオートでかこまねばならない 00055 Write( ":SENS:FUNC 'RES'" ); 00056 00057 //積分速度をPLC単位で設定 00058 //Write( ":SENS:RES:NPLC 1" ); 00059 00060 //積分速度を秒単位で設定 00061 //Write( ":SENS:RES:APER 1" ); 00062 00063 //レンジ切替え 00064 //Write( "SENS:RES:RANG 120e6" ); 00065 00066 //精度選択 00067 //Write( "SENS:RES:DIG 5" ); 00068 00069 //AUTOレンジON 00070 Write( "SENS:RES:RANG:AUTO ON" ); 00071 00072 //データ要素指定 00073 Write( ":FORM:ELEM READ" ); 00074 00075 return; 00076 } 00077 00078 Tvoid TRs232cKeithley2700Module::defineReadMethod( Tint channel ) 00079 { 00080 Write( ":READ?" ); 00081 return; 00082 } 00083 00084 Tbool TRs232cKeithley2700Module::modifyData( const Tstring& accept, Tdouble& databuf ) const 00085 { 00086 databuf = strtod( accept.c_str(), 0 ); 00087 return Ttrue; 00088 } 00089 00090 #ifdef __CLDAQ_ROOT_DLL 00091 ClassImp(TRs232cKeithley2700Module) 00092 #endif