繁體瀏覽工具設為首頁收藏本站
 找回密碼 或 安全提問
 註冊
|註冊|登錄

伊莉討論區

搜索
尊貴會員無限使用任何功能尊貴會員無限看帖不用回覆儲值後自動升級用戶組
伊莉討論區 › 論壇 › 電腦資訊 › 電腦程式設計 › Visual Basic 語言 › 計時器沒辦法開始跑
巨乳催眠神奇寶貝無修cosplay我的英雄中字
so_low爆乳人妻ntr復讐の夜安卓love plugba 遊戲
休閒聊天興趣交流學術文化旅遊交流飲食交流家庭事務PC GAMETV GAME
熱門線上其他線上感情感性寵物交流家族門派動漫交流貼圖分享BL/GL
音樂世界影視娛樂女性頻道潮流資訊BT下載區GB下載區下載分享短片
電腦資訊數碼產品手機交流交易廣場網站事務長篇小說體育運動時事經濟
上班一族博彩娛樂

女子搧別人耳光的後果
[繁]老夫老妻重返青春
[繁]無職轉生 第二季1

(4月新番)[簡]被稱為
[繁]為美好的世界獻上
桃園龜山 女騎士煞不
C & C++ 語言C# 語言Visual Basic 語言PHP 語言JAVA 語言
返回列表發新帖

查看: 2138|回復: 5
打印上一主題下一主題

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

userr0000 該用戶已被刪除
跳轉到指定樓層
樓主
發表於 2012-8-10 10:14 AM|只看該作者|倒序瀏覽
回覆中加入附件並不會使你增加積分，請使用主題方式發佈附件。
我想做個計時器
有個馬錶的功能

按下START後能開始計時

程式碼如下

  1. Public Class Form1

  3.     Dim st As Boolean    'st 為表示計時器一（碼表）是否啟動的布林變數

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

  7.         st = True

  9.     End Sub

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

  13.         st = False

  15.     End Sub

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

  19.         st = False    '關閉碼表計時功能
  20.         TextBox1.Text = 0    '將碼表歸零
  21.         TextBox2.Text = 0
  22.         TextBox3.Text = 0
  23.         TextBox4.Text = 0

  25.     End Sub

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

  29.         End

  31.     End Sub

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

  35.         If (st = True) Then    '若開關是開啟的，則第四欄位（1/100 秒）加一（interval=10ms）
  36.             TextBox4.Text = TextBox4.Text + 1
  37.             TextBox3.Text = TextBox3.Text + TextBox4.Text \ 100  '以下為進位過程
  38.             TextBox4.Text = TextBox4.Text Mod 100
  39.             TextBox2.Text = TextBox2.Text + TextBox3.Text \ 60
  40.             TextBox3.Text = TextBox3.Text Mod 60
  41.             TextBox1.Text = TextBox1.Text + TextBox2.Text \ 60
  42.             TextBox2.Text = TextBox2.Text Mod 60
  43.         End If

  45.     End Sub

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

  49.         Label4.Text = Now

  51.     End Sub
  52. End Class
複製代碼



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

...
瀏覽完整內容，請先 註冊 或 登入會員
分享分享0收藏收藏0支持支持0
如果發覺自己無法使用一些功能或出現問題，請按重新整理一次，並待所有網頁內容完全載入後5秒才進行操作。

使用道具檢舉

arthurliuliu

  專　家(12000/24000)

落葉知秋

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

帖子
1600
積分
23884 點
潛水值
54991 米
頭香
發表於 2012-8-10 05:01 PM|只看該作者
升級為尊貴會員或贊助會員，讓你擁有自由、暢通無阻、應有盡有及所有資源任你使用的無窮快感。
timer_tick 事件本身就是要 timer 啟動才會觸發，
不會動很正常，然後我搞不懂為什麼還要設一個 st。
新手就更該多用「心」動「手」找答案；
經驗是累積來的，答案則是 Google 來的。
如果重複性登入後自動登出，請先刪除所有Cookie和舊網頁再登入。

使用道具檢舉

C-PETER

Rank: 2Rank: 2

帖子
341
積分
874 點
潛水值
33262 米
3樓
發表於 2012-8-10 05:23 PM|只看該作者
若瀏覽伊莉的時侯發生問題或不正常情況，請使用Internet Explorer(I.E)。
TIMER1的ENABLED 屬性要設定成TRUE
或是在程式LOAD時設定TIMER1.ENABLED=TRUE
若對尊貴或贊助會員有任何疑問，歡迎向我們查詢。我們的即時通或MSN: admin@eyny.com

使用道具檢舉

css6666 該用戶已被刪除
4樓
發表於 2012-8-10 06:24 PM|只看該作者
如果重複性登入後自動登出，請先刪除所有Cookie和舊網頁再登入。
本帖最後由 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

  3.         Timer1.Enabled = True

  5.     End Sub

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

  9.        Timer1.Enabled = False

  11.     End Sub
複製代碼
按下Button1按鈕啟動
按下Button2按鈕停止
還有，TextBox4.Text 是字串，應該不能相加。
...
瀏覽完整內容，請先 註冊 或 登入會員
伊莉影片

使用道具檢舉

asd514016 該用戶已被刪除
5樓
發表於 2012-8-11 05:31 PM|只看該作者
若對尊貴或贊助會員有任何疑問，歡迎向我們查詢。我們的即時通或MSN: admin@eyny.com
Text1.Text = Val(Text1.Text) + 1  
改成這樣就可以了。




所有積分大於負-100的壞孩子，將可獲得重新機會成為懲罰生，權限跟幼兒生一樣。

使用道具檢舉

userr0000 該用戶已被刪除
6樓
發表於 2012-8-13 09:55 AM|只看該作者
若新密碼無法使用，可能是數據未更新。請使用舊密碼看看。
我完成了

程式碼如下
  1. Public Class Form1

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

  5.         Timer1.Enabled = True
  6.         TextBox1.Text = 0
  7.         TextBox2.Text = 0
  8.         TextBox3.Text = 0
  9.         TextBox4.Text = 0

  11.     End Sub

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

  15.         Timer1.Enabled = False

  17.     End Sub

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

  21.         Timer1.Enabled = False    '關閉碼表計時功能
  22.         TextBox1.Text = 0    '將碼表歸零
  23.         TextBox2.Text = 0
  24.         TextBox3.Text = 0
  25.         TextBox4.Text = 0

  27.     End Sub

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

  31.         End

  33.     End Sub

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

  37.         If (Timer1.Enabled = True) Then    '若開關是開啟的，則第四欄位（1/100 秒）加一（interval=10ms）
  38.             TextBox4.Text = TextBox4.Text + 10
  39.             TextBox3.Text = TextBox3.Text + TextBox4.Text \ 100  '以下為進位過程
  40.             TextBox4.Text = TextBox4.Text Mod 100
  41.             TextBox2.Text = TextBox2.Text + TextBox3.Text \ 60
  42.             TextBox3.Text = TextBox3.Text Mod 60
  43.             TextBox1.Text = TextBox1.Text + TextBox2.Text \ 60
  44.             TextBox2.Text = TextBox2.Text Mod 60
  45.         End If

  47.     End Sub

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

  51.         Label4.Text = Now

  53.     End Sub
  54. End Class
複製代碼
謝謝大家...
瀏覽完整內容，請先 註冊 或 登入會員
若對尊貴或贊助會員有任何疑問，歡迎向我們查詢。我們的即時通或MSN: admin@eyny.com

使用道具檢舉

返回列表發新帖
高級模式
BColorImageLinkQuoteCodeSmilies
您需要登錄後才可以回帖 登錄 | 註冊

Powered by Discuz!

© Comsenz Inc.

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