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

AnswerCenter

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

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

اطلاعیه

کاربر گرامی

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

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


batman123

کاربر عادی
  • Content Count

    55
  • Joined

  • Last visited

Community Reputation

1 متوسط

About batman123

  • Rank
    کاربر باسابقه
  • Birthday تعیین نشده

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. حالا اگه بخوایم کلمه رو بولدش کنیم باید چی کار کنیم؟! من با این دستورات تونستم رنگشو توی متن قرمز کنم، اما میخوام بولدشم بکنم rezult = rezult.Replace(txt_kalame.Text,"{R}"&txt_kalame.Text&"{R}") Dim rs As RichString rs.Initialize(rezult) rs.Color2(Colors.Red, "{R}") Label1.Text = rs ممنون میشم توضیح بدید
  2. سلام. میخواستم بدونم که آیا راحی هست که توی برنامه یک فایل پی دی اف رو باز کنم، و بتونم متنی که توی فایل نوشته شده رو همه رو بگیرم و داخل یک ادیت تکست کپی کنم؟ یعنی به محض این که توی برنامم فایل پی دی اف رو باز میکنم، کل متنش داخل کلیپ بورد ذخیره بشه و بشه جای دیگه ای پیستش کرد ممنون
  3. کسی از دوستان اون سه تا آیتمی رو که برای دانلود توی این لینک هست رو داره من که نتونستم بگیرمشون
  4. سلام آیا میشه یک ویدئو پلیر حرفه ای در حد وی ال سی یا کا ام پلیر در بیسیک فور اندروید ساخت؟ که بتونه زیرنویس و فرمت های مختلف رو ساپورت کنه ممنون میشم اگه کتابخونه ای داره بگید و راهنمایی کنید.
  5. آقا دمت گر، خیلی کارمو راه انداختی منتها یه مشکلی دارم و اون هم اینه که متن من دارای چندین خط هست، اما این کدی که شما زحمت کشیدید و نوشتید، فقط اولین خطی رو که کلمه من درش هست رو میاره و خط های بعدی رو که همون کلمه توش هست رو نمیاره این کدهای منه. ممنون میشم یه کمک دیگه بدید Sub btn_search_Click lbl_result.Visible=True Dim Text As String=txt_text.Text Dim rezult As String=findLine(txt_kalame.Text,Text) If rezult.Length>0 Then lbl_result.Text=rezult Else lbl_result.Text="not found" End If End Sub '----------------- Private Sub findLine(word As String,text As String) As String Dim allLine() As String=SplitText(text) For Each line As String In allLine If line.Contains(word) Then Return line Next Return "" End Sub Sub SplitText(Text As String) As String() Dim sText() As String sText = Regex.Split(CRLF, Text) Return sText End Sub چی کار کنم همه خط هایی که کلمم درش اومده، توی لیبل نشون بده؟
  6. همه این کارارو کردم نمیشه اما توی پروژه های قبلیم همه چی اوکیه بابا لامصب یهویی اینطوری شد نمیدونم چی کار کنم
  7. سلام. من مدت زیادی هست از کتابخونه RuntimePermissions استفاده میکنم اما تازگیا نمیدونم چرا گوشی وقتی به خط کدهایی که توش مجوز هست، میرسه، مجوزهای نوشته شده رو نمیخونه و مجوزهای لازم رو نمیگیره مثلا من این دوتا مجوز رو به برنامه میدم Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("main") Private rtp As RuntimePermissions rtp.CheckAndRequest(rtp.PERMISSION_WRITE_EXTERNAL_STORAGE) rtp.CheckAndRequest(rtp.PERMISSION_READ_EXTERNAL_STORAGE) End Sub این دوتا خط رو هم به اندروید مانیفست اضافه میکنم AddPermission(andrid.permission.WRITE_EXTERNAL_STORAGE) AddPermission(andrid.permission.READ_EXTERNAL_STORAGE) در این صورت وقتی برنامه اجزا میشه باید مجوزهای نوشته شده رو از کاربر بگیره اینطوری برای مثال منتها نمیدونم چرا تازگیا این کادرو اصلا نشون کاربر نمیده و در این صورت برنامه مجوز مربوطه رو دریافت نمیکنه و به همین دلیل به درستی کار نمیکنه!! ممنون میشم راهنمایی بفرمایید ( این درمورد همه مجوزها است )
  8. سلام دوست عزیز خیلی ممنون از راهنماییتون اما میشه کمی هم توضیح فارسی راجع به این ساب ها بدید. خیلی لطف میکنید.
  9. سلام. فرض کنید ما این پاراگراف رو در برنامه داریم به طورکلی ما به دنبال نوشتن کتاب جذاب نبودیم هدف ما یادگیری بهتر و سریع برنامه نویسان زبان بیسیک فور اندروید در این پروژه بود. با استفاده از این سورس کد و کمی سلیقه میتوانید یک کتاب عالی و درجه یک بنویسید و بسیاری از دستورات و مفاهیم برنامه را یاد بگیرید. حالا میخوایم برنامه ما طوری باشه که وقتی کلمه کتاب را جستجو کردیم، اون خطی رو که کلمه کتاب درش اومده رو برای ما داخل یک لیبل نمایش بده.(البته این رو هم در نظر داشته باشید که این پاراگراف داخل دیتابیس نیست، بلکه داخل یک ادیت تکست هست.) آیا توی بیسیک میشه این کار رو انجام داد؟ ممنون میشم راهنماییم کنید.
  10. ممنون میشم اگه کسی بلد هست جواب بده و راهنمایی کنه
  11. سلام. چه طوری میتونم یک فایل pdf رو توی برنامم، در یک لیبل نشون بدم یعنی اول فایل پی دی اف رو توی برنامه باز کنم و سپس بریزمش داخل یک لیبل ممنون.
  12. سلام. دوستان این دستورات رو ببینید: Private Sub voice_Result (Success As Boolean, Texts As List) If Success=True Then name=Texts.Get(0) cur=sql.ExecQuery("SELECT * FROM tbl_contact WHERE name="&name&"") For i=0 To cur.RowCount-1 cur.Position=i number=cur.GetString("number") lbl_contact_name.Text=number voice_rec.Initialize("voice_txt") voice_rec.Language="fa" voice_rec.Prompt="متن خود را بگویید..." voice_rec.Listen lbl_txt_mes.Visible=True Next Else ToastMessageShow("جمله نامفهوم بود",False) End If End Sub بعد از این که این خط اجرا میشه، cur=sql.ExecQuery("SELECT * FROM tbl_contact WHERE name="&name&"") برنامه فورس کلوز میده و خارج میشه!! کسی میدونه چرا؟!
  13. سلامی دوباره میخواستم ببینم کسی هست که بتونه لیستی از اینتنت ها رو بهم بده؟ ببینید مثلا این دستورو ببینید: private intent as intent intent.Initialize("android.media.action.IMAGE_CAPTURE", "") StartActivity(intent) این دستور میاد دوربین گوشی رو فعال میکنه حالا من اینتنت مثلا مخاطبین رو میخوام، پیامک هارو میخوام(منظور به بخش پیامک ها نه این که پیامک ارسال کنه) و... ممنون میشم راهنماییم کنید.
  14. حاجی سورست خیلی عالی بود حالا یه سوال من اوقات شرعی رو با همین گت المنت گرفتم و توی لیبل نشون میدم. مثل اذان صبح و ظهر و اینا... منتها به نظرت چی کار کنم که وقتی مثلا کاربر قزوینو انتخاب میکنه،متن لیبل ها هم اوقات شرعیه قزوینو نشون بدن نظرت چیه؟
  15. آقا خیلی ممنون از جوابت. این خیلی کاربردیه منتها منظور من از مثلا باز کردن پیام ها اینه که مسیجینگ خود گوشی رو باز کنه یا مثلا بازکردن بخش تنظیمات یا ستینگ گوشی. این مدل دستور
×
×
  • Create New...