کمک در رسم نمودار

[ebrahimashori]

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

[ebrahimashori]

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

[mmssoft]

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

نام : 3D Charting

[Hamid Reza Rahimi]

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

[relax_cp]

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

[returnx]

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

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

Me.AutoRedraw = True

[star_rh]

خاصیت 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 محاسبه كنيد
كافي مجموع مساحتهاي مستطيلهاي سفيد رو محاسبه كنيد.