Fa تشخیص رزولوشن تصویر

[MahmoodM30]

ارور میده و از برنامه میندازه بیرون
راه های مختلفی که خودم استفاده کردم همین مشکل را داشت ولی اون ها اصلا اصولی نبودن
و فکر کنم مشکل مربوط به خط
set$=mwr$+'|'+mhr$+'|'+chr(44)
هست و باید محتوای متغیر set$ را یه چیزه خواص بزاریم... راستی chr(44) برای چی هست؟

درست کار میکنه تو باید دوتا ادیت باکس بزاری به اسم های mwr و mhr

بعد کد ( 44) chr برای ایجاد ( ' ) هست.

من خودم تست کردم ومشکلی هم نداره

 

[hrs192]

سلام .. جمعه بخیر
استاد حق با شما بود ردیف کارکرد مرسی
پروژه من چند تا پیج داره
حالا اگر سیستم تشخیص رزولوشن را بزارم تو مستر پیج ، چطور میتونم اسکریپت مربوط را با شروع برنامه ران کنم ؟
یا راهی داره که وقتی تویه سایر پیج ها هستیم اسکریپت خروج من در مستر پیج به ادیت باکس های پیج اول دسترسی داشته باشه..

 

[MahmoodM30]

سلام دوست عزیز کافیه شما یه اسکریپت و دوتا ادیت باکس و یه دکمه خروج رو توی مستر پیج بسازید

و بعد داخل اسکریپت کد زیر

WR=ScreenWidth()
HR=ScreenHeight()
*****************
size=ScreenWidth()-ScreenHeight()
If (size>256) Then
  set$='1360|768|'
  PluginSet("MiscY","set$")
  PluginRun("MiscY","SetResolution")
  SysCommand("ResizeWindow","1360,768")
  SysCommand("CenterWindow","")
  RunScript("Move Object Wide")
Else
  set$='1024|768|'
  PluginSet("MiscY","set$")
  PluginRun("MiscY","SetResolution")
  SysCommand("ResizeWindow","1024,768")
  SysCommand("CenterWindow","")
  RunScript("Move Object Height")
End
SaveVariable("WR","WR")
SaveVariable("HR","HR")

و برای دکمه خروج این کد

LoadVariable("WR","WR")
DisplayValue("Master Layer::MWR","WR")
LoadVariable("HR","HR")
DisplayValue("Master Layer::MHR","HR")
set$=MWR$+'|'+MHR$+'|'+CHR(44)
PluginSet("MiscY","set$")
PluginRun("MiscY","SetResolution")
Exit()

و برای پیج این کد

RunScript("Master Layer::Script")

 

[hrs192]

ممنون .. کدهای بالا که مثل قبل هست
ولی [/LEFT] ها به چه معنی هستن ؟
بابت کد RunScript("Master Layer::Script") خیلی ممنون

 

[MahmoodM30]

ممنون .. کدهای بالا که مثل قبل هست

خوب نیازی به تغییر نیست

ولی [/left] ها به چه معنی هستن ؟
بابت کد runscript("master layer::script") خیلی ممنون

مرسی

اون کد ها برای این بود که من از صفحه ورد کپی کردم اونجا برا این ولی الان درستش کردم

 

[hrs192]

با تشکر
من اسکریپت و دوتا ادیت باکس رو توی مستر پیج
و دکمه را توی مستر تاپ لایر گذاشتم
و در کدها
تمام قسمت هارا از
RunScript("Master Layer::Script")
به
RunScript("Master Page::Script")
تبدیل کردم
قربونت برم
نمونه کار کامل را هم پیوست کردم اگر دوستان خواستن استفاده کنن