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

AnswerCenter

مرکز پاسخگویی به سوالات برنامه نویسی

  • مرجع پاسخگویی
  • تولید آموزش
  • سفارش پروژه

درخواست سفارش پروژه

اطلاعیه

کاربر گرامی

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

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


m007moh

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

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

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

  • روز های برد

    7

آخرین بار برد m007moh در اردیبهشت 24

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

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

179 عالی

درباره m007moh

  • درجه
    کاربر رو به رشد
  • تاریخ تولد ۹۲/۰۴/۱۴

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

561 بازدید کننده نمایه
  1. توی خط ۶۷ قسمت نام پسوند رو اضاف کتید Cur.getstring("nam1")&".mp3"
  2. نه اینی که شما نوشتی اشتباس ببینید من براتون توضیح میدم زمانی که شما میاید توی تابع main با استفاده از حلقه توی مولتی پنلتون لیست درست میکنید کارش اینه که میاد همه تیبلتون رو دونه دونه با استفاده ار پوزیشن چک میکنه زمانی که میرسید به آخر حلقه مقدار پوزیشن میشه آخرین مقدار و اگر بعد از اون توی برنامتون پوزیشن رو تغییر ندید همیشه مقدار آخر میمونه واسه همین باید لحظه ای ک روی او لینک کلیک میکنید باید کرزر رو بفرستید من کدتون رو چنتا تغییر میدم تست کنید Sub Process_Globals Dim sql1 As SQL Dim cur As Cursor End Sub Sub Globals Private ScrollView1 As ScrollView Private Panel1 As Panel Dim top As Int=2%y Private Label1 As Label Private Label2 As Label Dim hight As Int Dim su As StringUtils Dim ht As HttpJob Private Buttonexit As Button End Sub Sub Activity_Create(FirstTime As Boolean) 'Do not forget to load the layout file created with the visual designer. For example: Activity.LoadLayout("scpnl") File.Copy(File.DirAssets,"hefdah.db",File.DirInternal,"hefdah.db") sql1.Initialize(File.DirInternal,"hefdah.db",False) cur=sql1.ExecQuery("SELECT * FROM st") For i=0 To cur.RowCount-1 cur.Position=i Dim p As Panel p.Initialize("p") ScrollView1.Panel.AddView(p,2%x,top,95%x,85%y) p.LoadLayout("pnlpnl") Label2.Color=Colors.DarkGray Label1.Color=Colors.DarkGray Label1.Text=cur.GetString("matn1") hight=su.MeasureMultilineTextHeight(Label1,cur.GetString("matn1"))+15%y Label2.Text="دریافت صوت" p.Height=hight+10dip top=top+hight ScrollView1.Panel.Height=top Label1.Gravity=Gravity.CENTER Label2.Gravity=Gravity.CENTER Label2.tag =i 'اینجا تغییر کرده Next End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub Label2_Click Dim lbl As Label lbl=Sender ht.Initialize("ht",Me) Log(lbl.Tag) cur.Position=lbl.Tag'اینجا تغییر کرده ht.Download(cur.getstring("link1"))'اینجا تغییر کرده End Sub Sub JobDone(job As HttpJob) If ht.Success =True Then If File.IsDirectory(File.DirRootExternal,"app/seda")=False Then File.MakeDir(File.DirRootExternal,"app/seda") End If Dim i1 As InputStream Dim o1 As OutputStream i1=job.GetInputStream o1=File.OpenOutput(File.DirRootExternal & "/app/seda",cur.GetString("nam1"),False) File.Copy2(i1,o1) i1.Close o1.Close ToastMessageShow("با موفقیت ذخیره شد",False) Else ToastMessageShow("دانلود نشد",False) End If End Sub Sub Buttonexit_Click Activity.Finish ExitApplication End Sub
  3. m007moh

    ذخیره عکس انلاین

    این خط رو اینجوری تغییر بده aria.writeBitmapToFile(job.GetBitmap,File.DirRootExternal,cut&".jpg",100)
  4. m007moh

    ذخیره عکس انلاین

    شما با این نمونه کدی ک براتون میذارم راحت میتونید کاری که میخواید را انجام بدید Sub Globals 'These global variables will be redeclared each time the activity is created. 'These variables can only be accessed from this module. Dim piclinks As List Dim httpic As HttpJob Dim cut As Int=0 Dim aria As AriaPhotoshp End Sub Sub Activity_Create(FirstTime As Boolean) 'Do not forget to load the layout file created with the visual designer. For example: 'Activity.LoadLayout("Layout1") piclinks.Initialize piclinks.Add("http://mydiba.xyz/wp-content/uploads/29iluGHcoADaZNFwrioQ3dThvrD-181x268.jpg") piclinks.Add("http://mydiba.xyz/wp-content/uploads/5vvsW9s2UW794XgB3sCkpmA2BI6-181x268.jpg") piclinks.Add("http://mydiba.xyz/wp-content/uploads/zllvN7ujM5CYOaA55FTQ45fmta9-181x268.jpg") piclinks.Add("http://mydiba.xyz/wp-content/uploads/7eWAM1LWvyN8PmwdOSiL1klBY7t-181x268.jpg") httpic.Initialize("httpic",Me) httpic.Download(piclinks.Get(cut)) End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub jobdone(job As HttpJob) If job.Success And cut<4 Then aria.writeBitmapToFile(job.GetBitmap,File.DirRootExternal,Rnd(111,999)&".jpg",100) httpic.Download(piclinks.Get(cut)) cut=cut+1 ToastMessageShow("Done"&cut,False) Else ToastMessageShow("Finish",False) End If End Sub با این کد 4 تا عکس پشت سر هم ذخیره میشن تو DirRootExternal
  5. m007moh

    ذخیره عکس انلاین

    من تاحالا امتحانشون نکردم ولی ariaglide و picasso هم بیتمپ رو دانلود میکنن و میتونی ذخیرشون کنی ولی باید توی ترد جدا اینکار را انجام بدی
  6. m007moh

    ذخیره عکس انلاین

    درخواست های http رو نمیشه با حلقه فرستاد و دریافت کرد بهترین راهکار اینه که زمانی که یکی succes شد از همون httputiels که داری لینک جدید را بفرستی (اینجوری درواقع یه حلقه داری که دونه دونه و پشت سرهم اجرا میشه )
  7. شما یه متغیر گلوبال int تعریف کن و پوزیشن کرزرتون رو در لحظه کلیک توی اون بریز زمانی که دالود کامل شد اون مقدار رو به عنوان پوزیشن کرزری که میخواید نام از اون گرفته شه قرار بده
  8. m007moh

    کتابخانه NPSmileRating

    ممنون از کارایی که این چندوقته ارائه دادید اگه میشه تو قسمت فایلا که سمت چپ انجمن هست هم قرار بدید
  9. چیزی که خطا میگه اینه که توی اکتیویتی context خط 23 دارید استرینگ رو میریزید توی یه مقدار دابل اونجا رو چک کنید
  10. m007moh

    سورس کامل تپسل

    سلام منم دقیقا همینجور استفاده کردم کتابخونتون رو تست کنید مشکل نداشته باشه
  11. سلام شما اول یه تیبل دقیقا شبیه به به تیبل آنلاینتون درست کنید و بعد از دریافت داده های آنلاینتون با جیسون با استفاده از حلقه و مپی که داده ها رو میخونید دونه دونه insert کنید تو تیبل آفلاینتون فقط واسه اینکه داده تکراری ثبت نکنه شرط یونیک بودن مقدار id رو بذارید
  12. سلام من کداتون رو یه نگاه انداختم و متوجه یه مشکل شدم امیدوارم همین باشه و مشکلتون حل شه شما قبل از خط زیر باید پوزیشن کرزرتون رو مشخص کنید (cur.position) الان که معرفی نکردید تو حلقه ای که تو تابع Main هست پوزیشن کرزر مقدار آخر رو میگیره و همیشه همون مقدار میمنونه o1=File.OpenOutput(File.DirRootExternal & "/app/seda",cur.GetString("nam1"),False)
  13. بهتره کلک رشتی بزنی بیای یه پنل با آلفا صفر رو ادیت تکس بندازی که وقتی رو ادیت تکس لانگ کلیک میکنی درواقه رو پنل لانگ کلیک بشه
  14. m007moh

    خطای force close

    واسه رفع مشکل باید ارور را بگید تا بشه کمک کرد بهتر هست واسه مطمئن شدن از برنامه هاتون قبل از گذاشتن اون توی مایکتها توی سایت زیر که یک شبیه سازه و 6 تا دیوایس و 5 تا ورژن اندروید داره اونو تست کنید تا ببینید در شرایط مختلف چطور کار میکنه https://appetize.io/
  15. m007moh

    خطای ssl handshake aborted

    واسه مطمئن شدنتون کتابخونه AriaHttp استاد شاهدی رو هم تست کنید جستجو کنید تو انجمن هست
×