کمک در رسم نمودار [بایگانی]

ebrahimashori

چهارشنبه 07 مرداد 1388, 10:07 صبح

سلام
می خواستم با استفاده از داده x و y یک نمودار خطی رسم کنم.
در واقع هدف برنامه من محاسبه مساحت زیر نمودار هست و می خوام علاوه بر اون یک نمودار هم رسم کنم.
به نظر خودم باید از تابع Pset استفاده کنم ولی وقتی که یک فرم دیگر روی فرم قرار می گیرد هر چیزی که روی فرم رسم بشه پاک می شه . این روش فقط برای آزمایش خوبه . آیا راه بهتری هست (ترجیها ساده)
لطفا در صورت امکان راهنمایی بفرمایید.

ebrahimashori

چهارشنبه 07 مرداد 1388, 13:10 عصر

من تو سایت گشتم و چیزی پیدا نکردم. لطفا اگر امکانش هست راهنمایی کنید.:ناراحت:

mmssoft

چهارشنبه 07 مرداد 1388, 13:40 عصر

دوست عزیز من یه OCX در این مورد سراغ دارم.
کارش رسم چارت های فوق حرفه ای است.

نام : 3D Charting

Hamid Reza Rahimi

سه شنبه 22 دی 1388, 14:49 عصر

اقا لطف کردین من هم دان کردم برم ببینم چیه

relax_cp

پنج شنبه 21 مرداد 1389, 08:44 صبح

منم گرفتم ولی ظاهرا رجیستر نشده. ما از کامپوننت های رجیستر شده احتیاج داریم

returnx

دوشنبه 25 مرداد 1389, 00:25 صبح

سلام
می خواستم با استفاده از داده x و y یک نمودار خطی رسم کنم.
در واقع هدف برنامه من محاسبه مساحت زیر نمودار هست و می خوام علاوه بر اون یک نمودار هم رسم کنم.
به نظر خودم باید از تابع Pset استفاده کنم ولی وقتی که یک فرم دیگر روی فرم قرار می گیرد هر چیزی که روی فرم رسم بشه پاک می شه . این روش فقط برای آزمایش خوبه . آیا راه بهتری هست (ترجیها ساده)
لطفا در صورت امکان راهنمایی بفرمایید.
خاصیت AutoRedraw فرم رو برابر true قرار بده دیگه Pset پاک نمیشه.

Me.AutoRedraw = True

star_rh

دوشنبه 03 آبان 1389, 10:42 صبح

خاصیت AutoRedraw فرم رو برابر true قرار بده دیگه Pset پاک نمیشه.

Me.AutoRedraw = True
Dim sqLen As Long
Dim sqF As Long

Scale (0, -5)-(10, 5)

For i = 0 To 10 Step 0.005
Line (i, Sin(i))-(i, 1)
Next

For i = 0 To 10 Step 0.1
Line (i, Sin(i))-(i + 0.1, 1), vbWhite, B
Next

با اين كد ميتونيد مساحت زير نمودار Sin رو در بازه 0 و 5 محاسبه كنيد
كافي مجموع مساحتهاي مستطيلهاي سفيد رو محاسبه كنيد.