Re: [.NET] [分享]主控台應用程式-鬧鐘
※ 引述《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)
推
10/09 21:33, , 1F
10/09 21:33, 1F
討論串 (同標題文章)
本文引述了以下文章的的內容:
完整討論串 (本文為第 2 之 2 篇):