رفتن به مطلب
بیسیک فور ایکس
  • 0
reza332

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

سوال

سلام

 

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

چیزی حدود 4000  تا عکس هم براش ادماده کردم با حجم 70 مگابایت  ( مشکلی ایجاد نمیشه؟)

 

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

اینم بخشی از کدها  اولیه برنامه (هنوز دکمه خیلی زیادی باید بنویسم)

Sub Globals
	
	Private Panel_root As Panel
	Private Button_bazghasht As Button
	Dim s As Int
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("main")
	Panel_root.LoadLayout("dokmehay_safeasli")    'دکمه های صحفه اصلی
	'                 ( اینجا دکمه های  اموزش - ارتباط با ما - علاقه مندی ها - تنظیمات)                    

	

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub Button_bazghasht_Click   'دکمه برگشت
	
	Select s
		
		Case 1,100
			Panel_root.RemoveAllViews
			Panel_root.LoadLayout("dokmehay_safeasli")
			
		Case 2,101
			Panel_root.RemoveAllViews
			Panel_root.LoadLayout("dokmehay_amozesh")
			 s=100
			 
		Case 3,102
			Panel_root.RemoveAllViews
			Panel_root.LoadLayout("dokmehay_adam")
			s=101
			
		Case  4,103
			Panel_root.RemoveAllViews
			Panel_root.LoadLayout("dokmehay_chashm")
			s=102
			
		Case 5
			Panel_root.RemoveAllViews
			Panel_root.LoadLayout("dok_chashm_abro")
			s=103
			
	End Select
	
	
	
End Sub

Sub Button_amozesh_Click  'دکمه رفتن به بخش اموزش
	Panel_root.RemoveAllViews
	Panel_root.LoadLayout("dokmehay_amozesh")   '(دکمه های لیست اموزش   (اینجا دکمه های ادم-حیوان-گیاهان-و وو 
	s=1
End Sub

Sub Button_adam_Click     'دکمه رفتن به بخش اموزش ادم
	Panel_root.RemoveAllViews
	Panel_root.LoadLayout("dokmehay_adam")    '          ( دکمه های لیست اموزش قسمتهای بدن ادم        (اینجا دکمه های چشم-دست-پا-قلب-ریه ووو 
	s=2
End Sub

Sub Button_chashm_Click       'دکمه رفتن به بخش اموزش چشم
	Panel_root.RemoveAllViews
	Panel_root.LoadLayout("dokmehay_chashm")   '(دکمه های لیست اموزش چشم  (اینجا دکمه های ابرو-مژه-قرنیه و و و
	s=3
End Sub

Sub Button_jolo_Click     'دکمه رفتن به بخش اموزش انواع مژه
	Panel_root.RemoveAllViews
	Panel_root.LoadLayout("dok_chashm_abro")  '(دکمه های لیست اموزش مثلا انواع ابرو  (اینجا دکمه های ابرو1-ابرو2-ابرو3 و و و
	s=4
End Sub

Sub Button_chshm3_Click  'دکمه رفتن به عکسهای ابرو3
	Panel_root.RemoveAllViews
	Panel_root.LoadLayout("chashm_abro3_ax")                'عکسهای اموزش ابرو3 که باز شده اند
	s=5
End Sub

 

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

0 پاسخ به این سوال تا کنون داده شده است

Recommended Posts

هنوز برای این سوال پاسخی ارسال نشده است

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

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

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !

ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید

ورود به حساب کاربری

×