找回密碼 或 安全提問
 註冊
|註冊|登錄

伊莉討論區

搜索
感激所有對伊莉作出奉獻的人儲值後自動升級用戶組安全提問(回答) 和 永久尊貴會員 事宜
火影忍者催眠我的英雄偷拍ntroverlord3d
龜仙人495263ボクと彼那年華娛別レタ妻姉辱尽くあい☆き

休閒聊天興趣交流學術文化旅遊交流飲食交流家庭事務PC GAMETV GAME
熱門線上其他線上感情感性寵物交流家族門派動漫交流貼圖分享BL/GL
音樂世界影視娛樂女性頻道潮流資訊BT下載區GB下載區下載分享短片
電腦資訊數碼產品手機交流交易廣場網站事務長篇小說體育運動時事經濟
上班一族博彩娛樂

【超清繁中】✡ 霹靂

[繁]最強肉盾的迷宮攻

河南商丘 男子不滿店

[簡]通靈王 FLOWERS -

[繁]佐佐木與文鳥小嗶

〖高清繁〗霹靂天機貳
C & C++ 語言C# 語言Visual Basic 語言PHP 語言JAVA 語言
查看: 2136|回復: 5

[問題] 計時器沒辦法開始跑[複製鏈接]

userr0000 該用戶已被刪除
發表於 2012-8-10 10:14 AM|顯示全部樓層
若對尊貴或贊助會員有任何疑問,歡迎向我們查詢。我們的即時通或MSN: admin@eyny.com
我想做個計時器
有個馬錶的功能

按下START後能開始計時

程式碼如下

  1. Public Class Form1

  2.     Dim st As Boolean    'st 為表示計時器一(碼表)是否啟動的布林變數

  3.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

  4.         st = True

  5.     End Sub

  6.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

  7.         st = False

  8.     End Sub

  9.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

  10.         st = False    '關閉碼表計時功能
  11.         TextBox1.Text = 0    '將碼表歸零
  12.         TextBox2.Text = 0
  13.         TextBox3.Text = 0
  14.         TextBox4.Text = 0

  15.     End Sub

  16.     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

  17.         End

  18.     End Sub

  19.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

  20.         If (st = True) Then    '若開關是開啟的,則第四欄位(1/100 秒)加一(interval=10ms)
  21.             TextBox4.Text = TextBox4.Text + 1
  22.             TextBox3.Text = TextBox3.Text + TextBox4.Text \ 100  '以下為進位過程
  23.             TextBox4.Text = TextBox4.Text Mod 100
  24.             TextBox2.Text = TextBox2.Text + TextBox3.Text \ 60
  25.             TextBox3.Text = TextBox3.Text Mod 60
  26.             TextBox1.Text = TextBox1.Text + TextBox2.Text \ 60
  27.             TextBox2.Text = TextBox2.Text Mod 60
  28.         End If

  29.     End Sub

  30.     Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

  31.         Label4.Text = Now

  32.     End Sub
  33. End Class
複製代碼



執行後
我按START
TextBox4.Text = TextBox4.Text + 1
這句會亮起來變成黃色的
然後沒辦法計時
請問為什麼會這樣
要怎麼做修改呢

...
瀏覽完整內容,請先 註冊登入會員
若對尊貴或贊助會員有任何疑問,歡迎向我們查詢。我們的即時通或MSN: admin@eyny.com

使用道具檢舉

  專 家(12000/24000)

落葉知秋

Rank: 5Rank: 5Rank: 5Rank: 5Rank: 5

帖子
1600
積分
23884 點
潛水值
54991 米
發表於 2012-8-10 05:01 PM|顯示全部樓層
若瀏覽伊莉的時侯發生問題或不正常情況,請使用Internet Explorer(I.E)。
timer_tick 事件本身就是要 timer 啟動才會觸發,
不會動很正常,然後我搞不懂為什麼還要設一個 st。
新手就更該多用「心」動「手」找答案;
經驗是累積來的,答案則是 Google 來的。

使用道具檢舉

Rank: 2Rank: 2

帖子
341
積分
874 點
潛水值
33222 米
發表於 2012-8-10 05:23 PM|顯示全部樓層
若有安裝色情守門員,可用無界、自由門等軟件瀏覽伊莉。或使用以下網址瀏覽伊莉: http://www.eyny.com:81/index.php
TIMER1的ENABLED 屬性要設定成TRUE
或是在程式LOAD時設定TIMER1.ENABLED=TRUE

使用道具檢舉

css6666 該用戶已被刪除
發表於 2012-8-10 06:24 PM|顯示全部樓層
如果你忘記伊莉的密碼,請在登入時按右邊出現的 '找回密碼'。輸入相關資料後送出,系統就會把密碼寄到你的E-Mail。
本帖最後由 css6666 於 2012-8-10 06:28 PM 編輯
  1.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

  2.         Timer1.Enabled = True

  3.     End Sub

  4.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

  5.        Timer1.Enabled = False

  6.     End Sub
複製代碼
按下Button1按鈕啟動
按下Button2按鈕停止
還有,TextBox4.Text 是字串,應該不能相加。
...
瀏覽完整內容,請先 註冊登入會員
若新密碼無法使用,可能是數據未更新。請使用舊密碼看看。

使用道具檢舉

asd514016 該用戶已被刪除
發表於 2012-8-11 05:31 PM|顯示全部樓層
成為伊莉的版主,你將獲得更高級和無限的權限。把你感興趣的版面一步步地發展和豐盛,那種滿足感等著你來嚐嚐喔。
Text1.Text = Val(Text1.Text) + 1  
改成這樣就可以了。




使用道具檢舉

userr0000 該用戶已被刪除
發表於 2012-8-13 09:55 AM|顯示全部樓層
若瀏覽伊莉的時侯發生問題或不正常情況,請使用Internet Explorer(I.E)。
我完成了

程式碼如下
  1. Public Class Form1

  2.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

  3.         Timer1.Enabled = True
  4.         TextBox1.Text = 0
  5.         TextBox2.Text = 0
  6.         TextBox3.Text = 0
  7.         TextBox4.Text = 0

  8.     End Sub

  9.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

  10.         Timer1.Enabled = False

  11.     End Sub

  12.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

  13.         Timer1.Enabled = False    '關閉碼表計時功能
  14.         TextBox1.Text = 0    '將碼表歸零
  15.         TextBox2.Text = 0
  16.         TextBox3.Text = 0
  17.         TextBox4.Text = 0

  18.     End Sub

  19.     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

  20.         End

  21.     End Sub

  22.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

  23.         If (Timer1.Enabled = True) Then    '若開關是開啟的,則第四欄位(1/100 秒)加一(interval=10ms)
  24.             TextBox4.Text = TextBox4.Text + 10
  25.             TextBox3.Text = TextBox3.Text + TextBox4.Text \ 100  '以下為進位過程
  26.             TextBox4.Text = TextBox4.Text Mod 100
  27.             TextBox2.Text = TextBox2.Text + TextBox3.Text \ 60
  28.             TextBox3.Text = TextBox3.Text Mod 60
  29.             TextBox1.Text = TextBox1.Text + TextBox2.Text \ 60
  30.             TextBox2.Text = TextBox2.Text Mod 60
  31.         End If

  32.     End Sub

  33.     Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

  34.         Label4.Text = Now

  35.     End Sub
  36. End Class
複製代碼
謝謝大家...
瀏覽完整內容,請先 註冊登入會員
如果你忘記伊莉的密碼,請在登入時按右邊出現的 '找回密碼'。輸入相關資料後送出,系統就會把密碼寄到你的E-Mail。

使用道具檢舉

您需要登錄後才可以回帖 登錄 | 註冊

Powered by Discuz!

© Comsenz Inc.

重要聲明:本討論區是以即時上載留言的方式運作,對所有留言的真實性、完整性及立場等,不負任何法律責任。而一切留言之言論只代表留言者個人意見,並非本網站之立場,用戶不應信賴內容,並應自行判斷內容之真實性。於有關情形下,用戶應尋求專業意見(如涉及醫療、法律或投資等問題)。 由於本討論區受到「即時上載留言」運作方式所規限,故不能完全監察所有留言,若讀者發現有留言出現問題,請聯絡我們。有權刪除任何留言及拒絕任何人士上載留言,同時亦有不刪除留言的權利。切勿上傳和撰寫 侵犯版權(未經授權)、粗言穢語、誹謗、渲染色情暴力或人身攻擊的言論,敬請自律。本網站保留一切法律權利。
回頂部