📄 tc3d5d.cpp
字号:
if(cs!=0) flag=flag*0;
}
if(flag)
{
ln++;m[0]=div(ln,5);
str.sprintf("%d%d%d",i[0],i[1],i[2]);
strl=strl+" "+str;
if(m[0].rem==0)
{
Memo1->Lines->Add(strl);
strl="";
}
}
}
Memo1->Lines->Add(strl);
Edit8->Text=IntToStr(ln);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
int i[8],re[5][2],j,h,k,ln,maxt,mint,num,mj,dx[8],dxh,sl[8],intstr;
AnsiString str,str1,str2,str3,s[5],dxstr,qostr,dx1[5],qo1[5],dx2[5],qo2[5],dx3[5],qo3[5],hdx2[5],hqo2[5],hdx3[5],hqo3[5];
int i1,i2,i3,i4,i5,i6,i7,cs,cs1,xt[3],cf1,cf2,cs2,bm1,bm2,fileln,filstr[500];
bool flag;
div_t m[8];
FILE *handle;
AnsiString datefile;
/*if (OpenDialog1->Execute())
datefile=OpenDialog1->FileName;
if ((handle =fopen(datefile.c_str(), "r"))==NULL)
{
perror("file open error!");
return;
}
fileln=0;
while (!feof(handle))
{
fscanf(handle,"%d\n",&filstr[fileln]);
fileln++;
}
fclose(handle); */
l=4;bm1=20;bm2=20;
if(Edit7->Text!="")
bm1=StrToInt(Edit7->Text);
if(Edit11->Text!="")
bm2=StrToInt(Edit11->Text);
//dx1=ComboBox1->Text;
//qo=ComboBox2->Text;
sl[0]=Table1->FieldValues["1"];
sl[1]=Table1->FieldValues["2"];
sl[2]=Table1->FieldValues["3"];
sl[3]=Table1->FieldValues["4"];
sl[4]=Table1->FieldValues["5"];
for(k=0;k<5;k++)
{
dx1[k]=Table1->FieldValues["大小排列"];
qo1[k]=Table1->FieldValues["单双排列"];
dx2[k]=dx1[k].SubString(1,6);
qo2[k]=qo1[k].SubString(1,6);
dx3[k]=dx1[k].SubString(1,11);
qo3[k]=qo1[k].SubString(1,11);
hdx2[k]=dx1[k].SubString(5,13);
hqo2[k]=qo1[k].SubString(5,13);
hdx3[k]=dx1[k].SubString(3,13);
hqo3[k]=qo1[k].SubString(3,13);
Table1->MoveBy(-1);
}
sl[0]=Table1->FieldValues["1"];
sl[1]=Table1->FieldValues["2"];
sl[2]=Table1->FieldValues["3"];
sl[3]=Table1->FieldValues["4"];
sl[4]=Table1->FieldValues["5"];
Table1->MoveBy(5);
Memo1->Lines->Clear();
maxt=StrToInt(Edit10->Text);
mint=StrToInt(Edit9->Text);
s[0]=Edit1->Text;
s[1]=Edit2->Text;
s[2]=Edit3->Text;
s[3]=Edit4->Text;
s[4]=Edit5->Text;
for(k=0;k<5;k++)
{
if(StrLen(s[k].c_str())==0)
{ re[k][0]=0;re[k][1]=10;}
else
{ re[k][0]=StrToInt(s[k]);
re[k][1]=StrToInt(s[k])+5;
if(re[k][1]>9) re[k][1]=10;}
}
ln=0;
for(i1=re[0][0];i1<re[0][1];i1++)
for(i2=re[1][0];i2<re[1][1];i2++)
for(i3=re[2][0];i3<re[2][1];i3++)
for(i4=re[3][0];i4<re[3][1];i4++)
for(i5=re[4][0];i5<re[4][1];i5++)
{
num=0;
i[0]=i1;
i[1]=i2;
i[2]=i3;
i[3]=i4;
i[4]=i5;
dxstr="";qostr="";
for(j=0;j<5;j++)
{
m[j]=div(i[j],2);
num=num+i[j];
if(m[j].rem==0)
qostr=qostr+"双";
else
qostr=qostr+"单";
dx[j]=0;
if(i[j]>=5)
{dx[j]=1;dxstr=dxstr+"大";}
else
{dx[j]=0;dxstr=dxstr+"小";}
}
dxstr.Insert(" | ",7);qostr.Insert(" | ",7);
dxh=dx[0]+dx[1]+dx[2]+dx[3]+dx[4];
mj=m[0].rem+m[1].rem+m[2].rem+m[3].rem+m[4].rem;
flag=1;
str=qostr.SubString(1,6);
str1=dxstr.SubString(1,6);
str2=qostr.SubString(5,13);
str3=dxstr.SubString(5,13);
if(str==qo2[1]) flag=0;
if(str1==dx2[1]) flag=0;
if(str2==hqo2[1]) flag=0;
if(str3==hdx2[1]) flag=0;
str=qostr.SubString(1,11);
str1=dxstr.SubString(1,11);
str2=qostr.SubString(3,13);
str3=dxstr.SubString(3,13);
for(k=0;k<3;k++)
{
if(str==qo3[k]) flag=0;
if(str1==dx3[k]) flag=0;
if(str2==hqo3[k]) flag=0;
if(str3==hdx3[k]) flag=0;
}
for(k=0;k<5;k++)
{
if(qostr==qo1[k]) flag=0;
if(dxstr==dx1[k]) flag=0;
}
if(mj<2||mj>4) flag=0;
if(dxh<2||dxh>4) flag=0;
if((num>maxt)||(num<mint)) flag=0;
cs=0;
if(bm1<10)
{
for(k=0;k<5;k++)
if(i[k]==bm1) cs++;
if(cs==0) flag=0;
}
cs=0;
if(bm2<10)
{
for(k=0;k<5;k++)
if(i[k]==bm2) cs++;
if(cs!=0) flag=0;
}
cs=0;cs1=0;
for(k=0;k<5;k++)
{
j=abs(i[k]-sl[k]);
cs1=cs1+j;
if(j<2)
cs++;
}
if(cs<1) flag=0;
// if(cs1<10||cs1>15) flag=0;
cs1=0;cs2=0;
for(h=0;h<8;h++)
{ xt[0]=0;xt[1]=0;xt[2]=0;
for(k=0;k<5;k++)
if((h-i[k])==0) { xt[0]++;break;}
for(k=0;k<5;k++)
if((h+1-i[k])==0) { xt[1]++;break;}
for(k=0;k<5;k++)
if((h+2-i[k])==0) { xt[2]++;break;}
// for(k=0;k<5;k++)
// if((h+3-i[k])==0) { xt[3]++;break;}
if((xt[0]+xt[1]+xt[2])==3)
{
cs1=1;break;
}
}
for(k=0;k<5;k++)
for(h=k+1;h<5;h++)
if(abs(i[k]-i[h])==0)
cs2++;
cs=0;
if(cs1==1&&cs2==1) cs=1;
if(cs2!=2&&cs!=1) flag=0;
cs=0;
for(k=0;k<5;k++)
{
j=i[k]-sl[k];
if(j<0)
cs++;
}
// if(cs<2||cs>3) flag=0;
if(flag)
{
ln++;
str.sprintf("%d%d%d%d%d",i[0],i[1],i[2],i[3],i[4]);
Memo1->Lines->Append(str);
}
}
Edit8->Text=IntToStr(ln);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button7Click(TObject *Sender)
{
FILE *handle;
AnsiString datefile,dx,qo;
if (OpenDialog1->Execute())
//datefile=OpenDialog1->FileName;
Memo1->Lines->SaveToFile(OpenDialog1->FileName);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button8Click(TObject *Sender)
{
Form2->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{
Memo1->Lines->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Memo1Change(TObject *Sender)
{
AnsiString str;
Edit8->Text=IntToStr(Memo1->Lines->Count);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
lx=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button9Click(TObject *Sender)
{
if(lx==0)
{
lx=1;Button9->Caption="广东福彩";
Table1->Close();
Table1->Active=false;
Table1->TableName="gdfc3d.db";
Table1->Active=true;
}
else
{
lx=0;Button9->Caption="全国体彩";
Table1->Close();
Table1->Active=false;
Table1->TableName="tc3d5d.db";
Table1->Active=true;
}
}
//---------------------------------------------------------------------------
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -