رفتن به مطلب
فایل های ویژه
PersianRetrofit
RecyclerView
Poolakey B4A
PersianTapsellPlus
PersianStandOut
AriaDatabase

محمد احمدی

کاربر نیمه فعال
 نمایش نمایه  مشاهده فعالیت های این کاربر

  • تعداد ارسال ها

    81

  • تاریخ عضویت

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

  • روز های برد

    1

 نوع محتوا 

تمامی مطالب نوشته شده توسط محمد احمدی

  1. محمد احمدی

    سلام ، کسی میدونه قضیه این برنامه چیه ؟ http://go.filecorn.com/4Jrwqp2ku_

    1. نمایش دیدگاه های قبلی  بیشتر 17
    2. hemmaty76

      hemmaty76

      :-\ ببخشیدا ولی این فهمیدن نمیخاد ک

      خیلی تابلوعه

    3. Alireza.Ghafari

      Alireza.Ghafari

      ن شایان کلا حس باز کردن سایت هم نیست :| :| کتــــاب ک جای خود دارد :|

    4. coco

      coco

      خسته نباشی دلاور...

  2. محمد احمدی

    شروعی دوباره پس از چند ماه!

    1. نمایش دیدگاه های قبلی  بیشتر 1
    2. مهدی ایزدی

      مهدی ایزدی

      ♥♥♥♥
    3. محمد احمدی

      محمد احمدی

      tnx ♥ ♥

    4. coco

      coco

      ✳✳✳♥♥♥♥✳✳✳✳

  3. محمد احمدی
    دوست عزیز جایی که sdk رو کپی کردین فضای کافی رو نداره یه جا دیگه بذارینش که به اندازه کافی جا داشته باشه
  4. محمد احمدی
    سلام دوست عزیز اول اینکه عکس دومی از پنل استفاده شده دوم اینکه شما چرا از اینپوت لیست بعد از لانگ کلیک روی لیست ویو استفاده نمیکنید یه اینپوت لیست که شامل افزودن به موردعلاقه ها و ... رو داشته باشه
  5. محمد احمدی
    ُسلام با اجازه آقا مهدی برای راحتی کار یه کد مودل بساز و این کد رو داخلش وارد کن و هرجا خواستی استفاده کن Sub SavePanel(Sv As View,sDir As String,sFilename As String) As Bitmap Dim o1, o2 As Reflector Dim bmp As Bitmap Dim C As Canvas o1.Target = o1.GetActivityBA o1.Target = o1.GetField("vg") bmp.InitializeMutable(Sv.Width, Sv.Height) C.Initialize2(bmp) Dim args(1) As Object Dim types(1) As String o2.Target = C o2.Target = o2.GetField("canvas") args(0) = o2.Target types(0) = "android.graphics.Canvas" o1.RunMethod4("draw", args, types) Dim Out As OutputStream Out = File.OpenOutput(sDir, sFilename, False) bmp.WriteToStream(Out, 100, "PNG") Out.Close End Sub ویو که میدونی چیه اس دایر مکان و اس فایل نیم اسم فایل یرای ذخیرس و برای ذخیره کردن از این نمونه استفاده کن [code]codemoudle.save(panel1,File.DirRootExternal,"mbp.png") [/code]
  6. محمد احمدی
    من الان با این کد کاری رو که شما میخوای دارم انجام میدم پنل رویی ثابته پنل زیری متحرک با پنل رویی هم میشه پنل زیری رو حرکت داد فیلمش هم موجوده که گرفتم اگه گفتی جواب نداد فیلمشو میذارم Sub Globals Private Panel1 As Panel Private Panel2 As Panel Dim pz As PinchZoomAndMove End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("Layout1") pz.Initialize(Panel1,z,0,0.5,3,1.5,False,Me) End Sub Sub z pz.Initialize(Panel2,"PZ",0,0.5,3,1.5,False,Me) End Sub
  7. محمد احمدی
    سلام الآن منظورتو متوجه شدم با این کد میتونی پنل رویی رو حرکت بدی و بعدش با حرکت دادن پنل زیری پنل روی جرکت میکنه این کد رو بذار داخل همون سورسی که گذاشتی Private Panel1 As Panel Private Panel2 As Panel Dim pz As PinchZoomAndMove End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("Layout1") pz.Initialize(Panel2,z,0,0.5,3,1.5,False,Me) End Sub Sub z pz.Initialize(Panel1,"",0,0.5,3,1.5,False,Me) End Sub
  8. محمد احمدی
    سلام من بازم حرف خودمو میزنم داخل سورسی ک دادی این کد هارو بذار Sub Globals Private Panel1 As Panel Private Panel2 As Panel Dim PZ As PinchZoomAndMove End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("Layout1") End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub Panel1_Touch (Action As Int, X As Float, Y As Float) If Action = 1 Then zoom End If End Sub Sub zoom PZ.Initialize(Panel1,"PZ",0,0.5,3,1.5,False,Me) End Sub
  9. محمد احمدی
    سلام دوست عزیز سوال شما ی جورایی مبهمه یهنی چر رو حفره کلیک شه ؟ عکس پی ان جی بک گراند نداره اونجا هاش که دیده نمیشه همون عکس هس که بک گراند نداره حفره ک نیس در کا بهت پیشنهاد میکنم به جای ایمیج ویو از پنل استفاده کنی و بک گراندشو بذاری همون عکس که میخوای تا بتونی جایی رو که لمس شده رو بدست بیاری ی مثال Dim p1,p2 as pane[/Code] p1 پنل پشتی هس پس : [Code]Sub p1_Touch (Action As Int, X As Float, Y As Float) "Age Folan qesmate touch shod , Midunam Baladi Zoom 'با نوشتن زوم رویداد ساب زوم اجرا میشه End Sub مثلا میخوای رویداد زوم اجرا شه Sub Zoom 'Code Marbute End sub [/Code] امیدوارم تونستته باشم کمک کنم
  10. محمد احمدی
    سلام من زیاد با گوگل مپ کار نکردم ولی فک کنم با کمرا پوزیشن بشه این کارو کرد که برای این کار باید از کتابخونه گوگل مپ استفاده کتی مثال : Dim gm as GoogleMap Dim cap as CameraPosition اینم رویداد امیمیشن cap.Initialize(36, 15, gm.CameraPosition.Zoom) gm.AnimateCamera(cap) امتحانش کن اگه جواب نگرفتی بگو
  11. محمد احمدی
    سلام نمیدونم منظورتو درست فهمیدم یا ن فک کنم منظورت تاچ رو پنل باشه ُSub Globals Dim panel1 as panel End sub Sub panel1_Touch (Action As Int, X As Float, Y As Float) if Action = 1 Then panel1.color = colors.ARGB(50,0,70,0) End if End Sub
×
×
  • اضافه کردن...