ࡱ>   ,! "%#$&(')*+.-/01Root Entryr3$&,xlZ @GJSRV_SummaryInformation2&WorkSheet1#WorkSheet27  !"$%&'()*+,-./012345689:;<=>?@ACDEFGHIJKLNOPQRSTUWXYZ[]^_abcdefghijklmnopqrstuvwxyz{|}~0@10000001QW0 1\Ob  kanri100000  1\ObeBf X  1MRVfeeBf X Ѕx1MRVfe gawaso 1feVpe1gB}0000eBf Z Pvl1gB}0000 gawaso10000Vpe 1MRVpS7ReBf  1MRVpS7R  1}}ƖBf eg 1(u}000 1000pe" 1000000 T 000000.jsd100000000 T A:\000000.jsd1O>y T 1000000001000& ; ;`     >A4 P[EcH77h5$Y7h8|7,|||ýw7ýw |RtRt  - ? -^  F!$#$0 0 0 1 1 <@"+5t5j35NQ'000 T'_a0Bf'p~0ԏW0pe. " 00000000O2 &'0000000bY0h0-NbkW0~0Y0'COM1? 'y 'V&`     >A4 P[EcH77h5$Y7h8|7,|||ýw7ýw |RtRt  - ? -^!$#$<Q&`     >A4 P[EcH77h5$Y7h8|7,|||ýw7ýw |RtRtWorkSheet3 BBook M DocumentWindows %PvlZ ,xlZ DocumentWindow1 VD  - ? -^!$#$<Q &  LyEESheet1 LzEESheet2 L{EESheet3 [L;General]-3 fgjn ``& && -dd -dd -dd   VDA_DOC`0 DocumentWindow1D0 JSRV_SegmentInformation2\DocumentMacros -< -PvlZ ,xlZ BaseStorage0PvlZ ,xlZ m0PvlZ ,xlZ PROJECT PvlZ ,xlZ Main PvlZ ,xlZ PROJECT_MACRO_LIBRARY_AREA6PvlZ ,xlZ SRCAREA1`p!! 000 TCOM1,COM2I{ 0S_Y00 %ComName = Range("Sheet1!B2").Formula !! hTg(y 0S_Y00 %Term = Range("Sheet1!B3").Formula !! p~0ԏW0Vpe0S_Y00 %Count = Range("Sheet1!B4").Formula !! 000n0*j0-[Y00 with Charts(1).MainGroup with ..SeriesCollection(1) ..Values(snsValue) = {"=E1:E" & %Count} end with with ..SeriesCollection(2) ..Values(snsValue) = {"=F1:F" & %Count} end with with ..SeriesCollection(3) ..Values(snsValue) = {"=G1:G" & %Count} end with with ..SeriesCollection(4) ..Values(snsValue) = {"=H1:H" & %Count} end with end with !! 000000000000Y00 set %COM = openfile( %ComName ) %COM.SerialState = { \\ !! 00000000-[Y00 .MODE = "N81NN", \\ .RATE = 9600, \\ .SWAIT = 1, \\ .RWAIT = 1 \\ } !! 1yBf_a0Y00 Wait( 1 ) %COM.EndOfFile = false !!%COM.input( %value ) set %range1 = Range("Sheet1!E1:H9999") for %ilog = 1 to %Count !! 00eQR0y00 %kc = getkey(1,0) !! Q{0[KbR]k0-[ Application.CalculationMode = snsManual for %channel = 0 to 3 %COM.write( %channel ) !! %COM.write( "\n" ) %COM.EndOfFile = false %COM.input( %value ) if %value = nil then %value = 0 end if %range1.cells( %ilog, (%channel + 1) ).value = %value next !! Q{0[R]k0-[ Application.CalculationMode = snsAutomatic !! Bf_a0Y00 Wait( %Term ) if %kc = 32 then with Charts(1).MainGroup with ..SeriesCollection(1) ..Values(snsValue) = {"=E1:E" & %ilog} end with with ..SeriesCollection(2) ..Values(snsValue) = {"=F1:F" & %ilog} end with with ..SeriesCollection(3) ..Values(snsValue) = {"=G1:G" & %ilog} end with with ..SeriesCollection(4) ..Values(snsValue) = {"=H1:H" & %ilog} end with end with MsgBox("-NbkW0~0W0_0") exit for end if next %COM.close() SprP;SuperPlayRite.  фpKhYQUACRvUxU$U0N{U_)5?UATuUU2UJLtvUxUV&>XUpЈЗСUS"0@UBUqБW-M|U} U &(U68 ?L MACROAREA1;LIBRARYEXTENDINFO$JSRV_SegmentInformation2JSRV_SegmentInformation27b%%HpANGEJ+ Shet1!B2FOpMUL _Coma"el&_Z`a3 !Tr"Aԣ&%&_(4*_!A0"un2n.xjT>Ģ0HR,pST,2aMIR40UPJ6tT&TJ6tS0R=pEpC40L!E0T=pOc0EF=pq!i"!X7!qAM(# ATP*7MM40D2H%N8 NC%T2,A!0SKW=RT0P!I0!BѲAL0!Bņ),AvЬI3cn%|ģ"IaЃiWpC"з@ЕQЖD"^>AIaZ=rP!p!"fНv"#0l6#r7!T ToR0 Rr~8TMRI4Jԁ-&.1С5EHqr;"ĥ %TŶH{Į,AAz"аϲ1/ρ+"7,C/$JIaF딭"L6W7!e8mbDQ9\:cT<=ut!{opBˍXQtEatVF4 tG!ЫH/"#ԥJ{/R;šNt#B?_JS  TG!AW#d?|1 T7 BITcT T%i \jXrg#t_UXo;]T N T_ se \X-wo$d "_#$B7!MGGBF!v-NbkW0~0W0_nP m ,meρIa(4Լ9C)O(VDA_DOC`SRCAREA1pMACROAREA1;LIBRARYEXTENDINFOVDA_DOC`PROJECT_MACRO_LIBRARY_AREAVDA_DOC`JSRV_SegmentInformation2CONTENTS INFOMATIONJSRV_SegmentInformation2Mainl0000OSprDataSaveSprDataSave  8SprDataSaveVersionSprDataSaveSprDataSaveMainSprDataSave  0dMainSprDataSaveMain0000OSprDataSaveSprDataSave.SprDataSaveMainSprDataSaveVDA_DOC`PROJECTCONTENTSINFOMATIONm00000OVDA_DOC`InfoStream MacrosStreamJSRV_SegmentInformation2JSRV_SegmentInformation2m0InfoStreamMacrosStreamVDA_DOC`0 BaseStorage0 5,3j3t5JS.Chart.1 5,3"@JSSHEET.OCX [C:\Documents and Settings\shinji\000000\232.jsd]"Sheet1"!@@E1:E30 @@F1:F30 EmbedItems,xlZ ,xlZ EmbeddingInfo#nEmbedding 1 S 5 ,xlZ ,xlZ CelT@@G1:G30 @@H1:H30 H43 t5 j31@-3 0000@ Arial35 0@0  #@0000Form !BindMode"JSRV_SegmentInformation2JSRV_SegmentInformation2PVDA_DOC`CelTFormBindMode    VDA_DOC`EmbeddingInfonEmbedding 1`(dFrameDecoration `SummaryInformation($4JSRV_SegmentInformation2 Oh+'0 `~  OlY 9 [NV[gkanri@X @ЅxX gawaso19@A:\VAO.jsdVDA_DOC`  0 WorkSheet10 WorkSheet20 WorkSheet30 Book 0 DocumentWindows0 DocumentMacros0 EmbedItemsFrameDecoration`0 SummaryInformation4