注册 登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

李亚松..廊坊师范信息技术提高班十一期

李亚松..廊坊师范信息技术提高班十一期

 
 
 

日志

 
 

自恋的孩子  

2014-01-21 11:17:06|  分类: 默认分类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
        今天,米老师给我们开了一个即兴会议。主要内容就是说我们在学习的时候经常被打断,让我们记录下时间。当时我的灵感就涌上心头——我为什么不自己编一个软件来记录我的学习呢?
       于是乎,会议结束后,我就用vb自己编了一个软件:我的自我时间管理系统。本来想做这样的一个软件应该不难吧——就是一个把时间记录下来并且计算以下是检查的问题嘛。可是后来做的时候,才发现我想得太简单了。
这次的软件比较简单,但是没有任何例子,全凭自己去做又是别样的感受——你抄同学作业与你自己做作业的感觉肯定不一样。
我遇到的第一个问题是:从哪入手?我在做之前对软件的功能是有一个大概的想法的,可是真正做的时候我却不知道该从哪下手——每一个功能都是重要的又是有一定关联的,怎么开头呢?这个问题我始终没有想明白,直到我硬着头皮打开vb画下第一个按钮的时候。
(这个问题再次告诉我:带着问题前进,走着走着就会发现问题已经解决了。)
第一个问题解决了接下来写代码的阶段写的那叫一个开心啊,写完以后一运行——好吧,刚才只顾高兴了、、、、
很多东西没有写,也有很多东西写错了。然后我就为我的程序加了个保险   Option Explicit 语句,第一次我知道了这个语句的好处。它帮我把我写的代码的疏忽替我找出来,然后提醒我。我以前一直以为人家没有用现在人家帮了我这么大的忙,我很惭愧啊~~~
然后我的软件基本没有大问题了,可是却是出现了一些小的 错误,比如:自恋的孩子 - 十一期 李亚松 - 李亚松..廊坊师范信息技术提高班十一期
 而我想要的结果是自恋的孩子 - 十一期 李亚松 - 李亚松..廊坊师范信息技术提高班十一期经过我的不懈努力,造成这种结果的原因是
自恋的孩子 - 十一期 李亚松 - 李亚松..廊坊师范信息技术提高班十一期在这样的代码下就会出现已终止时间为一长串的情况
而改成这样
     自恋的孩子 - 十一期 李亚松 - 李亚松..廊坊师范信息技术提高班十一期
自恋的孩子 - 十一期 李亚松 - 李亚松..廊坊师范信息技术提高班十一期
   就会出现后来正常的情况。本来想吧打断的内容存在一个数组里,后拉考虑到没有必要(因为数据量不会太大)所以就没有弄。现在我正在准备开发新的功能完善我的小小的作品、、、、
附:现将代码公布,对于软件的不足请务必留言指出,作者在此感谢各位大神了~~~
  Option Explicit

Dim study As String             '学习状态

Dim untiltime As Date           '持续时间

Dim stattime As Date            '开始时间

Dim endtime As Date             '结束时间

Dim ddyy(1 To 2) As String      '打断原因

Dim f(2) As Date                '时间段

Dim daduan As Integer           '打断次数

 

Private Sub Command1_Click()

    If study = "yes" Then Exit Sub

    Timer1.Enabled = True

    study = "yes"                   '学习状态的设置

    stattime = Time

    f(2) = stattime - endtime       '学习时间的确定

End Sub

 

Private Sub Command2_Click()

    If study = "no" Then Exit Sub

    Timer1.Enabled = True

    study = "no"

    endtime = Time

    untiltime = untiltime + endtime - stattime

    daduan = daduan + 1

    ddyy(1) = InputBox("" & daduan & " 次停止,请输入停止的原因", "输入框")           '输入打断原因

    If ddyy(1) = "" Then ddyy(1) = "原因未输入"

    ddyy(2) = ddyy(2) & ddyy(1) & "——第" & daduan & "" & Chr(13) & Chr(10)

   

End Sub

 

Private Sub Command3_Click()

    Label2.AutoSize = True

    Label1.Caption = "打断次数" & daduan                                            '显示信息

    Label2.Caption = "打断原因:" & Chr(13) & Chr(10) & ddyy(2)

    Label3.Caption = ""

    Timer1.Enabled = False

    Text1.Text = Label2.Caption

End Sub

 

Private Sub Form_Load()

    Timer1.Enabled = False

End Sub

 

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

    Dim x As Long

    x = MsgBox("是否保存打断原因?保存后可在d盘看到打断的原因", vbYesNo)                                       '保存打断原因

    If x = 6 Then

        Call Command3_Click

        Open "d:\打断原因.txt" For Append As 1

        Print #1, Date, Time, Text1.Text, "学习时间" & untiltime + f(0), "浪费时间" & f(2)

        Close #1

     End If

End Sub

 

Private Sub Timer1_Timer()                                  '标签显示内容

    f(0) = Time - stattime

    f(1) = Time - endtime

    Label1.Caption = "现在时间是: " & Time & "学习状态是:" & study

    If study = "yes" Then

        Label2.Caption = "本次学习时长" & f(0)

        

    Else

        Label2.Caption = "已停止时间为" & f(1)

    End If

    If study = "yes" Then

            Label3.Caption = "总共学习时长为" & untiltime + f(0)

        Else

            Label3.Caption = "总共学习时长为" & untiltime

    End If

End Sub

 

Private Sub Timer2_Timer()

 

    Label2.AutoSize = False

    Timer1.Enabled = True

    

End Sub


  评论这张
 
阅读(95)| 评论(49)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018