اطلاعیه

کاربر گرامی

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

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


پژمان نیکروان

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

    3,642
  • تاریخ عضویت

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

  • روز های برد

    95

آخرین بار برد پژمان نیکروان در مهر 31

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

درباره پژمان نیکروان

  • درجه
    مدیر ارشد
  • تاریخ تولد 08/09/1376

روش های تماس

  • اسکایپ
    pejman.nikravan
  • آدرس سایت
    http://toseeyar.com

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

  • بیوگرافی
    پژمان نیکروان
    متولد 1376
    از استان گیلان - شهرستان فومن
    با زبان های زیر کار کردم و آشنایی دارم.
    ویژوال بیسیک دات نت - سی شارپ - ویژوال بیسیک6 - بیسیک4اندروید - جاوا - جاوا اسکریپت - اچ تی ام ال - و کمی پی اچ پی.

    با این زبان ها تنها کار کردم و آشنایی دارم و توی همشون حرفه ای نیستم ، و اگر بخوام کار بکنم ، برای اندروید از جاوا یا بیسیک4اندروید استفاده میکنم ، و برای تحت ویندوز هم وی بی دات نت یا سی شارپ!!

    اسکایپ: pejman.nikravan
  • محل زندگی
    گیلان - فومن
  • محل تولد
    گیلان - فومن
  • علایق
    برنامه نویسی - پیانو - ارگ - تئاتر - بازیگری - سینما - پلیس فتا ...
  • شغل
    برنامه نویسی
  • علاقه مندی ها
    برنامه نویسی، تئاتر، موسیقی، عـٍــلــم...

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

8,559 بازدید کننده نمایه
  1. سلام اقا پژمان گل
    خداوکیلی دمت گرم
    یه پست تو انجمن گذاشتی بودی که کد اسلاید منو برای بیسیک4اندروید گذاشته بودی
    دمت گرم خیلی دنبالش گفتم ولی پیدا نکرده بودم تا شما ایو گذاشتی
    خاستم یه تشکر ازتون بکنم ممنون
    mmzakeri79@gmail.com

  2. دیدین وقتی از بازار یه برنامه ای دانلود و نصب میکنید ازش یه میانبر میسازه براتون؟ ساخت میانبر از یه اپ خاص به صفحه Home گوشی: کتابخانه PNShortcutManager رو تیک بزنید و تابع زیر رو به اکتیویتی تون اضافه کنید: Sub cerateShortcut(pkgname As String) Dim pnsh As PNShortcutManager pnsh.Initialize Dim ph As Phone Dim pkgmng As PackageManager Dim i As Intent=pkgmng.GetApplicationIntent(pkgname) Dim b As BitmapDrawable b=pkgmng.GetApplicationIcon(pkgname) 'گرفتن آیکن اپ If ph.SdkVersion>=25 Then pnsh.AddWithIntent("shortcut1",i,pkgmng.GetApplicationLabel(pkgname),pkgmng.GetApplicationLabel(pkgname),"شورتکات غیرفعال است",b.Bitmap) Else pnsh.AddShortcutWithIntent_OldVersion(i,pkgmng.GetApplicationLabel(pkgname),b.Bitmap) End If ToastMessageShow("ایجاد شد",True) End Sub استفاده از تابع، مثلا از برنامه ShareIt یه میانبر ساختیم: cerateShortcut("com.lenovo.anyshare.gps") 'اپ share it
  3. You are using a library that needs to upgrade the SDK but your sdk is an old version, Change your library or update your Sdk.
  4. بله چون کاملا لیست ها اضافه شدن و در UI کاری درحال انجامی وجود نداره. برای حل این مورد بعد از Next این کد رو قرار بدید: DoEvents:DoEvents و بعد کد فول اسکرول رو زیرش بنویسید.
  5. سلام الان کجا نوشتید کد fullscroll شدن رو؟ باید وقتی آیتم ها اضافه شدن بنویسید یعنی کاملا بعد از حلقه فور.
  6. مشاهده gif برای اندروید های 7.1 به بالا مشاهده gif برای اندروید 7 به پایین نصب فایل APK جهت تست حتما دموهای بالا رو مشاهده کنید. توضیحات: 1. ایجاد شورتکات(میانبر) از اکتیویتی خاص، برنامه خاص، یا اینتنت خاص با آیکن اختصاصی به صفحه اصلی - از اندروید قدیمی تا اندروید 8 به بالا 2. حذف یا disable کردن شورتکات مورد نظر 3. بهره‌وری از کلاس ShortCutManager خود اندروید برای 7.1 به بالا 4. توجه کنید که این کتابخانه روی انواع گوشی ها و اندروید ها تست شده و عمل میکنه، اگر احیانا روی گوشی شما کار نکرد مربوط به لانچر گوشی میشه و خود کتابخانه مشکلی نداره. برای اینکه مطمئن بشید میتونید برنامه هایی مثل #دیوار یا #بازار که میانبر ایجاد میکنن رو تست کنید که کار میکنه یا خیر. قیمت: 15,000 دریافت کتابخانه
  7. نه متاسفانه این امکان کلا وجود نداره. متاسفانه روی اندک مدل گوشی های خاص مشاهده شده که نمیبنده. انشاالله توی نسخه های بعدی رفع میشه. تا 4 الی 5 روز آینده. امکان هم داره که این مشکلی باشه که حل نشه. اگه تا 5 روز از خریدتون پشیمون شدید و فکر میکنید انتظاراتی که داره برطرف نمیکنه میتونید بفرمایید تا مبلغ بازگشت داده بشه.
  8. سلام خب خودتون میگید به دلیل امنیتش باید در وب ویو انجام بشه. کافیه زمانیکه وب ویو PagePhinish بشه Url صفحه رو بگیرید دیگه. Sub webview1_PageFinished (Url As String) Url 'آدرس صفحه' End Sub اگه غیر اینه که لطفا توضیح بدید... من متوجه نشدم.
  9. سلام منظورتون از فاصله چیه؟؟ یعنی بین متن ها زیاد Enter زده شده و فاصله داره؟؟ یا اینکه همینجوری بین هر خط فاصله زیادی هست؟؟ در این صورت بنظرم مشکل میتونه از فونتی که در لیبل استفاده کردین باشه. چون نباید فاصله زیاد داشته باشه. اگه ممکنه یه اسکرین شات از مشکلتون قرار بدید.
  10. این ویدیو خیلی قدیمی هستش و ظاهرا سازندشون حذفش کردن. میتونید از طریق این آیدی در تلگرام با سازنده این فیلم ارتباط داشته باشید.
  11. سلام، خیر با این کتابخانه امکانش نیست. میتونید از این کتابخانه استفاده کنید: کتابخانه ListenToCopy - گوش دادن به کلیپبورد اندروید جهت کپی شدن متن جدید - کتابخانه ها (Libraries) - مرکز پاسخگویی به سوالات برنامه نویسی
  12. سلام من زیاد متوجه نشدم الان مشکل چیه. ولی اگه میخواین تکست باکس های username و password سایت و دکمه ورودش رو ارتباط بدید با بیسیک. برای یوزرنیم و پسورد چیزی که خودتون نوشتید درسته مشکلی نداره: web.executeJavascript(WebView1,"document.getElementsByName('username')[0].value = '"&EditText1.Text&"';") web.executeJavascript(WebView1,"document.getElementsByName('password')[0].value = '"&EditText2.Text&"';") اینم برای کلیک روی دکمه: web.executeJavascript(WebView1,"document.getElementById('loginBtn').click();") برای نمایش کل کدها هم کدتون درسته. منتها دقت بکنید که کد رو کجا قرار میدید. مثلا ممکنه زمانی کدهارو بخواین که اصلا رویداد pageFinish اتفاق نیوفته... همین کد رو توی یه کلیک باتن بذارید تست کنید.
  13. سلام کداتون رو که مربوط به ایجاد پنلها هست رو بصورت کامل بذارید.
  14. سلام. دقیقا هدف این کتابخانه همین بود که روی نسخه های جدید اندروید مشکلی نداشته باشه. از اندروید 2 پشتیبانی میکنه تا الی آخر. و خداروشکر به کمک دوستان که همش اشکالات کتابخانه رو بهم میگفتن همش آپدیت دادم و مشکلی ازاین بابت نیست. یکی از دوستان هم برنامه خودشون رو که معروف هم هست، مثل اینکه از PNAlarmManager استفاده کردن، کلا قرار بود اینکارو انجام بدن فکر کنم الان اعمال کردن. تقویم اذانگو و هواشناس شميم ياس - دانلود | نصب برنامه اندروید | کافه بازار
  15. سلام شما اومدید گفتید اگر v یک Label بود بیا یه لیبل تعریف کن بنام check و برابر با v قرار بده. If v Is Label Then Dim Check As Label = v Else End If و بعد پایین ترش اومدید بعد از End If شرط مورد نظر(بالا) از اون لیبل check استفاده کردید. If Check.Tag="100"&GetTag Then درصورتی که نباید اینطوری باشه، چون خارج از شرط قرار داره و هنوز ممکنه Label رو پیدا نکرده باشه و عملیات dim check as Label=v رو انجام نداده باشه. باید همشو بذارید داخل شرط دیگه: Sub btn_Click ''''''Click Roye Dokme Dim Mybtn As Button Mybtn = Sender GetTag = Mybtn.Tag For Each v As View In Activity.GetAllViewsRecursive If v Is Label Then Dim Check As Label = v If Check.Tag="100"&GetTag Then Check.Text=Check.Text+1 Check.Text=Check.Text.Replace(".0","") End If End If Next End Sub