unit1.~cpp

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

       {
           if(SaveEEPTable1[i]!= SaveEEPTable2[i])
         {
              StringGrid4->Brush->Color = clBtnFace;
              StringGrid4->Canvas->Brush->Style = bsSolid;
              StringGrid4->Canvas->FillRect(StringGrid4->CellRect(i%16+1,i/16+1));
              StringGrid4->Brush->Color = clRed;
              StringGrid4->Canvas->Brush->Style = bsSolid;
              StringGrid4->Canvas->Font->Color=clRed;
              StringGrid4->Canvas->TextOut(StringGrid4->CellRect(i%16+1,i/16+1).left,StringGrid4->CellRect(i%16+1,i/16+1).top,IntToHex(SaveEEPTable1[i],2));


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




void __fastcall TForm1::TabSheet10Show(TObject *Sender)
{
          Label92->Caption="0%";
          Image1->Canvas->Pen->Color=clBlack;
          Image1->Canvas->MoveTo(20,350);
          Image1->Canvas->LineTo(325,350);
          Image1->Canvas->LineTo(320,345);
          Image1->Canvas->MoveTo(325,350);
          Image1->Canvas->LineTo(320,355);
          Image1->Canvas->MoveTo(20,350);
          Image1->Canvas->LineTo(20,45);
          Image1->Canvas->LineTo(15,50);
          Image1->Canvas->MoveTo(20,45);
          Image1->Canvas->LineTo(25,50);
          Image1->Canvas->TextOutA(15,355,"0");
          Image1->Canvas->TextOutA(325,345,"OSD");
          Image1->Canvas->TextOutA(10,30,"V/P/db");
          Image1->Canvas->Pen->Style=psDot;
          for(int j=1;j<11;j++)
          {
             Image1->Canvas->MoveTo(20,350-j*30);
             Image1->Canvas->LineTo(320,350-j*30);
          }
          for(int k=1;k<11;k++)
          {
             Image1->Canvas->MoveTo(20+k*30,350);
             Image1->Canvas->LineTo(20+k*30,50);
          }
          Image1->Canvas->Pen->Style=psSolid;
          for(int i=1;i<11;i++)
          {
            Image1->Canvas->MoveTo(20+30*i,350);
            Image1->Canvas->LineTo(20+30*i,345);
            if(i==10)
              Image1->Canvas->TextOutA(10+30*i,355,IntToStr(i*10));
            else
              Image1->Canvas->TextOutA(15+30*i,355,IntToStr(i*10));
          }
          for(int i=1;i<11;i++)
          {
            Image1->Canvas->MoveTo(20,350-i*30);
            Image1->Canvas->LineTo(25,350-i*30);
            Image1->Canvas->TextOutA(5,345-i*30,IntToStr(i));
          }
          Image1->Canvas->Pen->Color=clBlue;
          Image1->Canvas->Font->Color=clBlue;
          Image1->Canvas->TextOutA(20,380,"V:");
          Image1->Canvas->TextOutA(10,30,"V:0~10V");
          Image1->Canvas->MoveTo(35,385);
          Image1->Canvas->LineTo(65,385);

          Image1->Canvas->Pen->Color=clGreen;
          Image1->Canvas->Font->Color=clGreen;
          Image1->Canvas->TextOutA(80,380,"P:");
          Image1->Canvas->TextOutA(10,15,"P:0~10W");
          Image1->Canvas->MoveTo(95,385);
          Image1->Canvas->LineTo(125,385);

          Image1->Canvas->Pen->Color=clRed;
          Image1->Canvas->Font->Color=clRed;
          Image1->Canvas->TextOutA(140,380,"dBm:");
          Image1->Canvas->TextOutA(10,0,"dBm:-150~150");
          Image1->Canvas->TextOutA(200,380,"10log(P/0.001W)");
          Image1->Canvas->MoveTo(165,385);
          Image1->Canvas->LineTo(195,385);

          Image1->Canvas->Pen->Color=clBlack;
          Image1->Canvas->Font->Color=clBlack;

           Image2->Canvas->Pen->Color=clBlack;
/////////////////////////////////////////////////////////
   for(int i=0;i<53;i++)
   {
         Image2->Canvas->MoveTo(0,i*20);
         Image2->Canvas->LineTo(600,i*20);
         if(i!=0)
         {
             Image2->Canvas->TextOutA(45,i*20+5,IntToStr(i-1));
             if(i<51)
               Image2->Canvas->TextOutA(345,i*20+5,IntToStr(i+50));
         }
         else
         {
            Image2->Canvas->TextOutA(45,5,"OSD");
            Image2->Canvas->TextOutA(120,5,"V (unit:v)");
            Image2->Canvas->TextOutA(220,5,"P (unit:w)");
            Image2->Canvas->TextOutA(345,5,"OSD");
            Image2->Canvas->TextOutA(420,5,"V (unit:v)");
            Image2->Canvas->TextOutA(520,5,"(unit:w)");
         }
   }
   for(int j=0;j<7;j++)
   {
         Image2->Canvas->MoveTo(j*100,0);
         Image2->Canvas->LineTo(j*100,1040);
   }

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

void __fastcall TForm1::Button32Click(TObject *Sender)
{
    YbCommDevice1->Baud=TYbCommDevice::br4800;
    YbCommDevice1->SettingsDialog(this,true);

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

void __fastcall TForm1::Button33Click(TObject *Sender)
{
    Timer3->Enabled=true;
    FluekOSDInc=0;
    SpeakerR=StrToInt(Edit8->Text);
}
//---------------------------------------------------------------------------



void __fastcall TForm1::Timer3Timer(TObject *Sender)
{
   unsigned char BuffS[]={'v','a','l','1','?',0x0d};
   char BuffR[8192+1],BuffR1[8192+1];
   float V,temp1;
   int n,i,j,temp2,temp3,a;
   int s[4];
   Timer3->Enabled=false;
   if(FluekOSDInc<101)
   {
       s[0]=0x58;
       s[1]=0xE1;
       s[2]=FluekOSDInc;
       s[3]=0;
       WriteDDC(4,s);
       Sleep(100);
       YbCommDevice1->Write(BuffS,6);
       Sleep(1000);
       n=YbCommDevice1->Read(BuffR,8192);

       if(n>0)
       {
          for (i=1;i<n;i++)
          {
             if(BuffR[i]!='E')
             {
                BuffR1[i-1]=BuffR[i];
              }
             else
             {
                BuffR1[i-1]=0;
                break;
             }
            }
            temp1=StrToFloat(BuffR1);

            for(j=1;j<n;j++)
            {
               if(BuffR[j]=='E')
               {
                   temp2=BuffR[j+1];
                   temp3=BuffR[j+2];
               }
            }
            switch(temp2)
           {
              case '-':
              {
                  switch(temp3)
                  {
                      case '3':
                          V=temp1/1000;
                      break;
                      case '2':
                          V=temp1/100;
                      break;
                      case '1':
                          V=temp1/10;
                      break;
                      default:
                           V=temp1;
                      break;
                 }
                 break;
               }
               case '+':
               {
                    switch(temp3)
                    {
                         case '3':
                            V=temp1*1000;
                          break;
                         case '2':
                            V=temp1*100;
                         break;
                         case '1':
                             V=temp1*10;
                         break;
                         default:
                             V=temp1;
                         break;
                     }
               break;
               default:
                   V=temp1;
                break;
               }
             }
          }
        else
        {
           Timer3->Enabled=true;
            return;
         }
      BuffR[n]=0;
      if(FluekOSDInc<51)
      {
          Image2->Canvas->TextOutA(120,FluekOSDInc*20+25,FloatToStrF(V,ffGeneral,4,4));
         Image2->Canvas->TextOutA(220,FluekOSDInc*20+25,FloatToStrF(V*V/SpeakerR,ffGeneral,4,4));
      }
      else
      {
          Image2->Canvas->TextOutA(420,(FluekOSDInc-51)*20+25,FloatToStrF(V,ffGeneral,4,4));
         Image2->Canvas->TextOutA(520,(FluekOSDInc-51)*20+25,FloatToStrF(V*V/SpeakerR,ffGeneral,4,4));
      }
      
      if(FluekOSDInc==0)
      {
         PreVX=20+FluekOSDInc*3;
         PreVY=(int)(350-V*30);
         PrePX= 20+FluekOSDInc*3;
         PrePY=350-V*V*30/SpeakerR;
         PredbX=20+FluekOSDInc*3;
         PredbY=170-30*log10(V*V/SpeakerR);
      }
      else
      {
         Image1->Canvas->Pen->Color=clBlue;
         Image1->Canvas->MoveTo(PreVX,PreVY);
         Image1->Canvas->LineTo(20+FluekOSDInc*3,(int)(350-V*30));
         PreVX=20+FluekOSDInc*3;
         PreVY=(int)(350-V*30);

         Image1->Canvas->Pen->Color=clGreen;
         Image1->Canvas->MoveTo(PrePX,PrePY);
         Image1->Canvas->LineTo(20+FluekOSDInc*3,350-V*V*30/SpeakerR);
         PrePX=20+FluekOSDInc*3;
         PrePY=350-V*V*30/SpeakerR;

         Image1->Canvas->Pen->Color=clRed;
         Image1->Canvas->MoveTo(PredbX,PredbY);
         Image1->Canvas->LineTo(20+FluekOSDInc*3,170-30*log10(V*V/SpeakerR));
         PredbX=20+FluekOSDInc*3;
         PredbY=170-30*log10(V*V/SpeakerR);
      }
      ProgressBar2->Position=FluekOSDInc;
      Label92->Caption=IntToStr(FluekOSDInc)+"%";
      Timer3->Enabled=true;
      FluekOSDInc++;
      }
      else
      {
          Timer3->Enabled=false;
      }
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button34Click(TObject *Sender)
{
   unsigned char BuffS[]={'v','a','l','1','?',0x0d};
   char BuffR[8192+1];
   int n;
   YbCommDevice1->Write(BuffS,6);
   Sleep(1000);
   n=YbCommDevice1->Read(BuffR,8192);
   if(n>0)
   {
          for (int i=0;i<n;i++)
          {
             if(BuffR[i]=='=')
             {
               if(BuffR[i+1]=='>')
               {
                  ShowMessage("FLUKE Connect OK!");
                  return;
               }
             }
          }
   }
   ShowMessage("FLUKE Connect Fail!");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button35Click(TObject *Sender)
{
  AnsiString SaveName;
  ShowMessage("Input Audio Curve File Name(*.bmp)");
  SaveDialog2->Execute();
  SaveName=SaveDialog2->FileName;
  Image1->Picture->SaveToFile(SaveName);
  ShowMessage("Input Audio Table File Name(*.bmp)");
  SaveDialog2->Execute();
  SaveName=SaveDialog2->FileName;
  Image2->Picture->SaveToFile(SaveName);
}
//---------------------------------------------------------------------------



void __fastcall TForm1::Button37Click(TObject *Sender)
{
    for(int i=0;i<128;i++)
    {
       Memo1->Lines->Add("0x"+IntToHex(i,2)+",");
    }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button36Click(TObject *Sender)
{
     char *EndPtr;
     int count,MinRegValue1,MinRegValue2,MaxRegValue1,MaxRegValue2;
     unsigned int AudioTable1[]={0x00,0x20,0x40,0x60,0x80,0xA0,0xC0,0xE0};
     unsigned int AudioTable2[]={
0x00,
0x01,
0x02,
0x03,
0x04,
0x05,
0x06,
0x07,
0x08,
0x09,
0x0A,
0x0B,
0x0C,
0x0D,
0x0E,
0x0F,
0x10,
0x11,
0x12,
0x13,
0x14,
0x15,
0x16,
0x17,
0x18,
0x19,
0x1A,
0x1B,
0x1C,
0x1D,
0x1E,
0x1F,
0x20,
0x21,
0x22,
0x23,
0x24,
0x25,
0x26,
0x27,
0x28,
0x29,
0x2A,
0x2B,
0x2C,
0x2D,
0x2E,
0x2F,
0x30,
0x31,
0x32,
0x33,
0x34,
0x35,
0x36,
0x37,
0x38,
0x39,
0x3A,
0x3B,
0x3C,
0x3D,
0x3E,
0x3F,
0x40,
0x41,
0x42,
0x43,
0x44,
0x45,
0x46,
0x47,
0x48,
0x49,
0x4A,
0x4B,
0x4C,
0x4D,
0x4E,
0x4F,
0x50,
0x51,
0x52,
0x53,
0x54,
0x55,
0x56,
0x57,
0x58,
0x59,
0x5A,
0x5B,
0x5C,
0x5D,
0x5E,
0x5F,
0x60,
0x61,
0x62,
0x63,
0x64,
0x65,
0x66,
0x67,
0x68,
0x69,
0x6A,
0x6B,
0x6C,
0x6D,
0x6E,
0x6F,
0x70,
0x71,
0x72,
0x73,
0x74,
0x75,
0x76,
0x77,
0x78,
0x79,
0x7A,
0x7B,
0x7C,
0x7D,
0x7E,
0x7F
};
MinRegValue1=strtol(Edit9->Text.c_str(),&EndPtr,16);
MinRegValue2=strtol(Edit10->Text.c_str(),&EndPtr,16);
MaxRegValue1=strtol(Edit11->Text.c_str(),&EndPtr,16);
MaxRegValue2=strtol(Edit12->Text.c_str(),&EndPtr,16);
count=MaxRegValue1*8+MaxRegValue2-MinRegValue1*8-MinRegValue2;
Memo1->Lines->Add("0x00,0,          //OSD: 0%");
for(int i=0;i<100;i++)
{
    Memo1->Lines->Add("0x"+IntToHex((MinRegValue1*8+MinRegValue2+i*count/99)/8,2)+",");
    Memo1->Text=Memo1->Text+IntToStr((MinRegValue1*8+MinRegValue2+i*count/99)%8)+",";
    Memo1->Text=Memo1->Text+"         //OSD:"+"  "+IntToStr(i+1)+"%";
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button38Click(TObject *Sender)
{
    Memo1->Clear();        
}
//---------------------------------------------------------------------------