[VB.NET]用VB編了個鬧鐘,,卻碰到問題~~

VB.NET源碼-156個實用實例哦…… <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
用VB編了個鬧鐘,,卻碰到問題~~


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = Convert.ToString(System.DateTime.Now)

If (h == System.DateTime.Now.Hour && m== System.DateTime.Now.Minute && s== System.DateTime.Now.Second) Then
MessageBox.Show( 時間到了!!! )
End If
End Sub
Dim h, s, m
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
h = Int32.Parse(TextBox1.Text)
s = Int32.Parse(TextBox2.Text)
m = Int32.Parse(TextBox3.Text)
End Sub
End Class


以上是代碼,,可是爲什麼到了設置的時間卻不能提示~~~???
__________________________________________________________________________
請lz檢查程序是否進入 Timer1_Tick 這個方法
__________________________________________________________________________
我看 用 〉 表示

時間 沒有叫做同時。
__________________________________________________________________________
我說 的是你 時間 判斷的時候 用大於 號
__________________________________________________________________________
哎 88年的
__________________________________________________________________________
Timer1是否啓動
__________________________________________________________________________
還是不行,,,,還有其他辦法嗎???
__________________________________________________________________________
昏倒 〉=

順序反了 現在 比設定


System.DateTime.Now.Hour > = h && System.DateTime.Now.Minute > = m && System.DateTime.Now.Second > = s


測試通過
結帖
__________________________________________________________________________
暈死

vb.net加c#雙語法寫的代碼也能用??
__________________________________________________________________________
謝樓主!
__________________________________________________________________________
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = Convert.ToString(System.DateTime.Now)
If System.DateTime.Now.Hour = Int32.Parse(TextBox1.Text) And System.DateTime.Now.Minute = Int32.Parse(TextBox2.Text) And System.DateTime.Now.Second = Int32.Parse(TextBox3.Text) Then
MessageBox.Show( 時間到了!!! )
End If
End Sub
__________________________________________________________________________
那只是便於理解,

其實只要 不用絕對的時間對比

就可以了,

因爲 沒有 同時,這回事

所以,只要用邏輯 上的 大於 或小於 對比 就可以

把 timer 設定 到 1000 毫秒 沒關係



*****************************************************************************
歡迎使用CSDN論壇專用閱讀器 : CSDN Reader(附全部源代碼)

http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html
__________________________________________________________________________
h == System.DateTime.Now.Hour && m== System.DateTime.Now.Minute && s== System.DateTime.Now.Second
in vb
== -> =
&& -> and
__________________________________________________________________________
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章