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

AnswerCenter

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

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

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

اطلاعیه

کاربر گرامی

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

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


ehsan70

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

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

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

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

6 متوسط

درباره ehsan70

  • درجه
    کاربر باسابقه

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

290 بازدید کننده نمایه
  1. سلام شما اول کتابخونه اریازیپ رو خرید کنید از اینجا شما فایلتون رو با رمز زیپ کنید (با برنامه 7z با فرمت zip ,و در قسمت رمزگذاری گزینه aes_256 انتخاب کنید ) بعد یک جای اپلود کنید و دانلود با اریا زیپ استخراجش کنید داخل یک پوشه گوشی. اینجوری میشه: Sub Globals Dim p_mp3 As MediaPlayer,but_p As Button,ariaz As AriaZip End Sub Sub Activity_Create(FirstTime As Boolean) but_p.Initialize("bp") ariaz.Initialize(File.DirRootExternal,"mp3.zip","123") 'ادرس فایل دانلود شده Activity.AddView(but_p,30%x,30%y,30%x,20%y) but_p.Color=Colors.Blue End Sub Sub bp_Click ariaz.Extract(File.DirRootExternal) p_mp3.Initialize2("mp") p_mp3.Load(File.DirRootExternal,"نام فایل مورد نظر.mp3") p_mp3.Play File.Delete(File.DirRootExternal,"نام فایل مورد نظر.mp3") 'کد حذف حتما بعد از کد اجرای فایل قرار بگیرد ToastMessageShow("فایل اجرا و حذف شد",True) End Sub
  2. سلام میشه بیشتر راهنمایی کنید .مثلا چه روشی ،چه کتابخونه های ، اینا ... ممنون
  3. سلام من یک برنامه ساختم و میخوام عکسهای داخلش استخراج نشه.حجم فایلها 68 مگ هست بعد جستجو با روش های زیر توی انجمن اشنا شدم: https://answercenter.ir/topic/4869-آموزش-تصویری-encryptمحافظتکردن-از-فایل-های-مهم-در-بیسیک4اندروید/ با روش انجام شده در تاپیک بالا حجم عکسهای .png بشدت افزایش پیدا میکنه
  4. سلام میخوام با زدن دکمه ی برنامه اشتراک گذاری بشه از کتابخونه aria lab استفاده کردم نشد. موقعه زدن دکمه یه توست مسیج میاد و ارور میده
  5. مشکل حل شد! بیرون زدگی قاب از عکس حل کردم. باید اندازه ایمیج ویو ها یکی میشد. کش اومدن قاب هم با کد : If bmp1.Height > bmp1.Width Then bmp1_ghab.InitializeResize(File.DirAssets,"اسم عکس قاب عمودی",w,h,False) Else If bmp1.Width > bmp1.Height Then bmp2_ghab.InitializeResize(File.DirAssets,"اسم عکس همون قاب افقیش",w,h,False) End If حل شد شاید کسی این مشکل براش پیش اومد با خوندن این تاپیک مشکلش حل بشه. اما ببخشد شاید نباید عجله میکردم برا زدن تاپیک ووو .پوزش از موسس و مدیران سایت
  6. سلام یه برنامه قاب برای یادگیری بیسیک دارم مینویسم داخل برنامه ImageView1 ، عکس انتخاب شده از گالری رو نشون میده و ImageView2_ghab یک عکس ثابت روش قرار دادم.(قاب تو خالی) میخوام نسبت به سایز عکس بعد از انتخاب عکس و زدن یک دکمه ی, ایمیج ویو 2 (که قاب هست) دقیقا روی ایمیج ویو 1 قرار بگیره مثلا وقتی Height عکس انتخاب شده بیشتر از Width ش بود ، قاب من هم Height ش هم اندازه بشه با عکس انتخاب شده .و برعکس تا یه جاهای پیش رفتم و تونستم اندازه قاب رو هم اندازه کنم با عکس انتخاب شده اما دوتا ایراد هست: 1- عکس قاب دقیقا روی عکس زیرش قرار نمیگره . یعنی قاب از عکس بیرون زده یه مقدار . فکر میکنم شاید به تنظیم left , top ربط داره چون قاب عکس دقیقا به سمت چپ و بالا چسبیده(Gravity = left-top هست) 2- چون تصویر قاب من عمودی هست، اگه عکس انتخاب شده افقی باشه عکس قاب کش میاد! اینم کدهای که استفاده کردم= کد انتخاب از گالری : dim w,h as int توی گلوبال Sub entkhab_Result (Success As Boolean, Dir As String, FileName As String) If Success=True Then bmp1.InitializeResize(Dir,FileName,100%x,ImageView1.Height,True) w=bmp1.Width h=bmp1.Height ImageView1.Bitmap=bmp1 ToastMessageShow(" انتخاب شد",False) Else ToastMessageShow("هیچ عکسی انتخاب نشد",False) End If End Sub اینم کد داخل دکمه اعمال قاب عکس: Dim bmp2_ghab As Bitmap bmp2_ghab.InitializeResize(File.DirAssets,"ghab_ax.png",w,h,False) ImageView2_ghab.Bitmap=bmp2_ghab ImageView1.Bitmap=bmp1 ImageView2_ghab.Visible=True ممنون میشم کمک کنید
  7. اینو کلاس و مثال رو پیدا کردم. اینجا ولی مربوط به b4j هست و انتقال دادم به b4a ولی کار نکرد و نمیدونم برا عکس چجوری کار میکنه
  8. سلام چطور میشه مثل برنامه فتوشاپ وقتی تغییراتی روی عکس داده میشه یکی یکی به قبل از ویرایشها برگشت؟ یا همون undo با ذخیره عکس و عکس از پنل تونستم تا حدودی پیش برم ولی وقتی چند ویرایش رو عکس انجام میشه دیگه روشم بدرد نخوره. ممنون
  9. سلام. ممنون از وقت که برا جواب میزاری این رو هم جا بجا کردم نشد . این ایراد گرفت موقعه زدن دکمه (java.io.FileNotFoundException: /storage/emulated/0/pic.png (Permission denied این روش ذخیره بهتره یا اینکه ایمیج ویو بزارم توی پنل و از پنل عکس بگیرم بهتره ؟ از نظر کیفیت عکس
  10. سلام یک ایمیج ویوو دارم که کاربر از گالری عکس انتخاب میکنه و بعد تغیراتی میخوام ذخیرش کنه داخل حافظه من از این روش که همه (اکثرا) توی این انجمن و سایت مرجع گفته شده استفاده کردم ولی نمیدونم چرا موقعه زدن دکمه سیو از برنامه میپره بیرون این روش: Sub Globals Private bmpp As Bitmap Private ImageView1 As ImageView End Sub Sub save_Click Dim out As OutputStream ImageView1.Bitmap=bmpp out = File.OpenOutput(File.DirRootExternal,"pic.jpg",false) bmpp.WriteToStream(out,100,"JPEG") out.Close ToastMessageShow("ذخیره شد",False) End Sub کسی روش دیگه سراغ داره؟ بنظرتون روش کتابخونه ttputils2 رو میشه برا ایمج ویوو استفاده کنم؟
  11. لااقل کسی بگه همچین کاری میشه کرد یا نه
  12. دوستان میشه اینجا رونگاه کنین و کمکم کنین اینجا و اینجا ممنون
  13. سلام مثلا کدی بنویسیم که اگر عکسی با اندازه 500 در 500 از گالری انتخاب میشه اندازش رو به 800 در800 تبدیل کن و برعکس یا اینکه اندازه عکس هم اندازه رزولوشن صحفه نمایش گوشی بشه
  14. سلام وقتی از اینتنت برای برش استفاده میکنم با زدن دکمه وارد گالری میشه و بعد انتخاب عکس , برش اصلی گالری رو میاره و بعد عکس برش خورده رو میندازه روی ویوو اینجا امکان داره که این روش روی عکس قرار گرفته روی ویوو انجام بشه؟
  15. سلام چجوری میشه یک عکس کوچیک یا بیش از حد بزرگ که کاربر انتخاب کرده رو به اندازه مورد نظر خودمون تغییر بدیم؟ کسی راهی بلده؟
×
×
  • جدید...