作者Marty (DNA探针)
看板Visual_Basic
标题Re: [.NET] [分享]主控台应用程式-闹钟
时间Tue Oct 9 16:17:09 2012
※ 引述《zhangzhixuan (山崎翔太)》之铭言:
: 练习写主控台的时候写的一个小程式 包含注解:D
: 原理蛮简单的...
: Module Module1
: 'SLEEP_API 防止BEEP来不及反应
: Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
: Dim time1 As String
: Dim yoba As Boolean
: Sub Main()
: On Error GoTo ers
: Console.Title = "山崎小闹钟"
: For i = 1 To 3 Step 1
: Console.Beep(600, 100)
: Sleep(200)
: Next i
: Console.WriteLine("如果刚才没有听到电脑叫三声 表示您的电脑不支援此闹钟。")
: Console.WriteLine("程式设计:山崎翔太 (C)Copyright 山崎翔太-2012")
: '问到确定时间是正确的才肯罢休
'以下主要是把原程式的Magic Number修掉
Do
Console.WriteLine("请输入响铃时间: 格式 yyyy/MM/dd HH:mm")
Console.WriteLine("例如:现在时间就是:" & Format(Now(), "yyyy/MM/dd HH:mm"))
time1 = Console.ReadLine
If IsDate(time1) Then
Console.WriteLine("您确定时间是:" & _
Format(CDate(time1), "yyyy/MM/dd HH:mm") & "?")
Console.WriteLine("如果确定请回1 要修正请回0")
Else
Console.WriteLine("格式不正确")
End If
Loop Until Console.ReadLine() = 1
Console.WriteLine("闹铃已设定完成并且已启动")
Console.WriteLine("响铃时间 = " & Format(CDate(time1), "yyyy/MM/dd HH:mm"))
time1 = Format(CDate(time1) , "yyyyMMddHHmm")
: '主要设定的时间到了 就开始叫
: Do
: If Val(time1) = Format(Now, "yyyyMMddHHmm") Then
: Console.WriteLine("响铃已启动")
: Do While Val(time1) = Format(Now, "yyyyMMddHHmm")
: Console.Beep(600, 100)
: Sleep(200)
: Loop
: yoba = True
: End If
: Loop Until yoba = True
: Console.WriteLine("响铃已结束,请按任意键结束本应用程式")
: Console.ReadKey()
: '以下是应用程式出错时的处理方法
: Exit Sub
: ers:
: Console.Beep(600, 100)
: Console.WriteLine("应用程式发生错误" & vbCrLf & "请按任意键结束应用程式")
: Console.ReadKey()
: End
: End Sub
: End Module
: 以上... 我写的就这样= = 原本想加入贪睡功能 但是我忘记时间的加减函数了>//<
: 所以他只会叫一次...=.=
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 101.13.80.186
※ 编辑: Marty 来自: 101.13.80.186 (10/09 16:19)
1F:推 zhangzhixuan:了解了^^感谢。 10/09 21:33