自己的Moto Q8用了3年了,今天收拾了一下,看那样子再用一年也没问题。记得这是3年前买来做WM测试手机的,可随着WM的退出历史舞台,我也有一年多没有写它的程序了。既然还要继续用我的小Q,那么再收拾一下记忆,找一找几年前自己做过的东西,分享一下历史。
首先就要提一提这个跑表程序了,记得有一天晚上要测心跳,可是没有秒表。想想还是挺好笑,怎么说小Q也是智能手机,居然没有提供秒表。好吧,那就自己来写吧。
界面很简单的,时分秒,开始暂停等功能,简单明了。
下面就是历史的代码,是用C#写的。
///项目名称:跑表 ///作者:lincyang ///时间:2009-10-13 ///备注:昨晚想测心跳,苦于没有秒表,今天抽空写一个 using System; using System.Linq; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; namespace StopWatch { public partial class Main : Form { public Main() { InitializeComponent(); } //用几个全局变量做暂停功能 Int16 iHour,iMin,iSec,iMS,spsec_start; //byte spsec_start; //开始与停止 private void menuItem1_Click(object sender,EventArgs e) { if (menuItem1.Text == "Start") { menuItem1.Text = "Stop"; menuItem2.Text = "Reset"; timer1.Enabled = true; } else { menuItem1.Text = "Start"; //menuItem2.Text = "Exit"; timer1.Enabled = false; } spsec_start = (Int16)DateTime.Now.Second; } //Timer interval 100 private void timer1_Tick(object sender,EventArgs e) { iMS += 100; if (iMS == 1000)//1秒,进位 { iSec += 1; iMS = 0; //每隔7 秒与系统时间(秒) 同步,减少计时误差 if (iSec != 0 & spsec_start % 7 ==0) { if (DateTime.Now.Second > spsec_start) iSec = (Int16)(DateTime.Now.Second - spsec_start); else iSec = (Int16)(DateTime.Now.Second + 60 - spsec_start); } //跑表累计时间 60秒进位 if (iSec == 60) { iMin += 1; iSec = 0; //60分钟进位 if (iMin == 60) { iHour += 1; iMin = 0; } } } //显示 lblHour.Text = iHour.ToString("00"); lblMin.Text = iMin.ToString("00"); lblSec.Text = iSec.ToString("00"); lblMS.Text = iMS.ToString("0"); } //复位与退出 private void menuItem2_Click(object sender,EventArgs e) { //如果跑表在计时中,按本键无效。 if (menuItem1.Text == "Start") { if (menuItem2.Text == "Reset") { timer1.Enabled = false; iHour = iMin = iSec = iMS = 0; lblHour.Text = lblMin.Text = lblSec.Text = "00"; lblMS.Text = "0"; menuItem2.Text = "Exit"; } else { Int16 a = (Int16)MessageBox.Show("r u sure Exit?","HeartWacth",MessageBoxButtons.OKCancel,MessageBoxIcon.Question,MessageBoxDefaultButton.Button1); if (a == 1) this.Dispose(); menuItem2.Text = "Reset"; } } } } }
记得第一版是用VB写的,代码是找到了,这个历史更早。童鞋们,还记得这些语法么?
Private Sub MenuItem1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MenuItem1.Click If MenuItem1.Text = "开始" Then MenuItem1.Text = "暂停" Timer1.Enabled = True Else MenuItem1.Text = "开始" Timer1.Enabled = False End If spsec_start = Date.Now.Second End Sub Private Sub MenuItem2_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MenuItem2.Click ' 清零: 如果跑表在计时中,按本键无效。 Dim a As Int16 If MenuItem1.Text = "开始" Then If MenuItem2.Text = "复位" Then Timer1.Enabled = False myhour = 0 : mymin = 0 : mysec = 0 : myms = 0 TextBox1.Text = "00" : TextBox2.Text = "00" TextBox3.Text = "00" : TextBox4.Text = "0" MenuItem2.Text = "退出" Else ' 退出本程序? 按确定键,a 为1; 按取消键,a 为2。 a = MessageBox.Show("退出本程序? ","SP 简易跑表",MessageBoxDefaultButton.Button1) If a = 1 Then Me.Dispose() MenuItem2.Text = "复位" End If End If End Sub Private Sub Timer1_Tick(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Timer1.Tick myms = myms + 100 '100 就是定时器Timer1 的Interval 属性值。 If myms = 1000 Then mysec = mysec + 1 : myms = 0 ' 每隔7 秒与系统时间(秒) 同步,减少计时误差 If mysec <> 0 And mysec Mod 7 = 0 Then If Date.Now.Second > spsec_start Then mysec = Date.Now.Second - spsec_start Else mysec = Date.Now.Second + 60 - spsec_start End If End If ' 跑表累计时间 If mysec = 60 Then mymin = mymin + 1 : mysec = 0 If mymin = 60 Then myhour = myhour + 1 : mymin = 0 End If End If End If TextBox1.Text = myhour.ToString TextBox2.Text = mymin.ToString TextBox3.Text = mysec.ToString TextBox4.Text = Mid(myms.ToString,1,1) End Sub源码已经上传到下载区了,告诉我稍后会显示,等了半个多小时了,还是没有。明天再看看,不行,就继续传。