اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

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


rasool.g

کاربر عادی
  • تعداد ارسال ها

    267
  • تاریخ عضویت

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

  • روز های برد

    4

آخرین بار برد rasool.g در مرداد 5

rasool.g یکی از رکورد داران بیشترین تعداد پسند مطالب است!

1 دنبال کننده

درباره rasool.g

  • درجه
    کاربر حرفه ای

آخرین بازدید کنندگان نمایه

681 بازدید کننده نمایه
  1. ویرایش مقادیر در listview

    سلام. تا جایی که یادمه listview معمولی متد تغییر ایتم نداشت. پس باید مقادیر رو داخل لیست قرار بدید و تغییرات رو هم در لیست انجام بدید و بعد از هر بار تغییر،محتوای لیست ویوو رو پاک و دوباره اون رو با یک حلقه از روی لیست بسازید . ازمتد clear برای پاک کردن اون استفاده کنید. فکر کنم متد SetSelection هم اسکرول رو بعد از دوباره سازی لیست ویوو به موقعیت ایتم مورد نظر میبره. بهتره از کتابخانه های داخل انجمن مثل Persian RecyclerView , AriaListView استفاده کنید که قابلیت ها و امکانات خیلی بیشتری داره. مثل قابلیت تغییر ایتم
  2. پشتیبانی دیتا بیس از زبان فارسی

    برای جداول : روی نام جدول کلیک کنید زبانه operations رو از بالا انتخاب و در قسمت Table options گزینه Collation رو به مقدار دلخواه مثلا utf8-general_ci تغییر بدید و روی go کلیلک کنید. برای فیلد ها : روی نام جدول مورد نظر کلیک کنید. روی زبانه structure کلیک کنید تا لیست فیلد ها نمایان بشه. هر فیلد یک گزینه change روبروش داره. روی اون کلیک کنید و Collation رو تغییر بدید و روی save کلیک کنید. برای دیتابیس : انتخاب دیتابیس operations زبانه Collation تغییر دادن اون و go
  3. پشتیبانی دیتا بیس از زبان فارسی

    سلام. منظورتون از Structure جدول هستش یا فیلد؟ از phpmyadmin استفاده میکنید؟
  4. سلام. اگه از لیست و مپ و ارایه استفاده کنید میشه با یه حلقه تمامش رو ریست کرد. مقادیر پیشفرض هم فکر کنم باید مثلا داخل یک پایگاه داده یا فایل متنی ذخیره بشه فکر کنم مپ گزینه مناسبی باشه برای ذخیره متغیر ها https://www.b4x.com/android/help/collections.html#map
  5. شبیه ساز برای اندروید 8 , 8.1

    سلام. در حال حاضر از چه شبیه ساز هایی میشه برای شبیه سازی اندروید 8 و 8.1 استفاده کرد؟ اندروید 8 با 8.1 تفاوت زیادی داره؟ با توجه به لینک های پایین از تاریخ گفته شده به بعد باید targetSdkVersion روی api 26 یا اندروید 8 قرار بگیره؟ در کد نویسی برای مثال ساخت سرویس forground تفاوتی هم ایجاد میشه؟ Android Tutorial - android.jar / targetSdkVersion / minSdkVersion | B4X Community - Android, iOS, desktop, server and IoT programming tools Android Developers Blog: Improving app security and performance on Google Play for years to come
  6. مانیتور کردن clipboard

    سلام. من از کد زیر داخل یک سرویس forground برای شنود کلیپ برد استفاده میکنم. می خواستم بدونم این کد، کد استاندارد و خوبیه و داخل تمام گوشی ها از جمله گوشی های جدید با اندروید 8 و 8.1 هم جواب میده ؟ یا کد و کتابخونه ی بهتری هم برای این کار وجود داره؟ برای چنین سرویسی یا کدی نیاز نیست چیزی به مانیفست اضافه بشه؟ ممنون Sub SetClipListener Dim R As Reflector Dim Cjo As JavaObject = R.GetContext Cjo = Cjo.RunMethod("getSystemService",Array As Object("clipboard")) Dim Listener As Object = Cjo.CreateEvent("android.content.ClipboardManager.OnPrimaryClipChangedListener","ClipChanged",False) Cjo.RunMethod("addPrimaryClipChangedListener",Array(Listener)) End Sub Sub ClipChanged_Event(MethodName As String, Args() As Object) Dim ClipBoard As BClipboard Dim text As String = ClipBoard.getText end sub
  7. کتابخانه کاربردی PersianZipManager

    ممنون جناب شاهپیری. مشکلم حل شد. بدون نمایش پیشرفت که خیلی اعصاب خورد کن میشه مخصوصا اگه طول بکشه. به یک روش دیگه تونستم برای خودم پروگرس بار درست کنم. در تست هایی که داشتم عمکرد دقیق و خوبی هم داشت. حتی تونستم برای استخراج فایل های xz هم پروگرس بار درست کنم. فقط با یک تایمر و متد سایز فایل . ممکنه روش استانداردی نباشه ولی ظاهرا خوب کار میکنه و میتونه این محدودیت رو برطرف کنه البته اون فایل حجیم با فشردگی زیاد رو خودم ساختم تا مشکلش تو گوشی های سریع تر هم کاملا مشخص باشه وگرنه با فایل های دیتابیس معمولی تو گوشی های کند تر هم همین مشکل رو داشتم . Dim t1 As Timer Dim ucsize As Long = 156912640 Dim przip As PersianZipManager t1.Initialize("t1",500) przip.initialize("przip") Sub Button1_Click przip.extractXZ(File.DirRootExternal&"/Folder/File.xz",File.DirRootExternal&"/Folder/File.db") t1.Enabled = True End Sub Sub t1_Tick Dim percent As Int = ((File.Size(File.DirRootExternal&"/Folder","File.db")) / ucsize) * 100 Label1.Text = percent & "%" ProgressBar1.Progress = percent End Sub Sub przip_onSUCCESS t1.Enabled = False Label1.Text = "100%" ProgressBar1.Progress = 100 End Sub
  8. بدست آوردن محتویات داخل پوشه

    سلام. شرمنده، خوب شد گفتید. پاک یادم رفته بود. Sub getextension(s As String) As String Dim text, pattern As String text = s pattern = "^(.*)\.([^.]+)$" Dim Matcher1 As Matcher Matcher1 = Regex.Matcher(pattern, text) If Matcher1.Find Then Return Matcher1.Group(2).ToLowerCase Else Return "" End If End Sub با یه تابعی مثل تابع بالا می تونید پسوند و نوع فایل رو به دست بیارید. اگه فایل پسوند نداشته باشه مقدار "" برگردونده میشه. کد بالا روی مقادیر زیر تست شده معمولی aaa.jpg aaa.bbb.ccc.jpg بدون پسوند aaaa aaaa. بدون نام .aaaa .htaccess
  9. حذف فایل از حافظه داخلی و خارجی

    B4A - Files (Core) چک کردن وجود فایل If File.Exists(File.DirDefaultExternal, "MyFolder/MyFile.txt") Then چک کردن وجود پوشه کد های زیر رو تست نکردم . ولی باید کار کنه If File.Exists(File.DirDefaultExternal & "/Myfolder", "") Then یا If File.Exists(File.DirDefaultExternal , "Myfolder") Then
  10. حذف فایل از حافظه داخلی و خارجی

    B4A - Files (Core) چک کردن وجود فایل If File.Exists(File.DirDefaultExternal, "MyFolder/MyFile.txt") Then چک کردن وجود پوشه کد های زیر رو تست نکردم . ولی باید کار کنه If File.Exists(File.DirDefaultExternal & "/Myfolder", "") Then یا If File.Exists(File.DirDefaultExternal , "Myfolder") Then
  11. سلام جناب شاهپیری. ببخشید می خواستم ببینم پیغامم اومد باستون؟

  12. کتابخانه کاربردی PersianZipManager

    سلام جناب شاهپیری. کتابخونه PersianZipManager در قسمت نمایش میزان پیشرفت ظاهرا یک مشکل کوچیک ولی جدی داره. امشب دوباره چند تا تست انجام دادم. مشکلش ربطی به نسخه اندروید یا مدل گوشی نداره. اگه حجم فشرده شده با حجم استخراج شده و واقعی فایل تفاوت زیادی داشته باشه. نمایش پروگرس و میزان پیشرفت هم مشکل پیدا میکنه و زودتر پر میشه (مشکلش مشخص میشه) . برای مثال فایل زیر رو که براتون قرار میدم لطفا تست کنید. حجم فشرده شده فایل 3 مگابایت و حجم واقعی فایل که یه فایل متنی با محتوای تکراری هستش نزدیک 1 گیگ هست. در هنگام تست مثل این میمونه که با استخراج 3 مگابایت از 0.9 گیگ پروگرس بار پر میشه (همون اول سریع پر میشه) و پس از مدتی زیادی پیغام تکمیل استخراج نمایان میشه و کار تموم میشه. b b - دانلود - آپلود رایگان فایل کد نمایش میزان پیشرفت هم فکر نکنم مشکلی داشته باشه Sub przip_onProgressing(percent As Int) ProgressBar1.Progress = percent End Sub اگه لطف کنید این مشکل رو زودتر پیگیری کنید ممنون میشم .برای برنامم واقعا بهش نیاز دارم. ممنون .
  13. اشکال در آپلود فایل بالای یک مگ

    شاید مربوط به محدودیت هاست باشه. هاست رایگان هستش؟
  14. سلام. من با html خیلی زیاد کار کردم. برای این کار هم راه حل های خیلی زیادی هست. ولی تبدیل html به متن ساده معمولا زیاد جالب در نمیاد و نمیشه دقیق و بدون ایراد هم معمولا این کار رو انجام داد. می تونید از متد های کتابخونه getElement استفاده کنید مثل اینجا یا اگه جاوا اسکریپت بلدید با متد های innerText و textContent و کتابخونه webviewExtras (لازم برای اجرای جاوا اسکریپت و دریافت مقادیر) می تونید این کار رو انجام بدین. (innerText vs textContent) (در getelements هم از webviewextras و متد innetText جاوا اسکریپت استفاده شده ) یا از همون Regex استفاده کنید.
  15. نمایش متن مطلب سایت با گت المنت

    سلام. من کد زیر رو امتحان کردم . این کد از دانلود فایل های اضافه (عکس-فیلم-صدا-flash-pdf-css-js-font) جلوگیری میکنه و بنظرم کمی بهینه تر هستش. ولی بازم مشکل تم های متفاوت در سایت های متفاوت و یا عوض شدن تم که می تونه باعث تغییر کردن کلاس ها بشه باقی هستش. از نظر سرعت هم کار های اضافه ای که انجام شده چند میلی ثانیه بیشتر زمان نمیگیره و احتمالا اگه برنامه سریع تر هم نشه. کند تر نخواهد شد. LoadUrl("http://mmf1500.r98.ir/") Sub LoadUrl (url as String) Dim Job1 As HttpJob 'OkHttpUtils2 Lib Job1.Initialize("Job1", Me) Job1.Download(url) End Sub Sub JobDone (Job As HttpJob) If Job.Success = True Then Dim html As String = Job.GetString html = Regex.Replace2("< ?link [^>]+>",Regex.CASE_INSENSITIVE,html,"") html = Regex.Replace2("(?:src|data) ?= ?""[^""]+""",Regex.CASE_INSENSITIVE,html,"") WebView1.LoadHtml(html) Else Log("Error: " & Job.ErrorMessage) ToastMessageShow("Error: " & Job.ErrorMessage, True) End If Job.Release End Sub Sub WebView1_PageFinished (Url As String) ToastMessageShow("WebView1_PageFinished",False) End Sub برای رزبلاگ از rss هم فکر کنم بشه برای گرفتن اخرین مطالب به صورت خلاصه استفاده کرد.