اگهی های من

[alibaghods908 4]

سلام دوستان عیدتون مبارک ان شاااله سالی پر از شادی و موفقیت داشته باشین.

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

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

http://s9.picofile.com/file/8355703126/mine.php.html

[alibaghods908 4]

در هم اکنون، alibaghods908 گفته است :

سلام دوستان عیدتون مبارک ان شاااله سالی پر از شادی و موفقیت داشته باشین.

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

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

http://s9.picofile.com/file/8355703126/mine.php.html

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

Sub Activity_Create(FirstTime As Boolean)

	Activity.LoadLayout("mine")

	s3.Initialize2(200%y,"s3")                     'همه
	s3.Color = Colors.rgb(238, 238, 238)
	Panel1.AddView(s3,0%x,0%y,100%x,100%y)

	ht_m.Initialize("ht_m",Me)
	sp1.Initialize1("در حال بارگذاری اطلاعات لطفا شکیبا باشید..",Colors.DarkGray,12,Typeface.LoadFromAssets("iransans.ttf"),8,0xFFF84040,True)
	
	Refresh
End Sub


Public Sub Refresh
	s3.Panel.RemoveAllViews
	addad = s3.Height - s3.Height
	s3.ScrollPosition = addad
	sp1.Initialize1("در حال بارگذاری اطلاعات لطفا شکیبا باشید..",Colors.DarkGray,12,Typeface.LoadFromAssets("iransans.ttf"),8,0xFFF84040,True)
	sp1.ShowDialog
	ht_m.Release
	ht_m.PostString("http://www.sakhtbuy.ir/ali/mine.php","user="&My_Codes.getUserName)
End Sub
'

Sub JobDone(Job As HttpJob)
	
	
	sp1.DisMissDialog
	If Job.Success Then
		
		Try
		
			js.Initialize(Job.GetString)
		
			Dim l1 As List = js.NextArray
		
			For i = 0 To l1.Size - 1
				Dim	m1 As Map = l1.Get(i)
		
			 
				Dim hame As Panel
				hame.Initialize("hame")
				hame.LoadLayout("aghahi")
				hame.Color = Colors.rgb(238, 238, 238)
				s3.Panel.AddView(hame,0%x,addad,100%x,100%y)
				addad = addad + 20%y
				label2onvan.Text = m1.Get("title")
				Label1shahr.Text = m1.Get("shahr")
				Label1mantaghe.Text = m1.Get("mantaghe")
			
			
			
			
				Dim data As Map
				data.Initialize
				data.Put("id",m1.Get("id"))
				data.Put("de",m1.Get("de"))
				data.Put("title",m1.Get("title"))
				data.Put("shomare",m1.Get("shomare"))
				data.Put("address",m1.Get("address"))
			
			
				Panel1.Tag = data
			
			
		
			Next
     
			s3.Panel.Height = addad + 20%y
		Catch
			Log(LastException)
		End Try
	
	Else
			
		
		MT.Initialize2("خطا در برقراری ارتباط با سرور",MT.LENGTH_LONG,MT.TYPE_ERROR,Typeface.LoadFromAssets("byekan.ttf"))
			
	End If
	
End Sub

 

[alibaghods908 4]

در 4 ساعت قبل، alibaghods908 گفته است :

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

Sub Activity_Create(FirstTime As Boolean)

	Activity.LoadLayout("mine")

	s3.Initialize2(200%y,"s3")                     'همه
	s3.Color = Colors.rgb(238, 238, 238)
	Panel1.AddView(s3,0%x,0%y,100%x,100%y)

	ht_m.Initialize("ht_m",Me)
	sp1.Initialize1("در حال بارگذاری اطلاعات لطفا شکیبا باشید..",Colors.DarkGray,12,Typeface.LoadFromAssets("iransans.ttf"),8,0xFFF84040,True)
	
	Refresh
End Sub


Public Sub Refresh
	s3.Panel.RemoveAllViews
	addad = s3.Height - s3.Height
	s3.ScrollPosition = addad
	sp1.Initialize1("در حال بارگذاری اطلاعات لطفا شکیبا باشید..",Colors.DarkGray,12,Typeface.LoadFromAssets("iransans.ttf"),8,0xFFF84040,True)
	sp1.ShowDialog
	ht_m.Release
	ht_m.PostString("http://www.sakhtbuy.ir/ali/mine.php","user="&My_Codes.getUserName)
End Sub
'

Sub JobDone(Job As HttpJob)
	
	
	sp1.DisMissDialog
	If Job.Success Then
		
		Try
		
			js.Initialize(Job.GetString)
		
			Dim l1 As List = js.NextArray
		
			For i = 0 To l1.Size - 1
				Dim	m1 As Map = l1.Get(i)
		
			 
				Dim hame As Panel
				hame.Initialize("hame")
				hame.LoadLayout("aghahi")
				hame.Color = Colors.rgb(238, 238, 238)
				s3.Panel.AddView(hame,0%x,addad,100%x,100%y)
				addad = addad + 20%y
				label2onvan.Text = m1.Get("title")
				Label1shahr.Text = m1.Get("shahr")
				Label1mantaghe.Text = m1.Get("mantaghe")
			
			
			
			
				Dim data As Map
				data.Initialize
				data.Put("id",m1.Get("id"))
				data.Put("de",m1.Get("de"))
				data.Put("title",m1.Get("title"))
				data.Put("shomare",m1.Get("shomare"))
				data.Put("address",m1.Get("address"))
			
			
				Panel1.Tag = data
			
			
		
			Next
     
			s3.Panel.Height = addad + 20%y
		Catch
			Log(LastException)
		End Try
	
	Else
			
		
		MT.Initialize2("خطا در برقراری ارتباط با سرور",MT.LENGTH_LONG,MT.TYPE_ERROR,Typeface.LoadFromAssets("byekan.ttf"))
			
	End If
	
End Sub

 

دوستان حل شد مشکل از فایل های php بود اپلود میکنم هر کی لازم داشت ازش استفاده کنه.یاعلی

http://s8.picofile.com/file/8355714926/mine.php.html