搜索
©1994-2010ChinaAcademicJournalElectronicPublishingHouse.Allrightsreserved.(1.,050091;2.,050011)::;:TP273:B:100023932(2004)(01)200662041,,,,,,,,,,1,,2PID,:()()()()11,,,,,,1m3;,;0180,1;,,,(++),:a.(,,,;)b.(,,140)c.(,140)d.(,160)e.(,160)f.(,175)g.(,175)h.()i.j.,k.3:2003207230,2004,31(1):6669ControlandInstrumentsinChemicalIndustry©1994-2010ChinaAcademicJournalElectronicPublishingHouse.Allrightsreserved.:;;,,,0260,320(320);U;650mmPt100,,,,,;,,2m3,,,,,2,,,,,,,(),,,2,,,,,,,+PID,,,RS2232/RS2485,,,,,,,,,+PIDPt100,,,,,:Pt100,,,;,,,ADAM5000EADAM5000ADAM5000E16RS2232RS2485ADAM5000RS2232RS2485;I/O;,5013RTD,;5060RELAY;5080/;5052DI,;5056DOCOM1ADAM500E;761.©1994-2010ChinaAcademicJournalElectronicPublishingHouse.Allrightsreserved.:Iftxflag=2ThenFori=0To3SelectCaseflag(i)Case0status(i).Text=spush(i).FillColor=&H808000sdoor(i).FillColor=&H808000Case1Ifcurtem(i)settem(i)ThenProgressBar1(i).value=curtem(i)ElseProgressBar1(i).value=settem(i)EndIfcurmin(i,0)=(curmin(i,0)360+Timer1.Interval/1000)/60Ifrun(i)=0ThenIfawoke(i)=0Thenawoke(i)=1EndIfIfdoor(i)=0Thenstatus(i).Text=,sdoor(i).FillColor=&HFFElsestatus(i).Text=,sdoor(i).FillColor=&H808000Ifstart(i)=0Thenstatus(i).Text=,,Elsestatus(i).Text=,,spush(i).FillColor=&HC0FF00run(i)=1EndIfEndIfIfrun(i)=1ThenIfawoke(i)=1Thenawoke(i)=0EndIfIfcurtem(i)settem(i)Andrun(i)=1Thenflag(i)=2run(i)=0spush(i).FillColor=&HFFFFC0curmin(i,1)=0ProgressBar1(i).Max=setmin(i)360EndIfEndIfCase2status(i).Text=curmin(i,1)=(curmin(i,1)360+Timer1.Interval/1000)/60Ifcurmin(i,1)setmin(i)ThenProgressBar1(i).value=curmin(i,1)360ElseProgressBar1(i).value=setmin(i)360EndIfIfcurmin(i,1)=setmin(i)Thenflag(i)=3curmin(i,2)=0settem(i)=setpara(i,5)setouttem(i)=setpara(i,5)+setpara(i,6)EndIfCase100status(i).Text=curmin(i,10)=(curmin(i,10)360+Timer1.Interval/1000)/60Ifcurmin(i,10)setmin(i)ThenProgressBar1(i).value=curmin(i,10)360ElseProgressBar1(i).value=setmin(i)360EndIfIfawoke(i)=0Thenawoke(i)=1EndIfIfcurmin(i,10)=setmin(i)Thenawoke(i)=08631©1994-2010ChinaAcademicJournalElectronicPublishingHouse.Allrightsreserved.(i)=101spush(i).FillColor=&HC0FFFFendvac(i)=Format(Now,hh:mm)startpush(i)=Format(Now,hh:mm)curmin(i,2)=0settem(i)=setpara(i,5)setouttem(i)=setpara(i,5)+setpara(i,6)EndIfCase101status(i).Text=Ifawoke(i)=0Thenawoke(i)=1EndIfIfstart(i)=1ThenIfawoke(i)=1Thenawoke(i)=0EndIfendpush(i)=Format(Now,hhmm)endtime(i)=Format(Now,hhmm)flag(i)=0status(i).Text=spush(i).FillColor=&H808000Command1(i).Enabled=Trueno(i).Locked=FalseEndIfEndSelectNexti,,,0.5(65),4.4AD,,,,,,,,,,,VB,MSCOM,,,,52003(),24h(1s),,,,DevelopingofIntelligentStrayCurrentTesterJIANGChang2hong1,CHENDa2qing2,ZHANGTing2xin3,WANGGui2cheng1(1.InformationEngineeringInstitute,ShenyangInstituteofChemicalTechnology,Shenyang110142,China;2.ShenyangTransportCombinationGasBranchOffice,Shenyang110031,China;3.ShenyangOilPipelineBranchOffice,Shenyang110031,China)Abstract:Thebasicprinciple,hardwarecompositionanddependentapplicationsoftwaredesignphilosophyofintelli2gentstraycurrenttesterareintroduced.Practicalapplicationshowsthatithasfavorableperformanceindex.Keywords:longtransportationpipeline;straycurrent;electrochemicalcorrosion;test961.