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

AnswerCenter

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

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

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

اطلاعیه

کاربر گرامی

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

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


KMOHAMMAD

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

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

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

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

3 متوسط

درباره KMOHAMMAD

  • درجه
    کاربر باسابقه

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

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

  1. س لام مشکل مشخص شدن فایل ها حل شد ممنون اگر بخواهم پخش انلاین داشته باشم میشه بدون دانلود هم پخش بشه ؟؟؟ یا اول باید دانلود بشه بعد پخش بشه؟؟
  2. سلام خروجی کدهای اصلاح شده شما: همانطور که میبینید نوع فایل مشخص نیست؟؟ لینک ها همگی صوتی و Mp3 بوده ول یدر پوشه هیچی مشخص نیست
  3. سلام تشکراز جوابدهی شما من توی گلوبال اینو نوشتم dim k as int این هم کدهای داخل رویداد کلیک و دانلود کامل Sub Label2_Click Dim lbl As Label lbl=Sender ht.Initialize("ht",Me) Log(lbl.Tag) ht.Download(lbl.Tag) cur.Position=k 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 k=cur.GetString("id") o1=File.OpenOutput(File.DirRootExternal & "/app/seda",k,False) File.Copy2(i1,o1) i1.Close o1.Close ToastMessageShow("با موفقیت ذخیره شد",False) Else ToastMessageShow("دانلود نشد",False) End If End Sub حالا نمیدونم درست نوشتم یا نه ولی فایل ها را به تفکیک دانلود میکنه ولی مطابق با ایدی هم نیست و نوع فایل هم ناشناخته هم نیست من میخام مطابق با اون ستون نام که داخل دیتابیس هست ذخیره بشه و نوع فایل هم مشخص باشه که صوتی هست ولی اینجور نمیشه حتی اومدم dim k as string هم امتحان کردم و بجای Id ستون nam1 را دادم ولی به cur.postion=k توی رویداد کلیک گیر میداد سورس را بذارم ببینید؟؟؟
  4. این حلقه را کجا بذارم؟؟ cur.position=0 که جواب نمیده اگر هم بخام cur.position=i بذارم خودش با یک کلیک میاد همه فایل ها را دانلود میکنه میشه در این مورد راهنمایی بیشتر کنید ممنون
  5. 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 =cur.getstring("link1")' تگ لیبل 2 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) ht.Download(lbl.Tag) 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 من اینها را قبلا توی پست دیگه مطرح کردم منتها یکی از دوستان (mr mrdia)گفت که باید تایپیک بزنم و سوالم را مطرح کنم و کدها را بذارم اینها همه کدهای من هست من اومدم توی برنامه ام(صدای حیوانات) لینک های صوتی را داخل دیتابیس گذاشتم توی این اکتویتی اومدم اون لینک ها را با تگ و سندر دانلود میکنم ولی چند مشکل هست: 1- من وقتی 3 لینک را دانلود میکنم(در پوشه برنامه فقط یک فایل هست، و یک نام) نکته جالبتر اینکه وقتی من فایل اول را دانلود میکنم و پوشه را نگاه میکنم مثلا حجم فایل دانلود شه با نام پلنگ 2 مگ هست وقتی فایل دوم را دانلود می کنم باز در پوشه برنامه فقط یک فایل با نام پلنگ هست ولی با حجم 5 مگ و هرچی لینک ها را بیشتر دانلود میکنم همون یک فایل با نام پلنگ هست فقط حجمش زیاد میشه 2- من در دیتابیس خودم اومدم یه ستون به نامnam1 گذاشتم که میخام وقتی دانلود شد با نامهای که دراون ستون هست در پوشه برنامه فایل ها ذخیره بشه...ولی نمیشه 3- لینک های داخل دیتابیس من ثابت نیست و تغییر میکنه ولی فرمتش همگی mp3 هستش حالا توی بخش دانلود یا ذخیره سازی بگم فایل را بر اساس نام یا فرمت آخرش دانلود و بر اساس نامی که در ستونnam1 هستش ذخیره کن -قبلا من یه برنامه درست کرده بودم روش و ساختار دیتابیس اون مثل همین بود فقط اونجا لینکها ،لینک عکس بود با کتابخونه آریا گلاید به راحتی می اومد لینک ها را یکبار فقط (دفعات بعد پیغام تکراری میداد)دانلود و در برنامه ذخیره میکرد و حتی وقتی لینکها در دیتابیس تغییر میکرد اونها را به عنوان لینک جدید میشناخت و دانلود میکرد
  6. سلام من کدهای آقای ایزدی را برای پخش انلاین دقیقا کپی کردم تا ویرایش کنم برای کار خودم ولی اون خط که لینک صوت توش هست را خطا میده و قرمز میشه هرکارش کردم نشد درست بشه مشکل کار کجا هست ؟؟؟
  7. این ساختار دیتابیس من هست من میخام با کلیک بر روی دانلود فایل بیاد و لینک های که داخل ستون لینک 1 هست را فقط دانلود کنه و در پوشه برنامه به نام حیوان ذخیره کنه می تونید راهنمایی کنید البته لینک های فرمتشونmp3 هستش و تغییر میکنه ولی فرمت یکسان هست و میخام وقتی لینک جدید با فرمتmp3 گذاشتم دانلود کنه و اگر خواستیم دوبار کلیک کنه بگه که قبلا دانلود شه
  8. یه سوال: شما الان اومدید یه لینک فایل صوتی گذاشتید اگر من لینک هام داخل دیتابیس باشه(لینک فایل) اونو هم میشه با همین طریق پخش آنلاین کرد با نه؟ اگر میشه برای پخش انلاین باید چه لینکیاز فایل را داخل دیتابیس بذاریم؟ من الان لینک مسقیم دانلود را دارم ،همینه یه چیز دیگر هست؟
  9. یه سوال در همین زمینه: من اومدم داخل دیتابیس یه ستون گذاشتم برای لینک فایل های صوتی همه فایل های صوتی هم mp3 هستش حالا میخام ببینم میشه با این پسوند فایل کاری در بیسیک کرد که اولا: بیاد فایل را دانلود و در پوشه برنامه ذخیره کنه ثانیا:اگر دوباره خواستیم دانلود کنه پیغام بده که فایل قبلا دانلود شده مگر اینکه آدرس فایل صوتی جدید با فرمتMp3 بذاریم تا جدید دانلود کنه من قبلا داخل برنامه ای دیگه اومده بدم یه ستون لینک تصویر گذاشته بودم و اونو توبرنامه دانلود و ذخیره سازی میکردم که حتی با تغییر لینک عکس ولی با فرمت همون قبلی عکس های جدید دانلود میشه برای بار اول و مجدد میگفت که قبلا دانلود شده حالا دقیقا مثل همون برای صوت دارم ولی نمیدونم چیکار کنم این هم کدهاش:
  10. من اومدم کد زیر را برای اسپینر گذاشتم spiner1 .add(cursor.getstring("link")) و داخل این ستون دیتابیس 7 تا دارم که با اسپینر لود میشه حالا بفرمائید که توی ایتم کلیک اسپینر چطوری این هفت تا را از هم تفکیک کنم؟؟؟ اینجا هم باز هم اولی 0 میشه و اخری 6 یا فرق داره؟؟
  11. پیاده سازی شد ولی اینجوری نشون میده
  12. میشه یه آموزش یا سورس در مورد همین مورد بذارید؟ یعنی متنی که از دیتابیس گرفته شده لینک دار باشه که وقتی روش کلیک شد مثلا دانلود بشه و ...
  13. چطور میشه با حلقه بجای دیزاینر همین 6 لیبل را ساخت؟؟؟
  14. من با استفاده از آموزش اقای شاهدی جلور فتم ولی به فایل گیف من گیر میده بیسیک
  15. برای فراخوانی داده ها دیتابیس از اسپینر استفاده کردم حالا میخام توی رویداد کلیک اسپینر بگم ایتم انتخابی را توی دیتابیس ذخیره کن میشه راهنمایی کنید که تویی اون رویداد ایتم کلیک اسپینر چطری دستور بنویسم
×
×
  • جدید...