//--------------------------------------------------------------------------- #ifndef Unit1H #define Unit1H //--------------------------------------------------------------------------- #include #include #include #include #include #include #include //--------------------------------------------------------------------------- class TForm1 : public TForm { __published: // IDE-managed Components TLabel *Label3; TLabel *Label2; TImage *Image1; TImage *Image2; TImage *Image3; TImage *Image4; TImage *Image5; TImage *Image6; TImage *Image7; TImage *Image8; TImage *Image9; TImage *Image10; TImage *Image11; TImage *Image12; TImage *Image13; TImage *Image14; TImage *Image15; TImage *Image16; TLabel *Label1; TSpeedButton *OutButtonA; TSpeedButton *OutButtonB; TLabel *BitLabelA7; TLabel *BitLabelA6; TLabel *BitLabelA5; TLabel *BitLabelA4; TLabel *BitLabelA3; TLabel *BitLabelA2; TLabel *BitLabelA1; TLabel *BitLabelA0; TLabel *BitLabelB7; TLabel *BitLabelB6; TLabel *BitLabelB5; TLabel *BitLabelB4; TLabel *BitLabelB3; TLabel *BitLabelB2; TLabel *BitLabelB1; TLabel *BitLabelB0; TImageList *LevelImages; TTimer *ReadTime; void __fastcall FormCreate(TObject *Sender); void __fastcall ReadTimeTimer(TObject *Sender); void __fastcall LevelImageClick(TObject *Sender); void __fastcall FormDestroy(TObject *Sender); void __fastcall OutButtonClick(TObject *Sender); private: // User declarations public: // User declarations __fastcall TForm1(TComponent* Owner); unsigned long DeviceIndex; TImage *LevelImage[16]; TSpeedButton *OutButton[2]; Graphics::TBitmap *LowLevel, *HighLevel; unsigned short DIOData; bool DoUpdate; }; //--------------------------------------------------------------------------- extern PACKAGE TForm1 *Form1; //--------------------------------------------------------------------------- #endif