نحوه Initialize کردن Bitmap

[20reza 3]

سلام

میخواستم طبق عکس زیر Bitmap  رو Initialize  کنم . چجوری باید این کار و بکنم . لطفا گام به گام راهنمایی کنید .

 

[علی علایی 161]

دیباگ بگیرید ببنید کدوم خط خطا میگیره 

در ضمن کدها رو از هر جای کپی کردید از همون جا بخاید بهتر کمکتون کنه 

ببخشید اینقدر رک میگم چون هنوز خیلی مبتدی هستید و با کدها آشنایی چندانی ندارید 

و یه چیز دیگه آقای بیات درست گفتن شما اول آموزش های مبتدی رو ببنید بیاد یه برنامه رو بنویسید 

به قول معرف چای نخورده پسرخاله شدن  حال روز الان شماست

[20reza 3]

دیباگ بگیرید ببنید کدوم خط خطا میگیره 

در ضمن کدها رو از هر جای کپی کردید از همون جا بخاید بهتر کمکتون کنه 

ببخشید اینقدر رک میگم چون هنوز خیلی مبتدی هستید و با کدها آشنایی چندانی ندارید 

و یه چیز دیگه آقای بیات درست گفتن شما اول آموزش های مبتدی رو ببنید بیاد یه برنامه رو بنویسید 

به قول معرف چای نخورده پسرخاله شدن  حال روز الان شماست

 

شما درست میفرمایید اما از هرکی سوال میکنم هرکی یه چیزی میگه . الان یه نفر بتونه این اخطار را برام رفع کنه ممنونش میشم . در مورد آموزش بگم به زودی آموزشها رو یاد میگیرم .

دیباگ رو گرفتم اخطار از خط 154 میده .

[علی علایی 161]

عکس دیباگ کو ؟

من از کجا بفهمم خط 154 کد شما چیه 

یه عکس از دیباگ بزار خود کد فعلا نمیخاد

[20reza 3]

عکس دیباگ کو ؟

من از کجا بفهمم خط 154 کد شما چیه 

یه عکس از دیباگ بزار خود کد فعلا نمیخاد

 

 

[علی علایی 161]

خب تاپیکت بعد 18 تا پست داره به یه جاهای میرسه 

در ضمن میخای کد بزاری بغل آیکون عکس یه گزینه است این شکلیه <> توی این باید کدها رو کپی کنی تا همه متوجه کدهات بشن 

اینا کدهای شما است 

#Region  Activity Attributes 
	#FullScreen: False
	#includeTitle: False
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.

	Private ScrollView1 As ScrollView
	Private action_bar As ImageView
	Private bookmark As ImageView
	Private bookmark_add As ImageView
	
	
	Private ScrollView2 As ScrollView
	Private action_bar As ImageView

	Dim slide As SlidingMenu
	Dim label1(5) As Label
	Dim SeekBar1 As SeekBar
	Dim spinner1 As Spinner
	Dim obj1 As Reflector
End Sub


Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	
	Activity.LoadLayout("matn")
	
	ScrollView2.initialize(100%y-96dip)
	spinner1.initialize("spinner")
	SeekBar1.initialize("SeekBar")
	spinner1.AddAll(Array As String("tahoma","kamran","mehdi","yekan"))
	For i=0 To label1.Length-1
	label1(i).initialize("")
	Next
	
	action_bar.Bitmap = Menu.action_bar_bitmap
	bookmark.Bitmap = Menu.bookmark
	bookmark_add.Bitmap = Menu.bookmark_add
	
	'منو اسلاید
	slide.initialize("slide")
	slide.BehindOffset = 30%x
	slide.Mode = slide.BOTH
	Dim color As ColorDrawable
	color.initialize(Colors.RGB(236, 236, 236),0)
	slide.SecondaryMenu.Background = color
	slide.Menu.Background = color
	
	
	'راست اسلاید
	Dim h As Int
	h = 2%y
	Dim btnm(5) As Button
	For i=0 To btnm.Length-1
	btnm(i).initialize("menu")
	Dim bdwOn1 As BitmapDrawable

	bdwOn1.Initialize(LoadBitmap(File.DirAssets, "33.png"))
    
	btnm(i).Background=bdwOn1
	Next	
	
	btnm(0).text = "تنظیمات"
	btnm(0).Tag  = "تنظیمات"
	slide.SecondaryMenu.AddView(btnm(0),2%x,h,66%x,18%y)
	h=h+20%y
	
	btnm(1).text = "علاقه مندی ها"
	btnm(1).Tag  = "علاقه مندی ها"
	slide.SecondaryMenu.AddView(btnm(1),2%x,h,66%x,18%y)
	h=h+20%y
	
	btnm(2).text = "اینستاگرام من"
	btnm(2).Tag  = "اینستاگرام من"
	slide.SecondaryMenu.AddView(btnm(2),2%x,h,66%x,18%y)
	h=h+20%y
	
	btnm(3).text = "تلگرام من"
	btnm(3).Tag  = "تلگرام من"
	slide.SecondaryMenu.AddView(btnm(3),2%x,h,66%x,18%y)
	h=h+20%y

	'چپ اسلاید

	'منو اسلاید پایان
	

	If File.Exists (File.Dirinternal,"ketabdb.db") = False Then
	File.Copy(File.DirAssets,"ketabdb.db",File.Dirinternal,"ketabdb.db")
	End If
	
	If Menu.s.isinitialized=False Then
	 Menu.s.initialize (File.Dirinternal,"ketabdb.db",True)
	End If
	Dim cur As Cursor
	cur =  Menu.s.ExecQuery ("SELECT * FROM main WHERE id= "&Menu.fasl)
	cur.Position=0
	
	



	If cur.Getint("mark") = 0 Then
	bookmark_add.Visible = False
	Else
	bookmark_add.Visible = True
	End If
	
	
		
	
	Dim h As Int
For i = 0 To 10

	
	
			'اضافه کردن متن
		If cur.GetString("matn"&i) <> Null Then
			Dim text As Label
			text.initialize("Label")
			text.text = cur.GetString("matn"&i)
			text.Gravity = Gravity.RiGHT
			text.TextColor = Colors.Black
			text.TextSize = Menu.fontsize
			text.Typeface = Typeface.LoadFromAssets(Menu.font &".ttf")
			ScrollView1.Panel.AddView(text,0,h+2%y,ScrollView1.Width-10,ScrollView1.Height)
			Dim su As StringUtils
			text.Height= su.MeasureMultilineTextHeight(text,text.text)+10
			h = h + su.MeasureMultilineTextHeight(text,text.text) + 30
			ScrollView1.Panel.Height = h
		
		End If

		If cur.GetString("aks"&i) <> Null Then
			'عکس دادن نشان


				Dim imageView1 As ImageView
				imageView1.initialize("imageView")
				imageView1.tag = cur.GetString("aks"&i)
		
				'اضافه کردن عکس
				ScrollView1.Panel.AddView(imageView1,0,h,ScrollView1.Width,ScrollView1.Height)
				imageView1.Bitmap = Menu.Bitmap1(i)
	
				If Menu.Bitmap1(i).Width > 100%x Then 
					imageView1.Width = 100%x
					imageView1.Height = (imageView1.Width / Menu.Bitmap1(i).Width )*Menu.Bitmap1(i).Height
					imageView1.Gravity = Gravity.Fill
		
				Else 
					imageView1.Width = Menu.Bitmap1(i).Width 
					imageView1.Height = Menu.Bitmap1(i).Height 
					imageView1.Left = (100%x - imageView1.Width)/2
					imageView1.Gravity = Gravity.Fill
				End If 
				h = h + imageView1.Height + 30
				ScrollView1.Panel.Height = h
			


		End If
		'عکس کردن باز

	
Next

	'گرفتن  تنظیمات
	tanzimat

	
End Sub


Sub btn_click

	 	Dim b As Button
 		b = Sender
		Menu.fasl = b.Tag
		
	If Menu.picshow = 1 Then
		Dim cur As Cursor
		cur =  Menu.s.ExecQuery ("SELECT * FROM main WHERE id= "&Menu.fasl)
		cur.Position=0
		For i = 0 To 10
		If cur.GetString("aks"&i) <> Null Then
		Menu.bitmap1(i).initializeSample(File.DirAssets,cur.GetString("aks"&i)&".jpg",Activity.Height,Activity.Width)
		End If
		Next
	End If
	Activity.Finish
	
	StartActivity("safematn")
	
 End Sub
 
Sub tanzimat
	Dim cur As Cursor
	cur =  Menu.s.ExecQuery ("SELECT * FROM setting")
	cur.Position = 0
	SeekBar1.Value = Menu.fontsize
	spinner1.Selectedindex = cur.Getint("font")
	label1(2).Typeface = Typeface.LoadFromAssets(Menu.font&".ttf")

End Sub
Sub sabt_click
	Dim cur As Cursor
	cur =  Menu.s.ExecQuery ("SELECT * FROM setting")
	cur.Position=0
	
		Menu.s.ExecNonQuery("UPDATE setting SET fontsize ="&SeekBar1.Value)
		Menu.s.ExecNonQuery("UPDATE setting SET font ="&spinner1.SelectedIndex)
	
	Menu.fontsize = SeekBar1.Value
	Menu.font = spinner1.GetItem(spinner1.SelectedIndex)
	slide.HideMenus
	ToastMessageShow("تنظیمات ذخیره شد",False)
	Activity.Finish
	StartActivity("safematn")
End Sub

 
Sub action_bar_Click
	slide.ShowSecondaryMenu
End Sub
Sub menu_click
 	Dim b As Button
 	b = Sender

	slide.Menu.RemoveAllViews
	ScrollView2.Panel.RemoveAllViews
	slide.Menu.AddView(ScrollView2,0,48dip,70%x,ScrollView2.Panel.Height)
	slide.ShowMenu
	
	Dim h As Int
	h= 0
	
If b.Tag = "تنظیمات" Then
	'تنظیمات
	Dim btn As Button
	btn.Initialize("")
	btn.Text = "تنظیمات"
	btn.color = Colors.RGB(125, 133, 176)
	slide.Menu.AddView(btn,0,h,70%x,50dip)
	ScrollView2.Height = 100%y
	Dim btn As Button
	btn.Initialize("sabt")
	btn.Text = "ذخیره تنظیمات"
	btn.color = Colors.RGB(231, 76, 60)
	slide.Menu.AddView(btn,0,100%y-48dip,70%x,50dip)
	'فونت سایز
		label1(0).Text = "اندازه متن"
		label1(0).TextColor = Colors.Black
		label1(0).Gravity = Gravity.CENTER
		ScrollView2.Panel.AddView(label1(0),2%x,h,66%x,48dip)
		h = h +label1(0).Height
		ScrollView2.Panel.AddView(SeekBar1,2%x,h,66%x,48)
		SeekBar1.Max = 50
		h = h + SeekBar1.Height
		ScrollView2.Panel.Height = h
	'نوع فونت
		label1(1).Text = "نوع قلم"
		label1(1).TextColor = Colors.Black
		label1(1).Gravity = Gravity.CENTER
		ScrollView2.Panel.AddView(label1(1),2%x,h,66%x,48dip)
		h = h +label1(1).Height

		spinner1.DropdownBackgroundColor = Colors.RGB(236, 236, 236)
		ScrollView2.Panel.AddView(spinner1,2%x,h,66%x,50dip)
		h = h + spinner1.Height
		ScrollView2.Panel.Height = h
	'نمونه متن
		label1(2).Text = "متن نمونه"
		label1(2).TextColor = Colors.Black
		label1(2).Gravity = Gravity.CENTER
		ScrollView2.Panel.AddView(label1(2),2%x,h,66%x,70dip)
		h = h +label1(2).Height + 20
		ScrollView2.Panel.Height = h +label1(2).Height + 20
	
End If
	
	
	
	If b.Tag = "علاقه مندی ها" Then
	'تنظیمات
	Dim btn As Button
	btn.Initialize("")
	btn.Text = "علاقه مندی ها"
	btn.color = Colors.RGB(125, 133, 176)
	slide.Menu.AddView(btn,0,h,70%x,50dip)
	ScrollView2.Height = 100%y
	
	Dim h As Int
	Dim cur As Cursor
	h= 2%y
	'اموزش اندروید
	cur = Menu.s.ExecQuery ("SELECT * FROM main WHERE mark = 1 ")
	For i = 0 To cur.RowCount-1
	cur.Position = i
	Dim btn As Button
	btn.Initialize("btn")
	btn.Text = cur.GetString("onvan")
	btn.Tag  = cur.GetInt("id")
	btn.color = Colors.rgb(233, 30, 99)
	ScrollView2.Panel.AddView(btn,2%x,h,66%x,18%y)
	h=h+ btn.Height + 2%y
	Next
	ScrollView2.Panel.Height = h+ btn.Height
	End If
	
	
	If b.Tag = "اینستاگرام من" Then
	
	Dim insta  As AriaLib

If insta.isAppInstalled("com.instagram.android") Then

insta.OpenInstaProfile("farzin_designer")

Else

ToastMessageShow("نرم افزار instagram بر روی دستگاه شما نصب نیست.",False)

End If	
	slide.HideMenus
	End If
	
	If b.Tag = "تلگرام من" Then
	
	Dim oIntent As Intent
	oIntent.Initialize(oIntent.ACTION_VIEW,"tg://resolve?domain=farzin_designer")
	StartActivity(oIntent)	
	slide.HideMenus
	End If
 End Sub

Sub SeekBar_ValueChanged (Value As Int, UserChanged As Boolean)
	label1(2).TextSize = Value
End Sub
Sub spinner_itemClick (Position As Int, Value As Object)

	label1(2).Typeface = Typeface.LoadFromAssets(Value&".ttf")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)


End Sub

Sub Activity_KeyPress (KeyCode As Int) As Boolean

	If KeyCode = KeyCodes.KEYCODE_BACK Then
	Activity.Finish
	End If
	
	If KeyCode = KeyCodes.KEYCODE_MENU Then
	slide.ShowSecondaryMenu
	End If
End Sub

Sub bookmark_Click


	Dim cur As Cursor
	cur =  Menu.s.ExecQuery ("SELECT * FROM main WHERE id= "&Menu.fasl)
	cur.Position=0
	If bookmark_add.Visible = False Then
	
		Menu.s.ExecNonQuery("UPDATE main SET mark=1 WHERE id="&Menu.fasl)
    	bookmark_add.Visible = True
		ToastMessageShow("به علاقه مندی ها اضافه شد",False)
	Else
		Menu.s.ExecNonQuery("UPDATE main SET mark=0 WHERE id="&Menu.fasl)
    	bookmark_add.Visible = False
	End If
	
End Sub

اگر خوب نگاه کنی این کد رو پایین تر از خط 154 اینیشیالز کردی 

Menu.bitmap1(i).initializeSample(File.DirAssets,cur.GetString("aks"&i)&".jpg",Activity.Height,Activity.Width)

خب معلومه برنامه ارورر بده  باید هم خطا بده چون اول باید اینیشیالز بشه بعد بیای ازش استفاده کنی 

در ضمن یه کدی که خود شخص ننوشته باشه یه مقدار سخته چی به چیه ولی 

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

منظورمو گرفتی

[20reza 3]

خب  حالا چیکار کنم ؟

[مهدی کفشگر 548]

bitmap1.Initialize(File.DirAssets,"pic.jpg")

[20reza 3]

این کد رو چیکار کنم؟

[20reza 3]

خب  حالا چیکار کنم ؟

[20reza 3]

لطفا بهم بگید این کد رو چیکار کنم ؟

 

bitmap1.Initialize(File.DirAssets,"pic.jpg")

[حاج حسین 2,098]

1- دیباگ بگیر ببین کدوم خطو خطا میگیره 

2- هر چیزی که میخاد استفاده کنید اول باید اینشیالیز بشه بعد استفاده

3- اگر هنوز نمیدونید که با کدی که اقای کفشگر دادن چه کار کنید مشکلی نیست چون مبتدی هستید 

این بخش کامل ببنید 

آموزش های گام به گام برای مبتدی ها

4- برنامه نوشتن فقط نوشتن کد نیست بلکه فهمیدن کدهاست وگرنه با کپی پیست کردن خالی کسی برنامه نویس نشده 

5- یا علی

[20reza 3]

سلام

کد را جایگزین کردم اما این اخطار رو داد.

 

[Elyas Erfani 3,582]

سلام

کد را جایگزین کردم اما این اخطار رو داد.

 

 

 

دوست عزیز میگه از متغیر bitmap1 قبلا استفاده کردید

 

لطفا ی اسم دیگه در نظر بگیرین واسه این بیتمپتون مثل Bitmap2

[20reza 3]

دوست عزیز میگه از متغیر bitmap1 قبلا استفاده کردید

 

لطفا ی اسم دیگه در نظر بگیرین واسه این بیتمپتون مثل Bitmap2

هر اسمی واسش میزارم اخطار قبل میده

[mohsen.gh 48]

هر اسمی واسش میزارم اخطار قبل میده

شما اصلا این کد رو دارید؟؟

dim bitmap1 as bitmap

[20reza 3]

دوستان کسی هست که من سورس کامل برنامه رو بهش بدم بتونه برام درسته کنه فقط گیر همین اخطاره

[sms 199]

دوستان کسی هست که من سورس کامل برنامه رو بهش بدم بتونه برام درسته کنه فقط گیر همین اخطاره

دوست عزیز ساب safematn رو قرار بدید اینجا

[20reza 3]

سلام

کل کدهای safematn را در این لینک گذاشتم

http://s7.picofile.com/file/8236187026/New_Text_Document_err_.rar.html

[20reza 3]

کسی پیدا نمیشه مشکلم رو حل کنه ؟

[20reza 3]

شما اصلا این کد رو دارید؟؟

dim bitmap1 as bitmap

سلام بله این کد رو دارم