رفتن به مطلب

ali mo

کاربر رو به رشد
  • تعداد ارسال ها

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

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

  • روز های برد

    6

آخرین بار برد ali mo در 11 خرداد

ali mo یکی از رکورد داران بیشترین تعداد پسند مطالب است !

اعتبار در سایت

120 عالی

6 دنبال کننده

درباره ali mo

  • درجه
    کاربر سایت
  • تاریخ تولد 25 آبان 1397

مشخصات پروفایل

  • محل زندگی
    c\programfiles

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

بلوک آخرین بازدید کننده ها غیر فعال شده است و به دیگر کاربران نشان داده نمیشود.

  1. ساتم وقت بخیر ابتدا باید بفهمید که کی تموم میشه مدیا با استفاده از رویداد پایان mediaplayer می تونید این کار رو انجام بدید و توسط ساب پاس هم می تونید این رویداد خروج کاربر رو بفهمید شمارنده رو کنتر بندازید و با مقدار ذخیره شده چک کنید انجام بدید هر جا که مشکل داشتید بفرمایید
  2. ali mo

    اینتنت نصب apk

    سلام وقت بخیر پست زیر رو ببینید : و مطلب دیگه هم که هست برای نصب داخل اندروید جدید باید به یک صفحه منتقل کنید کاربر رو تا اجازه نصب توسط اون برنامه رو به برنامه شما بده
  3. سلام وقت بخیر کافیه اون متغییر رو داخل قسمت Process_Globals اون اکتیوی تعریف( یا کلاس) کنید بعد مقدار رو ازش بگیرید یا براش ارسال کنیم به صورت زیر name_activity.mq = 100 اگر هم درست متوجه سوال نشدم بیشتر توضیح بدید
  4. سلام وقت بخیر شما قبل از این که لایوت لود کنی حرف زدی دربارهش این مقادیر رو m=lbltimer.Text lbltimer.Text=0 m=0 پاک کنید در قسمت بعد از اکتویتی لود لایوت کپی کنید و از قسمت گلابالس حذف کنید
  5. مرسی منفیست رو ویزایش کردم ولی نشد مرسی یک کزینه داره داخلش به نام make plugin که به راحتی پکیج ویرایش می کنه بابت اکتویتی های هم که داخل خود برنامه ست شده با پکیج مثل این که داخل فایل ریسورس هست این برنامه کلا فایل های برنامه replace می کنه با پکیج منتها نمی دونم چرا عملی نمیشه تو عمل
  6. سلام وقت بخیر خدمت همه دوستان اقا یه سوالی این برنامه apk editor چه جوری پکیج نیم برنامه رو تغییر میده و خروجی میده داخل برنامه (یعنی چه دستکاری داخل فایل apk برنامه می کنه و خروجی میده ؟ )
  7. خود عکس رو ذخیره می کنه داخل دیتابیس (بازم بررسی کنید شاید من دقت نکردم)
  8. با دیتابیس ذخیره می کنه (sql)و می تونید مسیرش داخل اینشیالایز انتخاب کنید که داخل فایل دایر اینترنال باشه و روی دیتابیس می تونید رمز بزارید سورس کد کتابخونه رو مشاهده کنید کاملا متوجه می شید (ولی خوب اگر در مورد امنیت می پرسید خودتون بررسی کنید امنیت خیلی بالای نیست بیشتر برای ذخیره ارایه بی ارزش داخل برنامه استفاده میشه هر چند داخل دایر اینترنال پرویت اطلاعات تا اونجای که بنده می دونم و نیاز به دسترسی خواندن نوشتن هم نیست برای این مسیر )
  9. سلام وقت بخیر خیلی راحت دوست عزیز کافیه هنگامی که خرید انجام میشه کد زیر یعنی ایجاد فولدر اجرا بشه File.MakeDir(File.DirInternal,"name_posh") که name_posh می تونه هر چی باشه بعد برای تست کافیه ابتدا ساب زیر رو یه جای پروژه تون اضافه کنید داخل همون اکتویتی Sub test_boy1 As Boolean Return File.Exists(File.DirInternal,"name_posh") End Sub بعد به راحتی برای بررسی خرید بیایید چک کنید که تست بوی true یا false If tools.test_boy1 = True Then 'پرداخت صورت گرفته End If اگه true بود کار مورد نظر تون انجام بدید موفق باشید
  10. سلام وقت بخیر خدمت همه دوستان براتون یک کتابخونه با خود کلاس ارل (KeyValueStore) که البته یه سری تغییرات داخلش دادم ساختم شما با کتابخونه am_save به راحتی می تونید انواع داده هاتون از جمله ارایه ها ( اینتیجر و استرینگ و...) و لیست و ابجکت و حتی بیتمپ که همون عکس هستش رو ذخیره کنید و هر موقع خواستید اون ها رو حذف کنید یا استفاده کنید یکی از مزیت های این کتابخونه این که به راحتی می تونید ازش استفاده کنید و نیازی نیست در گیر نوشتن فایل بشوید و کاری های اضافی کنید علاوه بر اون می تونید داده های رو که ذخیره کردید روش رمز هم بزارید (دیتابیس رمز دار) سورس کتابخونه به علاوه خود کتابخونه پیوست شد نکته : حتما دسترسی نوشتن رو برنامه تون بدید. مثال های کتابخونه : 'حتما حتما دسترسی ذخیره سازی رو بگیرید به صورت زیر Dim ru As RuntimePermissions ru.CheckAndRequest(ru.PERMISSION_WRITE_EXTERNAL_STORAGE) Wait For Activity_PermissionResult (Permission As String, Result As Boolean) If Result == False Then Msgbox("دسترسی ذخیره ضروری هست...","") ru.CheckAndRequest(ru.PERMISSION_WRITE_EXTERNAL_STORAGE) Wait For Activity_PermissionResult (Permission As String, Result As Boolean) End If 'اینشیالایز می کنیم محل ذخیره اطلاعت رو با اسم خودتون If FirstTime Then kvs.Initialize(File.DirDefaultExternal, "datastore") End If Try 'ایجاد یک ارای اینتجر و ذخیره کردن اون داخل دیتا Dim size_array As Int = 5 Dim arint(size_array) As Int For i = 0 To size_array-1 arint(i) = i*5 Next kvs.PutObject("arrayint", arint) 'گرفتن اون ارایه Dim arnint() As Int = kvs.GetObject("arrayint") For i1 = 0 To arnint.Length-1 Log($"{${i1}} : "$ & arnint(i1)) Next Catch Log(LastException) End Try 'ایجاد یک ارایی استرینگ و ذخیره کردن اون داخل دیتا Dim ar(20) As String For i = 0 To 5 ar(i) = ("am_save #" & i) Next kvs.PutObject("array", ar) 'گرفتن اون ارایه Dim arn() As String = kvs.GetObject("array") For i1 = 0 To arn.Length-1 Log(arn(i1)) Next Try ' ذخیره یک مقدار ساده مانند ساعت kvs.PutSimple("time", DateTime.Now) 'گرفتن مقدار ساده Log(DateTime.Time(kvs.GetSimple("time"))) 'حذف مقدار اون kvs.Remove("time") Catch ToastMessageShow("خطا",True) Log(LastException) End Try Try ' 'ذخیره مقادیر بیت مپ یا همون عکس kvs.PutBitmap("bitmap1", LoadBitmap(File.DirAssets, "ic.png")) ' 'گرفتن مقدار عکس و نمایش در خود اکتویتی ImageView1.Color = Colors.Black ImageView1.Bitmap = kvs.GetBitmap("bitmap1") ' 'حذف اون مقدار kvs.Remove("bitmap1") Catch ToastMessageShow("خطا",True) Log(LastException) End Try Try 'ایجاد یک لیست و ذخیره کردن اون داخل دیتا Dim list1 As List list1.Initialize For i = 1 To 10 list1.Add("Item #" & i) Next kvs.PutObject("list1", list1) 'گرفتن اون لیست Dim list2 As List = kvs.GetObject("list1") Log(list2) Catch ToastMessageShow("خطا",True) Log(LastException) End Try Try ' 'لیست رمز گذاری شده (دیتابیس) kvs.PutEncyptedObject("encrypted list", list1, "پسورد صحیح") Try 'در حالت دیباگ این مورد کار نمی کنه و در حالت ریلیس کمپایل کنید list2 = kvs.GetEncryptedObject("encrypted list", "پسورد اشتباه") Catch Log("Wrong password!") End Try 'نمایش لیست رمز دار با لاگ list2 = kvs.GetEncryptedObject("encrypted list", "پسورد صحیح") Log(list2) Catch ToastMessageShow("خطا",True) Log(LastException) End Try Am_save.zip
  11. سلام وقت بخیر دوستان این اولین کتابخونه منه که شاید مشابه هش خیلی باشه ولی من برای خودم نوشتم و گفتم برای شما هم به اشتراک بزارم که بیشتر جنبه تمرینی داره با استفاده از این کتابخونه می تونید اعداد رو از فارسی به انگلیسی و انگلیسی به فارسی بنویسید که نحوه کار کردن کتابخونه خییلی ساده است ابتدا کتابخونه رو وارد کنید و سپس کد از کتابخونه استفاده کنید ''''''''''''''''''''''' ''''''''''''''''''''''' Dim am As AM_ChangeFa_To_En Dim text As String text = $"نتیجه : ${am.EnToFa_TXT("ابن متن دارای حروف انگلیسی هست که تبدیل به فارسی می شود 1234567890") } ${am.FaToEn_Number("۱۲۳۴۵۶۷۸۹۰") } تبدیل فقط عدد فارسی به انگلیسی ورودی فقط اعداد ${am.FaToEn_TXT("سلام این متن دارای اعداد فارسی ۱۲۳۴۵۶۷۸۹۰ هست که تبدید به انگلیسی می شود")} "$ MsgboxAsync(text,"نتیجه : ") دریافت فایل lib.rar
  12. سلام وقت بخیر شاید موارد زیر کمکتون کنه چک کنید که حافظه خارجی تون در دسترسی باشه حتما (یکبار خاموش کنید رم رو در بیاورید و تمیز کنید و سپس جا بزنید) اگر دیتا برنامه ها براتون مهم هست شاید بتونید با دانلود کردن همون برنامه و نصب برنامه بر روی فایل قبلی قرار بگیره و دیتا ها برنامه برگرده
  13. سلام وقت بخیر متغییر prtt یا همون تعریف متغیر اولیه کلاس رو داخل ساب Process_Globals تعریف کنید شاید درست بشه(مقدار ست رو نه)
  14. ali mo

    نوشتن حلقه For

    سلام وقت بخیر کافیه خود حلقه رو بنوسید و داخلش بگید اگر این اعداد بودن ننویس کدش for i = 1 to 10 if i <> 8 or i <> 5 then ToastMessageShow(i,True) 'log(i) end if next علامت <> همونطور که می دونید به معنی غیر از این هستش
  15. سلام وقت بخیر از تابع زیر استفاده کنید Sub FormatFileSize(Bytes As Float) As String Private Unit() As String = Array As String(" Byte", " KB", " MB", " GB", " TB", " PB", " EB", " ZB", " YB") If Bytes = 0 Then Return "0 Bytes" Else Private Po, Si As Double Private I As Int Bytes = Abs(Bytes) I = Floor(Logarithm(Bytes, 1024)) Po = Power(1024, I) Si = Bytes / Po Return NumberFormat(Si, 1, 3) & Unit(I) End If End Sub نحوه استفاده از تابع به صورت زیر است : dim size1 as string size1 = FormatFileSize(File.Size(File.DirRootExternal,"/Neshani Folder Ya File")) lbl1.text= size1 lbl هم که نام لیبل می تونید نام لیبل خودتونو بدید پایین برای فولدر جفت شو تست کنید Sub CalcSize(Folder As String, recursive As Boolean) As Long Dim size As Long For Each f As String In File.ListFiles(Folder) If recursive Then if File.IsDirectory(Folder, f) Then size = size + CalcSize(File.Combine(Folder, f),recursive) End If End If size = size + File.Size(Folder, f) Next Return size End Sub
×
×
  • جدید...