名前
題名
▼ 真空管さん > ▼ たてぐやさん > > > 　ここのコードはどこに書いてあるのでしょうか？ > > 　Fstepsは一回の測定で取得するデータ数で深い意味は有りません、 > 　余計なものが色々ですが、[MeasEx; //測定実行]までの流れが > コメントからなんとなく分かるかと思います。以下がその部分です。 > > //*************** 測定開始 ************ > procedure TMainForm.BitBtn1Click(Sender: TObject); > begin > Chudan := False; Teishi := False; > BitBtn1.Enabled := False; //測定ボタン > BitBtn2.Enabled := True; //中断ボタン > BitBtn3.Enabled := True; //一時停止ボタン > RichEdit1.Clear; //生データ.クリア > DrawBox1; //グラフ・クリア > Panel2.Color := GraphBack;//グラフ・パネル色 > Panel2.Font.Color := GraphTxt; //グラフ文字色 > Label53.Font.Color := GraphTxt; > HPOK := False; > > SelDispUnit(); //表示の単位設定 > ForceSelScale; //スケールの強制選択 > > SetUnit; //単位,unitStr, unitF 設定 > WRfreqNote; //グラフ周波数書込み,fLow, fMid,fHigh 計算 > WrGraphNotes; //グラフにその他情報記入'WRgraph' > CalStep; //stepF, Fsteps 計算 > TextFileHead; > if not GPIBinz then BtnGPINITClick(self) // GPIB 初期化ボタン > else gp_clr(GpAdrsBuf); > > if GPIBinz then > begin > MeasSetUp; //測定器を設定 > if RadioMeasItem.ItemIndex = 0 then ZcalDispInit; //Z結果表示を**** > MeasEx; //測定実行 > > //ShowMessage('測定中'); > > > CalStepでFstepsを計算です。 > > Procedure TMainForm.CalStep; //stepF, Fsteps 計算 > var n:integer; stps:real; > begin > stepF := StrToFloat(Edit3.Text); > stps := (fHigh - fLow) * unitF / stepF; > n := Trunc(stps) + 1; > Fsteps := n; > end; > > stepFはユーザが測定開始前にEditに書き込みます。 > fHigh,fLow,unitF(Hz,KHz等の単位)もユーザがEditに書いたもの。 > > MeasSetUp;でMeasEx;(測定実行)の前に測定器を設定ですが、 > これもついでに。 > > Procedure TMainForm.MeasSetUp; //測定器を設定 > var cmdtxt, strt, fin, step:string; f:real; > begin > Edit7.Text := 'OL' + Edit9.Text + 'EN'; //OSCレベル > Button1Click(self); // 送信ボタン > > case RadioMeasItem.ItemIndex of //測定項目 > 0 : cmdtxt := 'A1B1'; > 1 : cmdtxt := 'A4B2'; > 2 : cmdtxt := 'A4B1'; > 3 : cmdtxt := 'A3B2'; > 4 : cmdtxt := 'A3B1'; > end; > cmdtxt := cmdtxt + 'T3F1'; > Edit7.Text := cmdtxt; //メンテナンス・ページ > Button1Click(self); // 送信ボタン > if not HPOK then Exit; > > f := fLow * unitF / 1000; > strt := FloatTostrF(f,ffFixed,8,3); //スタートF > f := fHigh * unitF / 1000; > fin := FloatTostrF(f,ffFixed,8,3); //ストップF > f := stepF / 1000; > step := FloatTostrF(f,ffFixed,8,3); //ステップF > cmdtxt := 'SF' + step + 'ENTF' + strt + 'ENPF' + fin + 'EN'; > Edit7.Text := cmdtxt; //メンテナンス・ページ > Button1Click(self); // 送信ボタン > if not HPOK then Exit; > > Edit7.Text := 'D1'; //Date ready - ON > Button1Click(self); // 送信ボタン > if not HPOK then Exit; > > Edit7.Text := 'W1W2'; //AUTO, STEP UP > Button1Click(self); // 送信ボタン > if not HPOK then Exit; > end;
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link