投稿日 | : 2005/04/01(Fri) 20:08 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re^7: 円中心点の求め方 |
> に記載しているような1元2次方程式の係数部を入力すると解が求められるような
> プログラム関数が存在するのか?、それとも1元2次方程式と等価のプログラムを
> つくるのか?つくるならどういうつくり方があるのか?といった事を探しておりました。
VBにはそのような関数は用意されていません。(ごく標準的なものだけ)
hhttp://www.bcap.co.jp/hanafusa/VBHLP/Reference.htm
>円弧状の2点(直径でない)なので最終的に解は2個になるのですが、
>プログラムで2個の答えを出す方法が解りません。
それとも複数の戻り値の関数の作り方という質問でしょうか?
それなら
Private Type ResultXY
X As Single
Y As Single
End Type
Private Sub Command1_Click()
Dim RetXY As ResultXY
RetXY = fHoge(2, 2, 2)
MsgBox "X=" & RetXY.X & " Y=" & RetXY.Y
End Sub
Private Function fHoge(ByVal a As Single, _
ByVal b As Single, ByVal c As Single) As ResultXY
fHoge.X = a + b + c
fHoge.Y = a * b * c
End Function
求め方が解っているのなら、自分で関数を作るなり、フリーソフトや市販 等で
そういった関数が用意されているのならそれを利用するという手もありますが。
まずは、自分が理解できる範囲のプログラムで答えを求める事が大事かと思います。
その上で処理速度が遅いとか問題があるなら工夫すればいいのでは。