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

AnswerCenter

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

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

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

محمد احمدی

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

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

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

  • روز های برد

    1

آخرین بار برد محمد احمدی در 23 فروردین 1394

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

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

70 عالی

درباره محمد احمدی

  • درجه
    کاربر نیمه فعال
  • تاریخ تولد 1 فروردین 1375

روش های تماس

  • آدرس سایت
    Array
  • یاهو
    Array

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

  • بیوگرافی
    Array
  • محل زندگی
    Array
  • محل تولد
    Array
  • علایق
    Array
  • شغل
    Array

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

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

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

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

      hemmaty76

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

      خیلی تابلوعه

    3. Alireza.Ghafari

      Alireza.Ghafari

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

    4. Shayan Shojaei

      Shayan Shojaei

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

  2. دوست عزیز جایی که sdk رو کپی کردین فضای کافی رو نداره یه جا دیگه بذارینش که به اندازه کافی جا داشته باشه
  3. سلام دوست عزیز اول اینکه عکس دومی از پنل استفاده شده دوم اینکه شما چرا از اینپوت لیست بعد از لانگ کلیک روی لیست ویو استفاده نمیکنید یه اینپوت لیست که شامل افزودن به موردعلاقه ها و ... رو داشته باشه
  4. ُسلام با اجازه آقا مهدی برای راحتی کار یه کد مودل بساز و این کد رو داخلش وارد کن و هرجا خواستی استفاده کن 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]
  5. من الان با این کد کاری رو که شما میخوای دارم انجام میدم پنل رویی ثابته پنل زیری متحرک با پنل رویی هم میشه پنل زیری رو حرکت داد فیلمش هم موجوده که گرفتم اگه گفتی جواب نداد فیلمشو میذارم 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
  6. سلام الآن منظورتو متوجه شدم با این کد میتونی پنل رویی رو حرکت بدی و بعدش با حرکت دادن پنل زیری پنل روی جرکت میکنه این کد رو بذار داخل همون سورسی که گذاشتی 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
  7. سلام من بازم حرف خودمو میزنم داخل سورسی ک دادی این کد هارو بذار 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
  8. سلام دوست عزیز سوال شما ی جورایی مبهمه یهنی چر رو حفره کلیک شه ؟ عکس پی ان جی بک گراند نداره اونجا هاش که دیده نمیشه همون عکس هس که بک گراند نداره حفره ک نیس در کا بهت پیشنهاد میکنم به جای ایمیج ویو از پنل استفاده کنی و بک گراندشو بذاری همون عکس که میخوای تا بتونی جایی رو که لمس شده رو بدست بیاری ی مثال 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] امیدوارم تونستته باشم کمک کنم
  9. سلام من زیاد با گوگل مپ کار نکردم ولی فک کنم با کمرا پوزیشن بشه این کارو کرد که برای این کار باید از کتابخونه گوگل مپ استفاده کتی مثال : Dim gm as GoogleMap Dim cap as CameraPosition اینم رویداد امیمیشن cap.Initialize(36, 15, gm.CameraPosition.Zoom) gm.AnimateCamera(cap) امتحانش کن اگه جواب نگرفتی بگو
  10. سلام نمیدونم منظورتو درست فهمیدم یا ن فک کنم منظورت تاچ رو پنل باشه ُ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
×
×
  • جدید...