اطلاعیه

کاربر گرامی

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

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


dostmobile

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

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

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

  • روز های برد

    3

آخرین بار برد dostmobile در فروردین 19 2015

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

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

326 عالی

درباره dostmobile

  • درجه
    کاربر نیمه فعال
  • تاریخ تولد ۹۰/۰۳/۲۵

روش های تماس

  • اسکایپ
    dostmobile1990
  • آدرس سایت
    http://dostmobile.ir

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

  • محل زندگی
    مشهد مقدس
  • شغل
    شغل mdf کابینت و اشکاف و... با نازلترین قیمت خخخ

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

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

  1. dostmobile

    بارش برف در b4a

    با سلام یه ایمیج برف یا * ایجاد کنید من 4 تایمر در نظر گرفتم که برفهای ریز سرعت بیشتر و برفهایدرشت سرعت کمتر و ... Private Timer1 As Timer Private Timer2 As Timer Private Timer3 As Timer Private Timer4 As Timer تو اکتیوتی کریت هم اینیشالایز میکنیم Timer1.Initialize("Timer_1",50) Timer2.Initialize("Timer_2",100) Timer3.Initialize("Timer_3",150) Timer4.Initialize("Timer_4",400) Timer1.Enabled=True Timer2.Enabled=True Timer3.Enabled=True Timer4.Enabled=True خب حالا میریم سراغ کدهای ساب تایمر Dim image1 As ImageView image1.Initialize("") image1.Bitmap =LoadBitmap(File.DirAssets, "snow1.png") image1.Gravity = Gravity.FILL Dim left As Int =Rnd(0,100) Activity.AddView(image1,(left*Activity.Width)/100,-20%x,10dip,10dip) Dim a As Int = Rnd(0,10) If a >5 Then image1.SendToBack Else image1.BringToFront End If image1.SetLayoutAnimated(4000,image1.Left,120%y,image1.Width,image1.Height) image1.SetVisibleAnimated(5000,False) Sleep(5000) image1.RemoveView برای تغییر سایز ایمج ویو اون 10dip رو تغییر بدین
  2. سلام و درود در بخش (ساخت SwipeMenu) ایا قابلیت اینو داره ایتم بیشتر به سسمت چپ کشیده بشه؟ منظورم اینه بجای اون دوتا باتن که شما اد کردی فضا بیشتر باشه بعنوان مثال 90% بره سمت چپ و فقط 10 % ایتم نشان داده بشه
  3. باید لینک دانلود مستقیم باشه یه چیزی تو این مایه ها میشه
  4. درود شما تگ پنل رو برابر با ایدی قرار بدین و با سندر دریافتش کنید تگ رو بریزین تو متغیر و در اکتیوی بعدی فراخوانی کنید مطالبی رو نشان بده که آیدی برابر با متغیر باشد
  5. لطفا یه نمونه apk بزارین تا مخاطبین بیشتر اشنا بشن با محیط برنامه سپاس
  6. کدتونو بزارین راهنمایی کنیم
  7. سلام و درود دوستان گرامی نام فونت پیش فرض گوشیو چطور در بیارم؟ میخوام نامشو بیارم تو لیبل و ...(اینو نوشتم که بدونید سوالم مختص کدنویسیه) تو گوشی هوآوی خودم فونت پیش فرض Roboto-Regular.ttf هستش ولی میخوام با کدنویسی درش بیارم امیدوارم واضح توضیح داده باشم سپاس
  8. سپاس از نقد تمام دوستان هیچ محدودیتی برای کار با برنامه وجود نداره و فول رایگانه اون پرداخت درون هم حمایت مالیه برای نیت خاصی که دارم
  9. این برنامه شامل کل قرآن همراه با صوت میباشد قابلیت دانلود صوت پخش صوت متن قرآن همراه با ترجمه استخاره با بیان نتیجه فارسی همراه با قابلیت اشتراک گذاری پرش به سوره و آیه مورد نظر ذخیره خودکار موقعیت خوانده شده قرآن صوتی صدای آسمانی - دانلود | نصب برنامه اندروید | کافه بازار
  10. البته اگر تعداد کاراکتر خاصی مدنظرتونه نیاز نیس کتابخونه بدین Label1.Text = cur.GetString("text") 'matn ro gereftam az database' Label1.text = Label1.text.SubString2(0,45) 'ta caracter 45 ru neshon midim' Label1.Text = Label1.Text&" ... " 'inja ham 3 noghte ezaf kardam'
  11. If File.Exists(File.DirInternal,"link.db")=False Then Dim zip As ABZipUnzip File.Copy(File.DirAssets,"database.zip",File.DirDefaultExternal,"database.zip") zip.ABUnzip(File.DirDefaultExternal&"/database.zip",File.DirInternal) ToastMessageShow("فایل اکسترکت شد",False) File.Delete(File.DirDefaultExternal,"database.zip") End If کتابخانه ABZipUnzip
  12. در مورد باز کردن کانال تلگرام به صورت مستقیم توضیح بدین ممنون یعنی فرقی نداره کاربر موبو داشتاه باشه یا هر تلگرام غیر رسمی دیگه؟؟؟؟ هرچی داشته باشه بطور مستقیم باز میکنه؟
  13. با سلام و درود موضوع : انتخاب فونت برای ویو ها از مموری کارت,پوشه خاص و ... درحالت پیشفرض امکان چنین کاری وجود نداره و باید از جاوا ابجکت استفاده شود؛پس ابتدا یه ساب میسازیم Sub LoadTypefaceFromFile(Dir As String, FileName As String) As Typeface Dim jo As JavaObject jo.InitializeStatic("android.graphics.Typeface") Return jo.RunMethod("createFromFile", Array(File.Combine(Dir, FileName))) End Sub حالا وارد کدنویسی میشیم من یه لیست رو گرفتم و فونت رو بهش اعمال میکنم Dim tf As Typeface = LoadTypefaceFromFile(File.DirRootExternal&"/Dost font",l.Get(Position)) Label1.Typeface = tf نمونه ساده تر Dim tf As Typeface = LoadTypefaceFromFile(File.DirRootExternal, "dostmobile.ttf") Label1.Typeface = tf
  14. منظورتون اریا لیسته؟ شما دیدین همچین متدی رو؟