امکان کوتاه تر کردن کدها برنامه من وجود داره؟

[ehsan70 7]

سلام

 

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

چیزی حدود 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

 

 

[softir 459]

در 18 ساعت قبل، ehsan70 گفته است :

سلام

 

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

چیزی حدود 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

 

 

راحش اینه که یکی دو ماه تمرینی با بیسیک آشنا شی بعد شروع به ساخت برنامه کنی