unit1.h

通过计算机并口模拟IIC总线

//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
#include "DLPortIOX.h"
#include <ComCtrls.hpp>
#include <Buttons.hpp>
#include <Grids.hpp>
#include <Dialogs.hpp>
#include "YbCommDevice.h"
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
        TButton *Button13;
        TDLPortIOX *DL;
        TButton *Button2;
        TTimer *Timer1;
        TButton *Button7;
        TButton *Button8;
        TRichEdit *RichEdit1;
        TScrollBar *ScrollBar1;
        TLabel *Label1;
        TScrollBar *ScrollBar2;
        TLabel *Label2;
        TLabel *Label3;
        TLabel *Label4;
        TLabel *Label5;
        TLabel *Label6;
        TEdit *Edit1;
        TEdit *Edit2;
        TEdit *Edit3;
        TLabel *Label7;
        TButton *Button1;
        TGroupBox *GroupBox1;
        TGroupBox *GroupBox2;
        TLabel *Label8;
        TLabel *Label9;
        TLabel *Label10;
        TLabel *Label11;
        TEdit *Edit4;
        TEdit *Edit5;
        TEdit *Edit6;
        TEdit *Edit7;
        TButton *Button3;
        TGroupBox *GroupBox4;
        TGroupBox *GroupBox5;
        TLabel *Label12;
        TLabel *Label13;
        TLabel *Label14;
        TEdit *Edit32;
        TEdit *Edit33;
        TEdit *Edit34;
        TButton *Button5;
        TGroupBox *GroupBox3;
        TButton *Button4;
        TGroupBox *GroupBox6;
        TGroupBox *GroupBox7;
        TLabel *Label15;
        TLabel *Label16;
        TLabel *Label17;
        TEdit *Edit59;
        TEdit *Edit60;
        TEdit *Edit61;
        TEdit *Edit62;
        TEdit *Edit63;
        TButton *Button9;
        TGroupBox *GroupBox8;
        TLabel *Label18;
        TLabel *Label19;
        TLabel *Label20;
        TEdit *Edit64;
        TEdit *Edit65;
        TEdit *Edit66;
        TLabel *Label21;
        TLabel *Label22;
        TButton *Button11;
        TGroupBox *GroupBox9;
        TLabel *Label23;
        TLabel *Label24;
        TLabel *Label25;
        TEdit *Edit67;
        TEdit *Edit68;
        TEdit *Edit69;
        TEdit *Edit70;
        TEdit *Edit71;
        TButton *Button12;
        TGroupBox *GroupBox10;
        TLabel *Label26;
        TLabel *Label27;
        TLabel *Label28;
        TLabel *Label29;
        TLabel *Label30;
        TEdit *Edit72;
        TEdit *Edit73;
        TEdit *Edit74;
        TButton *Button14;
        TGroupBox *GroupBox11;
        TLabel *Label31;
        TLabel *Label32;
        TLabel *Label33;
        TEdit *Edit75;
        TEdit *Edit76;
        TEdit *Edit77;
        TEdit *Edit78;
        TEdit *Edit79;
        TButton *Button15;
        TGroupBox *GroupBox12;
        TLabel *Label34;
        TLabel *Label35;
        TLabel *Label36;
        TLabel *Label37;
        TLabel *Label38;
        TEdit *Edit80;
        TEdit *Edit81;
        TEdit *Edit82;
        TButton *Button16;
        TPageControl *PageControl1;
        TTabSheet *TabSheet1;
        TTabSheet *TabSheet2;
        TTabSheet *TabSheet3;
        TTabSheet *TabSheet4;
        TTabSheet *TabSheet5;
        TTabSheet *TabSheet6;
        TTabSheet *TabSheet7;
        TTabSheet *TabSheet8;
        TPanel *Panel1;
        TPanel *Panel2;
        TPanel *Panel3;
        TPanel *Panel4;
        TPanel *Panel5;
        TPanel *Panel6;
        TPanel *Panel7;
        TPanel *Panel8;
        TPanel *Panel9;
        TPanel *Panel10;
        TPanel *Panel11;
        TPanel *Panel12;
        TPanel *Panel13;
        TPanel *Panel14;
        TPanel *Panel15;
        TPanel *Panel16;
        TPanel *Panel17;
        TPanel *Panel18;
        TPanel *Panel19;
        TPanel *Panel20;
        TPanel *Panel21;
        TPanel *Panel22;
        TPanel *Panel23;
        TPanel *Panel24;
        TPanel *Panel25;
        TPanel *Panel30;
        TPanel *Panel31;
        TPanel *Panel36;
        TPanel *Panel37;
        TButton *Button6;
        TPanel *Panel26;
        TPanel *Panel27;
        TPanel *Panel28;
        TPanel *Panel29;
        TPanel *Panel32;
        TPanel *Panel33;
        TPanel *Panel34;
        TPanel *Panel35;
        TPanel *Panel38;
        TPanel *Panel39;
        TPanel *Panel40;
        TPanel *Panel41;
        TPanel *Panel42;
        TPanel *Panel43;
        TPanel *Panel44;
        TPanel *Panel45;
        TPanel *Panel46;
        TPanel *Panel47;
        TPanel *Panel48;
        TRichEdit *RichEdit2;
        TTrackBar *TrackBar1;
        TLabel *Label39;
        TButton *Button10;
        TLabel *Label40;
        TLabel *Label41;
        TLabel *Label42;
        TLabel *Label43;
        TLabel *Label44;
        TLabel *Label45;
        TLabel *Label46;
        TLabel *Label47;
        TLabel *Label48;
        TLabel *Label49;
        TLabel *Label50;
        TLabel *Label51;
        TLabel *Label52;
        TLabel *Label53;
        TLabel *Label54;
        TLabel *Label55;
        TLabel *Label56;
        TScrollBar *ScrollBar3;
        TLabel *Label57;
        TScrollBar *ScrollBar4;
        TLabel *Label58;
        TScrollBar *ScrollBar5;
        TLabel *Label59;
        TScrollBar *ScrollBar6;
        TLabel *Label60;
        TScrollBar *ScrollBar7;
        TLabel *Label61;
        TScrollBar *ScrollBar8;
        TLabel *Label62;
        TScrollBar *ScrollBar9;
        TLabel *Label63;
        TScrollBar *ScrollBar10;
        TLabel *Label64;
        TScrollBar *ScrollBar11;
        TLabel *Label65;
        TScrollBar *ScrollBar12;
        TLabel *Label66;
        TScrollBar *ScrollBar13;
        TLabel *Label67;
        TScrollBar *ScrollBar14;
        TLabel *Label68;
        TButton *Button17;
        TLabel *Label69;
        TButton *Button18;
        TLabel *Label70;
        TScrollBar *ScrollBar15;
        TLabel *Label71;
        TScrollBar *ScrollBar16;
        TLabel *Label72;
        TScrollBar *ScrollBar17;
        TLabel *Label73;
        TButton *Button19;
        TLabel *Label74;
        TButton *Button20;
        TPanel *Panel49;
        TPanel *Panel50;
        TComboBox *ComboBox1;
        TPanel *Panel51;
        TComboBox *ComboBox2;
        TButton *Button21;
        TButton *Button22;
        TButton *Button23;
        TButton *Button24;
        TLabel *Label76;
        TLabel *Label78;
        TLabel *Label79;
        TLabel *Label80;
        TLabel *Label81;
        TLabel *Label82;
        TLabel *Label83;
        TLabel *Label84;
        TLabel *Label85;
        TLabel *Label86;
        TLabel *Label87;
        TLabel *Label88;
        TLabel *Label89;
        TLabel *Label90;
        TLabel *Label91;
        TButton *Button25;
        TButton *Button26;
        TPageControl *PageControl2;
        TTabSheet *TabSheet9;
        TStringGrid *StringGrid1;
        TStringGrid *StringGrid2;
        TStringGrid *StringGrid3;
        TStringGrid *StringGrid4;
        TButton *Button27;
        TButton *Button28;
        TTimer *Timer2;
        TPageControl *PageControl3;
        TTabSheet *TabSheet11;
        TTabSheet *TabSheet12;
        TLabel *Label75;
        TStringGrid *StringGrid5;
        TButton *Button29;
        TOpenDialog *OpenDialog1;
        TSaveDialog *SaveDialog1;
        TButton *Button30;
        TProgressBar *ProgressBar1;
        TButton *Button31;
        TYbCommDevice *YbCommDevice1;
        TTabSheet *TabSheet10;
        TLabel *Label77;
        TImage *Image1;
        TButton *Button32;
        TButton *Button33;
        TEdit *Edit8;
        TMemo *Memo1;
        TTimer *Timer3;
        TProgressBar *ProgressBar2;
        TLabel *Label92;
        TButton *Button34;
        TButton *Button35;
        TSaveDialog *SaveDialog2;
        TUpDown *UpDown1;
        TUpDown *UpDown2;
        TImage *Image2;
        TButton *Button36;
        TEdit *Edit9;
        TEdit *Edit10;
        TEdit *Edit11;
        TEdit *Edit12;
        TButton *Button37;
        TLabel *Label93;
        TLabel *Label94;
        TButton *Button38;
        void __fastcall Button13Click(TObject *Sender);
        void __fastcall Button2Click(TObject *Sender);
        void __fastcall Timer1Timer(TObject *Sender);
        void __fastcall Button7Click(TObject *Sender);
        void __fastcall Button8Click(TObject *Sender);
        void __fastcall ScrollBar1Scroll(TObject *Sender,
          TScrollCode ScrollCode, int &ScrollPos);
        void __fastcall ScrollBar2Scroll(TObject *Sender,
          TScrollCode ScrollCode, int &ScrollPos);
        void __fastcall Button1Click(TObject *Sender);
        void __fastcall TabSheet6ContextPopup(TObject *Sender,
          TPoint &MousePos, bool &Handled);
        void __fastcall TabSheet7ContextPopup(TObject *Sender,
          TPoint &MousePos, bool &Handled);
        void __fastcall Button17Click(TObject *Sender);
        void __fastcall Button18Click(TObject *Sender);
        void __fastcall Button19Click(TObject *Sender);
        void __fastcall Button20Click(TObject *Sender);
        void __fastcall ScrollBar3Scroll(TObject *Sender,
          TScrollCode ScrollCode, int &ScrollPos);
        void __fastcall ScrollBar4Scroll(TObject *Sender,
          TScrollCode ScrollCode, int &ScrollPos);
        void __fastcall ScrollBar5Scroll(TObject *Sender,
          TScrollCode ScrollCode, int &ScrollPos);
        void __fastcall ScrollBar6Scroll(TObject *Sender,
          TScrollCode ScrollCode, int &ScrollPos);
        void __fastcall ScrollBar7Scroll(TObject *Sender,
          TScrollCode ScrollCode, int &ScrollPos);
        void __fastcall ScrollBar8Scroll(TObject *Sender,
          TScrollCode ScrollCode, int &ScrollPos);
        void __fastcall ScrollBar9Scroll(TObject *Sender,
          TScrollCode ScrollCode, int &ScrollPos);
        void __fastcall ScrollBar10Scroll(TObject *Sender,
          TScrollCode ScrollCode, int &ScrollPos);
        void __fastcall ScrollBar11Scroll(TObject *Sender,
          TScrollCode ScrollCode, int &ScrollPos);
        void __fastcall ScrollBar12Scroll(TObject *Sender,
          TScrollCode ScrollCode, int &ScrollPos);
        void __fastcall ScrollBar13Scroll(TObject *Sender,
          TScrollCode ScrollCode, int &ScrollPos);
        void __fastcall ScrollBar14Scroll(TObject *Sender,
          TScrollCode ScrollCode, int &ScrollPos);
        void __fastcall ScrollBar15Scroll(TObject *Sender,
          TScrollCode ScrollCode, int &ScrollPos);
        void __fastcall ScrollBar16Scroll(TObject *Sender,
          TScrollCode ScrollCode, int &ScrollPos);
        void __fastcall ScrollBar17Scroll(TObject *Sender,
          TScrollCode ScrollCode, int &ScrollPos);
        void __fastcall StringGrid1DrawCell(TObject *Sender, int ACol,
          int ARow, TRect &Rect, TGridDrawState State);
        void __fastcall Button27Click(TObject *Sender);
        void __fastcall TabSheet8Show(TObject *Sender);
        void __fastcall Timer2Timer(TObject *Sender);
        void __fastcall Button29Click(TObject *Sender);
        void __fastcall Button30Click(TObject *Sender);
        void __fastcall StringGrid4DrawCell(TObject *Sender, int ACol,
          int ARow, TRect &Rect, TGridDrawState State);
        void __fastcall Button31Click(TObject *Sender);
        void __fastcall TabSheet10Show(TObject *Sender);
        void __fastcall Button32Click(TObject *Sender);
        void __fastcall Button33Click(TObject *Sender);
        void __fastcall Timer3Timer(TObject *Sender);
        void __fastcall Button34Click(TObject *Sender);
        void __fastcall Button35Click(TObject *Sender);
        void __fastcall Button37Click(TObject *Sender);
        void __fastcall Button36Click(TObject *Sender);
        void __fastcall Button38Click(TObject *Sender);

private:	// User declarations
        #define SDA_Set_1 DL->WritePort(0x378,(DL->ReadPort(0x378))&0x7f)
        #define SDA_Set_0 DL->WritePort(0x378,(DL->ReadPort(0x378))|0x80)
        #define SCL_Set_1 DL->WritePort(0x37a,(DL->ReadPort(0x37a))|0x08)
        #define SCL_Set_0 DL->WritePort(0x37a,(DL->ReadPort(0x37a))&0xf7)
        #define SDA_Get (((DL->ReadPort(0x379))&0x80)>>7)
        #define SCL_Get (((DL->ReadPort(0x379))&0x08)>>3)

        #define MaxReceiveNum 16

        int delaytime,ReadDelayTime;
        char PreS[11];
        int eepromlong;
        int SaveEEPPoint;
        unsigned char SaveEEPTable1[256*16];
        unsigned char SaveEEPTable2[256*16];
        bool StringGrid4DrawFlag;
        int FluekOSDInc;
        int PreVX,PreVY,PrePX,PrePY,PredbX,PredbY,SpeakerR;

        void i2cstart(void);
        void i2cstop(void);
        void mainsendask(void);
        bool mainreceiveask(void);
        bool sendbyte(int temp);
        int readbyte();
        int readlastbyte();
        void checkIICbusy();
        bool WriteDDC(short int i,int s[]);
        int *ReadDDC(short int sendlong,int sendstr[],short int receivelong);

        void DelayUS(double us);
        void __fastcall TForm1::ReadEEPROM();


public:		// User declarations
        __fastcall TForm1(TComponent* Owner);

};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif