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

AnswerCenter

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

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

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

اطلاعیه

کاربر گرامی

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

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


m007moh

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

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

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

  • روز های برد

    7

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

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

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

179 عالی

درباره m007moh

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

روش های تماس

  • اسکایپ
    Array

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

  • محل زندگی
    Array

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

588 بازدید کننده نمایه
  1. نه این موضوع نیست چون من همه کدام توی یه دایرکتری هست و فقط پوشه نهاییش متفاوته و پروژه هایی ک جدید میسازم تو اون پوشه مشکلی ندارن از طرفی اسم پوشه هام هرچقد هم بلند باشه به ۲۵۰ نمیرسه
  2. سلام به دوستان هم زمان کامپایل و هم زمان باز کردن برنامه های قبلیم تو ورژن جدید 9.1 با این خطا مواجه میشم شما به این مورد بر نخوردید و آیا راه حلی براش دارید؟؟ The specified path, file name, or both are too long. The fully qualified file name must be less than 260 characters, and the directory name must be less than 248 characters. توی کدایی ک جدید ایجاد میکنم این مشکل را ندارم ضمن اینکه اسم فایل و پوشه هم بلند نیست "mn" هست
  3. اریا لیست ویو هم خوبه و محدودیت نداره من حدود 93 تا عکس را باهاش لود کردم با اسکرول ویو هم میتونید تو خاصیت اسکرول چنج تعریف کنید ک عکساتون به نوبت مثلا 20 تا 20 تا لود شه ک مشکلتون حل شه
  4. سلام اگر منظورتون اینه که جاشون نمیشه، باید از اسکرول ویو استفاده کنید ک جاشون بشه
  5. توی خط ۶۷ قسمت نام پسوند رو اضاف کتید Cur.getstring("nam1")&".mp3"
  6. نه اینی که شما نوشتی اشتباس ببینید من براتون توضیح میدم زمانی که شما میاید توی تابع 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
  7. m007moh

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

    این خط رو اینجوری تغییر بده aria.writeBitmapToFile(job.GetBitmap,File.DirRootExternal,cut&".jpg",100)
  8. 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
  9. m007moh

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

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

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

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

    کتابخانه NPSmileRating

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

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

    سلام منم دقیقا همینجور استفاده کردم کتابخونتون رو تست کنید مشکل نداشته باشه
  15. سلام شما اول یه تیبل دقیقا شبیه به به تیبل آنلاینتون درست کنید و بعد از دریافت داده های آنلاینتون با جیسون با استفاده از حلقه و مپی که داده ها رو میخونید دونه دونه insert کنید تو تیبل آفلاینتون فقط واسه اینکه داده تکراری ثبت نکنه شرط یونیک بودن مقدار id رو بذارید
×
×
  • جدید...