Publication Constants
طول و عرض پنجره ، طول و عرض محیط مفید پنجره ، فاصله پنجره تا بالا و سمت چپ Desktop (X,Y)، فاصله یک Object تا بالا و سمت چپ پنجره (همان پنجره که با MMB درست کرده اید) . طول و عرض یک Object . فعال یا غیر فعال بودن یک Object و... از انواع Publication Constantsاست.
PubWidth()
طول پنجره را نشان می دهد. البته با قاب دور پنجره .
Message("Project window width + border is: ","PubWidth()")
PubHeight()
عرض پنجره به اضافه قاب دور پنجره و قسمت عنوان را نشان می دهد.
Message("Project window Height + border is: ","PubHeight()")
ClientWidth()
طول محیط کار پنجره را نشان می دهد . بدون قاب دور آن .
Message("Workarea width is: ","ClientWidth()")
Client Height()
طول محیط کار پنجره را نشان می دهد .
Message("Workarea Height is : ","ClientHeight()")
از اینجا به بعد کد های نمونه رو نمی نویسم ، چون می دونید چه جوری کد ها رو بنویسید .
PubX()
فاصله پنجره تا سمت چپ Desktop را نشان می دهد . (مختص X)
PubY()
فاصله پنجره تا بالای Desktop را نشان می دهد . (مختص Y)
ObjectX()
فاصله یک Object تا سمت چپ پنجره را نشان می دهد . در داخل پرانتز باید Label شي مورد نظرتان را بنویسید .
ObjectY()
فاصله يک Object تا بالای پنجره را نشان می دهد . در داخل پرانتز باید Label شي مورد نظرتان را بنویسید .
ObjectWidth()
طول یک Object را بر می گرداند . در داخل پرانتز باید Label شي مورد نظرتان را بنویسید .
ObjectHeight ()
عرض یک Object را بر می گرداند .
IsVisible()
اول label شی مورد نظرتان را در داخل پرانتز ها تایپ کنید . یرای مقدار خروجی آن 3 حالت پیش می آید : اعداد 1 ، 0 و -1
-1 یعنی : Object ی با این نام وجود ندارد .
0 یعنی : وجود دارد امَا ........... مخفی است!
1 یعنی : وجود دارد مخفی هم نیست !
For …
خب با یک مثال می خواهم طرز کار حلقه For را نشان دهم . (حلقه For یک عمل را چند بار انجام می دهد) . MMB در بین حلقه ها فقط For و در بین دستور هاIf را دارد .
این مثال 5 بار پیامی را ظاهر می کند که در آخر آن پیام عددی وجود دارد که به ترتیب از 1 تا 5 را نشان می دهد .
For1To5
i=i+1
Message("Number ","i")
Next
دیگه نیازی به توضیح نیست .پیام ها به ترتیب با این عنوان ها می آیند .
Number i: 1
Number i: 2
Number i: 3
Number i: 4
5Number i:
با این حلقه یک عدد را (در یک TextBox) وارد می کنیم به عنوان تعداد خط ها . سپس کلید مورد نظر را می زنیم و در خروجی که یک Text است نشان می دهد که N تا خط (عدد درون TextBox) حداکثر صفحه را به چند قسمت تقسیم می کند . توی جدول نوشته ام رابطه اش رو خودتون پیدا کنید .
یک کلید (Text button) هم درست می کنیم که این عملیات را اجرا کند . (قسمت Output دکمه را در حالت Ineger قرار دهید . چون عدد صحیح است و در دو کادر مقابل آن به ترتیب A$ و A بنویسید ).
قسمت ها تعداد خط ها
1 0
2 1
4 2
7 3
11 4
16 5
22 6
29 7
37 8
دستور مربوط به کلید :
i=0
p=1
For 1 To A
i=i+1
p=p+i
Next
DisplayValue("Answer","p")
در قسمت Label متن خروجی (همون text) نام Answer را تایپ کردم .
حالا شما می توانید دستور هایی ترکیبی با IF و For یا If در If و... بنویسید .