unit1.pas

針對LE-365所製作的GPIO設定及模擬測試程式

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, RoundLed, _GClass, AbLED;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Button4: TButton;
    Timer1: TTimer;
    GroupBox1: TGroupBox;
    rInput: TRadioButton;
    rOutput: TRadioButton;
    led1: TAbLED;
    led2: TAbLED;
    led3: TAbLED;
    led4: TAbLED;
    led5: TAbLED;
    led6: TAbLED;
    led7: TAbLED;
    led8: TAbLED;
    procedure Button4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure led1Click(Sender: TObject);
    procedure rInputClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    szOldValue : string;
    bFirst : boolean;
    function  InPort4F: Byte;
    Function  HEXtoDec(szHEX : String):Int64;
    function  DectoHEX(szInt : Int64):String;                        // 10 秈