請問一下~~~
如何在將val( )的值帶入sub副程式內運算..然後將所算出來的值再帶入原執行程式內畫線呢~~謝謝 :＞
ps:我是用vb來寫的,以下是程式檔,我把他畫在picture box(
named pb),有兩個TEXTBOX(named txt1 and txt2,填寫角度θ和Φ )因為圖形畫不出來...謝謝
Private Sub draw_Click()
Call cube(xa, ya, xb, yb, xc, yc, xd, yd, xe, ye, xf, yf, xg, yg, xb, yb)
θ = Val(txt1)
Φ = Val(txt2)
pb.Line (xa * 1000, ya * 100)-(xb * 1000, yb * 1000)
pb.Line (xb * 1000, yb * 100)-(xc * 1000, yc * 1000)
pb.Line (xc * 1000, yc * 100)-(xd * 1000, yd * 1000)
pb.Line (xd * 1000, yd * 100)-(xa * 1000, ya * 1000)
pb.Line (xa * 1000, ya * 100)-(xe * 1000, ye * 1000)
pb.Line (xb * 1000, yb * 100)-(xf * 1000, yf * 1000)
pb.Line (xc * 1000, yc * 100)-(xg * 1000, yg * 1000)
pb.Line (xd * 1000, yd * 100)-(xh * 1000, yh * 1000)
pb.Line (xe * 1000, ye * 100)-(xf * 1000, yf * 1000)
pb.Line (xf * 1000, yf * 100)-(xg * 1000, yg * 1000)
pb.Line (xg * 1000, yg * 100)-(xh * 1000, yh * 1000)
pb.Line (xh * 1000, yh * 100)-(xe * 1000, ye * 1000)
End Sub
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Public Sub cube(ByVal xa As Double, ByVal ya As Double, ByVal xb As Double, ByVal yb As Double, ByVal xc As Double, ByVal yc As Double, ByVal xd As Double, ByVal yd As Double, ByVal xe As Double, ByVal ye As Double, ByVal xf As Double, ByVal yf As Double, ByVal xg As Double, ByVal yg As Double, ByVal xh As Double, ByVal yh As Double)
Dim θ As Double
Dim Φ As Double
xc = Cosθ * SinΦ
yc = -Sinθ
xb = 2 * CosΦ + Cosθ * SinΦ
yb = -Sinθ
xa = 2 * CosΦ + 3 * Sinθ * SinΦ + Cosθ * SinΦ
ya = 3 * Cosθ - Sinθ
xd = 2 * Sinθ * SinΦ + Cosθ * SinΦ
yd = 2 * Cosθ - Sinθ
xg = 0
yg = 0
xf = 2 * CosΦ
yf = 0
xe = 2 * CosΦ + 3 * Sinθ * SinΦ
ye = 3 * Cosθ
xh = 2 * Sinθ * SinΦ
yh = 2 * Cosθ
End Sub