Welcome to بیسیک فور ایکس

Register now to gain access to all of our features. Once registered and logged in, you will be able to contribute to this site by submitting your own content or replying to existing content. You'll be able to customize your profile, receive reputation points as a reward for submitting content, while also communicating with other members via your own private inbox, plus much more! This message will be removed once you have signed in.

  • 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
H@mid.RS و Seyed Ali پسند شده است

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


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

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

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


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

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

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


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

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

Dim marahel as string

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

Marahel = marahel + 1

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

If marahel =1 then

Startactivity(marhaleone)

و به این ترتیب

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


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

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

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

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

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


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

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

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


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

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

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

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

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


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

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

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


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