WM的跑表程序

概述自己的Moto Q8用了3年了，今天收拾了一下，看那样子再用一年也没问题。记得这是3年前买来做WM测试手机的，可随着WM的退出历史舞台，我也有一年多没有写它的程序了。既然还要继续用我的小Q，那么再收拾一下记忆，找一找几年前自己做过的东西，分享一下历史。 首先就要提一提这个跑表程序了，记得有一天晚上要测心跳，可是没有秒表。想想还是挺好笑，怎么说小Q也是智能手机，居然没有提供秒表。好吧，那就自己来写吧

自己的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

源码已经上传到下载区了，告诉我稍后会显示，等了半个多小时了，还是没有。明天再看看，不行，就继续传。 总结

以上是内存溢出为你收集整理的WM的跑表程序全部内容，希望文章能够帮你解决WM的跑表程序所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。