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

伊莉討論區

搜索
感激所有對伊莉作出奉獻的人尊貴會員無限下載附件認識好友、聊天,分享生活趣事
rion三上一拳超人上原亞衣中出中文
水卜 さジェマ神木麗緋月仙行未だ蕾のvrえりんぎ

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

[繁]葬送的芙莉蓮28-

[繁]歡迎來到實力至上

[繁]非自願的不死冒險

[BD繁]劇場版 少女與

✡ 斗破蒼穹 年番/鬥

斗破蒼穹 年番 鬥破蒼
C & C++ 語言C# 語言Visual Basic 語言PHP 語言JAVA 語言
查看: 6590|回復: 4

[求助] VB 如何做出像引擎轉速表的那種感覺[複製鏈接]

帖子
439
積分
1 點
潛水值
21103 米
發表於 2017-3-21 07:55 AM|顯示全部樓層
所有積分大於負-100的壞孩子,將可獲得重新機會成為懲罰生,權限跟幼兒生一樣。
我想要做一個量化的指標,
圖型是用類似引擎轉速表圓形的模式,
不知那位高手指導一下....

使用道具檢舉

Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6

帖子
155
積分
1291 點
潛水值
47805 米
發表於 2017-3-22 06:27 AM|顯示全部樓層
如果瀏覽伊莉時速度太慢或無法連接,可以使用其他分流瀏覽伊莉,www01.eyny.com(02,03)。
噢…不讓我貼連結,那貼關鍵字給你
你搜尋一下 【 VB 6 】指針式時鐘-動態指針的製作原理

使用道具檢舉

帖子
372
積分
21 點
潛水值
5911 米
發表於 2017-4-8 09:00 PM|顯示全部樓層
成為伊莉的版主,你將獲得更高級和無限的權限。把你感興趣的版面一步步地發展和豐盛,那種滿足感等著你來嚐嚐喔。
程式碼太長了,可以用「Analogue Clock」關鍵字找到圖及範例
就不知道是否你要的部份了
所有積分大於負-100的壞孩子,將可獲得重新機會成為懲罰生,權限跟幼兒生一樣。

使用道具檢舉

帖子
73
積分
22 點
潛水值
8164 米
發表於 2018-6-8 12:54 PM|顯示全部樓層
如果發覺自己無法使用一些功能或出現問題,請按重新整理一次,並待所有網頁內容完全載入後5秒才進行操作。
10幾年前用VB6寫的指針事時鐘,你參考看看
  1. '表單放置1個Timer及1個VScrollBar
  2. Const Pi = 3.14159265358979
  3. Dim X&, Y&, R&, Hh%, Mm%, Ss%
  4.     Private Sub Form_Load()
  5.     Dim A&, B&, I%, J$, W%, H%
  6.    
  7.     X = ScaleWidth \ 2: Y = ScaleHeight \ 2
  8.     R = X: If Y < X Then R = Y
  9.     R = R - 120
  10.     AutoRedraw = True: DrawWidth = 1: ForeColor = 0
  11.     J = 255
  12.     For I = R To R + 90
  13.         Circle (X, Y), I, RGB(J, 0, J)
  14.         J = J - 1
  15.     Next
  16.     J = 1
  17.     For I = 210 To 540 Step 30
  18.         W = TextWidth(J) \ 2
  19.         H = TextHeight(J) \ 2
  20.         CurrentX = X - Sin(I / 180 * Pi) * (R - W * 2) - W
  21.         CurrentY = Y + Cos(I / 180 * Pi) * (R - H * 2) - H
  22.         Print J: J = J + 1
  23.     Next
  24.     R = R - H * 3
  25.     Picture = Image
  26.     VScroll1.Max = 1000: VScroll1.Min = 10: VScroll1 = 1000
  27.     Hh = Hour(Now): Mm = Minute(Now): Ss = Second(Now)
  28.     Timer1.Enabled = True
  29. End Sub

  30. Private Sub Timer1_Timer()
  31.     Dim S%, I%, J%
  32.    
  33.     Cls
  34.    
  35.     DrawWidth = 4
  36.     S = ((Hh Mod 12) + Mm / 60) * 30 + 180
  37.     I = X - Sin(S / 180 * Pi) * R * 0.6
  38.     J = Y + Cos(S / 180 * Pi) * R * 0.6
  39.     Line (X, Y)-(I, J)
  40.     DrawWidth = 2
  41.     S = Mm * 6 + 180
  42.     I = X - Sin(S / 180 * Pi) * R * 0.8
  43.     J = Y + Cos(S / 180 * Pi) * R * 0.8
  44.     Line (X, Y)-(I, J)
  45.     DrawWidth = 1
  46.     S = Ss * 6 + 180
  47.     I = X - Sin(S / 180 * Pi) * R
  48.     J = Y + Cos(S / 180 * Pi) * R
  49.     Line (X, Y)-(I, J)
  50.     Ss = Ss + 1
  51.     If Ss > 59 Then Mm = Mm + 1: Ss = 0
  52.     If Mm > 59 Then Hh = Hh + 1: Mm = 0
  53.     If Hh > 12 Then Hh = 1
  54.    
  55. End Sub

  56. Private Sub VScroll1_Change()
  57.     Timer1.Interval = VScroll1
  58. End Sub

  59. Private Sub VScroll1_Scroll()
  60.     Timer1.Interval = VScroll1
  61. End Sub
複製代碼
...
瀏覽完整內容,請先 註冊登入會員
若新密碼無法使用,可能是數據未更新。請使用舊密碼看看。

使用道具檢舉

帖子
25
積分
1 點
潛水值
13500 米
發表於 2018-7-13 12:00 PM|顯示全部樓層
所有積分大於負-100的壞孩子,將可獲得重新機會成為懲罰生,權限跟幼兒生一樣。
關鍵字 「vb gauge」,就可以找到螿多的例子參考了。




使用道具檢舉

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

Powered by Discuz!

© Comsenz Inc.

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