برمجة ادخال عدد المستخدمين

السلام عليكم

اقوم حاليا ببرمجة لعبة بسيطة جدا

و تقريبا ان في طور انشاء لعبة السلم و الحية

في البداية يقوم المستخدم بتحديد عدد اللاعبين ( و هذا ما اريد ان اضيفه الى الكود و هنا احتاج المساعدة)

و من ثم يظهر اللبيل الان دور اللاعب الاول

و يخض النرد ثم ينتقل الى المرحلة التي بعدها

و يحين دور الاعب التالي

ثم ياتي اللاعب التالي

و يخض النرد ثم ينتقل الى المرحلة التي بعدها

لم استطع ان اعرف كيفية اذا حددت عدد اللاعبين

اقوم بالتسمية مثلا طارق , عثمان , صلاح , محمود الخ بدلا من الترقيم

عدد الاعبين لا يتجاوز عشرة و لا يقل عن اثنين

يحفظ البرنامج الانتقالة لكل لاعب

ان الان متورط بالكود و خصوصا اللوب الدوان و تسجيل الاماكن

Public Class Form1
	Dim players As Integer ' عدد اللاعبين
	Dim pos As Integer	 ' موقع الاعب
	Dim test As Integer	' testing 

	Dim x As Integer




	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		If players > x Then x = 0 Else x = x + 1

		lblturn.Text = " the player " & x
		Dim oDice As New Random
		Dim iDiceResult As Integer = oDice.Next(1, 7)
		lblDiceOutput2.Text = iDiceResult.ToString
		test = iDiceResult + pos
		If test >= 10 Then pos = (pos + iDiceResult) - 10 Else pos = (pos + iDiceResult)
		lblpos.Text = pos.ToString


	End Sub

	Private Sub btnplayern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnplayern.Click

		txtplayern.Text = CInt(players)
		If txtplayern.Text > 10 Or txtplayern.Text < 2 Then txtplayern.Text = " please input player from 2 to 10 "

	End Sub
End Class

ladder.zip