random files

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

منظور من اینکه میتونید یک تایپ(مثل تایپ توی api ها)مثلآ با اسم phoneb مخفف phonebook تعریف کنید.

این تایپ phoneb شما دو خاصیت به نام های firstname و lastname و phonenumber دارد.

که مثلآ میتونید 1000 تا رکورد روی اون ذخیره کنید.پس به این ترتیب میتونیم یک data base از نوع داده ای خودمون تعریف کنیم.خیلی گیج کننده هست ولی یک بار امتحان کنید دیگه راحت میشه. خوب برای شروع یک پروژه جدید با یک ماژول باز کنید.اول از همه باید تایپ خودمون رو تعریف کنیم پس توی ماژول تایپ خودتون رو تعریف کنید.میتونید از کد پایین به عنوان الگو استفاده کنید.



public type phoneb

firstname as string

lastname as string

phonenumber as string

end type



حتمآ میدونید که در ویژوال بیسیک نمیشه بین اسامی از فضای خالی استفاده کرد.پس سعی کنید از اسامی مخفف استفاده کنید.

هر خاصیت باید یک طول مخصوص داشته باشد.به کد زیر توجه کنید.



public type phoneb
firstname as string *25
lastname as string *25
phonenumber as string *25
end type



همه ی تایپ ها باید به شکل بالا باشند.یعنی طول داشته باشند.مواظب باشید که کاربر نمیتواند بیش از اون چیزی که شما مشخص کردید توی یک تایپ بنویسد.و اگر بنویسد سیو نمی شود.

خب حالا باید یک فایل رو باز کنیدتا بتوانید با استفاده از تایپی که تعریف کردید توی فال بنویسید وسیو کنید.

شما میتوانید یک فایل رو به چند روش باز کنید ولی اینجا ما فایل رو به صورت رندم(random)یا اتفاقی باز میکنیم.

برای این کار از فرمول روبه رو استفاده میکنیم. open path for random as #number len=lenght

دستورات آبی مربوط به خود ویژال بیسیک هستند.و باید نوشته شوند.path(مسیر)مسیری هست که فایل در آنجا قرار دارد.number شماره ی فایل هست که اگر خواستید بتوانید چند فایل با هم باز و بسته بکنید.

len همون طول فایل هست که از شمارش طول prperty های تایپمون به دست میاد.مثلآ در اینجا طول فایل می 75 هست 25+25+25=75

به مثال زیر نگاه کنید.

open "c:\program files" for random as #1

به این ترتیب یک فایل رو باز کردید.یا اگر وجود نداشت به وجود آوردید(آخه وقتی یک فایل رو باز میکنید اگه وجود نداشته باشه اول اون رو به وجود میاره بعد بازش میکنه.)

خب حالا که بازش کردید میتونید توش اطلاعات بنویسید یا از توش بخونید.

قبل از هرکاری یک کار دیگه رو هم باید یاد بگیرید اون هم اینکه چند رکورد توی فایل نوشته شده.

text saver

امروز اموزش برنامه ی text opener رو میذارم .






برای شروع یک تعریف کلی از یک فایل میکنم .






فایل ها از متن ها و حرف ها تشکیل میشن که به چند شیوه میشه اون هارو باز کرد (ما به بررسی شیوه های اصلی میپردازیم).






فایل ها به چند دسته تقسیم میشن . append , binary , input ,output , random






ما فقط کار با output رو یاد میگیریم .






همانطور که از نامش پیداست برای خروجی به کار میرود.(یعنی با این روش فقط میشه یک فایل رو ذخیره کرد)






برای اینکه یک فایل رو ایجاد کنید اول باید اون رو باز کنید.






حالا یک فرم شبیه فرم زیر درست کنید .

برای دکمه ی سیو کد زیر رو بنویسید .

از دستور open برای باز کردن فایل استفاده میکنیم.

بعد مسیر برنامه رو مشخص میکنیم.

بعد میگیم به چه صورت فایل رو باز کنه.

بعد هم شماره ی فایل رو که یک شماره یرای خود ویژوال بیسیک است رو ذکر میکنیم.

print #number,text

از دستور فوق برای نوشتن روی فایل استفاده میکنیم.

close #number

از دستور بالا برای بستن فایل مورد نطر.