اطلاعیه

کاربر گرامی

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

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


mehran3d

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

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

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

  • روز های برد

    2

آخرین بار برد mehran3d در بهمن 18 2017

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

درباره mehran3d

  • درجه
    کاربر حرفه ای
  • تاریخ تولد ۶۷/۰۷/۰۲

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

405 بازدید کننده نمایه
  1. mehran3d

    لود کردن آهنگ

    ممنونم این آدرس برابر همین دستوره؟ File.Combine(dir,"filename") همون full path of file?
  2. سیوش باید کنی خب بعد از سیو شدن یه جای یسیوش کن اول یه فایل براش در نظر بگیر اول برنامت بنویس If File.Exists(File.DirInternal,"save.txt") Then Dim templist As List templist=File.ReadList(File.DirInternal,"save.txt") For i=0 To templist.Size-1 listview1.AddSingleLine(templist.Get(i)) Next End If چک میکنه اگه فایل save.txt وجود داشت رشته هایی که توش ذخیره شده رو بخونه بزاره توی لیست ویو اگه فایل نبود که هیچ دفعه اول طبیعتا نیست(باید برنامه رو پاک کنی و دوباره نصب چون اگه آپدیت کنی لیستای قبلی میمونه) برای ذخیرشون خیلی راحت میتونی ذخیرشون کنی بعدش جایی که متن رو کپی کردی توی ادیت تکست اینو مینویسی dim templist as list templist.initialize templist.Clear For p=0 To listview.Size-1 دونه دونه آیتما رو از لیست ویو میخونه توی یه لیست میزاره templist.Add(listview.GetItem(p)) Next لیست رو که از لیست ویو خونده توی یه فایل save.txt میریزه که بعدا بتونه بخوندش( کدشو یکم بالاتر گفتم) File.WriteList(File.DirInternal,"save.txt",templist) روشهای دیگه ای هم هست این تقریبا ساده ترشونه
  3. mehran3d

    لود کردن آهنگ

    ممنون چطور به مدیا پلیر بفهمونمش؟ Mediaplayer.load(file.dirrootexternal,"example. Mp3") ??
  4. سلام دوستان من با این کد آدرس فایلی رو از دستگاه میگیرم Sub cc_Result (Success As Boolean, Dir As String, FileName As String) If Success Then LogColor(FileName,Colors.Green) LogColor(Dir,Colors.Blue) LogColor(File.Combine(Dir,""),Colors.Red) End If End Sub اگه فایل رو از روت توی امولاتور بگیرم اینو برگشت میده /storage/emulated/0/a174.mp3 به رنگ سبز اگه فایل رو از پوشه دانلود انتخاب کنم اینو لاگ میکنه content://media/external/file/1007 به رنگ سبز ContentDir آبی ContentDir قرمز چیکار باید بکنم که درست بتونم توی پلیر لودش کنم و صد البته نیاز دارم که بعدا بصورت (file.dirrootexternal,"nameoffile.mp3) استفادش کنم
  5. mehran3d

    توابع

    این تابع دو عدد میگیره و دو عدد برمیگردونه اما در اصل دو عدد میگیره و یک آرایه دو عنصری برمی گردونه اولی حاصلضرب دو عدد ورودی و دومین حاصلجمع دو عدد گرفته شده int test ( int a,int b) { int temp[2]; temp[0]=a*b; temp[1]=a+b; return temp; } اینجوری باید فراخوانی کنی int first=3; inf sec=4; int result[]; result=test(first,sec) printf("sum result is ..%d",result[0]); printf("multiple result is ..%d /n",result[1]); اگه اشتباه نکنم برای بیش از دوتا int temp[tedad] va int result[tedad] print resul[0] print resul[1] print resul[2] print resul[...] print resul[tedad]
  6. من رد می ۴ دارم میخا apk بده یه تست بگیرم
  7. والا بسته به نوع گوشی و ویرایش اندروید گوشی(نسخه ای از اندروید که شرکتا تغییرش میدن) و رام و ... داره بهتره توی فروم های مخصوص گوشیت بگردی دنبالش
  8. سلام دوستان توی دیتا بیس چند جدول دارم Id,people,name,last name میخام اینجوری خروجی xml بم بده <items> <item> <id>10</id> <people>man</people> <name>ali</name> <lastname>alavi</lastname> </item> <item> <id>11</id> <people>man</people> <name>ahmad</name> <lastname>ahmadi</lastname> </item> </items> یعنی کوئری id بزرگتر از 9 یه کمکی میدید؟
  9. آقا بلاخره راهشو فهمیدم اول گوگل مپ و گوگل مپ اکستراز رو که ادد کردی بعدش Dim gx As GoogleMapsExtras Dim liste As OnInfoWindowClickListener Dim iva As InfoWindowAdapter Dim marka As MarkerOptions تا اینجا اوکی؟ مپ که لود شد اینو میزنی liste.Initialize("liste") gx.SetOnInfoWindowClickListener(gmap,liste) iva.Initialize("iva") gx.SetInfoWindowAdapter(gmap,iva) اوکی؟ بعدش مارکر رو ادد میکنی marka.Initialize marka.Position2(33.388018, 52.710411) title midi marka.Title("title") snippest midi marka.Snippet("snippest") icon midi Dim bsf As BitmapDescriptorFactory marka.Icon(bsf.DefaultMarker2(bsf.HUE_RED)) به مپ اضافه میکنی gx.AddMarker(gmap,marka) اوکی؟؟ حالا این رویداد ها رو هم اوکی میکنی Sub mFragment_MarkerClick (SelectedMarker As Marker) As Boolean 'Return True to consume the click این مپه SelectedMarker.InfoWindowShown=True Return True End Sub Sub liste_Click(Marker1 As Marker) اینم همون OnInfoWindowClickListener هستش که وقتی روی اون پنجره کلیک شد یه کاری کنه '''some thing to do End Sub و در آخر Sub iva_GetInfoContents(Marker1 As Marker) As View ' InfoWindowLabel.Text=Marker1.Title&CRLF&Marker1.Snippet ' Return InfoWindowLabel Dim cd As ColorDrawable cd.Initialize(Colors.Transparent,5) Dim infopan As Panel infopan.Initialize("") infopan.Background=cd infopan.SetLayout(5%x,40%y,70%x,30%y) Dim infomaglbl As Label Dim infosummury As Label infomaglbl.Initialize("") infosummury.Initialize("") ' infopan.AddView(infomaglbl,0,0,50,20) infopan.AddView(infomaglbl,0,0,70%x,10%y) infopan.AddView(infosummury,0,10%y,70%x,20%y) infomaglbl.Text=Marker1.Title infomaglbl.Color=Colors.White infomaglbl.TextColor=Colors.Black infomaglbl.textsize=21 infosummury.Text=Marker1.Snippet infosummury.Color=Colors.White infosummury.TextColor=Colors.Black ' Dim InfoWindowLabel As Label ' InfoWindowLabel.Initialize("") ' InfoWindowLabel.Color=Colors.White ' InfoWindowLabel.TextColor=Colors.Black ' ' InfoWindowLabel.Text=Marker1.Title&CRLF&Marker1.Snippet Return infopan End Sub توی این کد که چیزیه که شما میخواین من یه پنل ساختم توتا لیبل بهش اضافه کردم بعدش تایتل و اسنیپست که به مارکرداده بودیم رو بهشون اضافه کردم شما میتونید به جای دو لیبل یه لیبل و ایمیج بزارید یا اصلا یه لایه توی اون پنل لود کنید
  10. خوب پیدا کردم برای ذخیره و خوندن یک لیست از objects (مثلا مپ و بیت مچ یا.....) باید از کتابخونه randomaccessfile استفاده کنید(کنم؟!) که کد این شکل میشه Dim ras As RandomAccessFile ras.Initialize(File.DirInternal,"list.dat",False) ras.WriteObject(list,True,0) ras.Close list.Clear ras.Initialize(File.DirInternal,"list.dat",False) list=ras.ReadObject(0) ras.Close به جای File.WriteList(File.DirInternal,"list.txt",list) list.Clear list=File.ReadList(File.DirInternal,"list.txt")
  11. سلام و خسته نباشید من یه لیست از مپ ها دارم که در حالت عادی میتونم راحت مپ ها رو از لیست بخونم اما وقتی لیست رو توی فایل با دستور file.writelist ذخیره میکنم و با دستور file.readlist میخونمش نمیتونمم مپ ها رو بخونم نمونه کد و ارور رو ملاحظه کنید Sub Process_Globals Dim list As List Dim map,map2 As Map End Sub Sub Globals End Sub Sub Activity_Create(FirstTime As Boolean) list.Initialize map.Initialize map.Put("keh1","val1") map.Put("keh2","val2") map.Put("keh3","val3") map.Put("keh4","val4") map2.Initialize map2.Put("keh1","val1") map2.Put("keh2","val2") map2.Put("keh3","val3") map2.Put("keh4","val4") list.Add(map) list.Add(map2) File.WriteList(File.DirInternal,"list.txt",list) list.Clear list=File.ReadList(File.DirInternal,"list.txt") For i=0 To list.Size-1 Dim tempmap As Map map=list.Get(i) Log(map.Get("keh1")) Log(map.Get("keh2")) Log(map.Get("keh3")) Log(map.Get("keh4")) Next End Sub خروجی در لاگ بدون اینکه لیست رو توی فایل ذخیره کنم و بخونم ((( یعنی با حذف File.WriteList(File.DirInternal,"list.txt",list) list.Clear list=File.ReadList(File.DirInternal,"list.txt") ))))) val1 val2 val3 val4 val1 val2 val3 val4 ارور در صورتی که لیست رو توی یه فایل ذخیره کنم بعد از فایل بخونم یعنی با استفاده از File.WriteList(File.DirInternal,"list.txt",list) list.Clear list=File.ReadList(File.DirInternal,"list.txt") java.lang.ClassCastException: java.lang.String cannot be cast to anywheresoftware.b4a.objects.collections.Map$MyMap at test.list.main._activity_create(main.java:378) at java.lang.reflect.Method.invoke(Native Method) at java.lang.reflect.Method.invoke(Method.java:372) at anywheresoftware.b4a.BA.raiseEvent2(BA.java:186) at test.list.main.afterFirstLayout(main.java:102) at test.list.main.access$000(main.java:17) at test.list.main$WaitForLayout.run(main.java:80) at android.os.Handler.handleCallback(Handler.java:739) at android.os.Handler.dispatchMessage(Handler.java:95) at android.os.Looper.loop(Looper.java:135) at android.app.ActivityThread.main(ActivityThread.java:5254) at java.lang.reflect.Method.invoke(Native Method) at java.lang.reflect.Method.invoke(Method.java:372) at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:903) at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:698) نیاز دارم به ذخیره مپ ها در لیست که دیگه از دیتا بیس استفاده نکنم
  12. آقا من ویدیو های آموزش لیست ویو ر گم کردم توی فروشگاه هم اینشکلی برام میاد http://s9.picofile.com/file/8312189284/ariaerror.png
  13. mehran3d

    ارسال sos

    توی خود پوشه هستش پوشه فایل ها
  14. mehran3d

    ارسال sos

    JHSflashMorse