sajadkkVB
چهارشنبه 23 شهریور 1384, 10:57 صبح
سلام :چشمک: :تشویق: :تشویق:
من تازه عضو این سایت شده ام من خودم مدتها روی این موضو ع کار کردم البته نه روی رسم نمودار روی 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
سوالی داشتید بپرسید.
تا بعد :بوس:
من تازه عضو این سایت شده ام من خودم مدتها روی این موضو ع کار کردم البته نه روی رسم نمودار روی 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
سوالی داشتید بپرسید.
تا بعد :بوس: