در این تمرین یک شی از کلاس فیل elephant نمونه سازی می شود و ویژگی های ان تنظیم می شود.
1.برنامه arcmap را باز کنید و سپس ex09b.mxd را انتخاب کنید.
2.روی addelephant راست کلیک کنید و view source را انتخاب کنید.
3.در ThisDocument، در رویداد addelephant، کد زیر را وارد کنید.
4.برای ساخت شی از کلاس elephant، کد زیر را وارد کنید.
set theelephant = new elephant
5.عبارت theelephant. را تایپ کنید و ویژگی ها و تابع زیر باز می شود.
6. برای تنظیم مقدار نام elephant، کد زیر را وارد کنید تا با استفاده از جدول محاوره نام elephant گرفته شود.
theelephant.name = inputbox ("Enter name:")
7. مقدار سن elephant با استفاده از جعبه محاوره به صورت زیر مقدار دهی کنید.
theelephant.age = inputbox("Enter age:")
8. برای نشان دادن نام و سن elephant، کد زیر را وارد کنید.
9.در انتهای رویه addelephant، قبل از end sub، کد زیر را وارد کنید.
theelephant.trumpet
10.visual basic editor را ببندید.
11. در نوار ابزار Arcmap، بر روی addelephant کلیک کنید.
12.در جعبه ورودی، عبارت jack را تایپ کنید و ok را کلیک کنید.
13.در جعبه ورودی دوم، سن را 35 وارد کنید و ok را کلیک کنید. پس از این کلیک، جعبه محاوره زیر ظاهر می شود.
14.Ok را کلیک کنید و صدای فیل شنیده شود.
15. اگر می خواهید تغییرات را در برنامه ذخیره کنید، روی save کلیک کنید.
