返回列表 上一主題 發帖

[原創] 無聊作的小時鐘...

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-6-10 09:17 | 顯示全部帖子

[原創] 無聊作的小時鐘...

如題
因不知道怎將label轉換成圓形的
所以   只好加減用吧..

以下是程式碼
  1. Private Sub Command1_Click(Index As Integer)
  2.     Timer1.Interval = 1000
  3. End Sub

  5. Private Sub Command2_Click()
  6.    Timer1.Interval = 0
  7. End Sub

  9. Private Sub Form_Load()
  10.     Timer1.Interval = 0
  11.     Label1.Caption = ""
  12. End Sub

  14. Private Sub Timer1_Timer()
  15. For i = 1 To 1  '此地方用迴圈是讓他自動隨著電腦時間讀取 如果沒有此行 會造成按一下 跳一次
  16.     Label1.Caption = Date & Time
  17. Next i
  18. End Sub
複製代碼
小時鐘相關.rar (4.44 KB)
收藏 分享

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
2#
發表於 2011-6-19 16:13 | 顯示全部帖子
用VB.NET，仿版主的程式。另外請教一下，如果我每秒隨機產生一個1~100之間的亂數，但我想知道例如9:00:00~9 ...
kevenpeter 發表於 2011-6-19 09:28



    好奇 時鐘為什麼要用亂數....

TOP

        靜思自在 : 吃苦了苦、苦盡廿來，享福了福、福盡悲來。
返回列表 上一主題