VBプログラマ質問スレ(6.0以前) Part40
■ このスレッドは過去ログ倉庫に格納されています
0156デフォルトの名無しさん
05/02/07 16:17:53いちおう線はつながりますけど、泥縄式に調整したので自信なくて。
pi = 4 * Atn(1)
r = 8 ' 半径
x = 15 ' 開始X座標
y = 40 ' 開始Y座標
w = 300 ' 幅
h = 200 ' 高さ
Line (x + r, y)-Step(w - 2 * r - 1, 0)
Line (x + r, y + h)-Step(w - 2 * r - 1, 0)
Line (x, y + r)-Step(0, h - 2 * r - 1)
Line (x + w - 1, y + r)-Step(0, h - 2 * r - 1)
Circle (x + r + 1, y + r + 1), r, , pi * 0.5, pi
Circle (x + w - r - 1, y + r + 1), r, , 0, pi * 0.5
Circle (x + r + 1, y + h - r - 1), r, , pi, pi * 1.5
Circle (x + w - r - 1, y + h - r - 1), r, , pi * 1.5, pi * 2#
■ このスレッドは過去ログ倉庫に格納されています