در برنامه AMS برای طراحی یک آتوران خوب و شکیل و یا طراحی یک برنامه نیاز داریم دستورنویسی را یاد بگیریم. در این پست مطالبی در مورد دستورنویسی و تشخیص دستورات توضیح داده شده است که بسیار مفید بوده و کاربردی می باشند. مثلا شما می خواهید کدی بنویسید که تشخیص بدهد شما کدام یک از دو Radio button ها را انتخاب نموده اید. برای این کار شما نیاز به دستورنویسی دارید که در ادامه مطلب به آن اشاره می کنیم.

در برنامه AMS برای طراحی یک آتوران خوب و شکیل و یا طراحی یک برنامه نیاز داریم دستورنویسی را یاد بگیریم. در این پست مطالبی در مورد دستورنویسی و تشخیص دستورات توضیح داده شده است که بسیار مفید بوده و کاربردی می باشند. مثلا شما می خواهید کدی بنویسید که تشخیص بدهد شما کدام یک از دو Radio button ها را انتخاب نموده اید. برای این کار شما نیاز به دستورنویسی دارید که در ادامه مطلب به آن اشاره می کنیم.

دستورنویسی ساده
در ابتدا به دستورنویسی ساده می پردازیم که با انجام کاری ، آن دستور برای ما اجرا می گردد. تعدادی از دستورنویسی های ساده در زیر نوشته شده است. (لطفا کد ها را در نوت پد کپی و سپس در نرم افزار قرار دهید)
بسته شدن نرم افزار: Application.Exit();
sleep شدن نرم افزار: Application.Sleep(100);
جابجا کردن برچسب: Label.SetPos(, 25, 198);
از صفحه به صفحه دیگر رفتن: Page.Jump("Page2");
بارگذاری صفحات وب: Web.LoadURL(, "http://google.com");
این نوع از دستورنویسی ها بیش ترین کاربردها را برای ما دارند. به دو دلیل: دلیل اول اینکه این ها بیش ترین استفاده را در آتوران ها دارند و دوم اینکه با همین کدها می توان دستورنویسی طولانی نوشت. برای دستور نویسی ساده لازم است روی شی مورد نظر دوبار کلیک کرده و به تب Script بروید. حال در بالا چند تب دیگر مشاهده می کنید. مثلا در شی xbutton تب های زیر مشاهده می شوند. سپس کد را به دلخواه در آنجا وارد نمایید.
On Click: یعنی زمانی که روی شی مورد نظر خود کلیک کردید.
On Right-Click: یعنی زمانی که روی شی مورد نظر راست کلیک کنید.
On Enter: یعنی زمانی که موس روی شی مورد نظر قرار بگیرد.
On Leave: یعنی زمانی که موس روی شی مورد نظر قرار بگیرد و از محیط آن خارج شود.
مثلا اگر کد Application.Exit(); را در تب On Click در یک xbutton وارد نماییم ، هنگام کلیک بر روی xbutton ، نرم افزار بسته می شود.
دستورنویسی طولانی
در دستورنویسی طولانی ما دو یا چند دستور را در یک دستور می نویسیم اما این دستورنویسی باید معنا دار باشد. مثلا معنی کد زیر این است "متنی که در شی Input1 نوشته شده است را در شی Web1 بارگذاری کن" و یا به عبارتی دیگر "وب را در Web1 بارگذاری کن باتوجه به متن Input1.
Web.LoadURL("Web1", Input.GetText("Input1"));
دستورنویسی با استفاده از تشخیص دستور
فرض کنید که ما دو تا شی Radiobutton و یک xbutton داریم. می خواهیم زمانی که یکی از Radiobutton ها را انتخاب و سپس روی xbutton کلیک کردیم ، تشخیص دهد که ما کدام یک از آن ها را انتخاب کرده ایم و باتوجه به آن برای ما دستوری انجام دهد. همچین زمانی لازم است از کد زیر استفاده نماییم. (کد زیر برای یک Radiobutton می باشد.)
x=RadioButton.GetChecked("RadioButton1");
if (x==true) then
Input.SetText("Input1","edris1");
end
برای دو Radiobutton
x=RadioButton.GetChecked("RadioButton1");
if (x==true) then
Application.Exit();
else
Dialog.Message("123", "123", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
برای سه Radiobutton
x=RadioButton.GetChecked("RadioButton1");
y=RadioButton.GetChecked("RadioButton2");
z=RadioButton.GetChecked("RadioButton3");
if (x==true) then
Application.Exit();
end
if (y==true) then
Dialog.Message("123", "123", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
if (z==true) then
Dialog.Message("ABC", "ABC", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
اما آیا برای همه اشیا در برنامه AMS این طور است؟
این کدها فقط برای شی های Radiobutton و CheckBox استفاده می شود. برای شی کمبوباکس نیاز به کد زیر دارید.
برای کمبوباکس با 1 آیتم
if (e_Selection == 1) then
Application.Exit();
end
برای کمبوباکس با 2 آیتم
if (e_Selection == 1) then
Application.Exit();
elseif (e_Selection == 2) then
Dialog.Message("Notice", "Your message here.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
برای کمبوباکس با 3 آیتم
if (e_Selection == 1) then
Application.Exit();
elseif (e_Selection == 2) then
Dialog.Message("Notice", "1234.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
elseif (e_Selection == 3) then
Dialog.Message("Notice", "abcd", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
برچسب:
نویسنده: صلاح الدین کوتی