دریافت کتابخانه ir3DTable

[امین مهدی نژاد 2,141]

کتابخانه ir3DTable

مشاهده فایل

---

بازی ماهجونگ رو خیلی وقت پیش نوشته بودم. بعد از اون برای ساخت سریع تر بازی solitaire اینو نوشتم.ولی هرگز فرصت نشد اونو بسازم.

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

امکاناتی مثل

• گرفتن آیتم ها در محورهای مختلف
• گرفتن تمام آیتم های بالا در یک ستون یا سطر خاص
• چک وجود ویو در اطراف ویوی مورد نظر
• افزودن و حذف ایتم ها

کد نمونه

	Dim t3d As Table3D
	t3d.Initialize(Me,"t3d")
	Activity.AddView(t3d.GetPanel,0,0,100%x,100%y)
	t3d.SetViewCount(8,8,4)
	t3d.SetPadding(10,10,10,10)
	t3d.SetMarginCel(5,5,10,5)
	t3d.SetPerTop(-2,-2)
	t3d.SetSizeCel(83,115)
	
	lstTiles.Initialize()
	maps.Initialize
	
	Dim lst As List=File.ReadList(File.DirAssets,"1.map")
	For i=0 To (lst.Size/2)-1
		Dim xyz As Int=lst.Get(i)
		Dim irnd As Int=Rnd(1,40)
		lstTiles.Add(irnd)
		maps.Put(xyz,irnd)
		Dim img As Tiles
		img.Initialize(Me,"img")
		If xyz<64 Then
			img.stBase(xyz Mod 8,xyz/8,0)
			t3d.AddViewAt(img.GetBase,xyz Mod 8,xyz/8,0)
		Else If xyz<128 Then
			xyz=xyz-64
			img.stBase(xyz Mod 8,xyz/8,1)
			t3d.AddViewAt(img.GetBase,xyz Mod 8,xyz/8,1)
		Else If xyz<192 Then
			xyz=xyz-128
			img.stBase(xyz Mod 8,xyz/8,2)
			t3d.AddViewAt(img.GetBase,xyz Mod 8,xyz/8,2)
		Else
			xyz=xyz-192
			img.stBase(xyz Mod 8,xyz/8,3)
			t3d.AddViewAt(img.GetBase,xyz Mod 8,xyz/8,3)
		End If
		img.DesignerCreateView(irnd&".png")
		img.GetBase.Tag=img
	Next

متاسفانه وقت ساخت مثال براش نداشتم.

در آینده آموزش بهتری از اون فراهم می کنم.

از دوستان اگر کسی با اون بازی solitaire  رو نوشتم. یه نسخه برام بفرسته.

«موفق باشید.»

---

• ارسال کننده
  امین مهدی نژاد
• ارسال
  09/12/2017
• دسته
  کتابخانه ها