开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
uscope.pas
资源名称：varian_led_studio_3.34.rar　[点击查看]
上传用户：hbszzs
上传日期：2008-08-20
资源大小：628k
文件大小：2k
源码类别：

Delphi控件源码

开发平台：

Delphi

uscope.pas：源码内容
  1. unit uscope;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ExtCtrls, VrClasses, VrScope, StdCtrls, ComCtrls, VrScale, VrBorder,
  8.   VrControls, VrDesign, VrLeds, VrBlotter, VrLcd, VrThreads, VrButtons;
  10. type
  11.   TForm1 = class(TForm)
  12.     VrTimer1: TVrTimer;
  13.     VrBlotter1: TVrBlotter;
  14.     VrUserLed1: TVrUserLed;
  15.     VrBlotter2: TVrBlotter;
  16.     VrShadowButton1: TVrShadowButton;
  17.     VrShadowButton2: TVrShadowButton;
  18.     Label3: TLabel;
  19.     UpDown3: TUpDown;
  20.     Label1: TLabel;
  21.     UpDown1: TUpDown;
  22.     Label2: TLabel;
  23.     UpDown2: TUpDown;
  24.     VrBlotter3: TVrBlotter;
  25.     VrScope1: TVrScope;
  26.     VrScale1: TVrScale;
  27.     VrNum1: TVrNum;
  28.     VrNum2: TVrNum;
  29.     VrNum3: TVrNum;
  30.     VrNum4: TVrNum;
  31.     procedure Button1Click(Sender: TObject);
  32.     procedure Timer1Timer(Sender: TObject);
  33.     procedure Button2Click(Sender: TObject);
  34.     procedure UpDown3Click(Sender: TObject; Button: TUDBtnType);
  35.     procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);
  36.     procedure UpDown2Click(Sender: TObject; Button: TUDBtnType);
  37.   private
  38.     { Private declarations }
  39.   public
  40.     { Public declarations }
  41.   end;
  43. var
  44.   Form1: TForm1;
  46. implementation
  48. {$R *.DFM}
  50. procedure TForm1.Button1Click(Sender: TObject);
  51. const
  52.   PS: array[boolean] of PChar = ('START', 'STOP');
  53. begin
  54.   VrTimer1.Enabled := not VrTimer1.Enabled;
  55.   VrUserLed1.Active := VrTimer1.Enabled;
  56.   VrShadowButton1.Caption := PS[VrTimer1.Enabled];
  57. end;
  59. procedure TForm1.Timer1Timer(Sender: TObject);
  60. var
  61.   Value: Integer;
  62. begin
  63.   Value := Random(VrScope1.Max);
  64.   VrScope1.AddValue(Value);
  65.   VrNum1.Value := Value;
  66. end;
  68. procedure TForm1.Button2Click(Sender: TObject);
  69. begin
  70.   VrScope1.Clear;
  71. end;
  73. procedure TForm1.UpDown3Click(Sender: TObject; Button: TUDBtnType);
  74. begin
  75.   VrNum2.Value := UpDown3.Position;
  76.   VrTimer1.Interval := VrNum2.Value;
  77. end;
  79. procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
  80. begin
  81.   VrNum3.Value := UpDown1.Position;
  82.   VrScope1.GridSize := VrNum3.Value;
  83. end;
  85. procedure TForm1.UpDown2Click(Sender: TObject; Button: TUDBtnType);
  86. begin
  87.   VrNum4.Value := UpDown2.Position;
  88.   VrScope1.Frequency := VrNum4.Value;
  89. end;
  91. end.