درخواست سورس

[reza2001 587]

سلام به همه دوستان

 

اگه کسی لطف کنه یه سورس کدی یا توضیحی درباره برنامه هایی مثل لباس پلیس بپوشید در بازار یا برنامه های مشابه که یه قسمتی از تصویر خالی هست و عکس انتخابی کاربر در اون قرار میگیره بفرسته ممنون میشم .

 

منتظرم ...

[محمدرضا معتمدی 612]

ممنون ، ولی یه سوال

 

مثلا بخوایم یه فریم دیگه بزاریم این آیفون نباشه

 

باید اون قسمتی که می خوایم عکس کاربر قرار بگیره سفید بزاریم ؟ بعد چظوری به برنامه بگیم عکس کاربر رو اون قسمتی که می خوایم جایگزین کنه ؟!

 

خواهش

 

فریم دیگه خواستید بزارید اون قسمتی ک میخاید عکس قرار داده بشه رو

 

با فتوشاپ

 

با ابزار پاک کن

 

کلاا پاک کنید بک گراند پشتشم حذف کنید جوری ک پشتش کلا شطرنجی باشه

 

در مورد کد هم الان این کد رو شما بدید عکس میره همون جا دیگه همین کد کد درسته

 

این کد عکس رو میبره به قسمتی ک خالی کنی اونجوری تو فتوشاپ

[reza2001 587]

برای من و دوستانی که تو اون تاپیک مطرح کردند این خط ارور میده ، شاید به خاطر کتابخونش باشه

 

شما از کدوم ورژنش استفاده می کنید ؟ میشه برام بزارید !

[محمدرضا معتمدی 612]

تمام لایبرری هایی ک اون سورس لازم داره ایناس

 

اصن بیت مپ ربطی به لایبرری نداره

 

اگه حل شد ک شد نشد شما صبر کن برنامم عکستو با حجاب کن تایید شه تا سورس اونو بزارم ک والا نمیدونم هیچ فرقی هم با این سورسه نداره :|

 

رمز

 

basic4android.org

Libs For KI POSHTE DARE.rar

[reza2001 587]

باشه ، ممنون

 

من منتظر اون سورستون هستم   

[reza2001 587]

آقای معتمدی امکانش وجود داره یه توضیحی درباره کد ها بدید یا یه فیلم ضبط کنید

 

خیلی ها مشتاق هستند ، اگه این کار رو بکنید عالی میشه   

[محمدرضا معتمدی 612]

Sub Activity_Create(FirstTime As Boolean)

Activity.LoadLayout("mt1") // لایوتمونه

CC.Initialize("CC") یه متفیر از ننوع کانتکت چوزر تعریف کردیم حالا اینیشیالایز میکنیم

TouchImageView1.Initialize("TouchImageView1") این متفیرمونم همینجور برای تاچ ایمیج ویو

End Sub

Sub choose_Click

CC.Show("image/*", "انتخاب عکس") کد انتخاب عکس توسط کاربر

End Sub

Sub CC_Result (Success As Boolean, Dir As String, FileName As String)

If Success Then اگه کاربر عکسو انتخاب کرد

TouchImageView1.RemoveView //1

Panel1.AddView(TouchImageView1, 0, 0, 100%x, 100%y) //2

TouchImageView1.MinScale=-10 // 3

TouchImageView1.MaxScale=4 // 4

TouchImageView1.TranslatePadding=128dip //4

TouchImageView1.Gravity=Gravity.FILL //5

Bitmap1.Initialize(Dir , FileName)//6

TouchImageView1.SetBitmap(Bitmap1) // 7

SourceImageRect.Initialize(0, 0, Bitmap1.Width, Bitmap1.Height) //8

TouchImageViewRect.Initialize(0, 0, TouchImageView1.Width, TouchImageView1.Height) // 9

TouchImageView1.ScaleSrcRectToDestRect(SourceImageRect, TouchImageViewRect, "CENTER") //10

TouchImageView1.SendToBack //11

از کد یک تا 11 تنظیمات و کدهای تاچ ایمیج ویو هست

میگیم ک اینعکس انتخابیمون بره اونجا ک خواستیم و مشخص کردیم و بشه لمسش کرد و جا به جاش کرد و ...

Else

ToastMessageShow("عکسو انتخاب نکردیا",False)

End If

End Sub

Sub save_Click // کلاااا این ساب کد ذخیره و اسکرین شات از پنل هست !

Dim Obj1, Obj2 As Reflector

Dim bmp As Bitmap

Dim c As Canvas

If File.ExternalWritable = True Then

Dim random As String = Rnd("100","1000")

Obj1.Target = Obj1.GetActivityBA

Obj1.Target = Obj1.GetField("vg")

bmp.InitializeMutable(Panel2.Width, Panel2.Height)

c.Initialize2(bmp)

Dim args(1) As Object

Dim types(1) As String

Obj2.Target = c

Obj2.Target = Obj2.GetField("canvas")

args(0) = Obj2.Target

types(0) = "android.graphics.Canvas"

Obj1.RunMethod4("draw", args, types)

Dim Out As OutputStream

Out = File.OpenOutput(File.DirRootExternal,"kiposhtedare" & random & ".jpeg" , False)

bmp.WriteToStream(Out,100,"JPEG")

Msgbox("ذخیره شد","ذخیره")

Else

Msgbox("مشکل در دسترسی به حافظه موبایل","خطا در ذخیره ی عکس")

End If

End Sub

[reza2001 587]

ممنون ، ولی یه سوال

 

مثلا بخوایم یه فریم دیگه بزاریم این آیفون نباشه

 

باید اون قسمتی که می خوایم عکس کاربر قرار بگیره سفید بزاریم ؟ بعد چظوری به برنامه بگیم عکس کاربر رو اون قسمتی که می خوایم جایگزین کنه ؟!

[reza2001 587]

آقای معتمدی اگه امکان داره درمورد کد های زیر توضیح بدید

 

و اینکه برنامه چطوری کار می کنه

 

بی صبرانه منتظر پاسختون هستم

Sub Activity_Create(FirstTime As Boolean)

	Activity.LoadLayout("mt1")

	CC.Initialize("CC")

	TouchImageView1.Initialize("TouchImageView1")

End Sub

Sub choose_Click

	CC.Show("image/*", "انتخاب عکس")

End Sub

Sub CC_Result (Success As Boolean, Dir As String, FileName As String)

	If Success Then

	TouchImageView1.RemoveView

	Panel1.AddView(TouchImageView1, 0, 0, 100%x, 100%y)


	TouchImageView1.MinScale=-10			

	TouchImageView1.MaxScale=4				

	TouchImageView1.TranslatePadding=128dip	


	TouchImageView1.Gravity=Gravity.FILL


	Bitmap1.Initialize(Dir , FileName)

	TouchImageView1.SetBitmap(Bitmap1)



	SourceImageRect.Initialize(0, 0, Bitmap1.Width, Bitmap1.Height)

	TouchImageViewRect.Initialize(0, 0, TouchImageView1.Width, TouchImageView1.Height)



	TouchImageView1.ScaleSrcRectToDestRect(SourceImageRect, TouchImageViewRect, "CENTER")	

	TouchImageView1.SendToBack


    Else 

	ToastMessageShow("عکسو انتخاب نکردیا",False)

    End If

End Sub

Sub save_Click

	Dim Obj1, Obj2 As Reflector

    Dim bmp As Bitmap

    Dim c As Canvas

    If File.ExternalWritable = True Then

    Dim random As String = Rnd("100","1000")

    Obj1.Target = Obj1.GetActivityBA

    Obj1.Target = Obj1.GetField("vg")

    bmp.InitializeMutable(Panel2.Width, Panel2.Height)

    c.Initialize2(bmp)

    Dim args(1) As Object

    Dim types(1) As String

    Obj2.Target = c

    Obj2.Target = Obj2.GetField("canvas")

    args(0) = Obj2.Target

    types(0) = "android.graphics.Canvas"

    Obj1.RunMethod4("draw", args, types)

    Dim Out As OutputStream

    Out = File.OpenOutput(File.DirRootExternal,"kiposhtedare" & random & ".jpeg" , False)

    bmp.WriteToStream(Out,100,"JPEG")

    Msgbox("ذخیره شد","ذخیره")

    Else

    Msgbox("مشکل در دسترسی به حافظه موبایل","خطا در ذخیره ی عکس")

    End If

End Sub

[Nemesis 1,846]

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

اگه خیر صرفا علاقه دارید یک برنامه رو کپی و پیست کنید بفرمایدد این پست

 

در پناه حق

[reza2001 587]

ممنون دوست عزیز

می خوام برنامه نویس بشم ، آموزش هم باشه عالیه اما فکر نکنم آموزشی باشه پس سورسو میگیرم و کداشو نگاه میندازم یاد میگیرم

این تاپیکی که معرفی کردی رو دیدم و سورسشو گرفتم

یکی دیگه هم تو اون تاپیک گفت که توی خط 59 به کلمه bitmap ارور میده ، برای من هم همینطوره

اما متاسفانه تاپیک قفل شد و سوال بی جواب موند ، شاید به خاطر کتابخونش باشه ! درسته ؟ من کتابخونشو گرفتم اما ورژنش پایینه !

[reza2001 587]

متاسفانه اون تاپیکی که در بالا گفتم قفل شده اگه دوستان همین جا مشکل رو برطرف کنن ممنون میشم

[محمدرضا معتمدی 612]

سورسو من باز دیدم 

 

والا تا جایی ک دیدم هی مشکلی نداره

 

کلمه ی Bitmap1 توی خط 59

 

تعریف شده توی ساب گلوبالس

 

Dim Bitmap1 As Bitmap

 

پس قاعدتا اروری نباید باشه !