注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

鑫淼梦园的博客

圆你的梦想 从这里开始

 
 
 

日志

 
 

奇门遁甲排盘源码  

2013-06-29 23:10:20|  分类: 奇门遁甲 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
void __fastcall TForm1::Button1Click(TObject *Sender) { 
int days=StrToInt(Edit2->Text); 
if (Edit1->Text=="1"&&Edit4->Text=="2006") days=days; 
else if (Edit1->Text=="2"&&Edit4->Text=="2006") days=days+30; 
else if (Edit1->Text=="3"&&Edit4->Text=="2006") days=days+59; 
else if (Edit1->Text=="4"&&Edit4->Text=="2006") days=days+89; 
else if (Edit1->Text=="5"&&Edit4->Text=="2006") days=days+118; 
else if (Edit1->Text=="6"&&Edit4->Text=="2006") days=days+148; 
else if (Edit1->Text=="7"&&Edit4->Text=="2006") days=days+177; 
else if (Edit1->Text=="+7"&&Edit4->Text=="2006") days=days+207; 
else if (Edit1->Text=="8"&&Edit4->Text=="2006") days=days+236; 
else if (Edit1->Text=="9"&&Edit4->Text=="2006") days=days+266; 
else if (Edit1->Text=="10"&&Edit4->Text=="2006") days=days+296; 
else if (Edit1->Text=="11"&&Edit4->Text=="2006") days=days+325; 
else if (Edit1->Text=="12"&&Edit4->Text=="2006") days=days+355; 
else if (Edit1->Text=="1"&&Edit4->Text=="2007") days=days+385; 
else if (Edit1->Text=="2"&&Edit4->Text=="2007") days=days+414; 
else if (Edit1->Text=="3"&&Edit4->Text=="2007") days=days+443; 
else if (Edit1->Text=="4"&&Edit4->Text=="2007") days=days+473; 
else if (Edit1->Text=="5"&&Edit4->Text=="2007") days=days+502; 
else if (Edit1->Text=="6"&&Edit4->Text=="2007") days=days+531; 
else if (Edit1->Text=="7"&&Edit4->Text=="2007") 

days=days+561; 
else if (Edit1->Text=="8"&&Edit4->Text=="2007") days=days+590; 
else if (Edit1->Text=="9"&&Edit4->Text=="2007") days=days+620; 
else if (Edit1->Text=="10"&&Edit4->Text=="2007") days=days+650; 
else if (Edit1->Text=="11"&&Edit4->Text=="2007") days=days+680; 
else if (Edit1->Text=="12"&&Edit4->Text=="2007") days=days+709; else days=0; int day=days-1; int a; a=day%5; int j; if (a=0) j=day*0.2; else 
j=(day-1-a)*0.2+1; int ju; 
if (j%72==8||j%72==15||j%72==21||j%72==65) ju=1; 
else if (j%72==4||j%72==18||j%72==24||j%72==68) ju=2; 
else if (j%72==7||j%72==11||j%72==27||j%72==71) ju=3; 
else if (j%72==10||j%72==14||j%72==20||j%72==67) ju=4; 
else if (j%72==3||j%72==17||j%72==23||j%72==70) ju=5; 
else if (j%72==1||j%72==6||j%72==13||j%72==26) ju=6; 
else if (j%72==9||j%72==16||j%72==22||j%72==66) ju=7; 
else if (j%72==2||j%72==19||j%72==25||j%72==69) ju=8; 
else if (j%72==5||j%72==12||j%72==28||j%72==0) ju=9; 

else if (j%72==36||j%72==41||j%72==48||j%72==64) ju=-1; 
else if (j%72==33||j%72==38||j%72==55||j%72==61) ju=-2; 
else if (j%72==30||j%72==45||j%72==52||j%72==58) ju=-3; 
else if (j%72==37||j%72==42||j%72==49||j%72==62) ju=-4; 
else if (j%72==34||j%72==39||j%72==53||j%72==59) ju=-5; 
else if (j%72==31||j%72==64||j%72==50||j%72==56) ju=-6; 
else if (j%72==35||j%72==43||j%72==47||j%72==63) ju=-7; 
else if (j%72==32||j%72==40||j%72==54||j%72==60) ju=-8; 
else if (j%72==29||j%72==44||j%72==51||j%72==57) ju=-9; else ju=0; 
AnsiString sq[10]; sq[0]="戊"; sq[1]="己"; sq[2]="庚"; sq[3]="辛"; sq[4]="壬"; sq[5]="癸"; sq[6]="丁"; sq[7]="丙"; sq[8]="乙"; 
int one,two,three,four,five,six,seven,eight,nine; if (ju>0) { 
one=(10-ju)%9; two=(11-ju)%9; three=(12-ju)%9; four=(13-ju)%9; five=(14-ju)%9; six=(15-ju)%9; seven=(16-ju)%9; eight=(17-ju)%9; nine=(18-ju)%9; } else 

one=(8-ju)%9; two=(7-ju)%9; three=(6-ju)%9; four=(5-ju)%9; five=(4-ju)%9; six=(3-ju)%9; seven=(2-ju)%9; eight=(1-ju)%9; nine=(0-ju)%9; } 
Label1->Caption=sq[one]; Label2->Caption=sq[two]; Label3->Caption=sq[three]; Label4->Caption=sq[four]; Label5->Caption=sq[five]; Label6->Caption=sq[six]; Label7->Caption=sq[seven]; Label8->Caption=sq[eight]; Label9->Caption=sq[nine]; int rg,rz,sg,sz,bb,b,p; rg=(days+4)%10; rz=(days+6)%12; 
sz=(StrToInt(Edit3->Text)+3)*0.5; sg=(rg*2+sz-2)%10; bb=sz-sg; if(bb==0) { b=0; p=1; } 
else if (bb==10||bb==-2) { b=1; p=11; } 
else if (bb==8||bb==-4) { b=2; p=9; } 
else if (bb==6||bb==-6) 

{ b=3; p=7; } 
else if (bb==4||bb==-8) { b=4; p=5; } else { b=5; p=3; } 
AnsiString  xunshou[6]; xunshou[0]="甲子戊 "; xunshou[1]="甲戌己 "; xunshou[2]="甲申庚 "; xunshou[3]="甲午辛 "; xunshou[4]="甲辰壬 "; xunshou[5]="甲寅癸 "; int e,f,d; if (sg==1) d=b; else if (sg==2) d=8; else if (sg==3) d=7; else if (sg==4) d=6; else if (sg==5) d=0; else if (sg==6) d=1; else if (sg==7) d=2; else if (sg==8) d=3; else if (sg==9) d=4; else d=5; 
  评论这张
 
阅读(502)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017