آموزش .برنامه نویسی.نرم افزار های داغ

 جستجو " یا Search که کاربرد فراوانی هم دارد که براحتی نیز قابل استفاده است . برای مثال کدهای زیر ؛ در صورتی که کدهای زیر اجرا شوند یک کادر باز می شود که از شما می خواهد یک پوشه را از هارد خود انتخاب کنید تا عمل جستجو در آن پوشه صورت گیرد البته عمل جستجو در آن پوشه بر روی فایلهای mp3 و ogg صورت می گیرد . سپس فایل های پیدا شده به لیست اضافه می شوند که شما باید شی لیست رو هم در صحفه ی کار خود قرار داده باشید . خب به کدهای زیر که برای نمونه برای شما گذاشته ام را نگاه کنید و با دقت آنها را مطالع کنید:

BrowseForFolder(" :لطفاً يك مسير را انتخاب كنيد تا عمل جستجو انجام شود","")

**با اين کد کادري مربوط به انتخاب يک پوشه ظاهر مي شود تا عمل جستجو در آن کادر انجام شود

mp3dir$=CBK_OpenDir

** در اينجا همون پوشه اي رو که کاربر از طريق کادر بالا انتخاب مي کنه در يک متغيير ذخيره مي شود

If (mp3dir$ <> '') Then

** و بلخره اگر در کادر گفته شده پوشه اي انتخاب شد عمل هاي زير انجام مي شوند

SearchForFiles("mp3dir$","*.mp3,*.ogg")

** جستجو در مسير معيين شده که در متغيير گفته شده ذخيره شده بود و در بخش دوم اين کد، بايد پسوند فايل هاي مورد نظر خود را بنويسيد

ListBoxAddItem("SongList","RESET")

** پاک کردن ايتم هاي قبلي ليست

ListBoxAddItem("SongList","<List>")

** فايل هاي جستجو شده با اين کد به ليست اضافه مي شوند

** و اتمام کار

با عرض سلام و خسته نباشي خدمت كاربر گرامي . در اين درس نحوه ي ايجاد دوابل كليك در بيلدر رو به شما اموزش مي دهم. پس با دقت توجه كنيد تا مشكلي براي شما پيش نيايد . خب اول فایلmousestatedetection رو از مسیر Samples\495_examples\mouse واقع در پوشه ی بیلدر رو اجرا کنید و به صحفه ی DoubleClick بروید ، در اینجا می بینید دو اسکریپت وجود دارد ، بر روی DCScript دو بار کلیک کنید می بینید که کدهای زیر در آن وجود دارند . خب حالا کدها رو برای شما توضیح می دم:

dc=dc+1

If (dc=2) Then

Message("DoubleClick detected..","")

dc=0

ScriptTimer("TIMERA=DCReset","300")

در خط اول متغییری به نام DC بوجود می آوریم که برای مقدار آن یک کلیک را معرفی می کنیم . در خط دوم شرط بر این قرار است که در صورتی که متغییر DC در بالا اگر 2 شد یعنی دوبار انجام شد(دوبار کلیک) کد خط سوم اجرا شود و در خط سوم کد مورد نظر ما که در اینجا یک پیغام است نمایش داده می شود و در خط چهارم مقدار متغییر DC صفر میشود که به این معناست که دوبار کلیک انجام شده و باید دوبار کلیک بعدی لغو شود . خط پنجم هم که آخر شرط ماست . و بلخره خط ششم که اسکریپت دیگر موجود در صحفه رو پس از 300 هزارم ثانیه اجرا میکنه . توجه کنید که این 300 هزارم ثانیه در واقع زمان بین دو کلیک است که شما می توانید به دلخواه زمان آن را تغییر دهید .

.::با تشكر::.

اول برا بعضی ها که نمی دونن کلیپ بورد چیه یه توضیح بدم . وقتی که شما یک متن رو با استفاده از کلید معادل Ctrl+C یا همان Copy ، کپی می کنید، تا در جای دیگر Paste کنید ؛ متن کپی شده به حافظه ی ClipBoard یا حافظه ی موقتی کپی می شود تا در موقعه ی نیاز در مکان مورد نظر شماPaste شود. خب تا اینجا که فهمیدین که ClipBoard چیه. پس به این مثال توجه کنید: این قانون برای کپی رمز برنامه ی مثلاً فتوشاپ بدرد می خوره - به طوری که کاربر با کلیک بر روی دکمه کپی رمز ، رمز برنامه ی فتوشاپ را در حافظه ی موقت کپی می کنه و در نصب فتوشاپ فقط Paste رو می زنه(یکی از مزایای اتورانه نه! کدشو براتون می زارم ) ).

شما می توانید از دو قاعده ی Copy , Paste در پروژه ی خود براحتی استفاده کنید . البته این بخش مربوط به کار با شی EditBox است . یعنی شما متن درون شی EditBox را به حافظه ی موقت کپی می کنید یا در آن Paste می کنید. حالا وقت آن رسیده که کدهای مربوط به Paste رو با هم بررسی کنیم :

Clipboard("GET","Clipboard$")

LoadText("EditBox","Clipboard$")

برای اینکه با Clipboard کار کنید کدی در بیلدر هست با مشخصه ی ("Clipboard("Send/Get","Variable ، که در قسمت اول کد، نوع کار آن را مشخص می کنیم( فرستادن یا گرفتن از کلیپ بورد) . که دراینجا Get که برای گرفتن متن از حافظه استفاده می شود ، استفاده شده است و در قسمت دوم نام متغییر ، که برای حافظه ی موقت باید تایپ کنیدClipboard$ ، تا بیلدر حافظه ی موقت رو بشناسه . و در خط دوم بیلدر ، حافظه ی کلیپ بورد روPaste می کنه(قسمت اول کد خط دوم:نام شی ای که می خواهید متن درون حافظه در آن کپی شود , قسمت دوم:متغییر کلیپ بورد کد در خط بالا معرفی شده). خب اگر دو خط کد بالا رو به همین صورت در یک دکمه ، در پروژه ی خود قرار دهید و یک شیء EditBox رو در پروژه ی خود قرار دهید در موقعه ی اجرای پروژه با کلیک بر روی دکمه ی گفته شده اگر متنی درون حافظه ی موقت یا همان کلیپ بورد سیستم شما وجود داشت در شیء EditBox چسبانده یا همان Paste می شود.

خب به سراغ کپی متن در بیلدر می رویم . برای اینکار نیز از همان کد ("Clipboard("Send/Get","Variable استفاده می شود با این تفاوت که بجای Get از Sendکه به معنای فرستادن است استفاده می کنیم و همچنین نیاز به کد دیگری نیست و فقط یک خط کد . به مثال زیر توجه کنید:

Clipboard("SEND","EditBox$")

در اینجا نوع کلیپ بورد را فرستادن و منبع آن را همان ورودی متن که با نام EditBox و متغییرEditBox$ معرفی کرده بودیم ، معرفی می کنیم.

.:: با تشکر ::.

برای نمونه ما می خواهیم نرم افزاری درست کنیم که اگر استفاده کننده از این نرم افزار بر روی سیستم خود فارسی ساز نصب نکرده بود از زبان انگلیسی نرم افزار شما استفاده کنه این کار بسیار آسان بوده و نیاز به کد زیادی نداره که در این مورد بستگی به اجزای پروژه ی شما داره که چند دکمه یا شیء متنی و... درون آن داشته باشید . برای مثال ما می خواهیم در برنامه ی خود دکمه ی با عنوانYes رو به بله تغییر دهیم برای اینکار یک دکمه در صحفه ی کار بگذارید و کد زیر را تایپ کنید:

LoadText("TextBTN","بله")

شرمنده ها ولی می خوام این وبلاگ معروف بشه که اگه شما کمک کنی هر روز براتون مطلب می زارم .بازم می گم : فایر مثل هیچ کدوم دیگه نیست::.

اينم كرك برنامه ي مالتي مدیا بيلدر !

اونو دانلود كنيد و بعد اجرا كنيد . و از اين به بعد ديگه اون نوشته ي زرد پايين پروژه ي شما حذف مي شه

ببينم كسايي كه از اين وبلاگ ديدن مي كنن براچي نظر نمي دن ، سوال نمي كنن

عزيزانم سوال كنيد تا جواب بگيريد

من تبادل لينك هم مي كنم ، اگه كسي هست بسم الله ...

دانلود کرک بیلدر

استفاده از Moveto و Move Object در بیلدر

با عرض سلام و خسته نباشی خدمت کاربران گرامی در این درس می خواهم نحوه ی ساخت انیمیشن و تغییر اندازه ی اشکال در بیلدر رو به شما جیگر گرامی آموزش دهم . برای انیمیشن از کدMove to و برای جابهجایی و تغییر اندازه ی یک شی از کد MoveObject استفاده می شود . ابتدا کد ساخت انیمیشن را در بیلدر برای شما می گذارم . منظور از ساخت انیمیشن این است که یک شی مثل دکمه را از مختصات 100 در 100 به مختصات 200 در 200 جابه جا کنیم همچنین شما می توانید برای انیمیشن خود سرعت تعیین کنید . یعنی با چه سرعتی از ناحیه ای به ناحیه ی دیگر برود . خب ابتدا یک شی دکمه بر روی فرم برنامه ی خود قرار دهید و آن را با نام TextButton نامگذاری کنید سپس برای ساخت انیمیشن از کد زیر استفاده کنید:

MoveTo("TextBTN","100,100,70,EASYFROM,EASYTO")

در خط کد بالا مشاهده می کنید که شی ای با نام TextBTN به مختصات 100 در 100 جابه جا می شود ( 100در100 مقدار مختصات X و Y است) و در قسمت بعدی کد عدد 70 مقدار سرعت حرکت است و EASYFROM,EASYTO یک نوع افکت حرکتی در انیمیشن است . خب برای اینکه مختصات کاملاً دقیق را بدست آورید می توانید از کادر dimensions استفاده کنید برای ظاهر کردن این کادر از منوی View گزینه ی dimensions را انتخاب کنید اگه استفاده از این کادر رو بلد نیستید بهم بگید تا براتون این مطلب رو بزارم.

MoveObject("TextBTN","200,200,100,100")

یدر این کد می بینید که شی ای به نام TextBTN به مختصات 200,200 رفته و اندازه ی آن به100,100 تغییر می کند و همچنین برای بدست آوردن مختصات و اندازه ی دقیق و صحیح می توانید از همان کادر dimensions استفاده کنید . خب امیدوارم چیزی از این مطلب فهمیده باشید . شرمنده اگه زیاد خوب نمی نویسم آخه من بیشتر مطالب رو سر کار می نویسم . تا می خوام یه خط بنویسم یه نفر می یاد حال ما رو می گیره منم که مجبورم براشون کارشونو انجام بدم دیگه . راستی نظر بدید تا یه کد باحال برای تغییر اندازه یک شی با انیمیشن رو براتون بزارم.

LoadVariable("run","no_run")

If (no_run=0) Then

Run("mspaint.exe","")

no_run=1

SaveVariable("run","no_run")

خط اول : مقداری با نام no_run رو از ریجستری بارگذاری می کنه.

خط دوم : قانون If()Then است یک شرط را دارا می باشد . شرط بر این قرار است که اگر مقدار no_run صفر بود برنامه ی نقاشی رو اجرا کنه.

خط چهارم : متغییر no_run را به یک(1) تبدیل می کند که باعث می شود در اجرای بعدی نرم افزار فایل مورد نظر شما اجرا نشود(منظور خط سوم).

خط پـنـجــم : همان مقدار no_run=1 (خط قبلی) رو در ریجستری ثبت می کنه که اگه این خط کد نباشه در هر بار اجرای برنامه فایل مورد نظر هی اجرا می شه.

خط شـــشم : این خط کد نیز پایان دستور If می باشد.

** این کدها را باید در صحفه ی اول کدنویسی خود کپی کنید تا در موقعه ی اجرای برنامه ی شما این دستور انجام شود. و یکی اینکه به کادر Project Settings پروژه بروید(Project>Project settings) و در آنجا گزینه ای با نام Save Last Position in Registry را تیک بزنید تا امکان استفاده از ریجستری به طور کامل امکانپذیر شود.

ابتدا یکی از نرم افزار های سویش یا فلش را بر روی سیستم خود نصب کنید که به نظر من سویش بهترین گزینه برای شما است. (اگر که اون رو دارید که هیچی ولی اگه نداشتید می تونید اونو از اینترنت دانلود کنین) برای اینکار به سایت گوگل برید و تایپ کنید Download Swish و سپس اینتر کنید تا گوگل سایت های عضو خود را جستجو کنه . بعد از جستجو یکی یکی سایت های یافته شده را باز کنید تا جدیدترین نسخه ی سویش رو پیدا کنید و اگر خواستید اون رو دانلود کنید ، در همان صفحه به دنبال دکمه ی با نام Download بگردید و اون رو کلیک کنید تا برنامه ی سویش رو دانلود کنید. پس از دانلود آن می توانید برای یادگیری آن از سی دی های آموزشی استفاده کنید یا به انجمن های آن در اینترنت برید یا بهم بگید تا مطلب آموزشی که خودم درباره اون نوشتم رو به شما بدم که البته شرمنده یکم براتون خرج داره ولی ارزش داره چون عالیه. (می تونین در مورد این موضوع به ایمیلم پیغام بفرستین). در مورد فلش هم همینطور اگه خواستین از سی دی آموزشی یا انجمن ها استفاده کنید یا بهم بگین مطلب آموزشی رو در مورد فلش براتون بنویسم.

}(on (release

fscommand ("mmb","RunScript(\"Fire\")");

با این کد شما اسکریپتی به نام Fire رو اجرا می کنید که کد آن می تواند هر چیزی باشد (مثلاً اجرای یک نرم افزار یا یک پیغام). حال باید یک اسکریپت را بوجود آورید ؛ برای اینکار از منوی Object و زیر منوی Create گزینه ی Script را انتخاب کنید و بر روی صحفه کار کلیک کنید , سپس بر روی اسکریپت دو بار کلیک کنید و نام آن را Fire بگذارید و در آن اسکریپت لازم را بنویسید . حالا پروژه ی خود را اجرا کنید و نتیجه ی کار خود را مشاهده کنید.

امیدوارم از آموزش مثل چی لذت برده باشید ، نظر یادتون نره !!!

در بیلدر هم کدی به نام SysCommand وجود دارد که در نرم افزارهایی مثل سویش و فلش نیز وجود دارد ، با این تفاوت که در فلش برای خروج ، تمام صحفه کردن تصویر ، اجرای یک فایل از هارد و ... به کار برده می شود ولی در بیلدر تقریباً می شه گفت که SysCommand کمی پیشرفته تر است به این صورت که شما می توانید یک فایل را کپی کنید ، اندازه ی پنجره ی پروژه ی خود را تغییر دهید ، تغییر مکان پنجره ی پروژه ی خود ، خاصیت Always on top و ... . خب برای شروع یک دکمه بر روی فرم پروژه ی خود قرار دهید و با دو بار کلیک بر روی آن و کلیک بر روی دکمه ی More Action به بخش کد نویسی بروید سپس مانند نمونه های زیر به دلخواه کد های زیر را وارد کنید :

***************

SysCommand("ResizeWindow","x=640,y=480")

با این کد می توانید پنجره ی پروژه را به اندازه ی دلخواه در آورید . فقط کافیست جلوی X,Y مقدار دلخواه را وارد کنید(مانند نمونه).

SysCommand("MoveWindow","x=200,y=200")

با این کد می توانید پنجره را به هر مکانی در صفحه ببرید فقط باید جای آن را با عدد وارد کنید.X,Y

SysCommand("CenterWindow","")

SysCommand("AlwaysOnTop","")

خاصیت AlwaysOnTop برای همیشه در رو بودن یا همان اولویت پنجره ها استفاده می شود که مقدار برای وارد کردن هم نداره.

SysCommand("NotAlwaysOnTop","")

SysCommand("CopyFile","<Embedded>\Fire.txt , C:\Fire Text\Fire.txt")

این خاصیت که می تونه یکی از امکانات اتوران یا نرم افزار شما باشه به صورت کاملاً ساده یک فایل رو به مقصدی که شما مشخص می کنید کپی می کنه که پس از نوشتن CopyFile در بخش بعدی مسیر فایلی را که می خواهید آن را کپی کنید مشخص کنید و یک علامت ( , ) رو بین مسیر بعدی که مسیر مقصد است قرار دهید(مثل نمونه) . البته شما می تونید این کار رو به صورت پیشرفته تری انجام بدید (به صورتی که کاربر مسیر آن را انتخاب کند) که نیاز به دانستن کار با متغییر هاست که این مطلب نیز مقاله ای جدا رو می طلبه.

در این درس طریقه ی استفاده از دستور Break یا شکستن ، را برای شما شرح خواهم داد . این دستور برای حلقه های For استفاده می شود به صورتی که اگر شما حلقه ای را بوجود آورده باشید و می خواهید اگر کاربر بر روی دکمه ی کلیک کرد این حلقه شکسته شود و حلقه ادامه پیدا نکند. برای مثال کدهای زیر را برای شما جیگر گرامی می گزارم. لطفاً با دقت به آنها توجه کنید:

For i=1 To 200

Pause("1000")

Message("FiRE","")

Next i

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

Case$=LOW(FiRe)

Message("Case$","")

ابتدا باید یک متغییر را مشخص کنید که در اینجا ما نام متغییر را Case$ تعریف می کنیم و پس از گذاشتن علامت مساوی، کلمه ی LOW() را تایپ می کنیم و در پرانتز یک کلمه یا یک متغییر را تعریف می کنیم تا در پیغام، کلمه با حروف کوچک نشان داده شود. سپس باید متغییر Case$ را به پیغام خود معرفی کنید ، پس متغییر Case$ را در میان پرانتز ها تایپ کنید سپس پروژه را اجرا کنید.

نکته : در صورتی که می خواهید به جای کوچک شدن حروف ، حروف بزرگ شوند به جای LOW کلمه ی UPPرا قرار دهید و همچنین می توانید به جای دستور Message از دستور LoadText استفاده کنید.

Path$= 'C:\Fire.txt'

ReturnExt$=ExtractExt(Path$)

ReturnDir$=ExtractDir(Path$)

ReturnName$=ExtractName(Path$)

ReturnDrive$=ExtractDrive(Path$)

fire$='By Meysam Davoody'

Message("file$","fire$")

این کد ها را در محیط کد نویسی بیلدر بچسبانید(Paste).برای مثال یک دکمه از منوی Object و زیر منوی Create گزینه ی Text Button را انتخاب کنید و بر روی صفحه ی کار کلیک کنید سپس بر روی دکمه دو بار کلیک کنید و بر روی دکمه ی More Action(Script) کلیک کنید و کد های بالا که من برای شما گذاشتم رو در اونجا بچسبانید سپس به درایو C: بروید و یک فایل با نامFire.txt(مانند خط اول در کد ها) بسازید . سپس پروژه را در بیلدر اجرا کنید تا نتیجه ی کار خود را ببینید. اگر شما کمی به کد نویسی در بیلدر مسلط باشید می توانید از این روش کارهای زیادی بکنید.

Run("Winamp.exe","C:\FiRE.mp3")

در قسمت اول اکشن Run می بینید نام Winamp.exe در ج شده که به طور خودکار در ویندوز برنامه ی وینمپ را اجرا می کند و لازم به درج مسیر کامل برنامه وینمپ نیست. و در قسمت دوم می بینید که مسیر فایل را می توان مشخص کرد.

خب ابتدا یک دکمه بر روی صفحه ی کار خود قرار دهید سپس و با دو بار کلیک بر روی آن و زدن دکمه ی More Action به قسمت برنامه نویسی در بیلدر بروید و در آنجا بر روی دکمه ی Wizard کلیک کنید تا لیست اکشن ها را مشاهده کنید. گزینه ی Run را از لیست انتخاب کنید. سپس دکمه ی OK را بزنید و در صفحه ی اکشن نویسی مانند زیر کد را در آن وارد کنید:

Run("rundll32.exe","shell32.dll,Control_RunDLL desk.cpl,@0,2")

سپس کادر ها را OK کنید و پروژه را اجرا کنید . نتیجه ی کار اینست که با اجرای این کد صحفه ی تغییر پوسته (Appearance) و ویرایش محیط گرافیکی ویندوز اجرا می شود.

البته برای اینکه صفحه های مختلف این کادر را باز کنید در پایان جمله می بینید که مقدارهای ("0,2@ ثبت شده است که با تغییر مقدار عدد دوم یعنی 2 شما می توانید صفحه های دیگر این کادر را نیز باز کنید . برای مثال برای باز کردن صحفه ی دوم که Desktop می باشد مقدار ("0,0@ را وارد کنید و برای اولین صفحه 1- را وارد کنید.

خب تنها این نبود شما می تونید تقریباً بیشتر اجزای ویندوز رو اجرا کنید که برای دیدن لیست آنها به راهنمای بیلدر رجوع کنید و در قسمت جستجوی آن FAQDLL را تایپ کنید و اینتر کنید تا صفحه ی که در مورد این روش است باز شود. حال شما می توانید براحتی و حتی با دانش اندک خود متوجه جریان آن شوید و از این به بعد از اجزای کنترل پنل استفاده کنید.

یکی از روش هایی که به زیبایی اتوران یا نرم افزار شما جلوه ی خاصی می دهد و می تواند تا 50% پروژه ی شما را زیباتر کند Skin یا همان پوسته است که در بیلدر به راحتی امکان پذیر می باشد . حال برای پروژه ی خود شکل دلخواه را طراحی کنید و شکل دوم یا پوسته ی دوم را نیز طراحی کنید سپس یکی از پوسته ها را که می خواهید با کلیک یک دکمه ظاهر شود را از منوی File و زیر منویCompress & Export... ذخیره کنید. این فایل با پسوند .mbd که فایل های سورس برنامه ی بیلدر است ذخیره می شود که دو نوع دارد : یکی که فایل را دارای رمز کنیم و یکی اینکه این فایل دیگر قابل ویرایش نباشد و فقط با کد مربوطه که در محیط برنامه نویسی در بیلدر باید تایپ کنید اجرا می شود.

RunMBD("<SrcDir>\Skin\FiRE-Skin.MBD","New_Windows")

خب ابتدا دکمه ای بسازید و با دوبار کلیک بر روی آن بر روی دکمه ی More Action کلیک کنید تا صفحه ی کد نویسی باز شود . شما می توانید کد بالا را کپی و در آنجا پیست کنید سپس در قسمت اول آدرس پوسته که ذخیره کردید رو بدید (برای راحتتر کردن کار خود دو بار بر روی کد کلیک کنید و در قسمت اول کادر بر روی دکمه ی مسیر دهی کلیک کنید و پوسته را از هارد برگزینید) و در قسمت دوم در صورتی که کلمه ی New_Windows را تایپ کردید پوسته ی انتخابی در پنجره ی جدید باز می شود(یعنی اگر پنجره ی پوسته ی 1 پنجره بزرگ و پوسته ی 2 کوچک باشد با اجرای کد پوسته ی دوم به صورت کوچک نمایش داده می شود . ولی اگر New_Windows را تایپ نکرده باشید اندازه ی پوسته ی دوم چه بزرگ باشد چه کوچک در قالب پوسته ی شماره 1 ظاهر می شود) . من توصیه می کنم از New_Windows استفاده کنید چون پوسته هایی که شما می سازید باید برای زیبایی بیشتر با هم متفاوت باشد (مثلاً یکی بزرگ و یکی کوچک). خب تا اینجا فهمیدین که چطوری برای نرم افزار خود پوسته بگذارید البته برای اینکه با کلاس تر جلوه کنه فایل های پوسته که با پسوند .MBDهستنکه از منوی فایل ذخیره کردید رو به یک پسوند دیگه تغییر بدید به این صورت که در هنگام ذخیره کردن و وارد کردن نام برای آن مثل مثال پسوندی مثل اسم نرم افزار رو بدید(مثال : FiRE.fskin) می بینید که پسوند فایل پوسته .fskin است که باید در موقع مسیر دادن (RunMBD) گزینه ی All Files رو انتخاب کنید و این فایل رو انتخاب کنید که حتماً کار میده. راستی بهتون نگفتم بعد از این کد حتماً کد Exit() رو هم بنویسید تا از پوسته ی 1 خارج و پوسته ی 2 اجرا شود.

If () Then

SysCommand("","")

MoveObject("","")

MoveTo("","")

LoadText("","")

در این درس می خواهم کار با کادر های Open و Save as رو در بیلدر آموزش دهم . در این بخش یکی از کاربردی ترین روش ها رو در بیلدر می آموزید ، پس دقت کنید.

("OpenFile("Text Files (*.txt)|*.txt|All Files|*.*||","*.txt

If (OpenFile$<>'') Then

LoadText("Text","OpenFile$")

Message("No File Selected !","")

ابتدا دکمه ای با نام Open بسازید و با دوبار کلیک بر روی این دکمه به بخش اکشن ها بروید و از لیست اکشن ها گزینه ی Open File را انتخاب کنید در فیلدهای ظاهر شده نوع فایلی که می خواهید باز شود رو تایپ کنید سپس Ok کنید و به خط بعدی رفته و دستور IF را تایپ کنید و در پرانتز ظاهر شده مانند نمونه ی بالا OpenFile$<>'' را تایپ کنید سپس به خط بعدی رفته و دستور LoadText را از لیست اکشن ها انتخاب کنید و تنظیمات لازم را انجام دهید و در قسمتی که متن در آن بارگذاری می شود متغییر OpenFile$ را درج کنید تا در موقع انتخاب فایل متنی ، متن از متغییر OpenFile$ به یک شی متنی که شما بر روی صفحه ی کار قرار داده اید بارگذاری شود (Text Object) سپس در صورت دلخواه بعد از خط Else یک پیغام بگزارید که نشان دهنده ی این است که در صورت باز نکردن فایل یک پیغام به شما نشان داده شود که محتوی عدم بارگذاری فایل است.