unit1.~cpp

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

       RichEdit1->Visible=false;   
}
//---------------------------------------------------------------------------





void __fastcall TForm1::Button17Click(TObject *Sender)
{
     int s[4]; 
     s[0]=0x58;
     s[1]=0x3E;
     s[2]=0x00;
     s[3]=0x00;
     WriteDDC(4,s);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button18Click(TObject *Sender)
{
     int s[4];
     s[0]=0x58;
     s[1]=0x3F;
     s[2]=0x00;
     s[3]=0x00;
     WriteDDC(4,s);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button19Click(TObject *Sender)
{
     int s[4];
     s[0]=0x58;
     s[1]=0x77;
     s[2]=0x00;
     s[3]=0x00;
     WriteDDC(4,s);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button20Click(TObject *Sender)
{
     int s[4];
     s[0]=0x58;
     s[1]=0x8D;
     s[2]=0x00;
     s[3]=0x00;
     WriteDDC(4,s);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ScrollBar3Scroll(TObject *Sender,
      TScrollCode ScrollCode, int &ScrollPos)
{
     int s[4];
     s[0]=0x58;
     s[1]=0x10;
     s[2]=ScrollBar3->Position;
     s[3]=0x00;
     WriteDDC(4,s);
     Label76->Caption=ScrollBar3->Position;
}
//---------------------------------------------------------------------------


void __fastcall TForm1::ScrollBar4Scroll(TObject *Sender,
      TScrollCode ScrollCode, int &ScrollPos)
{
     int s[4];
     s[0]=0x58;
     s[1]=0x12;
     s[2]=ScrollBar4->Position;
     s[3]=0x00;
     WriteDDC(4,s);
     Label78->Caption=ScrollBar4->Position;
}
//---------------------------------------------------------------------------


void __fastcall TForm1::ScrollBar5Scroll(TObject *Sender,
      TScrollCode ScrollCode, int &ScrollPos)
{
     int s[4];
     s[0]=0x58;
     s[1]=0x16;
     s[2]=ScrollBar5->Position;
     s[3]=0x00;
     WriteDDC(4,s);
     Label79->Caption=ScrollBar5->Position;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ScrollBar6Scroll(TObject *Sender,
      TScrollCode ScrollCode, int &ScrollPos)
{
     int s[4];
     s[0]=0x58;
     s[1]=0x18;
     s[2]=ScrollBar6->Position;
     s[3]=0x00;
     WriteDDC(4,s);
     Label80->Caption=ScrollBar6->Position;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ScrollBar7Scroll(TObject *Sender,
      TScrollCode ScrollCode, int &ScrollPos)
{
     int s[4];
     s[0]=0x58;
     s[1]=0x1A;
     s[2]=ScrollBar7->Position;
     s[3]=0x00;
     WriteDDC(4,s);
     Label81->Caption=ScrollBar7->Position;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ScrollBar8Scroll(TObject *Sender,
      TScrollCode ScrollCode, int &ScrollPos)
{
     int s[4];
     s[0]=0x58;
     s[1]=0x20;
     s[2]=ScrollBar8->Position;
     s[3]=0x00;
     WriteDDC(4,s);
     Label82->Caption=ScrollBar8->Position;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ScrollBar9Scroll(TObject *Sender,
      TScrollCode ScrollCode, int &ScrollPos)
{
     int s[4];
     s[0]=0x58;
     s[1]=0x30;
     s[2]=ScrollBar9->Position;
     s[3]=0x00;
     WriteDDC(4,s);
     Label83->Caption=ScrollBar9->Position;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ScrollBar10Scroll(TObject *Sender,
      TScrollCode ScrollCode, int &ScrollPos)
{
     int s[4];
     s[0]=0x58;
     s[1]=0x3C;
     s[2]=ScrollBar10->Position;
     s[3]=0x00;
     WriteDDC(4,s);
     Label84->Caption=ScrollBar10->Position;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ScrollBar11Scroll(TObject *Sender,
      TScrollCode ScrollCode, int &ScrollPos)
{
     int s[4];
     s[0]=0x58;
     s[1]=0x3D;
     s[2]=ScrollBar11->Position;
     s[3]=0x00;
     WriteDDC(4,s);
     Label85->Caption=ScrollBar11->Position;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ScrollBar12Scroll(TObject *Sender,
      TScrollCode ScrollCode, int &ScrollPos)
{
     int s[4];
     s[0]=0x58;
     s[1]=0xA1;
     s[2]=ScrollBar12->Position;
     s[3]=0x00;
     WriteDDC(4,s);
     Label86->Caption=ScrollBar12->Position;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ScrollBar13Scroll(TObject *Sender,
      TScrollCode ScrollCode, int &ScrollPos)
{
      int s[4];
     s[0]=0x58;
     s[1]=0xA2;
     s[2]=ScrollBar13->Position;
     s[3]=0x00;
     WriteDDC(4,s);
     Label87->Caption=ScrollBar13->Position;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ScrollBar14Scroll(TObject *Sender,
      TScrollCode ScrollCode, int &ScrollPos)
{
      int s[4];
     s[0]=0x58;
     s[1]=0xA3;
     s[2]=ScrollBar14->Position;
     s[3]=0x00;
     WriteDDC(4,s);
     Label88->Caption=ScrollBar14->Position;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ScrollBar15Scroll(TObject *Sender,
      TScrollCode ScrollCode, int &ScrollPos)
{
     int s[4];
     s[0]=0x58;
     s[1]=0x41;
     s[2]=ScrollBar15->Position;
     s[3]=0x00;
     WriteDDC(4,s);
     Label89->Caption=ScrollBar15->Position;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ScrollBar16Scroll(TObject *Sender,
      TScrollCode ScrollCode, int &ScrollPos)
{
      int s[4];
     s[0]=0x58;
     s[1]=0xD8;
     s[2]=ScrollBar16->Position;
     s[3]=0x00;
     WriteDDC(4,s);
     Label90->Caption=ScrollBar16->Position;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ScrollBar17Scroll(TObject *Sender,
      TScrollCode ScrollCode, int &ScrollPos)
{
    int s[4];
     s[0]=0x58;
     s[1]=0x93;
     s[2]=ScrollBar17->Position;
     s[3]=0x00;
     WriteDDC(4,s);
     Label91->Caption=ScrollBar17->Position;
}
//---------------------------------------------------------------------------



void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{
    /* for(int j=1; j<StringGrid4->ColCount; j++)
      {
          StringGrid4->Cells[j][0] = IntToHex(j-1,2);
      }
     for(int j=1; j<StringGrid4->RowCount;j++)
     {
         StringGrid4->Cells[0][j] = IntToHex(j*16,2);
     }
     if ((ARow/16%2 == 1) && (ACol!=0) && (ARow!=0))
     {
          StringGrid4->Canvas->Brush->Color = clSkyBlue;
          StringGrid4->Canvas->Brush->Style = bsSolid;
          StringGrid4->Canvas->FillRect(Rect);
    }  */
    

}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button27Click(TObject *Sender)
{
     Timer2->Enabled=true;
     eepromlong=0;
     SaveEEPPoint=0;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::TabSheet8Show(TObject *Sender)
{
     
      for(int j=1; j<StringGrid4->ColCount; j++)
      {
          StringGrid4->Cells[j][0] = IntToHex(j-1,2);
      }
     for(int j=1; j<StringGrid4->RowCount;j++)
     {
         StringGrid4->Cells[0][j] = IntToHex((j-1)*16,2);
     }
     if ((StringGrid4->Row/16%2 == 1) && (StringGrid4->Col!=0) && (StringGrid4->Row!=0))
     {
          StringGrid4->Canvas->Brush->Color = clSkyBlue;
          StringGrid4->Canvas->Brush->Style = bsSolid;
         //StringGrid4->Canvas->FillRect(&Rect);
    }

       for(int j=1; j<StringGrid5->ColCount; j++)
      {
          StringGrid5->Cells[j][0] = IntToHex(j-1,2);
      }
     for(int j=1; j<StringGrid5->RowCount;j++)
     {
         StringGrid5->Cells[0][j] = IntToHex((j-1)*16,2);
     }
     if ((StringGrid5->Row/16%2 == 1) && (StringGrid5->Col!=0) && (StringGrid5->Row!=0))
     {
          StringGrid5->Canvas->Brush->Color = clSkyBlue;
          StringGrid5->Canvas->Brush->Style = bsSolid;
          //StringGrid4->Canvas->FillRect(&Rect);
    }
}
//---------------------------------------------------------------------------



void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
     int receivedata[8];
     int s[8]={0x58,0x51,0x84,0xef,0x00,0x00,0x08,0x52};
     if(PageControl3->TabIndex==0)
     {
     if(eepromlong<256*16)
     {
           Timer2->Enabled=false;
           s[5]=eepromlong/256;
           s[4]=eepromlong%256;
           WriteDDC(8,s);
           Sleep(ReadDelayTime);
           i2cstart();
           sendbyte(s[0]|0x01);
            for(int l=0;l<7;l++)
                {
                        receivedata[l]=readbyte();
                }
                receivedata[7]=readlastbyte();
            i2cstop();

           if( eepromlong/8%2==0)
           {
               for(int k=0;k<8;k++)
               {
                  SaveEEPTable1[SaveEEPPoint]=receivedata[k];
                  SaveEEPPoint++;
                  StringGrid4->Cells[k+1][eepromlong/16+1]=IntToHex(receivedata[k],2);
               }
           }
           else
           {
               for(int k=0;k<8;k++)
               {
                  SaveEEPTable1[SaveEEPPoint]=receivedata[k];
                  SaveEEPPoint++;
                  StringGrid4->Cells[k+9][eepromlong/16+1]=IntToHex(receivedata[k],2);
               }
           }

         Timer2->Enabled=true; 
            StringGrid4->Row=eepromlong/16+1;
         
         Label75->Caption="Page:   "+IntToHex(eepromlong/256,2);
         ProgressBar1->Position=eepromlong;
         eepromlong+=8;
     }
     else
     {
         Timer2->Enabled=false;
     }
     }
     else
      {
     if(eepromlong<256*16)
     {
           Timer2->Enabled=false;
           s[5]=eepromlong/256;
           s[4]=eepromlong%256;
           WriteDDC(8,s);
           Sleep(ReadDelayTime);
           i2cstart();
           sendbyte(s[0]|0x01);
            for(int l=0;l<7;l++)
                {
                        receivedata[l]=readbyte();
                }
                receivedata[7]=readlastbyte();
            i2cstop();

           if( eepromlong/8%2==0)
           {
               for(int k=0;k<8;k++)
               {
                  StringGrid5->Cells[k+1][eepromlong/16+1]=IntToHex(receivedata[k],2);
               }
           }
           else
           {
               for(int k=0;k<8;k++)
               {
                  StringGrid5->Cells[k+9][eepromlong/16+1]=IntToHex(receivedata[k],2);
               }
           }

         Timer2->Enabled=true; 
         StringGrid5->Row=eepromlong/16+1;

         Label75->Caption="Page:   "+IntToHex(eepromlong/256,2);
         ProgressBar1->Position=eepromlong;
         eepromlong+=8;
     }
     else
     {
         Timer2->Enabled=false;
     }
     }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button29Click(TObject *Sender)
{
   
  FILE *fp=NULL;
  AnsiString OpenName;
  OpenDialog1->Execute();
  OpenName=OpenDialog1->FileName;
 if((fp=fopen(OpenName.c_str(),"rb")))
 {
     if(PageControl3->TabIndex==0)
     {
        fread(SaveEEPTable1,sizeof(SaveEEPTable1),1,fp);
     }
     else
     {
         fread(SaveEEPTable2,sizeof(SaveEEPTable2),1,fp);
     }
     fclose(fp);
 }
   if(PageControl3->TabIndex==0)
     {
        for(int i=0;i<256*16;i++)
           StringGrid4->Cells[i%16+1][i/16+1]=IntToHex(SaveEEPTable1[i],2);
     }
     else
     {
        for(int i=0;i<256*16;i++)
          StringGrid5->Cells[i%16+1][i/16+1]=IntToHex(SaveEEPTable2[i],2);
     }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button30Click(TObject *Sender)
{
  
  FILE *fp=NULL;
  AnsiString SaveName;
  SaveDialog1->Execute();
  SaveName=SaveDialog1->FileName;
 if((fp=fopen(SaveName.c_str(),"w+b")))
 {
     if(PageControl3->TabIndex==0)

        fwrite(SaveEEPTable1,sizeof(SaveEEPTable1),1,fp);
     else
         fwrite(SaveEEPTable2,sizeof(SaveEEPTable2),1,fp);
     fclose(fp);
 }
}
//---------------------------------------------------------------------------


void __fastcall TForm1::StringGrid4DrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{   


     // if(ARow==5&&ACol==5){
    // StringGrid4->Canvas->Brush->Color = clSkyBlue;
     // StringGrid4->Canvas->Brush->Style = bsSolid;
    //  StringGrid4->Canvas->FillRect(Rect);
     // StringGrid4->Canvas->Brush->Color = clYellow;
     // StringGrid4->Canvas->Brush->Style = bsClear;
     // StringGrid4->Canvas->TextOut(Rect.left + 0 ,Rect.top + 5,"Win!" );
    // }

}
//---------------------------------------------------------------------------





void __fastcall TForm1::Button31Click(TObject *Sender)
{
     if(PageControl3->TabIndex==0)
     {
        for(int i=0;i<256*16;i++)