Printable View
یه برنامه نوشتم که یه دفترچه تلفن خیلی ساده هست.
و این کد رونوشتم نمیدونم مشکل از کجا هست که با ذخیره یک رکورد رکورد قبلی از بین میره:13:
Private Type tbلطفا راهنمایی کنید.
nam As String * 10
tel As Currency
End Type
Private Sub Command1_Click()fsd
Dim telbook As tb
telbook.nam = Text1
telbook.tel = Val(Text2)
Open "d:\a.txt" For Random As 1 Len = 18
Put #1, , telbook
Close
End Sub
فایلتو میذاری ببینیم
اینم نمونه::46:
یه فایل txt تو درایو c میسازه.کد:http://amirxbest.persiangig.com/amirxbest/telbook.rar
Put #1, , amir :18::18:!!!!!!!!!!!!!!!!
امیرجان اصلا amir اینجا چکاره بود که اینجا توی فایلت اضافه اش کردی
اولا بهتر بود این برنامه رو با دیتابیس مینوشتی اما اگه میخوای با فایل بسازیش اولا باید در آرگومان دوم دستور put شماره رکورد اون متن رو مشخص کنی و برای اینکه این شماره رو همیشه داشته باشی میتونی با دستور savesetting اونو همیشه داشته باشی
اگه وقت کردم کدشو برات میذارم
شرمنده :31:
Put #1, , amir اینجا کلمه amir رو یجای telbook گذاشتم.(اشتباه پیش میاد):46:
میدونم آرگمان دوم رو باید شماره رکورد رو بدو ولی اینجا که نمیدونم قبلا چندتا رکورد داشتم باید چیکار کنم.
اینم اون فایله :
خودش از ادامه فایل شروع به نوشتن میکنه(شماره قبلی در رجیستری با دستور savesetting ذخیره میشه)کد:
ممنون دوست عزیز:11:
مطمعا هستی بدون رجیستر نمیشه؟:13:
فکر کنم یه دستوری بود که خودش آخرین رکورد رو تشخیص میداد و بعد از اون ثبت میکرد.
اگه میشه یه توضیحی هم بابت save setting و get setting بده.
ممنون میشم راهنمایی کنی [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
شاید بشه با EOF درستش کرد ولی مطمئنا همین رجیستری راحت تره
نترس بابا این رجیستری که من میگم که اصلا پیچیده نیست باهمین دو دستور sevesetting و getsetting هستش
دستور sevesetting یه مقدار رو در یه جایی از حافظه کامپیوتر ذخیره میکنه اون آرگومان های جلوش هم فقط اسم پوشه های محل ذخیره اون مقدار هستن اصلا تو بنویس قرمه سبزی:31:
با دستور getsetting هم میتونی اون مقدار رو فراخونی کنی
معمولا از این دو دستور برای ذخیره تنظیمات برنامه استفاده میشه(مثل پسورد - رنگ برنامه - فونت برنامه - سایز پنجره و هرچی که دوست داشته باشی)
اصلا هم نگران نباش استفاده از این دستورات هیچ صدمه ای به ویندوز نمیزنه
طرز استفاده از دو دستور هم که در همون برنامه که گذاشتم واضحه
یا علی...:5: