• اطلاعیه ها

    • H@mid.RS

      جذب نیرو   پنجشنبه, 10 فروردین 1396

      درود به دوستان عزیز به چند نفر مدیر برای بخش های php و گرافیک نیازمندیم درصورت تمایل درخواست خود را در پیام خصوصی بفرستید  
    • H@mid.RS

      تغییر نام کاربری   دوشنبه, 28 فروردین 1396

      درود دوستانی که نام کاربری انها با ایمل شان یکی بود تغییر کرد مثلا نام کاربری sss@tmail.com به sss تغییر کرد دوستانی که مشکل ورود دارند @ به بعد را پاک کنند
    • H@mid.RS

      کسب درآمد   پنجشنبه, 31 فروردین 1396

      دوستانی که میخواهند با انجمن خودشون همکاری کنند و از محیط انجمن درآمد کسب کنند به بنده پیام خصوصی بفرستند
  • 0
Seyed Ali

سیو تغییرات برنامه

سوال

با سلام

 من یه برنامه پرسش ساختم که مرحله ای . اگه جواب درست بدی یه مرحله جدید باز میشه .ولی اگه از برنامه خارج بشی همه چی از اول میاد. راه حل چیست؟؟؟

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

6 پاسخ به این سوال تا کنون داده شده است

  • 0

یه سورسی الان برات نوشتم و بازی رو ذخیره میکنه

 

سورسش هم در این تایپک برات گذاشتم

 

اینم کد هاش:

Sub Globals
Private EditText1 As EditText
Private Button1 As Button
Private Label1 As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
If	File.Exists(File.DirInternal,"1.txt")=False Then
Label1.Text="1+1=؟"
Else
Label1.Text=File.ReadString	(File.DirInternal,"1.txt")
End If
End Sub
Sub Button1_Click
If Label1.Text="1+1=؟" And EditText1.Text=2 Then
Label1.Text="1+2=؟"	
File.WriteString(File.DirInternal,"1.txt",Label1.Text)
End If

If Label1.Text="1+2=؟"	 And EditText1.Text=3 Then
Label1.Text="1+3=؟"	
File.WriteString(File.DirInternal,"1.txt",Label1.Text)
End If

If Label1.Text="1+3=؟"	 And EditText1.Text=4 Then
Label1.Text="1+4=؟"	
File.WriteString(File.DirInternal,"1.txt",Label1.Text)
End If	
End Sub
پسند شده توسط Seyed Ali و H@mid.RS

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0

یکم توضیح میدید؟؟ این چه کاری میکنه؟  شما گفتید توی اون مقدار ثانیه به همین شکل بمونه؟؟

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0

منظورم این نبود منظورم این بود که اگه وارد این برنامه بشه برنامه بهش بگه که این مرحله قبلا باز شده

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0

می تونی اگر مرحله رفت جلو بیاد و

Dim marahel as string

این رو توی قسمت جواب درست بود بنویس

Marahel = marahel + 1

بعد میایم و خط بعد از لود اکتیویتی می نویسیم

If marahel =1 then

Startactivity(marhaleone)

و به این ترتیب

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0

برای این کار راه های مختلفی وجود داره.

بنظرم خلاصه ای از کدهات بگین  بهتر میشه راهنماییت کرد.

اصلا نمیفهمیم بازیت چه سبکی هست

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0

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

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

برای اینکه بتوانید دیدگاهی ارسال کنید نیاز دارید که کاربر سایت شوید

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !


ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید


ورود به حساب کاربری