m007moh

پاسخگو و راهنما
  • تعداد ارسال ها

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

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

  • روز های برد

    34

تمامی ارسال های m007moh

  1. خصوصی پیام بدید
  2. واسه این کار لازمه php سمت سرور نوشته بشه پوشه رو نمیشه ارسال کرد و باید با استفاده ار حلقه فایل های داخل پوشه رو ارسال کرد
  3. خواستی برنامش رو برات مینویسم
  4. واسه کم کردن حجم عکسات از این سایت استفاده کن https://tinypng.com/
  5. از این کتابخونه استفاده کن http://s9.picofile.com/file/8281648976/ManamPersianDate.zip.html Dim mn As ManamPersianDate mn.PersianToGregorian(2012,12,12)
  6. داداش چنتا مورد رو من بگم 1- کار با api همونقدر که کار رو آسون میکنه دقت زیاد هم میخواد 2- Api باید راهنمای کامل داشته باشه 3- شما کلا خاکی رفته بودی 4- کدای jobdone اکتیویتی login رو مث زیر بذار Sub jobdone(job As HttpJob) ProgressDialogHide If job.Success = True Then Dim json As JSONParser Dim mp,mp2 As Map Dim lst As List json.Initialize(job.GetString) mp=json.NextObject lst=mp.Get("messages") mp2=lst.Get(0) Log(mp2.Get("type")) ToastMessageShow(mp2.Get("text"),True) Else ToastMessageShow("Error: " & job.ErrorMessage, True) End If job.Release End Sub Sub signup1_Click StartActivity(signup) Activity.Finish End Sub
  7. من ندارم از کسی که تایپیک رو زده تو خصوصی بپرسید
  8. خب الان شما سورس میخواید یا برنامه کامل؟؟
  9. اینجا رو یه نگاهی کنید https://answercenter.ir/topic/13542-کتابخانه-pncaptchapicker-گرفتن-هرنوع-کپتچاهای-تصویری-از-وب-ویو-بصورت-bitmap/
  10. شما باید آدرس اصلی رو اینجا بذارید تا ما ببینیم شما آدرس مستقیم کپچا رو گذاشتید
  11. واسه این کار شما دوتا کار منتقی میتونید انجام بدید 1- مطمدنید که قسمت دوم .text هست که بیاید اینکار رو کنید مثلا متنتون تو استرینک std هست std=std.Replace(".text","") این کار میاد .text رو حذف میکنه 2- شما نمیدونید این پسوند چی هست و هر چیزی میتونه باشه مثلا .jpeg .mpeg .png و .... واسه این کار شما باید با توجه به "." (دات) بخش ها رو از هم جدا کنید و بخش دوم رو حذف کنید Dim lst As List lst=Regex.Split(".",std) std=lst.get(0) این کار پسوند رو حذف میکنه و std شامل اسم بدون پسوند میشه
  12. شما کدتون مشکلی نداره باید دیتا بیستون رو بررسی کنید
  13. کدتون رو بذارید
  14. سلام به همه دوستان. من میخوام برنامه ای بنویسم که چک کنه،اگه وای
  15. شما باید از مولتی پنل است
  16. کدای main
  17. یعنی هر لایوت توی یه اکتیویتی باشه بهتره ؟
  18. توی اکتیویتی Main ک مشکلی نداری فقط دیتا بیست رو initialize کردی فقط شاید پون لایوتات رو remove و load میکنی این مشکل داشته باشه (سورس که گقتم منظورم این بود که کل پروژه منهای پوشه فایل اونم فقط عکسا و فایلای پر حجمت اینی که شما گذاشتی انگار فقط اکتیویتی Main رو گداشته باشی)
  19. شما فقت سورس کدتون رو بدارید و اگه داره دیتا بیستون رو
  20. داداش علم غیب ک نداریم سورست رو بذار ببینیم اگه شد حتما کمک می کنیم
  21. مثلا ورزش 3 Dim i As Intent i.initialize (i.ACTION_VIEW,"https://telegram.me/varzesh3_channel") StartActivity (i)
  22. خب بستگی داره شما تنظیمات رو کجا دخیره میکنیدمیتونه دیتابیس باشه شرپرفرمنس باشه یا اصن یه فایل تکس معمولی من فرض میگیرم شما دارید از یه مولتی پنل استفاده میکنید که دوتا لیبل داره یکی متن دعا یکی ترجمه دعا و ی فایل تکست دارید که اگه مقدارش 1 بود ترجمه رو نشون بده و اگه 0 بود نشون نده خب تو تابع ساخت مولتی پنلتون اینجور کد بزنید Sub creatlist dim show as int show=File.ReadString(File.DirRootExternal,"setting.txt") For i=0 To lst.Size-1 Dim pan As Panel pan.Initialize("pan") history_scr.Panel.AddView(pan,4%x,top,92%x,55.2%x) pan.LoadLayout("HistoryBlock") matn.Text="matn doa" tarjome.Text="tarjome doa" if show=1 then tarjome.Visible=true else tarjome.Visible=false end if top=top+60%x Next history_scr.Panel.Height=top End Sub
  23. واسه متن و اسم پروفایلو و.... که کاری نداره پنتا لیبیل بذار واسه عکس بایل گالری گوشی رو باز کنی و عکس رو انتخاب کنی که آسونش که انتخاب از content chooser هست یا استفاده از کتابخونه آماده که سرپ کنی هست یا که از کد زیر استفاده کن Sub sel_Click tst=DateTime.GetYear(DateTime.Now)&DateTime.GetMonth(DateTime.Now)&DateTime.GetDayOfMonth(DateTime.Now)&DateTime.GetHour(DateTime.Now)&DateTime.GetMinute(DateTime.Now)&DateTime.GetSecond(DateTime.Now)&".png" cc.Initialize("cc") cc.Show("image/*","Choose image") End Sub Sub cc_Result (Success As Boolean, Dir As String, FileName As String) If Success Then uriimage=GetPathFromContentResult(FileName) pic = LoadBitmapSample("",uriimage,img.Width,img.Height) ' pic=ResizeBitmap(pic,200,200) Dim Out As OutputStream Out = File.OpenOutput(File.DirRootExternal&"/divar telegram", tst, False) pic.WriteToStream(Out, 100, "PNG") Out.Close img.Bitmap=pic ToastMessageShow("Success",False) Else ToastMessageShow("Not Success",False) End If End Sub Sub GetPathFromContentResult(UriString As String) As String If UriString.StartsWith("/") Then Return UriString 'If the user used a file manager to choose the image Dim Cursor1 As Cursor Dim Uri1 As Uri Dim Proj() As String = Array As String("_data") Dim cr As ContentResolver cr.Initialize("") If UriString.StartsWith("content://com.android.providers.media.documents") Then Dim i As Int = UriString.IndexOf("%3A") Dim id As String = UriString.SubString(i + 3) Uri1.Parse("content://media/external/images/media") Cursor1 = cr.Query(Uri1, Proj, "_id = ?", Array As String(id), "") Else Uri1.Parse(UriString) Cursor1 = cr.Query(Uri1, Proj, "", Null, "") End If Cursor1.Position = 0 Dim res As String res = Cursor1.GetString("_data") Cursor1.Close Return res End Sub
  24. من خودم واسه جلو گیری از این مشکلا کلا نرم افزارام رو فقط توی یه حالت مینویسم حالا یا landscape یا portrait ولی شما اگه میخواید حتما پیخش داشته باشه باید بیاید تو رویداید اسکرول ویو position رو ذخیره کنید بعد تو Activity_Create این position رو بدی به اسکرول
  25. سلام سوال اولتون : از کتابخونه AHNavigationDrawer استفاده کنید راحت میتونید یه لایوت طراحی کنید و واسه منو استفاده کنید http://s8.picofile.com/file/8271399550/AHNavigationDrawer.zip.html سوال دوم : باید تو دوتا فیلد باشه منطقی ترش هم اینه که تو دوتا تیبل باشن یکی متن دعا یکی ترجمه دعا واسه اینی که نشون بده یا نده هم اگه از مولتی پنل استفاذده میکنید میتونید شرط بذارید که اگه کاربر نخواست لیبل ترجمه نشون داده نشه