→ MOONRAKER:這段code真正的問題是它過時15年了 12/05 02:58
→ MOONRAKER:circle? gosub?（現在才知道VB6還真的留著GOSUB） 12/05 03:02
推 fumizuki:GET_DATA: ← 必須要有冒號 12/05 19:41
推 fumizuki:程式開頭加 Option Explicit ，要求每個變數都必須宣告 12/05 19:43
→ fumizuki:建議每個變數都要宣告其變數型態 12/05 19:43
可以請哪位好心人幫我看看下面這段程式碼錯在哪裡嘛?
我是個新手，輸入這些東西後卻沒有跑出想要的圖案
Private Sub CMD2_2_5_1_Click()
Dim PI As Double
PI = Atn(1) * 4
n = 7
K = 5
r = 90
R1 = 100
cx = 360
cy = 240
Dim MX(300), MY(300)
GoSub GET_DATA
For I = 1 To POS
Circle (MX(I), MY(I)), R1
Next
Exit Sub
GET_DATA
L = 2 * r * Sin(PI / n): D = L / K
POS = 0
For TH = 0 To 2 * PI Step 2 * PI / n
A1 = TH + PI / n
x = cx + r * Sin(A1)
y = cy + r * Cos(A1)
For I = 0 To K - 1
POS = POS + 1
MX(POS) = x + I * D * Sin(A1 + PI / 2 + PI / n)
MY(POS) = y + I * D * Cos(A1 + PI / 2 + PI / n)
Next
Next
Return
End Sub
感激不盡。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.113.51.9