disetform.pas

usb4711A数据采集卡的DI转换通道程序

unit DISetForm;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
   Buttons, ExtCtrls, CheckLst;

type
   TDISettingDlg = class(TForm)
      OKBtn: TButton;
      chklstChan: TCheckListBox;
      chklstPort: TCheckListBox;
      labInfo: TLabel;
    CANCELBtn: TButton;
    Label1: TLabel;
    Label2: TLabel;
      procedure FormCreate(Sender: TObject);
      procedure chklstPortClickCheck(Sender: TObject);
   private
      { Private declarations }
   public
      { Public declarations }
   end;

var
   DISettingDlg: TDISettingDlg;
   i: Integer;
   szBuff: string;

implementation

uses MainForm;

{$R *.dfm}

procedure TDISettingDlg.FormCreate(Sender: TObject);
begin
   for i := 0 to frmMain.m_DIChanNum - 1 do
   begin
       szBuff:=Format('Port%x_%2.2d',[i div 8,i mod 8]);
      chklstChan.Items.Add(szBuff);
   end;

   for i := 0 to (frmMain.m_DIChanNum div 8) - 1 do
   begin
    szBuff:=Format('Port%x',[i]);
       chklstPort.Items.Add(szBuff);
   end;
end;

procedure TDISettingDlg.chklstPortClickCheck(Sender: TObject);
var
   j: integer;
begin
   for i := 0 to chklstPort.Items.Count - 1 do
   begin
      for j := 0 to 7 do
      begin
         chklstChan.Checked[i * 8 + j] := chklstPort.Checked[i];
      end;
   end;
end;



end.