程式**：
option explicit
'line3 表示時針
'line1(1) 表示分針（長度960）
'line2 表示秒針（長度1200）
'timer 定時器週期1s
'label2 標籤顯示當前系統時間
dim xx1 as integer '表盤圓心座標
dim yy1 as integer
dim mytime, myhour, myminute, mysecond as integer '定義當前時間，時，分，秒
dim s_ang, m_ang, h_ang as single '定義角度變數
dim s_rad, m_rad, h_rad as single '定義弧度變數
dim s_length, m_length, h_length as integer '定義表針長度變數
private sub form_load()
xx1 = 2280 '由屬性確定圓心座標
yy1 = 1920
line3.x1 = xx1 '校準表盤座標原點
line3.y1 = yy1
line1(1).x1 = xx1
line1(1).y1 = yy1
line2.x1 = xx1
line2.y1 = yy1
mytime = now '暫存當前時間值
mysecond = second(mytime) '讀取秒
myminute = minute(mytime) '讀取分
myhour = hour(mytime) '讀取時
m_ang = myminute * 6 '任意一點分針角度
m_rad = (3.14 / 180) * m_ang
h_ang = myhour * 30 '任意一點時針角度
h_rad = (3.14 / 180) * h_ang
line1(1).x2 = line1(1).x1 + (960 * sin(m_rad)) '計算x2，y2轉動座標 （以單位圓y軸為0度）
line1(1).y2 = line1(1).y1 - (960 * cos(m_rad))
line3.x2 = line3.x1 + (720 * sin(h_rad)) '計算x2，y2轉動座標 （以單位圓y軸為0度）
line3.y2 = line3.y1 - (720 * cos(h_rad))
end sub
private sub timer1_timer()
label2.caption = now
mytime = now '暫存當前時間值
mysecond = second(mytime) '讀取秒
label15.caption = mysecond
myminute = minute(mytime) '讀取分
label18.caption = myminute
myhour = hour(mytime) '讀取時
label20.caption = myhour
s_ang = mysecond * 6 '任意一點秒針角度
m_ang = myminute * 6 '任意一點分針角度
m_rad = (3.14 / 180) * m_ang
h_ang = myhour * 30 '任意一點時針角度
h_rad = (3.14 / 180) * h_ang
s_rad = (3.14 / 180) * s_ang
line2.x2 = line2.x1 + (1200 * sin(s_rad)) '計算x2，y2轉動座標 （以單位圓y軸為0度）
line2.y2 = line2.y1 - (1200 * cos(s_rad))
if mysecond = 59 then
line1(1).x2 = line1(1).x1 + (960 * sin(m_rad)) '計算x2，y2轉動座標 （以單位圓y軸為0度）
line1(1).y2 = line1(1).y1 - (960 * cos(m_rad))
elseif myminute = 59 then
line3.x2 = line3.x1 + (720 * sin(h_rad)) '計算x2，y2轉動座標 （以單位圓y軸為0度）
line3.y2 = line3.y1 - (720 * cos(h_rad))
end if
end sub
HTML基礎（適合入門，很詳細，很詳細，很詳細）
概念 是最基礎的網頁開發語言 標記語言 快速入門 title red hello world green hello world 標籤學習 檔案標籤 構成html最基本的標籤 文字標籤 和文字有關的標籤 p 段落標籤 br 換行標籤 hr 展示一條水平線 b 字型加粗 i 字型斜體 font 字型標...
DataGridView很詳細的用法
datagridiew用法總結 一 datagridview 取得或者修改當前單元格的內容 當前單元格指的是 datagridview 焦點所在的單元格，它可以通過 datagridview 物件的 currentcell 屬性取得。如果當前單元格不存在的時候，返回nothing c 是null 取...
MVC 模式 很經典的時鐘例項
mvc模式是 model view controller 的縮寫，中文翻譯為 模式 檢視 控制器 mvc應用程式總是由這三個部分組成。event 事件 導致controller改變model或view，或者同時改變兩者。只要controller改變了models的資料或者屬性，所有依賴的view都會...