معادله خط

[mehdiafzali]

برنامه اي كه بشه مختصات x , y دو نقطه از يك خط را گرفته و معادله خط را چاپ كند چطوری می شه حلش کنیم. vb
ممنون

 

[the_king]

برنامه اي كه بشه مختصات x , y دو نقطه از يك خط را گرفته و معادله خط را چاپ كند چطوری می شه حلش کنیم. vb
ممنون

Private Sub Form_Load()
    Dim x1 As Integer, y1 As Integer, x2 As Integer, y2 As Integer
    x1 = Val(InputBox("Please enter x1 :"))
    y1 = Val(InputBox("Please enter y1 :"))
    x2 = Val(InputBox("Please enter x2 :"))
    y2 = Val(InputBox("Please enter y2 :"))
    AutoRedraw = True
    ScaleMode = vbPixels
    Line (x1, y1)-(x2, y2), vbBlack
End Sub

به این نکته توجه کنید که در گرافیک کامپیوتری جهت محور y بر عکس محور y ای که باهاش آشنا هستید
از بالا به پایین زیاد میشه. بالای صفحه نمایش 0 ئه و هر چی پایین تر میاد y بیشتر میشه.
اگر خواستید می توانید با دستور Scale این شیوه پیشفرض رو عوض کنید :

Private Sub Form_Load()
    Dim x1 As Integer, y1 As Integer, x2 As Integer, y2 As Integer
    x1 = Val(InputBox("Please enter x1 :"))
    y1 = Val(InputBox("Please enter y1 :"))
    x2 = Val(InputBox("Please enter x2 :"))
    y2 = Val(InputBox("Please enter y2 :"))
    AutoRedraw = True
    ScaleMode = vbPixels
[B][COLOR="Blue"]    Scale (0, ScaleHeight)-(ScaleWidth, 0)[/COLOR][/B]
    Line (x1, y1)-(x2, y2), vbBlack
End Sub