- ベストアンサー
VB6で座標を求める方法
- VB6で二点の座標から距離を求める方法を教えてください。
- 斜辺から指定された長さを引いた際の終点の座標を求める方法を教えてください。
- VB6で座標を求める際にサンプルコードを提供していただけると助かります。
- satoshi777
- お礼率43% (95/216)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
関連するQ&A
- ２点間を通り半径rの中心座標を求めるには
はじめまして。 数学が苦手でなんとか克服していきたいと考えています。 早速ですが、２点間を通り半径rの中心座標を求める方法についてお聞きしたいです。 他サイト等で上記の求め方を検索し、連立方程式を用いて解く方法を見つけました。 始点(Sx,Sy) 終点(Ex,Ey) 半径r 中心座標(Px,Py) (Px - Sx)^2 + (Py - Sy)^2 = r^2 (Px - Ex)^2 + (Py - Ey)^2 = r^2 √を使用して上記の式を展開していきますが、途中で混乱してしまいます。 すみませんが、上記の中心座標を求めるための展開式を教えて頂けませんか？ 以下に条件を記載しました。 始点(Sx,Sy) 終点(Ex,Ey) 半径rとして、中心座標(Px,Py)を求める展開式のご教授をよろしくお願い致します。
- 締切済み
- 数学・算数
- VBA 一致するセル同士を線で結ぶ
ある列について（ここでは8列目）、あるセルを検索元セルとして、検索先のセルと一致したら検索元セルと検索先で一致したセルとを線（オートシェイプ）でつなぐようなVBAコードを書いています。 しかし何度やっても上手くセルの内容が一致するセル同士に線が引かれません。どこが悪いでしょうか？ ちょっとせっぱつまっていて分かりづらい質問になっていますが、助けてください。お願いします。 Sub tameshi() Dim i, j As Integer For i = 1 To 100 If Cells(i, 8) = "" Then Else For j = i + 1 To 99 If Cells(i, 8).Text = Cells(j, 8).Text Then ' 横棒を引くための設定 ' 横線の終点はさらにその隣のセルを指定。 sx = Cells(i, 9).Left sy = Cells(i, 9).Top + 6 ex = Cells(i, 10).Left ' sx2に指定する座標 ey = Cells(i, 10).Top + 6 ' sy2に指定する座標 ' 縦棒を引くための設定 sx2 = Cells(i, 10).Left ' ここには上のexで指定した座標を指定 sy2 = Cells(i, 10).Top + 6 ' ここには上のeyで指定した座標を指定 ex2 = Cells(i + j, 10).Left ' 下のex3で指定した座標を指定 ey2 = Cells(i + j, 10).Top + 6 ' 下のey3で指定した座標を指定 ' 横棒を引くための設定 ' 実際にはつながれる先のセル番号（一致するIDの隣のセル）をexとeyに指定。 ' 横線の終点はさらにその隣のセルを指定。 sx3 = Cells(i + j, 9).Left sy3 = Cells(i + j, 9).Top + 6 ex3 = Cells(i + j, 10).Left ' ex2に指定する座標 ey3 = Cells(i + j, 10).Top + 6 ' ey2に指定する座標 ActiveSheet.Shapes.AddConnector(msoConnectorStraight, sx, sy, ex, ey).Select ActiveSheet.Shapes.AddConnector(msoConnectorStraight, sx2, sy2, ex2, ey2).Select ActiveSheet.Shapes.AddConnector(msoConnectorStraight, sx3, sy3, ex3, ey3).Select Else End If Next j End If Next i End Sub
- ベストアンサー
- Visual Basic
- 楕円と直線の交点を求めるには
<楕円> 原点座標：(DX,DY) X軸の半径：a Y軸の半径：b 角度：なし <直線> 始点座標：(SX,SY) 終点座標：(EX,EY) この２つの図形が交わるかどうか、また交わる場合にはその交点の座標を知りたいのです。 「楕円の方程式」「直線の方程式」「解の公式」を使用して手で計算することはできるのですが、 計算式として表すことができません。(中学レベル程度の知識なので・・・) EXCELで数式を設定したいので、上の変数名を使用した具体的な計算式を教えていただければありがたいです。 よろしくお願いいたします。
- ベストアンサー
- 数学・算数
- 弧の角度から座標を求めるには
何度も質問させていただいて申し訳ないです。 教えてください。 VB6にて、中心点と始点の座標、弧の長さが与えられています。 中心点(488,-680)、始点(510,-682)、弧の長さが478というような 感じです。 弧の回転方向はこの場合は反時計周りです。 このような条件で終点となるX,Y座標を求める場合はどのような計算式 となるのでしょうか？ ご教授下さい。
- ベストアンサー
- Visual Basic
- 線を自由に引き、かつ、座標を保存
簡単なものでいいんですが、始点と終点を、マウスクリックなどで指定してラインを引き、かつ、できれば、その座標を保存してくれるようなサンプルソースなどはないでしょうか。（JavaScript だと、ファイルに保存はできませんよね) 何をしたいかというと、現在でている、htmlのページの上にあたりとなるラインを引き、できれば、次回表示じに、そのラインが再現できれば理想的です。
- 締切済み
- JavaScript
- 弧の長さから角度を取得するには。
度々お聞きします<(_ _)> すいません、タイトル間違ってました。 座標を取得ではなく、角度です。 VB6にてCADデータを作成しております。 弧の長さから角度を取得したいのですが、躓いてます。 弧 = (2 * 3.14 * R) * ((終点角度 - 始点角度) / 360) 弧 = 弧 - 指定距離 既存の弧の長さを取得し、そこから指定された長さを引いて、 目的とする長さ（再描画）を得られました。 しかし、ここから、さらに、終点角度を再計算する必要があります。 始点はそのままで終点の角度が変わるはずです。 この場合、終点を求めるにはどのようにすればよいでしょうか？ アドバイスよろしくお願いします。
- ベストアンサー
- Visual Basic
- 線描画の座標計算で困っています。
プログラムにて、仮想画面上に始点から終点までの線を引き、一部分を実画面に描画するプログラムを作っているのですが、機械の性能上の制約で処理が遅くなってしまいました。 仮想画面を使用せずに、計算だけで線を描画させようと思ったのですが、よい処理が思い浮かびませんでした。 そこで質問なのですが、始点から終点までの線のうち決められた範囲に入る部分だけを描画するための座標計算などの解説、もしくはサンプルがあれば教えて頂けないでしょうか？ よろしくお願いします。
- 締切済み
- その他（プログラミング・開発）
- 2点間の距離の求め方
学校では │終点の座標-始点の座標│ 塾では 大-小 と習ったのですが、混乱してしまいました。たぶん同じ事だとは思うのですが、どちらがいいのでしょうか。亦この二つの考えたかは、それぞれ2点間の距離の求めるすべての問題に通用するのでしょうか。 僕は、日常学習にも使っている参考書に│終点の座標-始点の座標│と書いてあったので、これを使いたいですが、問題によってはどこが終点でどこが始点か混乱してしまいます。
- ベストアンサー
- 数学・算数
- 四角形の対角点 no2
老害と算数嫌いで・・・ ベーシックコードで ２点間(sx,sy)～(ex,ey)を対角線とする正四角形です。 他の点 (x0,y0),(x1,y1)を求めるコードを教えてください。
- ベストアンサー
- Visual Basic
- 角度を求めたいのですが。
よろしくお願いします。 先日も角度についての質問をさせていただいたのですが、 実際にプログラムしてると問題が出てきましたので、もう一度お助け願います。 VB6にて、角度を求めたいのですが、具体的に言いますと、 CADの座標にて、中心点とその始点、終点が条件として与えられます。 そこから、始点終点の二点間の角度を求めたいのです。その後、 何度のとこが始点で、何度のとこが終点と求めたいのです。 良い方法ありましたら、ご教授願います。 よろしくお願い致します。
- ベストアンサー
- Visual Basic
お礼
ありがとうございました。解決しました。