سورس بازی سنگ کاغذ قیچی در b4a

[MR.B4A 227]

با استفاده از این سورس بیسیک فور اندروید میتوانید به سادگی بازی نوستالژی سنگ کاغذ قیچی رو توی پروژت پیاده سازی کنید.

سورس:

طبق معمول کدهارو داخل برنات کپی کن

Sub Globals
	Dim appBar As Panel
	Dim lblTitle As Label
	
	Dim imgTop,imgBottom As ImageView
	Private pnl_adv As Panel
	
	Dim lblStart As Button
	Dim top = 1 , bottom = 1 As Int

End Sub

Sub Activity_Create(FirstTime As Boolean)
	Initialize_appBar
	addIMG
End Sub

Sub Initialize_appBar
	appBar.Initialize("")
	pnl_adv.Initialize("")
	appBar.Color	 = Colors.White
	appBar.Elevation = 3dip
	Activity.AddView(appBar,0,0,Activity.Width,56dip)
	Activity.AddView(pnl_adv,5%x,87%y,90%x,10%y)
	
	lblTitle.Initialize("")
	lblTitle.TextColor = Colors.Black
	lblTitle.Text 	   = "سنگ کاغذ قیچی"
	lblTitle.Typeface  = Typeface.LoadFromAssets("vazir.ttf")
	lblTitle.Gravity   = Bit.Or(Gravity.CENTER_HORIZONTAL,Gravity.CENTER_VERTICAL)
	appBar.AddView(lblTitle,0,0,appBar.Width,appBar.Height)
End Sub

Sub addIMG
	imgTop.Initialize("")
	imgTop.Gravity = Gravity.CENTER
	imgTop.Bitmap  = LoadBitmap(File.DirAssets, top & ".png")
	Activity.AddView(imgTop,Activity.Width/2 -100dip,100dip,200dip,200dip)
	
	imgBottom.Initialize("")
	imgBottom.Gravity = Gravity.CENTER
	imgBottom.Bitmap  = LoadBitmap(File.DirAssets, bottom & ".png")
	Dim h As Int      = Activity.Height - 300dip
	Activity.AddView(imgBottom,Activity.Width/2 -100dip,h,200dip,200dip)
	
	lblStart.Initialize("start")
	lblStart.TextColor  = Colors.Black
	Dim cd As ColorDrawable
	cd.Initialize(Colors.Green, 8dip)
	lblStart.Background = cd
	lblStart.Text		= "شروع کن"
	lblStart.TextSize   = 25
	lblStart.Typeface   = Typeface.LoadFromAssets("vazir.ttf")
	lblStart.Gravity    = Bit.Or(Gravity.CENTER_HORIZONTAL,Gravity.CENTER_VERTICAL)
	Dim h As Int	    = Activity.Height/2 - 30dip
	Activity.AddView(lblStart,100dip,h,Activity.Width-200dip,60dip)
End Sub

Sub start_Click
	
	top    = Rnd(1,3) + 1
	bottom = Rnd(1,3) + 1
	
	Dim anim As Animation
	anim.InitializeRotateCenter("",0,360,imgTop)
	anim.RepeatCount = 1
	anim.Duration    = 50
	anim.Start(imgTop)
	anim.Start(imgBottom)
	
	imgTop.Bitmap	 = LoadBitmap(File.DirAssets, top & ".png")
	imgBottom.Bitmap = LoadBitmap(File.DirAssets, bottom & ".png")
End Sub
و دیگر هیچ ( بدون لیوت )

طراح و نویسنده:
مرتضی صباغی

MR.B4A

https://eitaa.com/basic4androidlan
https://t.me/programmingwithb4a