رفتن به مطلب

amardia

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

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

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

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

18 خوب

درباره amardia

  • درجه
    کاربر سایت
  • تاریخ تولد 7 خرداد 1367

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

  • محل زندگی
    َََآمل

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

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

  1. البته برای استفاده از سورس فول جیسون (چشمک+پوش پل)مجبور شدم b4a نسخه ی 9 به پایین استفاده کنم و api28 (تو اندروید x بدون هیچ خطایی فورس کلوز می داد اپ) ، می تونه بخاطر api 28 باشه؟
  2. هعی وای من ! روزه منو گرفته بود ظاهراً همون Okhttputils2 هستش کتابخونه م کد منیفست هم اضافه کردم از قبل ، منتها قبلا این مشکلو نداشتم جدیدا این مشکل پیش اومده تو اپ جدیدم
  3. بله ، تو اندروید های ورژن پایین تر (گوشی من 7) ، خیلی راحت دانلود می کنه و پخش هم می کنه !
  4. ممنون داداش ، ولی این کتابخونه ظاهرا پخش آنلاینه من مد نظرم دانلود ، ذخیره تو حافظه داخلی و پخش صوته
  5. Sub Process_Globals Dim sql As SQL Dim t As Timer Dim link As String="https://imgurl.ir/uploads/v869792_.mp3" End Sub Activity_Create : med.Initialize2("med") Dim jo As JavaObject jo.InitializeContext jo.RunMethod("ChangeColor",Array As Object(SeekBar1,Colors.Blue)) #if java import android.graphics.PorterDuff; import android.widget.SeekBar; public void ChangeColor(SeekBar seekbar,int Color) { seekbar.getProgressDrawable().setColorFilter(Color, PorterDuff.Mode.SRC_IN); seekbar.getThumb().setColorFilter(Color, PorterDuff.Mode.SRC_IN); } #End If Sub btn_play_Click If File.Exists(File.DirInternal,"v869792_.mp3") Then If med.Duration=0 Then med.Load(File.DirInternal,"v869792_.mp3") SeekBar1.Max=med.Duration SeekBar1.Value=0 Label2.Text=tabdil(med.Duration) Label1.Text="0:00" End If med.play t.Enabled = True btn_pause.Visible = True btn_play.Visible = False Else Dim res As Int=Msgbox2("صوت دانلود نشده است ، دانلود می کنید؟","دانلود صوت","بله","خیر","",Null) If res=DialogResponse.POSITIVE Then btndnl_Click End If End If End Sub Sub btndnl_Click If File.Exists(File.DirInternal,"v869792_.mp3") Then ToastMessageShow("صوت از قبل دانلود شده است",True) Else Dim ht As HttpJob ht.Initialize("ht",Me) ht.Download(link) ProgressDialogShow2("درحال دانلود، ممکن است چند دقیقه طول بکشد...",False) End If End Sub Sub jobdone(job As HttpJob) ProgressDialogHide If job.Success Then Dim out As OutputStream=File.OpenOutput(File.DirInternal,"v869792_.mp3",True) File.Copy2(job.GetInputStream,out) out.Close Msgbox("صوت دریافت شد","موفق") Else ToastMessageShow("دانلود با شکست مواجه شد!",True) End If End Sub
  6. سلام دوستان برای دانلود و پخش صوت تو اپم ، هیچ مشکلی توی گوشی خودم که اندروید 7.1 هست ندارم . تو بقیه گوشی ها هم ظاهرا مشکل نداره ، اما تو اندروید 9 ، دانلود می کنه و پخش نمی کنه ! بازار هم به همین گیر داده ، اگه میشه راهنماییم کنید .
  7. ممنون از پاسخگوییتون من می خوام اون سایت یا لینک بازاری که تو پوشه بهش میدم باز کنه
  8. سلام مجدد بزرگوار ، بنده اگه به خوبی شما و دیگر عزیزان پاسخ دهنده به کدنویسی وارد بودم که سئوال نمی پرسیدم همینقدری هم که دست و پا شکسته یه چیزایی بصورت ابتدایی می نویسم از امثال سایت شما یاد گرفتم ممنون میشم توضیح بدید چون خودم هر طوری باهاش ور رفتم نشد
  9. کسی نمی تونه راهنماییم کنه ؟ چطور برای باتن 1 دستور تعیین کنیم که مثلا یه برنامه تو بازار رو باز کنه یا به یه کانال تلگرام جوین بشه یا یه سایتی رو باز کنه ؟
  10. اگه میشه راهنمایی کنید چطوربرای button1 دستور تعریف کنیم؟
  11. تو این سایت پیدا نکردم متاسفانه اگه کسی نیاز داره می تونه از لینک زیر دانلود کنه : دانلود glide 3.7.0.jar
  12. درود آقا من یه مشکلی پیدا کردم و اونم اروریه که موقع کامپایل برنامه میده تصویر خطا اگه میشه تو حل این مشکل کمکم کنید سپاس
  13. amardia

    سرچ ویو

    آقا مجید ممنون از کمکت ، ولی اجرا نمیشه مث اینکه ورژن برنامه مون باهم متفاوته اما در کل اگه آموزش متنی یا تصویریش رو یکی از اساتید میذاشت تا قشنگ حالیمون بشه خیلی عالی میشد .
×
×
  • جدید...