رسم نمودار با استفاده از نقطه یا دایره

[sajadkkVB]

سلام :چشمک: :تشویق: :تشویق:
من تازه عضو این سایت شده ام من خودم مدتها روی این موضو ع کار کردم البته نه روی رسم نمودار روی textbox ی که یه فرمول ریاضی را بگیره و ریشه یابی کنه ونمودارش را رسم کنه که جواب را پیدا کردم
اما در مورد رسم نمودار باید بگم روش درست روش نقطه یابی است هر نقطه در ویژوال به صورت
(pset(x,y تعریف میشود که xهمان xمعروف وyهم میتوان (y=f(x در نظر گرفت که با استفاده از یک حلقه for

میشود روی فرم و یا picturebox نمودار را کشید.
بهتر است که واحد فرم به سانتیمتر تبدیل بشودو چون یک فرم تمام صفحه 20*27 cm است پس میتوانیم
مرکز مختصات را (10و13.5)در نظر بگیریم ]

Private Sub Command1_Click()
For x = -15 To 15 Step 0.0001
y = Sin(x)
form1.PSet (13.5 + x, 10 - y)
Next x
End Sub

Private Sub Form_Load()
Form1.ScaleMode = 7 '''''''''cm ''''''
Form1.WindowState = 2
End Sub
در ضمن روش جالبتر برای رسم نمودار استفاده از دایره های ریز به جای نقطه است که در این روش دایره ها باید به اندازه ای به هم نزدیک باشند که در مجموع تشکیل خط بدهند و نمودار را رسم کند البته برتری این روش به روش نقطه این است که در آن می شود ضخامت نمودار را با استفاده از شعاع دایره تعیین کرد
یعنی هر چه شعاع دایره بیشتر باشد ضخامت نمودار بیشتر است.
این هم یه مثال دیگه :

Private Sub Command1_Click()
For x = -15 To 15 Step 0.0001
y = Sin(x)
Circle (13.5 + x, 10 - y), 0.05 ' sho'ae daiereh
Next x
End Sub

Private Sub Form_Load()
Form1.ScaleMode = 7 '''''''''cm ''''''
Form1.WindowState = 2

End Sub
سوالی داشتید بپرسید.
تا بعد :بوس:

[bachemosbat]

اینطوری خیلی کند عمل می کنه و می شه توسط اکتیو ایکس های آماده همین کار رو کرد