|
▼ たてぐやさん
> ここのコードはどこに書いてあるのでしょうか？
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;
|