رفتن به مطلب

امین شاهدی

مدیر ارشد
  • تعداد ارسال ها

    1,647
  • تاریخ عضویت

  • آخرین بازدید

  • روز های برد

    130

پست ها ارسال شده توسط امین شاهدی

  1. ببخشید من آیتم هام رو از دیتابیس میگیرم و نمایش میدم 

    الان اخرین ایتم رو که میخواد نشون بده نصفه نشون میده 

    و کامل نمیاد پایین برای حل این مشکل باید چیکار کنم؟

     

    احتمالا Top آریالیست ویو روزیاد دادین

     

     

    آقای شاهدی!

    1- توی این ورژن آخر، برای استفاده از کاردویو باید چکار کنیم؟ از ریسورسهای کارد ویو استفاده میکنم، ارور میده!

    2- برای اینکه اولین نمایش لیست، آیتم ها با انیمیشن ظاهر بشن، یعنی قبل از اولین اسکرول، باید چیکار کرد؟

     

    1 - امکان طراحای لیوت B4a هست دیگه لیوت خودتون رو با کارد ویو طراحی کنید و بدین به آریالیست ویو

    2 - توی متد getView انمیشن های خودتون رو روی پنل اصلی اجرا کنید 

  2. شما دوتا کد رو اشتباه زدین ، اولی خط سوم کد زیر :

    Sub aria_DoInBackground(Params() As Object) As Object
    		Log("11111111111111 aria_DoInBackground  1♥♥♥♥♥")
    		Log(LastException)
    

    گفتین LastException رو لاگ کنه در حالی که توی try catch نیست و اروری وجود نداشته .

    Msgbox(result,"") 

    بنده بار ها گفتم که توی تردی جدا از ترد اصلی برنامه نمیتونین به UI دسترسی داشته باشین ولی شما توی متد DoInBackground اومدین و از  MsgBox استفاده کردین .

    دوم : 

    • پسندیدن 1
  3. باسلام

    لطفاکدهایی که برای ست کردن آریاپروگرس دیالوگ و آریا اسینک تسک روقراربدید منم باهمین مشکل مواجه شدم!

    باتشکر

     

    ست کردنه چی ؟ کار خاصی نداره که :| توی این سورس روند کپی شدن رو با پراگرس دیالوگ نمایش دادم ببینین : 

    
    
    • پسندیدن 1
  4. ببخشید

    الان من این هارو پست کردم میخوام داخل داخل اریا لیست ویو نمایش بدم چند تا lable هستش

     

    توی متد OnPostExecute مقدار هاتون رو که گرفتین ، ادپتر رو initialize کنین و مقدار ها رو بهش بدین

     

     

     

    سلام

    آقای شاهدی چطور میتونم چند لینک رو با هم دان بگیرم؟؟

     

     

    سلام کد ها رو تست نکردم اگه احیانا موردی داشت اصلاح کنید

    بدون حلقه : 

    Sub task_DoInBackground(Params() As Object) As Object
    	Dim f1,f2,f3,f4 As AriaFile
    	
    	f1.initialize(File.DirInternal,"File1.jpg")
    	downloader.Get("Address1").File(f1)
    	task.PublishProgress(1)
    	
    	f2.initialize(File.DirInternal,"File2.jpg")
    	downloader.Get("Address2").File(f2)
    	task.PublishProgress(2)
    	
    	f3.initialize(File.DirInternal,"File3.jpg")
    	downloader.Get("Address3").File(f3)
    	task.PublishProgress(3)
    	
    	f4.initialize(File.DirInternal,"File4.jpg")
    	downloader.Get("Address4").File(f4)
    	task.PublishProgress(4)
    
    	Return "Downloads Done"
    	
    End Sub
    
    Sub task_OnProgressUpdate(Progress As Int)
    	ToastMessageShow("File "& Progress &" Downloaded.",False)
    End Sub
    
    Sub task_OnPostExecute(Result As Object)
    	ToastMessageShow(Result,True)
    End Sub
    

    با حلقه : 

    Sub Activity_Create(FirstTime As Boolean)
    
    	task.Run(Array("Addres1","Addres2","Addres3","Addres4")) 'har tedad address bedin download mikone'
    	
    End Sub
    
    Sub task_DoInBackground(Params() As Object) As Object
    	
    	For i=0 To Params.Length-1
    		Dim AFile As AriaFile
    		AFile.initialize(File.DirInternal,"F"&i&".jpg")
    		downloader.Get(Params(i)).File(AFile)
    		task.PublishProgress(i+1)
    	Next
    
    	Return "Downloads Done"
    	
    End Sub
    
    Sub task_OnProgressUpdate(Progress As Int)
    	ToastMessageShow("File "& Progress &" Downloaded.",False)
    End Sub
    
    Sub task_OnPostExecute(Result As Object)
    	ToastMessageShow(Result,True)
    End Sub 
    • پسندیدن 2
  5.  بله این سورس تست شده، و ایشون هم توانایی لود کردن تصاویر رو برای بنده نداشتن!

     

    ممکنه از پیکاسوتون باشه ، کتابخونه پیکاسو رو پاک کنین ، این رو دانلود کنین و جایگزین کنین شاید درست شه : 

    https://search.maven.org/remote_content?g=com.squareup.picasso&a=picasso&v=LATEST

     

     

    Dim ariamsg As AriaListView
    	Dim ariaadb As AriaAdapterB4aLayout
    Dim ariamsg2 As AriaListView
    	Dim ariaadb1 As AriaAdapterB4aLayout
    

    این از اداپتر

    	If job.GetString.Contains("dont parametr for shows")=True Then
    						Dim sk As DSSnackbar
    							sk.Initialize("sk",Activity," خالی میباشد",sk.DURATION_LONG)
    							sk.Show
    				Else
    					Dim list4() As String=Regex.Split("<br>",ariamsg.GetString)
    						For i=0 To list4.Length-1
    							items6.Add(list4(i))
    						Next
    							ariaadb.Initialize(items6.Size).ToListView(ariamsg)
    

    اینم کد های http job که دقیقا مشکل از اینه

    Dim p58 As Panel
    	p58.Initialize("p88")
    	p58.LoadLayout("temp3")
    	rowView.AddView(p58,0,0,100%X,40%Y)
    	Dim lit4() As String=Regex.Split("#",items6.Get(Position))
    	lbl_smsonvan.Text=lit4(0).Trim
    

    اینم کد arialist

     

     

    ببینین مشکل از آریالیست ویو نیست ، احتمال 99% از Tab هاتون باشه  ، ادپتر و لیست هاتون با هم قاطی شده باشه و اینجوری شده ، کد هاتون رو مرتب تر کنید و ببینین مشکل از کجاست ...

    اگه از مالتی تسک AriaAsynkTask استفاده کنین خیلی بهتره , و خیالتون راحت میشه بابت دانلود و جایگزاری اطلاعات توی لیست ویو هاشون (آموزش مالتی تسک توی تاپیک AriaAsynkTask هست)

    • پسندیدن 1
  6. چرا سورسهایی که گذاشتین، کلا عکسها رو لود نمیکنه برای من؟!

    چه از متد asset و چه از url ! عین سورس رو اجرا می کنم ولی لود نمیشه! در صورتی که روی سیستم دوستان مشکلی نداره!

     

    سورس ها که درسته دوستان هم استفاده کردن ، کد ها هم که یکیه ، شاید مشکل از شبیه سازی چیزی باشه ، اینو باید خودتون بفهمید ، اینجوری بدون دیدن چیزی که نمیتونیم نظری بدیم 

     

                                             Activity.RemoveAllViews
    					Activity.LoadLayout("messages")
    					buylist.Initialize("msg",Me)
    					mansoxha.Initialize("msg2",Me)
    					Dim cur1 As Cursor
    					cur1=sql1.ExecQuery("SELECT * FROM smsid")
    					For i=0 To cur1.RowCount-1
    						cur1.Position=i
    						Dim id As String
    						id=cur1.GetString("smsid")		
    					Next
    					msg.PostString("***","smsid="&id)
    					msg2.PostString("***","smsid="&id)
    					pcc.Initialize
    					Dim pp1 As Panel
    					pp1.Initialize("")
    					pp1.Color=Colors.RGB(238,238,238)
    					pcc.AddPage(pp1,"جدیدترین ها")
    					Dim pp2 As Panel
    					pp2.Initialize("")
    					pp2.Color=Colors.RGB(238,238,238)
    					pcc.AddPage(pp2,"مورد علاقه")
    					pp2.AddView(ariamsg2,0,1%y,100%x,85%Y)
    				vp.PageContainer=pcc
    				TabLayout1.Color=Colors.RGB(255,255,255)
    				TabLayout1.TabIndicatorColor=Colors.RGB(244,132,0)
    				TabLayout1.SetTabTextColors(Colors.RGB(60,60,60),Colors.RGB(60,60,60))
    				TabLayout1.TabGravity=TabLayout1.GRAVITY_FILL
    				TabLayout1.TabMode=TabLayout1.MODE_FIXED
    				TabLayout1.SetViewPager(vp)
    				pp1.AddView(ariamsg,0,1%y,100%x,85%Y)
    

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

     

     

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

    • پسندیدن 1
  7.  

    سلام، استاد شاهدی مدتی نیستن ، این سورس خدمت شما ،
     
    امکانات : 
     
    - استفاده از لیوت b4a
    - تغییر آیتم های یک ردیف با کلیک شدن روی باتن 
    - استفاده از Picasso
    - لیمیت دادن و اضافه شدن آیتم های جدید با رسیدن اسکرول به آخر
     

     

     

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

  8. با سلام خدمت اساتید

    من مثال جدید کتابخونه (AriaListVieCustomList) رو اجرا میکنم، ارور زیر رو میده، ریسورس رو ریختم، ورژن اندرویدمم 6.0 هست(C:\B4A-all-in-one\SDK\platforms\android-6.0\android.jar)

     

    java.lang.NoSuchMethodError: android.widget.PopupMenu.getDragToOpenListener

     

    لطفا راهنمایی بفرمایید

     

    حتما کدی مثل کد زیر وجود داره که از توی برنامه پاکش کن درست میشه ، تاثیری هم توی باز شدن پاپاپ نداره 

    popup.SetDragToOpenListener(...)
    
    • پسندیدن 1
  9. دوست عزیز توی 4 دقیقه 2 تا پست دادین ! لطف کنین اسپم ندین و توی یه  پست بگین حرفتون رو !    

     

    در مورد آپلود هم کامل آپلود انجام میشه، حجم فایل هم درسته ،  تست کردم و دوستان هم  تست کردن کاملا درست کار میکنه

    • پسندیدن 1
  10. چیزایی عجیبی میگین خدایی ، مشکلاتی که تا الان داشتین : 

    -هرکاری میکنم آپلود نمیشه 

    -مشکل بعدی دسترسی php  :l

    -مشکل بعد میگین فایل زیر 2مگابایت آپلود میشه ولی بالای 2 مگابایت آپلود نمیشه ! ! ! ! :l

    - الان مییگین فایل txt. آپلود میشه ولی zip. آپلود نمیشه  ! ! ! ! !  

     

     

    مشکلات عجیب قریبی که تقریبا ربطی به کتابخونه نداره و کل کد آپلود یه خطه 

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

     

    به قول شهاب اسکندری گل گلاب میگه چون کتابخونه رو یه ایرانی نوشته پس هر مشکلی هر جای برنامه داشته باشن فکر میکنن کتابخونه باگ داره ، در جالی که تنها کاری که ما کردیم تبدیل یه سری کد ساده از جاوا برای بیسیکه پس هر مشکلی دلیل نمیشه کتابخونه مورد داره ،

    شما مشکل دسترسی دارین حالا ممکنه از اندروید 6 و RuntimePermission باشه و یا هرچیز دیگه که به هیچ عنوان به این تاپیک ربطی نداره

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

    • پسندیدن 6
  11. سلام مهندس شاهدی

    استاد فکر میکنم اگه اشتراک گذاری همزمان رو هم به کتابخونه اضافه کنی تکمیل میشه.

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

    هر دو رو هم میخام از دیتابیس اشتراک بدم.

     

    سلام ، ببینید این چیزی که میگین بستگی به این داره که برنامه ها این رو پشتیبانی کنن ! برای مثال تلگرام این رو پشتیبانی نمیکنه ، ولی اینستاگرام حالا چیزی که از قبل نو ذهنمه اینه که این قابلیت رو داره تا به اینتنت اطلاعات اضافی بدین مثلا یه کپشن برای عکس  و اون اینتنت رو به  اینستا بدین و اینستا همزمان با نمایش عکس کپشن رو هم از اینتنت بگیره و کنارش نمایش بده که حالا شیر رو بزنید و بره رو تایم لاین ، برای همین این یه چیز کلی نیست و ممکنه برای هر برنامه متفاوت باشه ، برای اینجور مسایل بهتره با توجه به برنامه ای که میخواین توش شیر رو نجام بدین اینتنت خودتون رو بنویسید

    • پسندیدن 1
  12. چه اروری میده ؟ ارور رو بدین  ، آدرس php توی سورس که اشتباه بود ، اگه تغییر دادین آدرس php خودتون رو هم بدین تست کنم روش ، اگه php درست باشه باید بعد از باز کردنش توی مرورگز کلمه fail رو اکو کنه و  نمایش بده

    • پسندیدن 2
  13. ببینید شما فولدری رو انتخاب کردین که از قبل موجود نبوده و شما باید اون رو بسازین ، کدتون رو به کد زیر تغییر بدین

    Sub ATask_DoInBackground(params() As Object) As Object
    	
    	Dim ArDirectory As AriaFile 'sakhte ye ariafile be onvane pushe
    	ArDirectory.initialize2(File.DirInternal & "/Spic") ' pushei ke mikhain ax tush zakhire she 
    	ArDirectory.Mkdir ' sakhte folder
    	
    	Dim arFile As AriaFile ' file i ke mikhain ax tush zakhire she
    	arFile.initialize(ArDirectory.GetPath, FileName&".jpg" ) 'address ArDirectory yani pushe va esme file o midim
    	arFile.Delete ' axo delete mikonim  (method boolean barmigardune (dar surati ke khastin check konin) : age false bud yani file i nabude o pak shodan anjam nashode va age true bud yani file ba moafaqiat pak shode )
    	
    	Return ADwnldPic.Download(params(0),arFile.GetPath)
    	
    End Sub 

    ____________________

    • پسندیدن 2
  14. سلام ، مورد اول اینکه آدرس output رو اشتباه دادین و لازم نیست اول اسم / بزنین ، مورد دوم اینکه ممکنه از map باشه ، شما یه map خالی به آپلودر بده ،

    شما به جای Output هم بیا یه متن رو برای مثال توی فایل ذخیره کن تا فایل خالی نباشه (کد زیر رو تست کردم و موردی نداشت و آپلود انجام شد ) :

    Sub Service_Create
    	
    	File.WriteString(File.DirInternal , "iman.txt" , "Upload Test AminShahedi AriaGP")
    	up.Initialize("task")
    	up.Run(Null)
    
    End Sub
    
    Sub task_DoInBackground(params() As Object) As Object
    	
    	Try
    		Dim AFile As AriaFile
    		Dim EmptyMap As Map
    		EmptyMap.Initialize
    		AFile.initialize(File.DirInternal , "iman.txt")
    		Return down.UploadFile("Php Address",AFile,EmptyMap)
    	Catch
    		Return LastException.Message
    	End Try
    	
    End Sub
    
    Sub task_OnPostExecute(param As Object)
    	Dim callback As String = param
    	Log(callback)
    End Sub
    
    • پسندیدن 3
×
×
  • اضافه کردن...