VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日: 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

求め方が解っているのなら、自分で関数を作るなり、フリーソフトや市販 等で
そういった関数が用意されているのならそれを利用するという手もありますが。

まずは、自分が理解できる範囲のプログラムで答えを求める事が大事かと思います。
その上で処理速度が遅いとか問題があるなら工夫すればいいのでは。


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- VBレスキュー(花ちゃん) - - Web Forum -