سورس کد حدس کلمه ( ساده و مبتدی )

[مجید آرتا 5,874]

به نام خدا

با عرض سلام و خسته نباشید به کاربران عزیز انجمن

امیدوارم که طاعات و عباداتتون مقبول درگاه حق قرار گرفته باشه

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

بازی حدس کلمه ای که مد نظرم بود خیلی چیز بهتر از این بود و خواستم برای قسمت vip  قرارش بدم حقیقتا زیاد وقت نداشتم و یک چیز ساده نوشتم

 

 

 

خب یه توضیح کوچولو هم بدم راجب کدهای نوشته شده »

Sub NewGame
	txtTarget.Text = ""
	index = Rnd(0,words.Size - 1)
	word = words.Get(index)
	ResetArray
	For i = 0 To word.Length - 1
	  Targetchars(i) = "-"
	  txtTarget.Text = txtTarget.Text & "-"
	Next
	For Each v As View In Activity.GetAllViewsRecursive
	  If v Is Button Then v.Enabled = True
	Next
End Sub

این تابع بعد از تکمیل هر کلمه بازی بعدی رو براتون اجرا می کنه، به صورت رندوم کلماتی که داخل لیست قرار داره رو میاره.

Sub Button_Click
	Private btn As Button
	btn = Sender
	Try
	 For i = 0 To word.Length - 1
	   	   Private c As Char = word.CharAt(i)
		   If c = btn.Tag Then
		   	  Targetchars(i) = c
			  txtTarget.Text = CharsToString(Targetchars,0,Targetchars.Length)
		   End If
		   If txtTarget.Text.Contains("-") = False Then
			  	ToastMessageShow("You Win!",True)
				sleep(3000)
			    NewGame
				Return
		   End If
	  Next
	  btn.Enabled = False
	 Catch
	  Log("Bikhial Haji :)")
	 End Try
End Sub

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

خب ما دکمه ها رو از دیزاینر اضافه کردیم و تنها کاری که کردیم EventName  همه رو Button  گذاشتم تا بتونیم همه ی دکمه هارو هندل کنیم

تگ هر دکمه رو حرف مربوط به همون دکمه گذاشتم یعنی به این شکل »

Text = A

Tag = a

 

کل الگوریتم به این شکله که شما با  کلیک رو دکمه ها میاد کلمه مورد نظر رو تک تک کاراکترهاشو با تگ دکمه کلیک شده  مقایسه می کنه، اگه یکی باشه میریزه داخل آرایه ای از نوع Char  و برابر میکنه تکست لیبلمون.

 

خب امیدوارم بدرد بخور باشه واستون

پیروز و کامیاب باشید .  

رمز فایل هم : answercenter.ir

 

Game.rar

AnswerCenter.IR

 

 

[vistamobile 1,700]

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

خوبه داداش. فقط یه سوال. الان این لغات تکراری نمیشه؟ 

[مجید آرتا 5,874]

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

تکراری که صدرصد داره   دس گرمی نوشتمش

هنوز جای کار داره، مثلا یه لیبل دیگه پایینش باشه که وقتی به تعداد اون کلمه اشتباه وارد کرد برنامه پیغام You Lose  بده و کارهای اضافی دیگه، اینارو گذاشتم به عهده خود استفاده کننده بکمی به خودشون فشار بیارن

اگه که آموزششو میزاری که عالیه و کاربردیه

[جواد زبیدی زاده 570]

سلام  مجید :/  :|   خجالت بکش برو  سر پروژه مارکت =))  امتحاناتت تموم شد امروز هم هدیه ها آسمانی رو ازت امتحان گرفتن  بیا  تلگرام  یه  لحضه =))

 

 

درضمن تو همیشه کارت درسته

[vistamobile 1,700]

سلام. به به همه مارکت که جمعا 

داداش میشه یه کارهایی کرد واسه تکرار نشدن کلمه. فقط باید روش کار کنم. چون با فشردن مثلا دکمه a اگر شما هفتا واژه هفت حرفی a داشته باشی اولی میاد. ولی لگر واژه ای کشف شد حذف بشه کار تمومه.

در ضمن من یه روش ساختم واسه بازی های فکری مث افتابه یا بازی های چهار جوابی با بیسیک که با کمترین کد و کمترین لی اوت و اکتیویتی (چهار اکتیویتی و سه لی اوت) بشه ساختشون. حالا حدس کلمه یا حدس عکس باشه یا تست کنکوری و جدول کلمات. بسته به خلاقیت فرد. دارم اموزش ویدئویی رو اماده میکنم. فقط تو امنیت مقدار به کمک نیاز داشتم که ظاهرا به کمک اریا زیپ میشه اونم رفع کرد

[abbas2142 557]

سلام

می دونم تاپیک یکم زیر خاکی شده ولی خوب کارم گیر کرده بهش 

 

می گم من تونستم اطلاعات خوندنش رو از دیتابیس بگیرم ولی خوب من می خواستم توی یه لیبلی هم راهنمایی بذارم در مورد سوال 

هر کاری کردم نشد چون سوالات به صورت رندم انتخاب می شدند.

حالا شما بذارید روی نابلدی

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

 

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

[مجید آرتا 5,874]

در در 1396/06/10, 18:01:53، abbas2142 گفته است :

سلام

می دونم تاپیک یکم زیر خاکی شده ولی خوب کارم گیر کرده بهش 

 

می گم من تونستم اطلاعات خوندنش رو از دیتابیس بگیرم ولی خوب من می خواستم توی یه لیبلی هم راهنمایی بذارم در مورد سوال 

هر کاری کردم نشد چون سوالات به صورت رندم انتخاب می شدند.

حالا شما بذارید روی نابلدی

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

 

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

سلام.نمیدونم منظورتون از راهنمایی چیه!اگه سوالیه که قراره پرسیده بشه و کاربر طبق اون سوال جواب بده، خب توی دیتابیس یه فیلد سوال بزارید و سوال هم لود کنید.

واسه رندوم نبودنش هم می تونید سوالاتتون رو توی یک لیست بریزید و هر دفعه که سوالی رو جواب داد، بره ایتم بعدی لیست.کلا یه پلاس میزنید به ایندکس لیست همین.

[abbas2142 557]

در 13 ساعت قبل، مجید آرتا گفته است :

سلام.نمیدونم منظورتون از راهنمایی چیه!اگه سوالیه که قراره پرسیده بشه و کاربر طبق اون سوال جواب بده، خب توی دیتابیس یه فیلد سوال بزارید و سوال هم لود کنید.

واسه رندوم نبودنش هم می تونید سوالاتتون رو توی یک لیست بریزید و هر دفعه که سوالی رو جواب داد، بره ایتم بعدی لیست.کلا یه پلاس میزنید به ایندکس لیست همین.

همون من اومدم دو تا فیلد گذاشتم داخل دیتابیسم یکی جواب یکی سوال

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

 

[مجید آرتا 5,874]

خب دوستم شما همونجا که داری جواب رو میگیرید فیلد سوال رو هم بگیرید »

LabelQs.Text = Cursor.GetString("question")

 

[abbas2142 557]

در در 1396/06/16, 10:40:27، مجید آرتا گفته است :

خب دوستم شما همونجا که داری جواب رو میگیرید فیلد سوال رو هم بگیرید »

LabelQs.Text = Cursor.GetString("question")

 

ممنون آقای آرتا درست شد ولی خوب مشکلی که هست اینه که سوال با مرحله عوض نمی شه 

وقتی من داخل برنامه مثلا سوال بپرسم اسمت چیه ؟؟؟

جواب بشه عباس

و بره مرحله بعدی به صورت رندم 

سوال تغییر نمی کنه ولی جواب تغییر می کنه

 

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