VB 如何做出像引擎轉速表的那種感覺

頁: [1]

beyle 發表於 2017-3-21 07:55 AM

我想要做一個量化的指標,
圖型是用類似引擎轉速表圓形的模式,
不知那位高手指導一下....<div></div>

tryit244178 發表於 2017-3-22 06:27 AM

噢…不讓我貼連結，那貼關鍵字給你
你搜尋一下【 VB 6 】指針式時鐘-動態指針的製作原理

Jeepluo 發表於 2017-4-8 09:00 PM

程式碼太長了，可以用「Analogue Clock」關鍵字找到圖及範例
就不知道是否你要的部份了

Waroger 發表於 2018-6-8 12:54 PM

10幾年前用VB6寫的指針事時鐘，你參考看看
'表單放置1個Timer及1個VScrollBar
Const Pi = 3.14159265358979
Dim X&, Y&, R&, Hh%, Mm%, Ss%
Private Sub Form_Load()
Dim A&, B&, I%, J$, W%, H%

X = ScaleWidth \ 2: Y = ScaleHeight \ 2
R = X: If Y < X Then R = Y
R = R - 120
AutoRedraw = True: DrawWidth = 1: ForeColor = 0
J = 255
For I = R To R + 90
      Circle (X, Y), I, RGB(J, 0, J)
      J = J - 1
Next
J = 1
For I = 210 To 540 Step 30
      W = TextWidth(J) \ 2
      H = TextHeight(J) \ 2
      CurrentX = X - Sin(I / 180 * Pi) * (R - W * 2) - W
      CurrentY = Y + Cos(I / 180 * Pi) * (R - H * 2) - H
      Print J: J = J + 1
Next
R = R - H * 3
Picture = Image
VScroll1.Max = 1000: VScroll1.Min = 10: VScroll1 = 1000
Hh = Hour(Now): Mm = Minute(Now): Ss = Second(Now)
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Dim S%, I%, J%

Cls

DrawWidth = 4
S = ((Hh Mod 12) + Mm / 60) * 30 + 180
I = X - Sin(S / 180 * Pi) * R * 0.6
J = Y + Cos(S / 180 * Pi) * R * 0.6
Line (X, Y)-(I, J)
DrawWidth = 2
S = Mm * 6 + 180
I = X - Sin(S / 180 * Pi) * R * 0.8
J = Y + Cos(S / 180 * Pi) * R * 0.8
Line (X, Y)-(I, J)
DrawWidth = 1
S = Ss * 6 + 180
I = X - Sin(S / 180 * Pi) * R
J = Y + Cos(S / 180 * Pi) * R
Line (X, Y)-(I, J)
Ss = Ss + 1
If Ss > 59 Then Mm = Mm + 1: Ss = 0
If Mm > 59 Then Hh = Hh + 1: Mm = 0
If Hh > 12 Then Hh = 1

End Sub

Private Sub VScroll1_Change()
Timer1.Interval = VScroll1
End Sub

Private Sub VScroll1_Scroll()
Timer1.Interval = VScroll1
End Sub
...<div class='locked'><em>瀏覽完整內容，請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div>

virdoll 發表於 2018-7-13 12:00 PM

關鍵字「vb gauge」，就可以找到螿多的例子參考了。<br><br><br><br><br><div></div>

頁: [1]

伊莉討論區's Archiver

VB 如何做出像引擎轉速表的那種感覺