ادامه عدد ذخیره شده

Samo44 · Mar 25, 2009

شماره ای رو ذخیره کرده ایم ، مثلا 55 آیا امکانش هست وقتی آن را لود می کنیم
با فشار یک دکمه شماره 56 و ادامه آن را داشته باشیم ؟یعنی در واقع عدد لود شده را ادامه دهیم .

BEHESHT · Mar 25, 2009

توضیحات

چراکه نه این رو نگاه کن:

مثال اول تو اسکریپت شروع صفحه 55رو در متغییر z به صورت زیر ذخیره می کنیم:

کد:

z=55

بعد از اون تو دکمه ای که می خواهید عمل جبری صورت بگیره این کار رو بکنید مثال متغییر + 1

کد:

z=z+1

یعنی اینجا z میشه 56

مشکلی بود بگو با مثال توضیح بدم ساموی عزیز

Samo44 · Mar 26, 2009

آقا پویا سلام و ممنون
زحمت یه مثال رو می کشید؟

BEHESHT · Mar 26, 2009

مثال

سلام

کوچیک شما پوریا هستم نه پویا

چشم به روی چشم وظیفه است

اینم مثال خدمت شما:

مشکلی بود بازم در خدمتم

Samo44 · Apr 14, 2009

آقا پوریا سلام
یه سوال : اگه بجای 55 یه عددی باشه که هر بار تغییر می کنه در کد بالا چه تغییری باید داده بشه ؟یعنی عدد ، عدد مشخصی نیست .

BEHESHT · Apr 14, 2009

z رو می تونید مساوی با هر عددی قرار بدید.

منتهی اگر مساوی قرار ندید صفر محسوب میشه.

اگر خواستید تغییر بدید Z رو جای با یه عدد دیگه مساوی قرار بدید حل میشه

Samo44 · Apr 15, 2009

سلام و عذر زحمات
مثل اینکه منظورم رو نتو نستم درست مطرح کنم .منظورم اینه که یه عدد رو بصورت اتفاقی ذخیره کنیم ،بعد همین عدد رو فراخوانی کنیم و اونو بخوایم ادامه بدیم .

nevercom · Apr 15, 2009

پیشنهاد میکنم برای اینکه راحت تر به جواب برسید، مسئله رو برای خودتون تکه تکه کنید و مرحله به مرحله برید جلو
مثلاً برای این موردی که ذکر کردین میشه اینجوری نوشت:

یک عدد تصادفی را انتخاب کن
عدد انتخاب شده رو در یک فایل ذخیره کن

هنگام فشرده شدن کلید:

عدد ذخیره شده در فایل را فراخوانی کن
یکی به آن اضافه کن
عدد جدید را در فایل ذخیره کن

که کدهاش اینجوری میشه:

کد:

[FONT=Courier New]RNDNum = [/FONT][FONT=Courier New][COLOR=#000090][B]RND[/B][/COLOR][/FONT][FONT=Courier New]([/FONT][FONT=Courier New][COLOR=#ff0000]1000[/COLOR][/FONT][FONT=Courier New]) 
RNDNum$ = [/FONT][FONT=Courier New][COLOR=#000090][B]CHAR[/B][/COLOR][/FONT][FONT=Courier New](RNDNum) 
FileName$ = [/FONT][FONT=Courier New][COLOR=#800000]'D:\Number.txt'[/COLOR][/FONT] [FONT=Courier New]
ToFile = [/FONT][FONT=Courier New][COLOR=#000090][B]StrToFile[/B][/COLOR][/FONT][FONT=Courier New](FileName$,RNDNum$,[/FONT][FONT=Courier New][COLOR=#0000ff]FALSE[/COLOR][/FONT][FONT=Courier New],FALSE)[/FONT]

و برای قسمت دوم:

کد:

[FONT=Courier New]Number = [/FONT][FONT=Courier New][COLOR=#000090][B]VAL[/B][/COLOR][/FONT][FONT=Courier New]([/FONT][FONT=Courier New][COLOR=#000090][B]StrFromFile[/B][/COLOR][/FONT][FONT=Courier New](FileName$,[/FONT][FONT=Courier New][COLOR=#ff0000]1[/COLOR][/FONT][FONT=Courier New],1)) 
Number = Number + [/FONT][FONT=Courier New][COLOR=#ff0000]1[/COLOR][/FONT] [FONT=Courier New]
Number$ = [/FONT][FONT=Courier New][COLOR=#000090][B]CHAR[/B][/COLOR][/FONT][FONT=Courier New](Number) 
ToFile = [/FONT][FONT=Courier New][COLOR=#000090][B]StrToFile[/B][/COLOR][/FONT][FONT=Courier New](FileName$,Number$,[/FONT][FONT=Courier New][COLOR=#0000ff]FALSE[/COLOR][/FONT][FONT=Courier New],FALSE)[/FONT]

Samo44 · Apr 15, 2009

سلام و تشکر
اگه ممکنه ببینید اشکال من کجاست که عدد اضافه نمی شه .

nevercom · Apr 15, 2009

شما در دکمه ی Add از کد زیر استفاده کردین:

کد:

Number = VAL(StrFromFile(Number.txt$,1,1))
Number = Number + 1
Number$ = CHAR(Number)
ToFile = StrToFile(Number.txt$,Number$,FALSE,FALSE)

در این کد شما از متغیر $Number.txt استفاده کردین که باید حاوی مسیر فایل برای ذخیره شدن عدد در اون باشه، ولی این متغیر هیچ کجا در کدهاتون تعریف و مقداردهی نشده.
شما باید از متغیر $FileName که در دکمه ی Add مقداردهی شده و حاوی مسیر ذخیره ی فایل هست بجای متغیر $Number.txt استفاده کنید.
** شما میتونید برنامتون رو در حالت Debug اجرا کنید تا بهتر بتونید برنامتون رو عیب یابی کنید، مثلاً اگه همین برنامه رو در حالت Debug اجرا کنید متوجه میشید که متغیر $Number.txt مقداردهی نشده و در قسمت متغیرها نشون داده نمیشه.