mycolor.cpp

测试你的颜色 娱乐用。 测试你的颜色 娱乐用 测试你的颜色 娱乐用

     if(d>=25&&d<=30)
     {
       Label4->Caption="你是红色的";
       ss="你的可爱十分惹人喜爱！对爱情你很拣择但又常常在恋爱，也喜欢被爱的感觉。你有着清新的气质和开朗的个性，但有些时侯也会变得\"多愁善感\"。和别人相处的时侯你表现得很友善和温柔，所以很多人愿意和你亲近。你喜欢跟友善和随和的人做朋友。";
     }

      break;
    case  7:
      //
      if(d>=1&&d<=4)
     {
       Label4->Caption="你是红色的";
       ss="你的可爱十分惹人喜爱！对爱情你很拣择但又常常在恋爱，也喜欢被爱的感觉。你有着清新的气质和开朗的个性，但有些时侯也会变得\"多愁善感\"。和别人相处的时侯你表现得很友善和温柔，所以很多人愿意和你亲近。你喜欢跟友善和随和的人做朋友。";
     }
     if(d>=5&&d<=14)
     {
       Label4->Caption="你是橙色的";
       ss="你总会对自己做过的事付责任，亦很懂得怎样待人接物。你常常给自己定下很多目标和竞争对象。你很难去相信别人，包括你的朋友，但当你认为他是可信的话，你将会把他当成永远的知己。";
     }
     
      if(d>=15&&d<=25)
     {
       Label4->Caption="你是黄色的";
       ss="你是一个又天真又\"甜\"的人。常获得别人的信任，亦有很强的领导能力。当要做决定 　　或选择的时侯，你总是做对了决定。还有，你常常?憬着一段浪漫的恋情。";
     }
      if(d>=26&&d<=31)
     {
       Label4->Caption="你是粉红色的";
       ss="对任何事你总是全力己赴的，还有你很爱照顾其它人。但你不是一个容易满足的人，常有消极的想法。你常祈望你的爱情象童话故事一样美丽和完美。";
     }
      break;
    case  8:
      //
      if(d>=1&&d<=4)
     {
       Label4->Caption="你是粉红色的";
       ss="对任何事你总是全力己赴的，还有你很爱照顾其它人。但你不是一个容易满足的人，常有消极的想法。你常祈望你的爱情象童话故事一样美丽和完美。";
     }
     if(d>=5&&d<=13)
     {
       Label4->Caption="你是蓝色的";
       ss="你对自己没有信心，也很挑剔。你很有艺术天分，也很容易去爱上一个人，但当爱情来的时侯，你只是用你的\"感觉\"去爱，而并非用你的心去爱。";
     }
     if(d>=14&&d<=23)
     {
       Label4->Caption="你是绿色的";
       ss="你总能和新相识的朋友相处得很好。你不算是一个害羞的人，但有时侯你的说话每每伤害了别人。你渴望得到爱侣的注意，也较喜欢\"被爱\"的感觉，大多数的时间你总是在等待你生命中的另一半出现。";
     }
     if(d>=24&&d<=31)
     {
       Label4->Caption="你是啡色的";
       ss="你很爱运动，整个人都充满活力。但别人很难去接近你，话虽如此，你又很容易投入一段感情。但当你发现你在那段感情中得不到你想要的东西时，你会立即放弃，也会复完得很快。";
     }
      break;
    case  9:
      //
      if(d>=1&&d<=2)
     {
       Label4->Caption="你是啡色的";
       ss="你很爱运动，整个人都充满活力。但别人很难去接近你，话虽如此，你又很容易投入一段感情。但当你发现你在那段感情中得不到你想要的东西时，你会立即放弃，也会复完得很快。";
     }
     if(d>=3&&d<=12)
     {
       Label4->Caption="你是水蓝色的";
       ss="你的感觉来去如风。你的生活也带点孤单，很爱旅游。你对待别人很真诚，但太容易受别人的影响。对你来说，寻找爱情是一件很难的事，也容易在爱中迷失，令你很容易便被爱情所伤。 ";
     }
     if(d>=13&&d<=22)
     {
       Label4->Caption="你是石灰色的";
       ss="　你是一个冷静的人，但常给自己压力。你常常在小事上挑剔，又容易妒忌。你不大会定下来，但你可爱的性格能获得朋友的信任也乐于跟你接近。";
     }
     if(d>=23&&d<=23)
     {
       Label4->Caption="你是黄绿色的";
       ss="你是一个心肠软和带给别人温暖的人。你与家人和朋友的关系良好。十分讨厌暴力，清楚什么应该做什么不应该做。你也十分善良和乐观，又很知足，并不会轻易妒忌别人拥有什么。";
     }
     if(d>=24&&d<=30)
     {
       Label4->Caption="你是紫色的";
       ss="你是一个神秘的人，从不自私，也很难对任何人和事发生兴趣。你的状态永远是说不定的，是一个情绪化的人。很受周遭的人欢迎，但有是你会做出愚笨的举动，记性也不太好。你最喜欢与一些有着真性情的人做朋友。";
     }
      break;
    case  10:
      //
      if(d>=1&&d<=3)
     {
       Label4->Caption="你是紫色的";
       ss="你是一个神秘的人，从不自私，也很难对任何人和事发生兴趣。你的状态永远是说不定的，是一个情绪化的人。很受周遭的人欢迎，但有是你会做出愚笨的举动，记性也不太好。你最喜欢与一些有着真性情的人做朋友。";
     }
     if(d>=4&&d<=13)
     {
       Label4->Caption="你是深篮色的";
       ss="你是一个很吸引人的发光体，也很爱惜自己的生命。你对身边所有事物都带着强烈的感觉。你是一个容易\"意乱情迷\"的人。如果有人把你激怒了，你很难会原谅他。 ";
     }
     if(d>=14&&d<=23)
     {
       Label4->Caption="你是银色的";
       ss="你是一个有丰富想象力和害羞的人，但你乐于接受新事物和新尝试。你喜欢挑战自 　　己。学习新的事物时很快会上手，遇强越强。但你的爱情生活通常也比较多挫折和困惑。";
     }
     if(d>=24&&d<=31)
     {
       Label4->Caption="你是白色的";
       ss="你的人生充满着梦和理想。你对周遭的事有点漠不关心，容易妒忌。你是较为独特的一群，有时侯，你心中想法总会比别人高深一点。";
     }
      break;
    case  11:
      //
      if(d>=1&&d<=11)
     {
       Label4->Caption="你是白色的";
       ss="你的人生充满着梦和理想。你对周遭的事有点漠不关心，容易妒忌。你是较为独特的一群，有时侯，你心中想法总会比别人高深一点。";
     }
     if(d>=12&&d<=21)
     {
       Label4->Caption="你是金色的";
       ss="你很清楚什么应该做、什么不应该做。性格开朗又好交际。对于你，寻找一个你爱的人不是一件容易的事，但当你找到你爱的人以后，你绝不轻易变心。";
     }
     if(d>=22&&d<=30)
     {
       Label4->Caption="你是奶油色的";
       ss="　你爱和别人竞争，失败的感觉你最受不了。极爱运动和户外活动，你的性格开朗也值得别人信赖。对爱情你会表现得很小心，不会轻易爱上一个人。但一旦找到你生命中的伴侣时，你绝不会让他跑掉。";
     }

      break;
    case  12:
      //
      if(d>=1&&d<=1)
     {
       Label4->Caption="你是奶油色的";
       ss="　你爱和别人竞争，失败的感觉你最受不了。极爱运动和户外活动，你的性格开朗也值得别人信赖。对爱情你会表现得很小心，不会轻易爱上一个人。但一旦找到你生命中的伴侣时，你绝不会让他跑掉。";
     }
     if(d>=2&&d<=11)
     {
       Label4->Caption="你是灰色的";
       ss="你很好动，也很有吸引力。你永不会把想说的话藏在心，总会抒发自己的感情。但有时会变得较自私。你渴望得到别人的注意，讨厌不公平的对待。你很风趣，也懂得在适当时侯说适当的话，常常也令到身边的人快乐。";
     }
      if(d>=12&&d<=24)
     {
       Label4->Caption="你是黄色的";
       ss="你是一个又天真又\"甜\"的人。常获得别人的信任，亦有很强的领导能力。当要做决定 　　或选择的时侯，你总是做对了决定。还有，你常常?憬着一段浪漫的恋情。";
     }
     if(d>=12&&d<=21)
     {
       Label4->Caption="你是栗色的";
       ss="你有一个聪明的脑袋。也是一个自我的人，常依自己的喜好来做事，有时会因为不大理别人的感受而惹上麻烦。对于爱情你很有耐性，当你找到你要找的那一位后，你不会再爱上别人。 ";
     }
     if(d==22)
     {
       //篮绿色
       Label4->Caption="你是篮绿色的";
       ss="你最注重自己的外表。对选择爱侣的要求甚高。你每每拥有清晰的头脑去思考和解决难题，又不易犯错。你喜欢在人群中被重视，也因此令你容易认识到新朋友。";
     }
     if(d>=22&&d<=31)
     {
       Label4->Caption="你是红色的";
       ss="你的可爱十分惹人喜爱！对爱情你很拣择但又常常在恋爱，也喜欢被爱的感觉。你有着清新的气质和开朗的个性，但有些时侯也会变得\"多愁善感\"。和别人相处的时侯你表现得很友善和温柔，所以很多人愿意和你亲近。你喜欢跟友善和随和的人做朋友。";
     }
      break;
  }
  Memo1->Clear();
  String  help;
  help=CbMonth->Text;
  help+=" 月 ";
  help+=CbDay->Text;
  help+=" 日的";
  help+=Label4->Caption;
   Memo1->Lines->Add(help);
  Memo1->Lines->Add(ss);
}
//---------------------------------------------------------------------------