شنبه بیست و ششم اسفند 1385 ساعت 17:39
نحوه طراحی و ایجاد نمودار
»
در واقع نمودار یا هنمان ( Chart ) بخشی از گزارش به حساب می آید و می تواند یکی از روشهای بسیار موثر در انتقال نتیجه به کاربران باشد . به خصوص در مورد برنامه های آماری که نیاز به نمودار اجتناب ناپذیر است . در ویژوال بیسیک هم کنترلی برای این عمل در نظر گرفته شده که می توانید از لیست کامپوننت ها با تیک زدن گزینه ( Microsoft Chart Control 6.0 OLEDB ) به جعبه ابزار خود اضافه کرده و از آن به روشی که گفته خواهد شد استفاده کنید .
»
پس از انتخاب و قرار دادن یک نمودار روی فرم شکل زیر را خواهید داشت که در واقع شکل خام و اولیه نمودار شما می باشد . البته این ستونها پیش فرض بوده و باید شما آنرا تنظیم و مقداردهی کنید .»
برای تنظیم نمودار به روش دستی شما میتوانید از قسمت Custom مربوط به نمودار استفاده کنید . برای این کار در قسمت Properties نمودار بر روی گزینه Custom کلیک کنید و یا بر روی نمودار کلیک راست کرده و گزینه Properties را انتخاب کنید تا کادری به شکل زیر نمایش داده شود .
»
همانطور که در تصویر مشاهده می کنید با استفاده از این دیالوگ شما به راحتی میتوانید تنظیمات دلخواه خود را بر روی نمودار اعمال کنید . برای همین به نظر من این قسمت نیازی به توضیح ندارد چون بستگی به سلیقه و حسب نیار شما باید این قسمت تغییر کند .»
تنظیم با روش کد نویسی : فرض کنید شما در نمودار خود دو ستون دارید و می خواهید نام یکی را Max ( بیشترین ) و نام دیگری را Min (کمترین) بگزارید و هر کدام از آنها را مقداردهی کنید. برای این کار باید به صورت زیر عمل نمایید ._
ابتدا با استفاده از دستورات زیر ستون و سطرهای نمودار خود را تنظیم می کنید :MSChart1.RowCount = 3
MSChart1.ColumnCount = 1
_
سپس هر کدام از ستون که قصد دارید عنوان یا مقدار آن را تغییر دهید ابتدا روی آن با مقدار دهی شماره ستون سوئیچ می کنید و سپس مقدار مورد نظر خود را اعمال می کنید :MSChart1.Row = 1
MSChart1.RowLabel = "Max"
MSChart1.Data = 50
در این دستور ابتدا اشاره گر بر روی ستون یک قرار می گیرد و سپس عنوان یا زیرنویس آن را به Max تغییر می دهد و پس از آن مقدار 50 را برای آن اعمال می کند .
»
ذخیره کردن نمودار به صورت تصویر : برای این که نمودار به دست آمده را به صورت یک تصویر ذخیره کرد تا بتوان از آن در جاهای مختلفی استفاده نمود با از کد زیر استفاده نمود : ()Private Sub SaveChart_Cmd_ClickWith CmDialog1
ShowSave .
If Trim(.FileName) <> "" Then
MSChart1.EditCopy
"SavePicture Clipboard.GetData, .FileName & ".jpg
" vbInformation, "Save Chart" ," نمودار شما ذخیره شد " MsgBox
End If
End With
End Sub
»
شما عزیزان می توانید برای دریافت برنامه نمونه روی این لینک کلیک کنید ._
در سایه حق موفق و پیروز باشید .نوشته شده توسط Ali Media | لينك ثابت | موضوع: پایگاه داده