مینی سورس نمایش حروف رندم در کلمه به زبان بیسیک فور اندروید

[MR.B4A 252]

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

کار این مینی سورس این است که یک کلمه انگلیسی 5 حرفی تولید میکند که هربار که این کلمه را میسازد، با حروف های 
مختلف و رندم این کار را انجام میدهد.

این مینی سورس بیشتر جنبه تقویت الگوریتم برنامه نویس را دارد.

این ساب را داخل پروژه تان اضافه کنید:

Sub CreateRandomWord As String
	Dim letters As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
	Dim sb As StringBuilder
	sb.Initialize

	For i = 1 To 5
		Dim index As Int = Rnd(0, letters.Length)
		sb.Append(letters.CharAt(index))
	Next

	Return sb.ToString
End Sub

سپس آن را اینگونه صدا بزنید و هرجا خواستید از آن استفاده کنید:

Dim randomWord As String = CreateRandomWord
	MsgboxAsync(randomWord, "")

تهیه و تنظیم   
مرتضی صباغی  
MR.B4A