人体生物钟程序设计（C语言）

前几年在本站发布过博文介绍人体生物钟程序的制作方法。后来发现上传后显示的博文有错漏，计算符号脱漏。这会误导读者。今修订整理重新发布，展示一下漂亮的界面设计。

人体生物钟也就是人体生物节律。人体生物节律是自然进化赋予生命的基本特征之一，人类和一切生物都要受到生物节律的控制与影响。人体生物节律是指体力节律、情绪节律和智力节律。每个人从他出生那天起一直到生命终结，都存在着体力23天、情绪28天、智力33天的周期性波动规律，称为人体生物节律。每一个周期中又存在着高潮期、低潮期和临界期。由于它具有准确的时间性，因此也称之为人体生物钟。在我们日常生活中，有人会觉得自己的体力、情绪或智力有时很好，有时很坏。人从他诞生之日起，直至生命终结，其自身的体力、情绪和智力都存在着由强至弱、由弱至强的周期性起伏变化。人们把这种现象称作生物节律，或生物节奏、生命节律等。之所以产生这种现象的原因是生物体内存在着生物钟，它自动地调节和控制着人体的行为和活动。

人体生物节律有什么作用，网上有许多介绍，对于想编程的朋友都是了解的，这里就不赘言什么了。本文就谈如何制作。就二个要点：一是输入当前日期和出生日期，此程序使用myspringc编译器自带的安卓式样日期输入控件。其他语言日期输入都很简单。二是根据这二个日期计算总天数，依数值绘出曲线。难点是曲线的绘制。本程序给出了曲线算法和绘图方法，以及绘制漂亮的界面。程序使用最基本的绘图函数DrawLine,DrawRect,DrawCircle,设置颜色SetColor(a,r,g,b)。程序有详细注释介绍绘制方法。

本程序是用简单的C语言编译调试的。主要展示该语言超强的绘图功能。如何绘制图形曲线，绘制漂亮的界面。本人喜欢用编程语言的绘图功能绘制图形图案和漂亮的界面，能发挥你的想象力和创造力，很有趣，希望大家也喜欢。

下面的代码是用简单的C语言写的，很简洁 ，适用于初学者。

//  myspringc  v2.7  可编译安卓手机本机 app 应用
//  此样例可复制黏贴到 myspringc  编译
//  亦可用vb6, VC , Java 等改写

 

 

 

//*******    人体生物钟    ***************
//== 人体生物节律曲线 ==  Biorhythm  
//制作人：张纯叔    [email protected]
//****  myspringc  v2.7   编译  *********
Canvas cs;      //画布
float pi=3.1415926535;
float src[4];  //ClearDraw (cls) clear screen
int s1,s2,s3;      
int s1n,s2n,s3n;
int i,k,bx;    //bx 画标尺
int alln0,alln1;     //计算日期
int alln;   //set today-birthdate all days
int ns;     //draw
float a;
float dx,dy, x0,y0;
float x1,y1;
string s,ss,ss1,ss2,ss3,ss4,ss5,ss6;  //输出字串
string gs1,gs2,gs3,gs4,gs5,gs6;
int by,bm,bd;  //birthdate yy,mm,dd
int ty,tm,td;      //today
double bms,tms;
int d[3];          //input date
int count;
int context;    //canvasProc触屏按钮
int obj;
int id;
int event;

main(){
setDisplay(1);
cs.Active();
    cs.SetBackground(255,255,255);
    setTitle("人体生物钟 ( Biorhythm )");
    cs.SetProc (context, mycanvasProc);
    drawtable ();
 while (){}
 }//main()

mycanvasProc (int context,int obj,int id,int event,float x,float y){
      cs.SetFillMode(0);//0不填色，1填色
  //** 触控按钮 select button : input date  ****
    if (x>400&&x<560&&y>810&&y<880) {
           input_date ();   }      //输入日期
    if (x>300&&x<420&&y>980&&y<1050){
           input_date ();   }      //输入日期       
    if (x>440&&x<560&&y>980&&y<1050) {
           input_date ();   }      //重新开始
    if (x>580&&x<700&&y>980&&y<1050){
          clearOutput();    
          cs.ClearDraw (0,src);
          setDisplay (0);
          exit (0);    } //Exit 退出程序
}//mycanvasProc ()

drawbutton (){   //绘制按钮
        cs.SetColor (255,230,230,230);
      cs.DrawRect (4,940,715,1078);
        cs.SetColor (255,255,255,255);
      cs.DrawRect (11,960,707,963);
      cs.DrawRect (11,1065,707,1068);

    for (i=0;i<3;i++){   //draw 3-5 cmd_button
          cs.SetColor (255,150,150,150);
        cs.DrawRect (i*140+299,980,i*140+423,1052); 
          cs.SetColor (255,250,250,250);
        cs.DrawRect (i*140+297,978,i*140+420,1050); 
          cs.SetColor (255,200,240,250);
        cs.DrawRect (i*140+300,980,i*140+420,1050); 
                    }
  cs.SetTextSize (24);
  cs.SetTextStyle(1);
  cs.SetColor(255,50,150,220);
  cs.DrawText ("输入日期",313,1020);
  cs.DrawText ("重新开始",453,1020);
  cs.DrawText ("退出程序",595,1020);
       s="BIORHYTHM";     //立体字
  cs.SetTextSize (40);
  cs.SetTextStyle(1);
  cs.SetColor (255,100,100,100);
       cs.DrawText (s,20,1030);
  cs.SetColor (255,255,255,255);
       cs.DrawText (s,23,1033);

//draw Input button ****
      cs.SetColor (255,250,0,150);
  cs.DrawRect (399,819,561,881);
     cs.SetColor (255,120,150,250);
  cs.DrawRect (400,820,560,880);
  cs.SetTextSize (24);
  cs.SetTextStyle(0);
    cs.SetColor(255,250,250,0);
 cs.DrawText ("输入日期",435,855);
 cs.SetColor (255,250,0,150);
    s="请输入当前日期和出生日期 >>  ";
    cs.DrawText (s,80,860);
    cs.Update ();
}//drawbutton ()

input_date (){     //输入日期
//here get birth date & current date then show out
inputdd:
   getDate(d);
   pickDate("输入>    当前日期",d);
  ty=d[0];
  tm=d[1];
  td=d[2];
   //print "currentday = ",ty ,"-",tm,"-",td;
   pickDate("输入>    出生日期",d);
  by=d[0];
  bm=d[1];
  bd=d[2]; 
    //print "birthdate = ",by ,"-",bm,"-",bd;
clearOutput ();              //clear output text
cs.ClearDraw (0,src);  //clear screen

// calculate (alln)= all days from birthdate to today
gs1=intToString (by);
gs2=intToString (bm);
gs3=intToString (bd);
gs4=intToString (ty);
gs5=intToString (tm);
gs6=intToString (td);
  if (by>ty){
      ss="输入错误 !  重新输入当前日期，出生日期。";
      msgBox ("人体生物节律 " ,ss);
         goto inputdd;    }
  if (bm<10)gs2="0"+gs2;
  if (bd<10)gs3="0"+gs3;
  if (tm<10)gs5="0"+gs5;
  if (td<10)gs6="0"+gs6;
  print " Input  birthdate = ",gs1," - ",gs2," - ",gs3;
  print " Input  this Date = ",gs4," - ",gs5," - ",gs6;

//getDate and calculate past days alln ****
string yds;    
string ydds;
double tms;
yds="000031059090120151181212243273304334";
//计算生日 alln0
  ydds=subString(yds,(bm-1)*3,3);
  bms=stringToDouble(ydds);
  alln0=(by-1900)*365+((by-1900-1)/4)
              +(int)(bms)+bd;
  if ((by-by/4*4)==0&&bm>2)alln0=alln0+1;  //加闰
      // print "birth = ",alln0;  //test
//计算当前日 alln1
  ydds=subString(yds,(tm-1)*3,3);
  tms=stringToDouble(ydds);
  alln1=(ty-1900)*365+((ty-1900-1)/4)
             +(int)(tms)+td+1;    //*****
  if ((ty-ty/4*4)==0&&tm>2)alln1=alln1+1;  //加闰
      // print "current = ",alln1;   //test
      alln=alln1-alln0;    
      // print "all days = ",alln;   //test
  if (alln<1){    //容错
      ss="输入错误 !  重新输入当前日期，出生日期。";
      msgBox ("人体生物钟 " ,ss);
         goto inputdd;    }
    drawtable ();   //show...绘出曲线
 }//input_date ()

绘制曲线：初始图表样例

 

drawtable(){//draw table and show
   cs.ClearDraw(0,src);    //清屏重绘
//get birthdate yymmdd and current yymm ***
//calculate s1,s2,s3 and draw curve **********
//drawout and show biorhythm         **********
  cs.SetFillMode(1);//0不填色，1填色
    cs.SetColor(255,240,240,240);
    cs.DrawRect(10,10,710,600);
// draw table ===============
  cs.SetStrokeWidth(1);//画笔线宽
  cs.SetFillMode(1);//0不填色，1填色
  cs.SetTextSize(60);
  cs.SetTextStyle(1);     //粗体
 s="人体生物节律曲线";
    cs.SetColor(255,120,60,0);
       cs.DrawText(s,53,104);
    cs.SetColor(255,0,250,0);
       cs.DrawText(s,50,100);
    cs.SetFillMode(0);//0不填色，1填色
    cs.SetColor(255,250,150,0);
       cs.DrawText(s,50,100);

  cs.SetTextStyle(0);     
  cs.SetStrokeWidth (1);
  cs.SetTextSize (28);
  cs.SetColor(250,250,0,0);
ss="高潮区";
cs.DrawText (ss,560,210);
ss="临界区 ";
cs.DrawText (ss,560,270);
ss="低潮区 ";
cs.DrawText (ss,560,410);
  cs.SetFillMode(1);//0不填色，1填色
cs.SetColor(250,250,0,0);
ss="体力  >";
cs.DrawText (ss,200,510);
  cs.SetColor(180,0,90,0);
ss="情绪  >";
cs.DrawText (ss,200,540);
  cs.SetColor(180,0,0,180);
ss="智力  >";
cs.DrawText (ss,200,570);

//draw table========
 cs.SetFillMode (1);
cs.SetStrokeWidth(2);
 cs.SetColor(100,250,250,0); //high low 区块
cs.DrawRect(50,150,670,450);
cs.SetColor (100,255,120,255);
cs.DrawRect (50,150,670,235); 
cs.SetColor(100,130,255,255);
cs.DrawRect(50,365,670,450);
cs.SetColor (255,0,120,128);        //X Line标尺
 cs.DrawRect(20,296,710,304);  
cs.SetColor(180,250,0,0);
cs.DrawRect (50,500,180,506);  //s1
cs.SetColor(180,0,200,0);
cs.DrawRect (50,530,180,536);  //s2
cs.SetColor(180,0,0,192);
cs.DrawRect (50,560,180,566);  //s3

cs.SetColor (255,0,0,0);
cs.SetTextSize (20);
cs.DrawText("0",44,340);
cs.DrawText("5",143,340);
cs.DrawText("10",238,340);
cs.DrawText("15",338,340);
cs.DrawText("20",438,340);
cs.DrawText("25",538,340);
cs.DrawText("30",638,340);

cs.SetFillMode (0);
cs.SetColor (255,250,250,0);
cs.DrawRect(23,300,715,300);//X Line  标尺
 cs.SetColor (255,0,0,128);
 for (i=0;i<34;i++){   //画标尺点位
    bx=50+i*20;
    cs.DrawLine (bx,280,bx,320);      }
    cs.SetColor (255,255,0,0);
  for (i=0;i<7;i++){    //画标尺 5 天标线
     bx=50+i*100;
     cs.DrawCircle (bx,300,2);
     cs.DrawLine (bx,150,bx,320);
     cs.DrawLine (bx,350,bx,450);      }

//绘制人体生物节律曲线
// Physical Sensitive  Intellectual
//draw curve : x1 +50 标尺x轴 0 位,  s1*20 步长
//x0 曲线幅宽,  + -130 y轴峰谷弧高,  y+300 x轴y定位
//x0 : >  230 = 23d, 280 = 28d, 330 = 33d
//Draw out graph here ===========
//get birthdate & calculate thisday-birthdate
   cs.SetStrokeWidth(2);
       ns=td-alln;     //这算法很奇特，研究一下
//s1=23d,  draw graph  体力
   s1=ns-ns/23*23;    //mod (ns,23)
  cs.SetColor (255,255,0,0);
  for (i=-140;i<280;i++){
         a=pi/360*i*6;    //360 曲线点密度
         x0=230;   
         x1=(float)((x0/pi*a+50)+s1*20);
         y1=(float)(-130*sin(a)+300);
         cs.DrawCircle(x1,y1,3);   }
print " s1= ",s1;

//s2=28d,  draw graph  情绪
   s2=ns-ns/28*28;      //mod(ns,28)
   cs.SetColor (255,0,220,0);
  for (i=-140;i<280;i++){
         a=pi/390*i*6;   //390 曲线点密度
         x0=280;
         x1=(float)((x0/pi*a+50)+s2*20);
         y1=(float)(-130*sin(a)+300);
         cs.DrawCircle(x1,y1,3);   }
print " s2= ",s2;

//s3=33d,  draw graph  智力 
  s3=ns-ns/33*33;         //mod (ns,33)
  cs.SetColor (205,0,0,192);
  for (i=-140;i<280;i++){
         a=pi/420*i*6;  //420 曲线点密度
         x0=330;
         x1=(float)((x0/pi*a+50)+s3*20);
         y1=(float)(-130*sin(a)+300);
         cs.DrawCircle(x1,y1,3);        }  
Print " s3= ",s3;

    cs.SetStrokeWidth(0);   //绘出当日标尺
    cs.SetColor (255,60,60,60);
    x1=(float)(td*20+47);  //draw current day当日标
    cs.DrawRect (x1,146,x1+5,454);

     cs.SetFillMode (1);    //曲线两边遮罩
     cs.SetStrokeWidth(2);
     cs.SetColor (255,255,255,255);
     cs.DrawRect (0,150,11,450);
     cs.DrawRect (709,150,720,450);
     cs.SetColor (255,164,164,164);
     cs.DrawRect (710,15,717,606);
     cs.DrawRect (15,600,716,606);
     cs.SetFillMode (0);
     cs.SetColor(255,50,0,128);
     cs.DrawRect(10,10,710,600);
//== draw data ======
cs.SetTextSize (32);
     cs.SetFillMode (1);
cs.SetStrokeWidth(2);
cs.SetColor (255,0,0,200);
if (len(gs2)==1)gs2="0"+gs2;
if (len(gs3)==1)gs3="0"+gs3;
if (len(gs5)==1)gs5="0"+gs5;
if (len(gs6)==1)gs6="0"+gs6;
ss1="出生日期 :  "+gs1+" 年 "+gs2+" 月 "+gs3+" 日 ";
cs.DrawText(ss1,30,680);
ss2="当前日期 :  "+gs4+" 年 "+gs5+" 月 "+gs6+" 日 ";
cs.DrawText (ss2,30,730);
  s=intToString (alln);
//print " all days = ",alln;  //test
ss3="你已在这美好的世界上生活了"+s+"天。";
  if (alln<1)ss3="Welcome to using our program .  ";
  cs.DrawText(ss3,30,780);
  ss="制作人： 张纯叔 ( [email protected] )  ";
     cs.SetColor (255,150,180,250);
     cs.DrawRect (5,1078,715,1080);
   cs.DrawText (ss,20,1110);

//draw status 状态 ***********
    cs.SetFillMode(1);//0不填色，1填色
//**** s1n  s 23
         s1n=alln-alln/23*23 ;
          cs.SetColor (255,250,220,0) ; //临界
          cs.DrawRect (300,490,400,510);   
    if (s1n>2&&s1n<10){    //高   3 - 9
          cs.SetColor(255,250,120,180); 
          cs.DrawRect (300,490,400,510);       }
   if (s1n>13&&s1n<22){     //低 14~21
          cs.SetColor (255,130,250,150) ;
          cs.DrawRect (300,490,400,510);       }
 //**** s2n  s 28
         s2n=alln-alln/28*28 ;
          cs.SetColor (255,250,220,0) ; //临界
          cs.DrawRect (300,520,400,540);  
    if (s2n>2&&s2n<12){    //高   3 - 11
          cs.SetColor(255,250,120,180); 
          cs.DrawRect (300,520,400,540);       }
   if (s2n>16&&s2n<26){     //低 17 - 25
          cs.SetColor (255,130,250,150) ;
          cs.DrawRect (300,520,400,540);       }
 //**** s3n  s 33
          s3n=alln-alln/33*33 ;
          cs.SetColor (255,250,220,0) ; //临界
          cs.DrawRect (300,550,400,570);  
    if (s3n>2&&s3n<14){    //高   3 - 13
          cs.SetColor(255,250,120,180); 
          cs.DrawRect (300,550,400,570);       }
   if (s3n>19&&s3n<31){     //低 20 - 30
          cs.SetColor (255,130,250,150) ;
          cs.DrawRect (300,550,400,570);       }
  drawbutton ();     //绘制按钮
  cs.Update();        //show out  table 
 }//drawtable ()

//**** End ******