⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 20000806008.htm

📁 C++Builder教学大全
💻 HTM
字号:
🔍 
<HTML>

<HEAD>



<TITLE>C++Building制作闹钟</TITLE>



<META content="MSHTML 5.00.2314.1000" name=GENERATOR>

</HEAD>

<BODY aLink=#FF0000 bgColor=#ffffff leftMargin=0 link=#187800 topMargin=0 

vLink=#990099>



<div align="center">

  <table width="744" border="0" cellspacing="0" cellpadding="0" height="76">

    <tr> 

      <td> 

        <p align="center"><span style="FONT-SIZE: 9pt"><strong><font size="3"><br>

          C++Building制作闹钟</font></strong></span></p>

        <p>---- 大凡热恋中的网虫都曾经陷入下列的困境：约好女/男朋友晚七点半在老地方等，却在计算机面前一直爬行到深夜，等反映过来，朋友早已拂尘而去，又得几天的功夫去陪礼道歉。朋友何不按以下步骤做一简单的闹钟，让你安安心心上网，大大方方约会。你只要在上网的时候打开此应用程序，设置好约会时间（当然也可以是默认好的）即可。时间一到，音乐响起，快去约会吧。&nbsp;<br>

          <br>

          ---- 本闹钟程序有以下组件组成：&nbsp;<br>

          <br>

          序号&nbsp;&nbsp;&nbsp; 组件类型&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

          组件名称&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

          功能<br>

          1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Tlabel&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

          l_Clock_1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 显示“输入日期”<br>

          2&nbsp;&nbsp;&nbsp;&nbsp; TdateTimePicker&nbsp;&nbsp;&nbsp; dtp_Clock_1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

          选择日期<br>

          3&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Tlabel&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

          l_Clock_2&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 显示“输入时间”<br>

          4&nbsp;&nbsp;&nbsp;&nbsp; TdateTimePacker&nbsp;&nbsp;&nbsp; tdp_Clock_2&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

          选择时间<br>

          5&nbsp;&nbsp;&nbsp;&nbsp; TmediaPlayer&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

          mp_Clock&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

          演奏音乐<br>

          6&nbsp;&nbsp;&nbsp;&nbsp; Tbutton&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

          b_Clock_Open&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 重新打开<br>

          7&nbsp;&nbsp;&nbsp;&nbsp; Ttimer&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

          t_Clock&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

          定时检测<br>

          8&nbsp;&nbsp;&nbsp;&nbsp; Tbutton&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

          b_Clock_Close&nbsp;&nbsp;&nbsp;&nbsp; 关闭应用程序<br>

          <br>

          

          ---- 说明：dtp_Clock_1 的Kind属性设置为dtkDate ， dtp_Clock_2 的Kind属性设置为dtkTime，mp_Clock 

          的FileName属性设置为你主机上存在的任何mid、wav、avi文件。t_Clock 的Interval属性设置为10。&nbsp;<br>

          <br>

          ---- 事件说明如下：&nbsp;<br>

          <br>

          ①、 t_Clock的OnTimer :<br>

          {<br>

          //按时触发演示程序<br>

          struct date d;<br>

          struct time t;<br>

          AnsiString thour,tmin,tsec;<br>

          int dyear;<br>

          int dintyear;<br>

          int dmon,dday;<br>

          AnsiString tinthour,tintmin,tintsec;<br>

          AnsiString dintmon,dintday;<br>

          //取当天日期<br>

          getdate(&amp;d);<br>

          dyear=d.da_year;<br>

          dday=d.da_day;<br>

          dmon=d.da_mon;<br>

          dintyear=StrToInt(dint.SubString(1,2));<br>

          dintmon=dint.SubString(4,2);<br>

          dintday=dint.SubString(7,2);<br>

          //取当时时间<br>

          gettime(&amp;t);<br>

          thour=AnsiString(t.ti_hour);<br>

          tmin=AnsiString(t.ti_min);<br>

          //tsec=AnsiString(t.ti_sec);<br>

          //tint=AnsiString(DateTimePicker1- &gt;Time);<br>

          tinthour=tint.SubString(10,2);<br>

          tintmin=tint.SubString(13,2);<br>

          //tintsec=tint.SubString(16,2);<br>

          //闹钟服务功能<br>

          if ((StrToInt(thour)==StrToInt(tinthour))&amp;&amp;<br>

          (StrToInt(tmin)==StrToInt(tintmin))<br>

          &amp;&amp;(StrToInt(AnsiString(dyear).SubString(3,2))<br>

          ==dintyear)&amp;&amp;(StrToInt(dmon)==StrToInt(dintmon))<br>

          &amp;&amp;(StrToInt(dday)==StrToInt(dintday)))<br>

          {<br>

          dTimer- &gt;Enabled=false;<br>

          MediaPlayer1- &gt;Open();<br>

          MediaPlayer1- &gt;Play();<br>

          }<br>

          }<br>

          ②、 b_Clock_Open 的OnClick：<br>

          {<br>

          t_Clock- &gt;Enabled=true;&nbsp;<br>

          }<br>

          ③、 b_Clock_Close的OnClick<br>

          {<br>

          Application- &gt;Terminate();<br>

          }<br>

          <br>

          ---- 当然此程序还可以拓展、细化，如我仅将触发条件检测到分，当然它完全可以检测到秒，也可以仅检测到时。</p>

    </td>

    </tr>

  </table>

 

</div>

</BODY></HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -