tc3d5d.cpp

体彩3D5D预测程序。通过前五次的历史记录

//---------------------------------------------------------------------------
#include <stdio.h>
#include <vcl.h>
#include <stdlib.h>


#pragma hdrstop

#include "tc3d5d.h"
#include "unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
int recnumber,l,lx;
TForm1 *Form1;
bool ft=true;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int h1[17],h2[17],h3[17],h4[17],h5[17],h6[17],h7[17],h[7];
int i,n=0,bef[17],dbln;
AnsiString str;
div_t m;
float fc,qh;
Table1->First();
for(i=0;i<5;i++)
        bef[i]=0;
while(!Table1->Eof)
{       Table1->Edit();
        h1[n]=Table1->FieldValues["1"];
        h2[n]=Table1->FieldValues["2"];
        h3[n]=Table1->FieldValues["3"];
        h4[n]=Table1->FieldValues["4"];
        h5[n]=Table1->FieldValues["5"];
        bef[0]=h1[n];
        bef[1]=h2[n];
        bef[2]=h3[n];
        bef[3]=h4[n];
        bef[4]=h5[n];
        str="";dbln++;
        for(i=0;i<5;i++)
        {
               m=div(bef[i],2);
               if(m.rem==0)
                    str=str+"双";
               else
                    str=str+"单";
        }
        str.Insert(" | ",7);
        Table1->FieldValues["单双排列"]=str;
        str="";
        for(i=0;i<5;i++)
        {
                        if(bef[i]>4)
                                str=str+"大";
                        else
                                str=str+"小";
        }
        str.Insert(" | ",7);
        Table1->FieldValues["大小排列"]=str;

        n++ ;
        if(Table1->RecNo>4)
        {
                h[0]=0;h[1]=0;h[2]=0;h[3]=0;h[4]=0;
                for(i=0;i<=4;i++)
                {
                   h[0]=h[0]+h1[i];
                   h[1]=h[1]+h2[i];
                   h[2]=h[2]+h3[i];
                   h[3]=h[3]+h4[i];
                   h[4]=h[4]+h5[i];
                }

                Table1->FieldValues["和1"]=h[0];
                Table1->FieldValues["和2"]=h[1];
                Table1->FieldValues["和3"]=h[2];
                Table1->FieldValues["和4"]=h[3];
                Table1->FieldValues["和5"]=h[4];
                if(n>4) n=0;
        }
        Table1->Next();
}
Table1->Edit();
Table1->Post();
Table1->Refresh();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)

{
Table1->Last();
recnumber=Table1->FieldValues["第  期"];
Table1->Append();
Table1->FieldValues["第  期"]=recnumber+1;
DBEdit1->Enabled=true;
DBEdit2->Enabled=true;
DBEdit3->Enabled=true;
DBEdit4->Enabled=true;
DBEdit5->Enabled=true;
DBEdit6->Enabled=true;
Button3->Enabled=true;
//Table1->Post();
Table1->Refresh();

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


void __fastcall TForm1::FormDestroy(TObject *Sender)
{
Table1->Close();
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button3Click(TObject *Sender)
{
int rec,num,i[7],n;
div_t m;
AnsiString dx,qo;
Button3->Enabled=false;
DBEdit1->Enabled=false;
DBEdit2->Enabled=false;
DBEdit3->Enabled=false;
DBEdit4->Enabled=false;
DBEdit5->Enabled=false;
DBEdit6->Enabled=false;

        i[0]=Table1->FieldValues["1"];
        i[1]=Table1->FieldValues["2"];
        i[2]=Table1->FieldValues["3"];
        i[3]=Table1->FieldValues["4"];
        i[4]=Table1->FieldValues["5"];
        Table1->FieldValues["和3D"]=i[0]+i[1]+i[2];
        Table1->FieldValues["和5D"]=i[0]+i[1]+i[2]+i[3]+i[4];
        qo="";dx="";
        for(n=0;n<5;n++)
        {
                if(i[n]>4)
                        dx=dx+"大";
                else
                        dx=dx+"小";
                m=div(i[n],2);
                if(m.rem==0)
                        qo=qo+"双";
                else
                        qo=qo+"单";
        }
        qo.Insert(" | ",7);dx.Insert(" | ",7);
        Table1->FieldValues["大小排列"]=dx;
        Table1->FieldValues["单双排列"]=qo;
//        Table1->MoveBy(-7);
Table1->Post();
Table1->Refresh();
}
//---------------------------------------------------------------------------





void __fastcall TForm1::Button4Click(TObject *Sender)
{
int i[8],j,ll,k,h,ln,maxt,mint,num,mj,dx[8],dxh,sl[5],s2[5];
AnsiString str,strl,s[8],ss[7][11],dxstr,qostr,dx1,qo,dx2,qo2;
int i1,i2,i3,i4,i5,i6,i7,cs,cs1,cs2,cf1,cf2,jg,bm,qm;
bool flag;
div_t m[8];
l=4;bm=20;qm=20;strl="";
//ll=StrToInt(Edit12->Text);
//Table1->Last();
//Table1->MoveBy(ll);
sl[0]=Table1->FieldValues["1"];
sl[1]=Table1->FieldValues["2"];
sl[2]=Table1->FieldValues["3"];
Table1->MoveBy(-4);
s2[0]=Table1->FieldValues["1"];
s2[1]=Table1->FieldValues["2"];
s2[2]=Table1->FieldValues["3"];
dx2=Table1->FieldValues["大小排列"];
qo2=Table1->FieldValues["单双排列"];

Table1->MoveBy(4);

//Memo1->Lines->Clear();
maxt=StrToInt(Edit10->Text);
mint=StrToInt(Edit9->Text);
jg=StrToInt(Edit6->Text)+1;
if(Edit7->Text!="")
        bm=StrToInt(Edit7->Text);
if(Edit11->Text!="")
        qm=StrToInt(Edit11->Text);
dx1=ComboBox1->Text;
qo=ComboBox2->Text;
dx1=dx1.SubString(1,6);qo=qo.SubString(1,6);
ln=0;
for(i1=0;i1<10;i1++)
   for(i2=0;i2<10;i2++)
      for(i3=0;i3<10;i3++)
           {
                    num=0;
                    i[0]=i1;
                    i[1]=i2;
                    i[2]=i3;
                    dxstr="";qostr="";
                    for(j=0;j<3;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+"小";

                        }

                    }
                    dxh=dx[0]+dx[1]+dx[2];
                    mj=m[0].rem+m[1].rem+m[2].rem;
                    flag=1;
 //                   if(qo2.Pos(qostr)!=0)      flag=0;
 //                   if(dx2.Pos(dxstr)!=0)     flag=0;
                    if(CheckBox2->Checked&&qostr.Pos(qo)==0)      flag=flag*0;
                    if(CheckBox1->Checked&&dxstr.Pos(dx1)==0)     flag=flag*0;
                    if(!CheckBox2->Checked&&qostr.Pos(qo)!=0)     flag=flag*0;
                    if(!CheckBox1->Checked&&dxstr.Pos(dx1)!=0)    flag=flag*0;
                    if(!CheckBox6->Checked&&mj==3) flag=flag*0;
                    if(!CheckBox7->Checked&&mj==0) flag=flag*0;
                    if(!CheckBox5->Checked&&dxh==0) flag=flag*0;
                    if(!CheckBox4->Checked&&dxh==3) flag=flag*0;
                    if((num>maxt)||(num<mint))       flag=flag*0;
                    cs2=0;cs=0;
                    for(k=0;k<3;k++)
                    {
                        j=abs(i[k]-sl[k]);
                        if(j>=8) j=1;
                         if(j<jg)
                                cs2++;
                        j=abs(i[k]-s2[k]);
                        if(j>=8) j=1;
                         if(j<jg) cs++;
                    }
                    if(cs2<1) flag=0;
                    if(cs<1)flag=0;
                    cs=0;cs1=0;
                    for(k=0;k<3;k++)
                    for(h=k+1;h<3;h++)
                    {
                        j=abs(i[k]-i[h]);
                        if(j>=8) j=1;
                         if(j==0)
                                cs++;
                         if(j<jg)
                                cs1++;
                    }
                    if((cs1)<1) flag=0;
                    if(!CheckBox3->Checked&&cs>0) flag=flag*0;
                    cs=0;
                    if(bm<10)
                    {
                        for(k=0;k<3;k++)
                                if(i[k]==bm) cs++;
                        if(cs==0) flag=flag*0;
                    }
                    cs=0;
                    if(qm<10)
                    {
                        for(k=0;k<3;k++)
                                if(i[k]==qm) cs++;