vb坐標(biāo)轉(zhuǎn)換程序設(shè)計(jì)-wenkub
2022-10-18 08:05:05 本頁(yè)面
【正文】 Dim k3, Ex, Ey, Ez, dX3, dY3, dZ3 Dim X3, Y3, Z3, Xx3, Yy3, Zz3 Const PI = Private Sub Check1_Click() If = 1 Then = 5175 ElseIf = 0 Then = 4440 End If End Sub Private Sub cmdBrowFile_Click() = 控制點(diǎn)文件 (*.gcp)|*.gcp|所有文件 (*.*)|*.* = 1 = End Sub Private Sub cmdCalc_Click() Dim s As String, iPos%, i%, iCent! Dim n%, x1(), y1(), x2(), y2() Dim A() As Double, L() As Double, x(1 To 4) As Double Dim At(), Naa(), W() Open For Input As 1 Line Input 1, s n = Val(s) ReDim x1(n), y1(n), x2(n), y2(n) For i = 1 To n Line Input 1, s iPos = InStr(s, ,) x1(i) = Val(Left(s, iPos 1)) s = Mid(s, iPos + 1) iPos = InStr(s, ,) y1(i) = Val(Left(s, iPos 1)) s = Mid(s, iPos + 1) iPos = InStr(s, ,) x2(i) = Val(Left(s, iPos 1)) s = Mid(s, iPos + 1) y2(i) = Val(s) Next i Close 1 39。將轉(zhuǎn)換參數(shù)寫入相應(yīng)文本框 txtK2 = Str(k2 1) e2 = e2 * 180 / PI Dim du%, fen% du = Int(e2): e2 = (e2 du) * 60 fen = Int(e2): e2 = (e2 fen) * 60 e2 = Val(Format(e2, )) e2 = du + fen / 100 + e2 / 10000 txtE2 = Str(e2) = Str(x(1)) = Str(x(2)) End Sub Private Sub cmdCalc2_Click() k2 = Val() e2 = Val() e2 = DoToHu(e2) dX2 = Val() dY2 = Val() x2 = Val() y2 = Val() Xx2 = (k2 + 1) * (x2 * Cos(e2) + y2 * Sin(e2)) + dX2 Yy2 = (k2 + 1) * (y2 * Cos(e2) x2 * Sin(e2)) + dY2 = Format(Xx2, ) = Format(Yy2, ) End Sub Private Sub cmdCalc3_Click() k3 = Val() Ex = Val() Ex = DoToHu(Ex) Ey = Val() Ey = DoToHu(Ey) Ez = Val() Ez = DoToHu(Ez) dX3 = Val() dY3 = Val() dZ3 = Val() X3 = Val() Y3 = Val() Z3 = Val() Xx3 = (k3 + 1) * (X3 * Cos(Ey) * Cos(Ez) + Y3 * Cos(Ey) * Sin(Ez) Z3 * Sin(Ey)) + dX3 Yy3 = (k3 + 1) * (X3 * (Cos(Ex) * Sin(Ez) + Sin(Ex) * Sin(Ey) * Cos(Ez)) + Y3 * (Cos(Ex) * Cos(Ez) + Sin(Ex) * Sin(Ey) * Sin(Ez)) + Z3 * (Sin(Ex) * Cos(Ey))) + dY3 Zz3 = (k3 + 1) * (X3 * (Sin(Ex) * Sin(Ez) + Cos(Ex) * Sin(Ey) * Cos(Ez)) + Y3 * (Sin(Ex) * Cos(Ez) + Cos(Ex) * Sin(Ey) * Sin(Ez)) + Z3 * (Cos(Ex) * Cos(Ey))) + dZ3 = Format(Xx3, ) = Format(Yy3, ) = Format(Zz3, ) End Sub Private Sub cmdClear2_Click() = = = = End Sub Private Sub cmdClear3_Click() = = = = = = End Sub Private Sub cmdconCalc2_Click() k2 = Val() e2 = Val() e2 = DoToHu(e2) dX2 = Val() dY2 = Val() Xx2 = Val() Yy2 = Val() x2 = ((Xx2 dX2) * Cos(e2) (Yy2 dY2) * Sin(e2)) / (k2 + 1) y2 = ((Yy2 dY2) * Cos(e2) + (Xx2 dX2) * Sin(e2)) / (k2 + 1) = Format(x2, ) = Format(y2, ) End Sub Private Sub cmdconCalc3_Click() k3 = Val() Ex = Val() Ex = DoToHu(Ex) Ey = Val() Ey = DoToHu(Ey) Ez = Val() Ez = DoToHu(Ez) dX3 = Val() dY3 = Val() dZ3 = Val() Xx3 = Val() Yy3 = Val() Zz3 = Val() X3 = ((Xx3 dX3) * Cos(Ey) * Cos(Ez) + (Yy3 dY3) * (Cos(Ex) * Sin(Ez) + Sin(Ex) * Sin(Ey) * Cos(Ez)) + (Zz3 dZ3) * (Sin(Ex) * Sin(Ez) + Cos(Ex) * Sin(Ey) * Cos(Ez))) / (k3 + 1) Y3 = ((Xx3 dX3) * Cos(Ey) * Sin(Ez) + (Yy3 dY3) * (Sin(Ex) * Sin(Ey) * Sin(Ez) + Cos(Ex) * Cos(Ez)) + (Zz3 dZ3) * (Sin(Ex) * Cos(Ez) + Cos(Ex) * Sin(Ey) * Sin(Ez))) / (k3 + 1) Z3 = ((Xx3 dX3) * (Sin(Ey)) + (Yy3 dY3) * Sin(Ex) * Cos(Ey) + (Zz3 dZ3) * (Cos(Ex) * Cos(Ey))) / (k3 + 1) = Format(X3, ) = Format(Y3, ) = Format(Z3, ) End Sub Private Sub cmdExit_Click() End End Sub Private Sub Form_Load() = 4440 End Sub 39。矩陣相乘：輸入矩陣或數(shù) Qa、 Qb，自動(dòng)識(shí)別它們的維數(shù)，并輸出它們的乘積 Qn Public Sub Matrix_Multy(Qn, Qa, Qb) Dim ia%, ib%, ic% Dim ai%, bi%, ci% Dim e1 As Boolean, e2 As Boolean, e3 As Boolean, e4 As Boolean, e5 As Boolean, e6 As Boolean, e7 As Boolean On Error Resume Next 39。數(shù)乘以二維矩陣 For ai = LBound(Qb, 1) To UBound(Qb, 1) For bi = LBound(Qb, 2) To UBound(Qb, 2) Qn(ai, bi) = Qa * Qb(ai, bi) Next bi Next ai Else 39。結(jié)果是否是一個(gè)數(shù) errT = U
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1