MR.B4A

up

استاد، توی try گذاشتم نشد وقتی هم میخوام تاخیر بندازم داخلش، این خطارو میده:

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

سلام. اگه سورس برنامه رو میخواید، تشریف بیارید pv تلگرامی براتون بفرستم سورسشو داخل گروه گذاشتم از همونجا براتون یا فوروارد میکنم یا خودتون از گروه بردارید @Morteza_b4a آدرس گروه: https://t.me/programmingwithb4a

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

سلام. استاد من با استفاده از این کتابخونه شماره رندوم ساختم و توی دیتابیس ذخیره کردم اما وقتی تعداد رفت بالا، برنامه فورس میشه و این خطارو میده: اینم کدامه Private Sub pat_DoInBackground(Params() As Object) As Object For i=1 To i_count a=Rnd(0,9) b=Rnd(0,9) c=Rnd(0,9) d=Rnd(0,9) e=Rnd(0,9) f=Rnd(0,9) g=Rnd(0,9) items=sp_pish_number.SelectedItem&a&b&c&d&e&f&g sql.ExecNonQuery2("INSERT INTO tbl_contacts (name,number) VALUES (?,?) ",Array As String _ (txt_name.Text& " ",items)) pat.PublishProgress(Array As Object(i)) Next Return i End Sub به نظرتون مشکل کجاست؟!

خب این دستور ران تایم استاندارد هست؟ ( به منظور کپی کردن ) run.GetSafeDirDefaultExternal("")

استاد ممنون میشم پاسخ بدید

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

استاد ببخشید اگه بخوایم این دستورات رو ببریم داخل این کتابخونه PersianAsyncTask، چه طوری باید بازنویسی بشه؟! آموزشو سورس کدو همه رو دیدم، اما نتونستم بازنویسیش کنم ممنون میشم کمکم کنید

بعد این کتابخونه اصن ربطی به ManageExternalStorage داره یا هر دوشون دارن یه کارو انجام میدن؟!

سلام. استاد بحث کپی فایل در داخل حافظه داخلی گوشی هم از این طریق انجام میشه? من نمیتونم با دستور file.DirRootExternal فایل داخل حافظه داخلی کپی کنم. ( توی اندرویدای جدید )

استاد خیلی زحمت کشیدید. تشکر هدف من ساختن برنامه ای هست که شماره موبایل به صورت رندم تولید میکنه و توی مخاطبین ذخیره میکنه همه چی اوکیه، به جز ذخیره در مخاطبین که وقتی تعداد شماره ها میشه چندصدتا، برنامه کرش میکنه یعنی یه کلاس دارم که این تابع توش تعریف شده: Public Sub InsertContact(Name As String, Phone As String) As cuContact Dim values As ContentValues values.Initialize values.PutNull("account_name") values.PutNull("account_type") Dim rawUri As Uri = cr.Insert(rawContactUri, values) Dim rawContactId As Long = rawUri.ParseId values.Initialize values.PutLong("raw_contact_id", rawContactId) values.PutString("mimetype", "vnd.android.cursor.item/phone_v2") values.PutString("data1", Phone) cr.Insert(dataUri, values) values.Initialize values.PutLong("raw_contact_id", rawContactId) values.PutString("mimetype", "vnd.android.cursor.item/name") values.PutString("data1", Name) cr.Insert(dataUri, values) Dim cu As cuContact cu.Initialize Dim crsr As Cursor = cr.Query(dataUri, Array As String("contact_id", "display_name"), "raw_contact_id = ?", _ Array As String(rawContactId), "") crsr.Position = 0 cu.DisplayName = crsr.GetString("display_name") cu.Id = crsr.GetLong("contact_id") Return cu End Sub بعد با فراخوانی و مقداردهی این تابع، شروع به ثبت شماره تلفن های ساخته شده در کانتکت گوشی میکنه: cu.InsertContact(name,number)) cu اسم ماژولمه که تعریفش کردم منتها توی تعداد زیاد، برنامه کند میشه و کرش میکنه اما توی تعداد کم اوکیه این مشکلو میخواستم حل کنم

البته این شیوه ذخیره سازی فکر نمیکنم بهینه باشه درسته استاد؟ مثلا توی 700 تا شماره رو بخوای توی مخاطبین ذخیره کنی

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