مشکل فورس کلوز شدن برنامه

[amir00700 66]

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

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

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: true
#End Region

Sub Process_Globals


End Sub

Sub Globals
	Private Panel1 As Panel
	Private Panel2 As Panel
	Dim ph As PackageManager
	Dim p As List
	Dim b As BitmapDrawable
	Dim sql2 As SQL
	Dim bb As BitmapDrawable
	Dim appname As String
	Dim packagename As String
	Dim ins As String
	Private Button1 As Button
	Private Button2 As Button
	Private EditText1 As EditText
	Private P1 As Panel
	Private P2 As Panel
	Dim cur As Cursor
	Dim ListView1 As AriaListView
	Dim ar As AriaAdapterWithImage
	Dim l1 As List
	Dim l2 As List
	Dim l3 As List
	Dim ss,s As String
	Dim php As PackageManager
	Dim bitm As BitmapDrawable
	Dim phphp As PackageManager
	Dim curr As Cursor
	Dim sqll As SQL
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("amir2")
	l1.Initialize
	l2.Initialize
	l3.Initialize
	ListView1.Initialize("list")
	Panel1.AddView(ListView1,0,21%x,100%x,100%y)
	sql2.Initialize(File.DirInternal,"pp.db",False)
	p = ph.GetInstalledPackages
	For i = 0 To p.Size -1
		s = p.Get(i)
		ss = php.GetApplicationLabel(s)
		l1.Add(ss)
		bitm = phphp.GetApplicationIcon(p.Get(i))
		l3.Add(bitm.Bitmap)
		
	Next
	Log("start add")
		ar.Initialize("layout_image_right",l1,l2,l3).ToListView(ListView1)
		Log("finish add")
				sqll.Initialize(File.DirInternal,"pp.db",False)
		curr = sqll.ExecQuery("SELECT * FROM appp")
		
End Sub

Sub Activity_Resume
	
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub list_select (ParentEventName As String,position As Int)
	Dim value As String
	 value = ListView1.GetLabelTextbyID("text1",position)
	 Msgbox(value,"")
	 	Dim amir As String = value
		For ia = 0 To curr.RowCount -1
		curr.Position = ia
		If  amir.Contains(curr.GetString("textapp")) = True Then
			Msgbox("این برنامه قبلا ثبت شده است لطفا برای تغییر دستور آن به بخش حذف رفته و پس از حذف دوباره امتحان کنید","خطا!")
		Else
			Log("amir")
			p.Initialize
			p = ph.GetInstalledPackages
			For Iss = 0 To p.Size -1
			Dim s As String
			s = ph.GetApplicationLabel(p.Get(Iss))
			If s = value Then
			appname = value
			packagename = p.Get(Iss)
			Panel1.RemoveAllViews
			
			Activity.RemoveAllViews
			Log("remove")
			Activity.LoadLayout("amir3")
			Panel1.LoadLayout("amir3")
			Log("load layout")
		End If
		Next
		End If
		Next
End Sub

Sub Button2_Click
	Msgbox("شما باید کلمه در اینجا وارد کنید به عنوان دستور که وقتی اون کلمه رو گفتید نرم افزار بیاد برنامه انتخاب شده رو باز کنه","توضیح"&CRLF&"توجه:فقط از یک کلمه استفاده کنید...در املاء کلمه دقت کنید تا برنامه عمل را بدرستی انجام دهد...از نوشتن کلمات بی معنی خودداری کنید...از کلمات فارسی استفاده کنید")
End Sub

Sub Button1_Click
	If EditText1.Text = "" Then
		Msgbox("یک دستور بنویسید و ادامه دهید","")
	Else
		sqll.Initialize(File.DirInternal,"pp.db",False)
		curr = sqll.ExecQuery("SELECT * FROM appp")
		For i = 0 To curr.RowCount -1
		curr.Position = i
		If EditText1.Text.Contains(curr.GetString("ins")) = True Then
			Msgbox("این دستور قبلا ثبت شده است لطفا دستور دیگری انتخاب فرمایید","خطا!")
		Else
		sql2.ExecNonQuery("INSERT INTO appp(id,textapp,package,ins) VALUES(null,'"& appname &"','"& packagename &"','"&EditText1.Text&"')")
		ToastMessageShow("اعمال شد",True)
		StartActivity(Main)
		End If
		Next

	End If
End Sub

[amir00700 66]

up

[مهدی ایزدی 9,203]

درود

بین این همه کد فهمیدن مشکل خیلی سخته

شما در حالت Debug ببینید از کدام خط ایراد میگیره ؟

 

در ضمن یک سوال

چرا یک قسمت گفتید php و قسمت دیگه phpphp ؟؟؟ 

ss = php.GetApplicationLabel(s)
		l1.Add(ss)
		bitm = phphp.GetApplicationIcon(p.Get(i))

[amir00700 66]

n

 

 

درود

بین این همه کد فهمیدن مشکل خیلی سخته

شما در حالت Debug ببینید از کدام خط ایراد میگیره ؟

 

در ضمن یک سوال

چرا یک قسمت گفتید php و قسمت دیگه phpphp ؟؟؟ 

ss = php.GetApplicationLabel(s)
		l1.Add(ss)
		bitm = phphp.GetApplicationIcon(p.Get(i))

دلیلی نداشتم فقط چون فورس میداد گفتم از دو تا جدا استفاده کنم

[مهدی ایزدی 9,203]

n

 

دلیلی نداشتم فقط چون فورس میداد گفتم از دو تا جدا استفاده کنم

به هر حال در صورت تمایل سورس رو پیوست کنید تا کد نویسی رو کامل بررسی کنیم 

[amir00700 66]

اینم سورس اقای ایزدی

خیلی ممنون میشم زود جوابمو بدید

کل پروژم گیره همینه

 

 

 

سورس

[پژمان نیکروان 6,055]

اینم سورس اقای ایزدی

خیلی ممنون میشم زود جوابمو بدید

کل پروژم گیره همینه

 

 

 

سورس

سلام

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

اما زمانی که یه برنامه فورس کلوز میشه و در حالت دیباگر هم ، نمیگه از کدوم خط هست ، نشون دهنده اینه که خطا از کلاس های کتابخانه هایی که توی پروژه استفاده کردید رخ داده.

اما احتمالا لاگ میده یه متنی رو... همون رو قرار بده.