PDA

View Full Version : رسم نمودار



mehrzad007
دوشنبه 26 آبان 1382, 00:49 صبح
من میخوام یه برنامه بنویسم که یه نمودار رو رسم کنه مثل نمودارهای ریاضی . هیچ کمپونتی ندیدم این کار روبکنه باید از چی استفاده کنم به نظر شما؟

Abbas Arizi
دوشنبه 26 آبان 1382, 01:15 صبح
کنترل MsChart نیاز شما رو بر آورده نمیکنه؟

mehrzad007
دوشنبه 26 آبان 1382, 19:37 عصر
نمیدونم باهاش کار نکردم یه نگاه بهش می کنم . در هر حال ممنونم

روح اله معینی زاده
دوشنبه 26 آبان 1382, 21:16 عصر
دوست گرامی سلام

منظورت از نمودار چیه؟

نمودارهایی که در قسمت آمار ریاضی وجود دارد یا رسم توابع؟ اگر منظورتان اولی است که دوست گرامی آقای Arizi گفته اند و اگر منظورتان دومی است، با یک PictureBox کارتان راه خواهد افتاد. در خصوص نمونه برنامه هم اگر منظورتان رسم نمودار است بگویید تا بفرستم.

با احترام - خدانگهدار.

کم حوصله
سه شنبه 27 آبان 1382, 00:07 صبح
والا من از کریستال ریپورت برای این کارها استفاده می کنم چون اون امکانات رسم چارت نمودار و ... داره :wink: :mrgreen:
خیلی راحت و جالبه و کامله یک امتحانی بکن :mrgreen:

mehrzad007
شنبه 01 آذر 1382, 12:25 عصر
روح الله جان میشه هر دوتا رو برام بفرستی؟
------
شرمنده من یه چند وقتی نبیدم برا همین دیر شد

روح اله معینی زاده
شنبه 01 آذر 1382, 22:11 عصر
سلام دوست گرامی

در خصوص اولی که باید آقای اریضی (اگه اشتباه نوشتم ببخشید) جواب رو بفرستند ولی در خصوص دومی یه مثال ساده نوشتم که ناقابل است و تقدیم می دارم. امیدوارم که مفید واقع شود.

با احترام- خدانگهدار

mehrzad007
سه شنبه 04 آذر 1382, 00:52 صبح
تنکس عزیز

Syamah
جمعه 18 اسفند 1385, 20:28 عصر
من اینکار رو انجام دادم
برای اینکار ابتدا باید با زدن Ctrl+T و سپس Microsoft Script runtime را انتخاب بکنید
سپس یک picturebox با نام PB که Autoredraw آن برابر true هستش همراه با یک TextBox به نام TF و یک Scriptcontrol با نام SC و یک دکمه با نام Run_cmd را در فرم قرار بدهید

حال کد های زیر را عیناً در برنامه قرار بدهید
'______________________________________
'// syamah@gmail.com
Private Sub Run_cmd_Click()
Pb.Cls
Pb.Scale (-100, 100)-(100, -100)
Pb.PSet (-100, F(-100))
For x = -100 To 100
Pb.Line Step(0, 0)-(x, F(x))
Next
Pb.Line (-100, 0)-(100, 0), vbBlue
Pb.Line (0, -100)-(0, 100), vbBlue
End Sub
Function F(x)
e = UCase(tf.Text)
e = Replace(e, "X", x)
F = Sc.Eval(e)
End Function
'______________________________________

حالا برنامه را اجرا کنید سپس در textbox بنویسید X^2 و دکمه Run_cmd را اجرا بکنید.
امیدوارم درست انجام بدهید

mehrzad007
جمعه 18 اسفند 1385, 21:17 عصر
عزیز تاریخ پست رو یه نگاه بنداز . یکشنبه 25 آبان 1382

Syamah
دوشنبه 21 اسفند 1385, 16:08 عصر
یادم رفت که بگم این برنامه ای که نوشتم هر تابعی (توابع دو بعدی ریاضی) را رسم می کند
البته برای int(x) باید بنویسم که تابع را درست رسم نمی کند.:لبخندساده: