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

شهاب اسکندری

گروه دانشجو
  • تعداد ارسال ها

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

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

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

47

6 دنبال کننده

درباره شهاب اسکندری

  • درجه
    کاربر رو به رشد

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

440 بازدید کننده نمایه
  1. اینو استفاده کن دلاور ببین چی میشه Sub Globals Dim mp As MediaPlayer End Sub Sub Activity_Create(FirstTime As Boolean) mp.Initialize mp.Load(File.DirAssets,"music.mp3") mp.Play End Sub Sub Activity_Pause (UserClosed As Boolean) mp.Pause End Sub
  2. سلام بهش فک نککردم تا حالا احتمالا از این برنامه ها میخوای بنویسی که اسمو با کیبورد برنامه مینویسن و کپی میکنن واسه اسم پروفایل و بلوتوث و از این چیزا ببین ، الان تمام گوشی ها و ... کدهای اسکی رو میتونن بخونن، شما باید اون شکل یا تیپ خاصت رو مثلا کلمه ســــــلام رو کد اسکی تک تک حروفش رو بفرستی به جای دیگه یا قسمت دیگه از گوشی البته دقیق نمیدونم تو بیسیک چجوریه اما ممکنه با این روش بشه همچین کاری کرد اگرم برای برنامه خودت میخوای که به هر لیبل یا لیست ویو کپی کردی، فونت اون لیبل یا هر چیزی رو عوض کن
  3. سلام کد شایان که خیلی خوبه از کد زیر هم شاید بشه استفاده کرد..... Sub Globals Dim mp As MediaPlayer End Sub Sub Activity_Create(FirstTime As Boolean) mp.Initialize mp.Load(File.DirAssets,"music.mp3") mp.Play End Sub Sub Activity_Pause (UserClosed As Boolean) If UserClosed = True Then mp.Pause End If End Sub
  4. تشخیص متن در B4A

    سلام تو رویداد تکست چنج باید کار کنی میتونی با شرط کنترل کنی کار رو مثلا د زیر میاد و اگه 4 حرف شده بود حروف ادیت تکست، یه اکتیویتی باز میکنه Sub myedit_TextChanged (Old As String, New As String) If New.Length = 4 Then StartActivity(shahab) End If End Sub
  5. سلام فک کنم شما میخوای مطلب بندی کنی و فهرست داشته باشی برای اینکار یه ای دی به جز ای دی اصلی انتخاب کن یعنی چی؟ یه ساب ای دی بذار که برای مطالب قسمت اولتت 1 رو داره برای 2 ، 2 رو داره و .... SELECT * FROM pic_matn WHERE subId = 1 کوئری هم به این شکل میشه.......
  6. مشکل در متریال B4A

    سلام بهتره که فایل های api 21 رو بگیرید بریزید توی پوشه پلتفرم تولز و ادرس رو از configure path توی بیسیک، به این فایل های جدید بدید خودش خودکار انجام میده این کارو کد شایان هم درسته اما بهتره دست نزنید به مانیفستتون
  7. سلام دلاور باید از تگ و سندر استفاده کنی منطقی اینه که یه سیک بار فقط بذاری و برای هر دکمه ، پلی و ... بذاری و اهنگ رو بعد از پلی نسبت بدی به سیک بار اصلی که داری نکته اینه که باید از تگ و سندر استفاده کنی توی حلقه، 2 تا دوکمه مسلما داری، برای استاپ و پلی خوب بیا و به تگ اینا اسم اهنگ رو بده چطوری؟ توی حلقه که داری به لیبل ها متن و ... میدی به دکمه اول(پلی) و دوم(استاپ ) هم مقدار بده هموطن button1.tag = "ahangname" button2.tag = "ahang name" برای رویداد کلیک این دکمه، از سندر استفاده کنی حله همه چی مثلا برای رویداد کلیک دکمه پلی Dim mybutt As Button mybutt = Sender Dim mp As MediaPlayer mp.Initialize mp.load(File.DirInternal,"mybutt.tag"&".mp3") mp.Play نکته تعریف یه دکمه هست و استفاده از تگ اون دکمه موفق باشی دلاور
  8. سلام دوستم شما میتونید با استفاده از کتابخونه ariaPhotoShop که استاد شاهدی زحمتش رو کشیدن هم اینکار رو انجام بدید باید اون بیت مپی که میخواین به لیست ویو بدید رو از طریق کتابخونه به لیست ویو معرفی کنید اگر مشکلتون حل نشد(با کد شایان هم حل نشد) بگید براتون سمپل قرار بدم
  9. خوب، خیلی خیلی هم خوب و عالی بالاخره این مشکل که فکر میکنم بزرگترین مشکل شما تا الان بوده(که یکمی هم پیچیده شد) حل شد منم خوشحالم خیلی زیاد که تونستم در حل این مشکل کمی کمکتون کنم موفق باشید
  10. اختیار داری عزیزم، خوبه که جواب داد شما بیا و محدود کن دکمه برگشت رو و یه دکمه هم بذار برای خروج در رویداد کلیک دکمه خروج، به شکل زیر کارکن ExitApplication این ساب هم اضافه کن که اگه یه وقتی دکمه بک گوشی رو زد، عمل کنه و ببنده برنامه رو Sub Activity_KeyPress (KeyCode As Int) As Boolean If KeyCode = KeyCodes.KEYCODE_BACK Then Dim a As Int a = Msgbox2("are you sure?","exit app","yupe","","nope",Null) If a = DialogResponse.POSITIVE Then ExitApplication Return True End If End If End Sub
  11. برنامه رو به حالت قبل برگردون یعنی اون رو true کن یه متغیر بولین تعریف کن تعریف کن به این شکل در ساب گلوبال Dim check As Boolean = False در ساب اکتیویتی کریت هم به شکل زیر کار کن If check = False Then StartUpdate check = True End If ببین نتیجه میده یا نه
  12. این خط رو در پابان کدها تغییر بدید Activity_Create(false) این ساب هم به شکل زیر صدا کنید If FirstTime = True Then StartUpdate End If
  13. سلام دوستان یه متد داریم توی جاوا html که میشه متن تکست ویو رو با Html قرار داد و خودش ترجمه میکنه که با Inline اوردمش اینور بعضی متد هارو شاید انجام نده اما دیگه تستش با خودتون یه چیزایی مثل رنگ تیتر و این چیزا رو میشه باهاش انجام داد -------------------------------------------- کتابخونه JavaObject رو هم تیک بزنید کد زیر رو بیرون ساب هاتون اضافه کنید #if java import android.widget.TextView; import android.text.Html; public void usehtm (TextView tx,String matn){ tx.setText(Html.fromHtml(matn)); } #end if به شکل زیر هم استفاده کردم Sub Activity_Create(FirstTime As Boolean) 'Do not forget to load the layout file created with the visual designer. For example: 'Activity.LoadLayout("Layout1") Dim lbl As Label lbl.Initialize("") lbl.TextSize = 30 Activity.AddView(lbl,0,0,100%x,100%y) Dim JO As JavaObject JO.InitializeContext JO.RunMethod("usehtm",Array As Object(lbl,"<font color='red'><i>shahab</i></font><br><u>amin</u><br>elii<br><br><font color = 'green'>reza & shayan </font>")) End Sub
  14. دوستم من کد شمارو تصحیح کردم شما اگه از متد استفاده نکنی، منطقا باید یه بار ران بشه در هر ورود به برنامه شما مستقیم بذارش این کد رو توی اکتیویتی کریتت(کدی که توی این ساب نوشته بودم) احتمالا مشکلتون مرتفع میشه اون اموزش هایی هم که قرار دادم، روش اصلی اپدیت هست که توی برنامه هایی مثه این مسنجر ها(البته دیتابیسشون به این شکل نیست) استفاده میشه
  15. سلام شما میخوای چی کار کنی دوست عزیز؟ ساب زیر رو اضافه کنید Sub StartUpdate() Dim a As Int a = Msgbox2("ایا بروز رسانی شود؟","بروزرسانی برنامه","بله","","خیر",Null) If a = DialogResponse.POSITIVE Then Dim ht As HttpJob ht.Initialize("update",Me) ProgressDialogShow(" برنامه در حال بروزرسانی می باشد.لطفا منتظر بمانید ") ht.Download("http://bayanbox.ir/download/5616858746303122179/news.db") End If End Sub برای استفاده ازش هم به شکل زیر صداش کنید StartUpdate() -------------------------------------------------------------------------------------
×