شنبه بیست و ششم اسفند 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_Click

                   With 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 | لينك ثابت | موضوع: پایگاه داده