1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:

procedure RedrawDiagram;    //This transfers the bitmap to the PaintBox
begin
  BitBlt(Form1.PaintBox1.Canvas.Handle, 0, 0, Dbmp.Width, Dbmp.Height,
                    Dbmp.Canvas.Handle, 0, 0, SrcCopy);
end;

procedure RedrawTrace; //Redraw any measurement trace for Form1.Repaint
var i,tmp: Integer;
begin
  tmp := 0;
  for i := 1 to 501 do   tmp := tmp + Round(MeasLog[i]);
  if logflg and (tmp = 0) then exit;    //suppress display of zero-db line
  if logflg then Dbmp.Canvas.MoveTo(0,Round(MeasLog[1])+1)
            else Dbmp.Canvas.MoveTo(0,Round(MeasLin[1])+1);
  with Dbmp.Canvas do begin
    Pen.Color := clTrace;
    for i := 2 to 501 do
      begin
        if logflg then LineTo(i-1,Round(MeasLog[i])+1)
                  else LineTo(i-1,Round(MeasLin[i])+1);
      end;
  end;
  RedrawDiagram;      //transfer Bitmap to PaintBox
end;

procedure RedrawAll;      //This routine basically replaces the PB-Repaint
begin
  DrawDiagramBox;         //generates the diagram on the bitmap
  RedrawDiagram;          //transfers the bitmap to the PaintBox
  RedrawMarkers;
  RedrawTrace;
  DrawFrame(bsClear);     //cosmetic bugfix V. 2.3.xx
end;

procedure DrawSegment(n,aVal: Integer);    //draws a line between two..
begin                                      //measurement points
    with Form1.PaintBox1.Canvas do begin   //this works also w/o flicker...
    Pen.Color := clTrace;                  //instead "with Dbmp.Canvas do.."
    LineTo(n-1,aVal+1);                    //vertical correction
  end;
end;

//The build-up of the trace with single segments can still be done...
//using the PaintBox routine without causing any flicker
procedure TForm1.StartSweep(StpNo: Integer);   //<<<==== Das ist die Hauptroutine
var fStep, swpFreq: Double;
    Dly : Single;
    n,ADC,tmp,delta: Integer;
begin
  if CTS <1 then begin SpeedButton5Click(self);
    Application.MessageBox(PChar(cmErr),'Fehler', 48); exit; end;
  delta:= StrToInt(Form2.AEdit1.Text); //ßßßßßßßßßßß log span (normally 410)
  Label22.Hide;                        //reset data loss info
  DrawDiagramBox;
  ScrollBar3.Position := 0;            //reset any amplitude offset
  ProgressBar1.Show;
  ProgressBar1.Position := 0;
  ProgressBar1.Step := 5;
  if Sweepflg then DrawShadowTrace     //for multiple sweeps only
              else RedrawDiagram;      //clear the display area
  if mCount >1 then RedrawMarkers;
  ClearMeasArrays;
  swpFreq := StartFreq *1000;
  Dly := mDelay/1000;
  fStep := (StopFreq - StartFreq) * 1000 / StpNo;
  ADC := Send_GetData(StartFreq*1000,BaseRef,25);  //wait 25ms at start
  if COMerr or (CTS <1)then begin
     CloseCOM; exit; end;                  //avoid hang-up in loop
  ADC := CorrectData(ADC,delta,1);         //ßßßßßßßßßßßßßßßßßßßßß
  if logflg then MeasLog[1]:= ADC
            else MeasLin[1]:= ADC;
  tmp := ADC;                              //save ADC reading
  PaintBox1.Canvas.MoveTo(1,ADC+1);        //this works also w/o flicker
  case StpNo of
    500: begin
      for n:= 2 to 501 do
        begin
          tmp := ADC;                        //save previous ADC reading
          swpFreq := swpFreq + fStep;
          ADC := Send_GetData(swpFreq,BaseRef,Dly);
          ADC := CorrectData(ADC,delta,n);   //for 500 points
          if datflg then ADC :=Round(tmp);   //data loss, take last value
          if logflg then MeasLog[n]:= ADC
                    else MeasLin[n]:= ADC;
          DrawSegment(n,ADC);
          if n mod 25 = 0 then ProgressBar1.StepIt;
        end;
    end;
    250: begin
    //....   usw, usw für 250 und 125 Messpunkte
    //....
  end;                   //... end of case
  for n:= 1 to 501 do    //transfer current Measurement to shadow array
    begin
      if logflg then MeasOld[n] := MeasLog[n]
                else MeasOld[n] := MeasLin[n];
    end;
  UpdateMarkers;
  ProgressBar1.Hide;
end;
//-----------------------  End of Sweep procedures  -------------------					

1:
2:
3:

  if logflg and (tmp = 0) then exit;    //suppress display of zero-db line
  if logflg then Dbmp.Canvas.MoveTo(0,Round(MeasLog[1])+1)
            else Dbmp.Canvas.MoveTo(0,Round(MeasLin[1])+1);					

1:

if logflg or true then					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

const
  CM_PLOT = WM_USER +1;

type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    BtnStart: TButton;
    BtnStop: TButton;
    procedure CMPLOT(var Msg: TMsg); message CM_PLOT;
    procedure BtnStartClick(Sender: TObject);
    procedure BtnStopClick(Sender: TObject);
  private
    FX: Integer;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CMPLOT(var Msg: TMsg);
begin
  if (BtnStop.Tag = 0) then begin
    PaintBox1.Canvas.Pixels[FX,PaintBox1.Height div 2+Trunc(PaintBox1.Height *0.5*sin(2*pi*FX/PaintBox1.Width))] := Random($1000000);
    FX := (FX +1) mod PaintBox1.Width;
    Application.ProcessMessages;
    PostMessage(Handle,CM_PLOT,0,0);
  end
  else
    BtnStart.Enabled := TRUE;
end;

procedure TForm1.BtnStartClick(Sender: TObject);
begin
  BtnStart.Enabled := FALSE;
  BtnStop.Tag := 0;
  BtnStop.Enabled := TRUE;
  FX := 0;
  PostMessage(Handle,CM_PLOT,0,0);
end;

procedure TForm1.BtnStopClick(Sender: TObject);
begin
  BtnStop.Tag := 1;
  BtnStop.Enabled := FALSE;
end;

end.