unit1.~cpp

LED数码管编码读写

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
A=B=C=D=E=F=G=H=NUM=SHOW=0;
a=b=c=d=e=f=g=h=i=j=k=l=m=n=o=num=show=0;

}
//---------------------------------------------------------------------------
void __fastcall TForm1::add()
{
int aaa,bbb;
AnsiString ab;
if(RadioButton1->Checked==false)
 {aaa=65535-num;bbb=255-NUM;
  ab=ab.IntToHex(aaa,0);
  Label2->Caption=ab+"H";
  ab=ab.IntToHex(bbb,0);
  Label3->Caption=ab+"H";
 }
 else
 {ab=ab.IntToHex(num,0);
  Label2->Caption=ab+"H";
  ab=ab.IntToHex(NUM,0);
  Label3->Caption=ab+"H";
 }
}
//---------------------------------------------------------------------------


void __fastcall TForm1::RadioButton1Click(TObject *Sender)
{
  add();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(show==0)
{
Panel2->BevelOuter=bvNone;
Panel3->BevelOuter=bvNone;
Panel4->BevelOuter=bvNone;
Panel5->BevelOuter=bvNone;
Panel6->BevelOuter=bvNone;
Panel7->BevelOuter=bvNone;
Panel8->BevelOuter=bvNone;
Panel9->BevelOuter=bvNone;
Panel10->BevelOuter=bvNone;
Panel11->BevelOuter=bvNone;
Panel12->BevelOuter=bvNone;
Panel13->BevelOuter=bvNone;
Panel14->BevelOuter=bvNone;
Panel15->BevelOuter=bvNone;
Panel16->BevelOuter=bvNone;
Panel17->BevelOuter=bvNone;
Panel18->BevelOuter=bvNone;
Panel19->BevelOuter=bvNone;
Panel20->BevelOuter=bvNone;
Panel21->BevelOuter=bvNone;
Panel22->BevelOuter=bvNone;
Panel23->BevelOuter=bvNone;
Panel24->BevelOuter=bvNone;
Panel25->BevelOuter=bvNone;
Panel26->BevelOuter=bvNone;
Panel27->BevelOuter=bvNone;
Panel28->BevelOuter=bvNone;
show=1;Button1->Caption="清除";
}
else
{
Panel2->BevelOuter=bvRaised;
Panel3->BevelOuter=bvRaised;
Panel4->BevelOuter=bvRaised;
Panel5->BevelOuter=bvRaised;
Panel6->BevelOuter=bvRaised;
Panel7->BevelOuter=bvRaised;
Panel8->BevelOuter=bvRaised;
Panel9->BevelOuter=bvRaised;
Panel10->BevelOuter=bvRaised;
Panel11->BevelOuter=bvRaised;
Panel12->BevelOuter=bvRaised;
Panel13->BevelOuter=bvRaised;
Panel14->BevelOuter=bvRaised;
Panel15->BevelOuter=bvRaised;
Panel16->BevelOuter=bvRaised;
Panel17->BevelOuter=bvRaised;
Panel18->BevelOuter=bvRaised;
Panel19->BevelOuter=bvRaised;
Panel20->BevelOuter=bvRaised;
Panel21->BevelOuter=bvRaised;
Panel22->BevelOuter=bvRaised;
Panel23->BevelOuter=bvRaised;
Panel24->BevelOuter=bvRaised;
Panel25->BevelOuter=bvRaised;
Panel26->BevelOuter=bvRaised;
Panel27->BevelOuter=bvRaised;
Panel28->BevelOuter=bvRaised;
Panel2->Color=clBtnFace;Panel3->Color=clBtnFace;Panel4->Color=clBtnFace;
Panel5->Color=clBtnFace;Panel6->Color=clBtnFace;Panel7->Color=clBtnFace;
Panel8->Color=clBtnFace;Panel9->Color=clBtnFace;Panel10->Color=clBtnFace;
Panel11->Color=clBtnFace;Panel12->Color=clBtnFace;Panel13->Color=clBtnFace;
Panel14->Color=clBtnFace;Panel15->Color=clBtnFace;Panel16->Color=clBtnFace;
Panel17->Color=clBtnFace;Panel18->Color=clBtnFace;Panel19->Color=clBtnFace;
Panel20->Color=clBtnFace;Panel21->Color=clBtnFace;Panel22->Color=clBtnFace;
Panel23->Color=clBtnFace;Panel24->Color=clBtnFace;Panel25->Color=clBtnFace;
Panel26->Color=clBtnFace;Panel27->Color=clBtnFace;Panel28->Color=clBtnFace;
a=b=c=d=e=f=g=h=i=j=k=l=m=n=o=num=0;
add();show=0;Button1->Caption="完整显示";
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
if(SHOW==0)
{Panel29->BevelOuter=bvNone;
Panel30->BevelOuter=bvNone;
Panel31->BevelOuter=bvNone;
Panel32->BevelOuter=bvNone;
Panel33->BevelOuter=bvNone;
Panel34->BevelOuter=bvNone;
Panel35->BevelOuter=bvNone;
Panel36->BevelOuter=bvNone;
SHOW=1;Button2->Caption="清除";
}
else
{
Panel29->BevelOuter=bvRaised;
Panel30->BevelOuter=bvRaised;
Panel31->BevelOuter=bvRaised;
Panel32->BevelOuter=bvRaised;
Panel33->BevelOuter=bvRaised;
Panel34->BevelOuter=bvRaised;
Panel35->BevelOuter=bvRaised;
Panel36->BevelOuter=bvRaised;
Panel29->Color=clBtnFace;Panel30->Color=clBtnFace;Panel31->Color=clBtnFace;
Panel32->Color=clBtnFace;Panel33->Color=clBtnFace;Panel34->Color=clBtnFace;
Panel35->Color=clBtnFace;Panel36->Color=clBtnFace;
A=B=C=D=E=F=G=H=NUM=0;
add();SHOW=0;Button2->Caption="完整显示";
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Panel2MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(a==0)
 {a=1;Panel2->Color=clRed;num=num+1;}
 else
 {a=0;Panel2->Color=clBtnFace;num=num-1;}
 add();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Panel3MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(b==0)
 {b=1;Panel3->Color=clRed;num=num+2;}
 else
 {b=0;Panel3->Color=clBtnFace;num=num-2;}
 add();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Panel4MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(c==0)
 {c=1;Panel4->Color=clRed;num=num+4;}
 else
 {c=0;Panel4->Color=clBtnFace;num=num-4;}
 add();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Panel5MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(d==0)
 {d=1;Panel5->Color=clRed;num=num+8;}
 else
 {d=0;Panel5->Color=clBtnFace;num=num-8;}
 add();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Panel6MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(e==0)
 {e=1;Panel6->Color=clRed;num=num+16;}
 else
 {e=0;Panel6->Color=clBtnFace;num=num-16;}
 add();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Panel7MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(f==0)
 {f=1;Panel7->Color=clRed;num=num+32;}
 else
 {f=0;Panel7->Color=clBtnFace;num=num-32;}
 add();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Panel11MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(g==0)
 {g=1;Panel11->Color=clRed;num=num+64;Panel12->Color=clRed;
 Panel13->Color=clRed;Panel14->Color=clRed;}
 else
 {g=0;Panel11->Color=clBtnFace;num=num-64;Panel12->Color=clBtnFace;
 Panel13->Color=clBtnFace;Panel14->Color=clBtnFace;}
 add();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Panel10MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(h==0)
 {h=1;Panel10->Color=clRed;num=num+128;}
 else
 {h=0;Panel10->Color=clBtnFace;num=num-128;}
 add();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Panel19MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(i==0)
 {i=1;Panel19->Color=clRed;num=num+256;Panel20->Color=clRed;
 Panel21->Color=clRed;Panel22->Color=clRed;}
 else
 {i=0;Panel19->Color=clBtnFace;num=num-256;Panel20->Color=clBtnFace;
 Panel21->Color=clBtnFace;Panel22->Color=clBtnFace;}
 add();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Panel8MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(j==0)
 {j=1;Panel8->Color=clRed;num=num+512;}
 else
 {j=0;Panel8->Color=clBtnFace;num=num-512;}
 add();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Panel28MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(k==0)
 {k=1;Panel28->Color=clRed;num=num+1024;}
 else
 {k=0;Panel28->Color=clBtnFace;num=num-1024;}
 add();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Panel23MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(l==0)
 {l=1;Panel23->Color=clRed;num=num+2048;Panel24->Color=clRed;
 Panel25->Color=clRed;Panel26->Color=clRed;}
 else
 {l=0;Panel23->Color=clBtnFace;num=num-2048;Panel24->Color=clBtnFace;
 Panel25->Color=clBtnFace;Panel26->Color=clBtnFace;}
 add();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Panel27MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(m==0)
 {m=1;Panel27->Color=clRed;num=num+4096;}
 else
 {m=0;Panel27->Color=clBtnFace;num=num-4096;}
 add();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Panel15MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(n==0)
 {n=1;Panel15->Color=clRed;num=num+8192;Panel16->Color=clRed;
 Panel17->Color=clRed;Panel18->Color=clRed;}
 else
 {n=0;Panel15->Color=clBtnFace;num=num-8192;Panel16->Color=clBtnFace;
 Panel17->Color=clBtnFace;Panel18->Color=clBtnFace;}
 add();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Panel9MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(o==0)
 {o=1;Panel9->Color=clRed;num=num+16384;}
 else
 {o=0;Panel9->Color=clBtnFace;num=num-16384;}
 add();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Panel29MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(A==0)
 {A=1;Panel29->Color=clRed;NUM=NUM+1;}
 else
 {A=0;Panel29->Color=clBtnFace;NUM=NUM-1;}
 add();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Panel30MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(B==0)
 {B=1;Panel30->Color=clRed;NUM=NUM+2;}
 else
 {B=0;Panel30->Color=clBtnFace;NUM=NUM-2;}
 add();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Panel31MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(C==0)
 {C=1;Panel31->Color=clRed;NUM=NUM+4;}
 else
 {C=0;Panel31->Color=clBtnFace;NUM=NUM-4;}
 add();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Panel32MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(D==0)
 {D=1;Panel32->Color=clRed;NUM=NUM+8;}
 else
 {D=0;Panel32->Color=clBtnFace;NUM=NUM-8;}
 add();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Panel33MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(E==0)
 {E=1;Panel33->Color=clRed;NUM=NUM+16;}
 else
 {E=0;Panel33->Color=clBtnFace;NUM=NUM-16;}
 add();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Panel34MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(F==0)
 {F=1;Panel34->Color=clRed;NUM=NUM+32;}
 else
 {F=0;Panel34->Color=clBtnFace;NUM=NUM-32;}
 add();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Panel35MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(G==0)
 {G=1;Panel35->Color=clRed;NUM=NUM+64;}
 else
 {G=0;Panel35->Color=clBtnFace;NUM=NUM-64;}
 add();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Panel36MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(H==0)
 {H=1;Panel36->Color=clRed;NUM=NUM+128;}
 else
 {H=0;Panel36->Color=clBtnFace;NUM=NUM-128;}
 add();
}
//---------------------------------------------------------------------------