اطلاعیه

کاربر گرامی

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

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


جستجو در تالار

در حال نمایش نتایج برای برچسب های 'code'.



تنظیمات بیشتر جستجو

  • جستجو بر اساس برچسب

    برچسب ها را با , از یکدیگر جدا نمایید.
  • جستجو بر اساس نویسنده

نوع محتوا


تالار ها

  • بخش اطلاعات اصلی انجمن
    • قوانین تیــم
    • انتقادات و پیشـــنهادات
    • اخبار تـــیم
    • تـولـیـداتـــ انـجـمــن
    • مرتبط با فروشگاه
    • درخواست ارتقا درجه کاربری
  • برنامه نویسی بیسیک4اندروید
    • آموزش های گام به گام برای مبتدی ها
    • پرسش و پاسخ (بیسیک4اندروید)
    • کتابخانه ها (Libraries)
    • درخواست Wrap کردن کتابخانه
    • ســـورس کـــدهـا
    • قطعه کدها (Code Snippets)
    • آموزش های تصویری
    • آموزش های متنی
    • ابزارهای B4A
    • برنامــه هـای سـاختـه شـده توسـط شمــا
  • برنامه نویسی اندروید استودیو
    • آموزش های گام به گام برای مبتدی ها
    • کتابخانه ها (Libraries)
    • ســـورس کـــدهـا
    • قطعه کدها (Code Snippets)
    • آموزش های تصویری
    • آموزش های متنی
    • پرسش و پاسخ (اندروید استودیو)
    • ابزار های اندروید استودیو
    • برنامــه هـای سـاختـه شـده توسـط شمــا
  • برنامه نویسی B4J
    • آموزش
    • پرسش و پاسخ
    • کتابخانه ها
    • قطــــــعه کــــــــد ها
    • ابزار ها
  • مـتـفـرقـه
    • بحث آزاد
    • نقد و بررسی برنامه ها
    • صندلی داغ انجمن
    • مسابقات انجمن
    • مرتبط با برنامه نویسی
    • بخش توسعه دهندگان
  • گرافیک
    • ابزارهای طراحی
    • آموزش گرافیک
    • عکس ها و تصاویر لایه باز
    • درخواست طراحی
    • نمونه کارها
  • HTML & PHP
    • ابزار مورد نیاز برنامه نویسی HTML و PHP
    • آموزش PHP
    • آموزش HTML
    • سوالات مربوط به PHP و Html
  • بخش ویژه (VIP)
    • محـــصولات کــاربران
    • درخواست آموزش
  • آرشیو
    • بایگانی

دسته ها

  • B4J
    • کتابخانه ها
    • سورس کد ها

دسته ها

  • Articles

149 نتیجه پیدا شد

  1. سلام دوستان تو Designer هست به اسم Button Properties همون قسمتی که میشه یه کاری کرد که وقتی روی Button زده میشه برای یک ثانیه عکسش عوض بشه خب میخواستم بدونم امکانش هست اون قسمت رو با کد تغییر داد؟
  2. سلام ببخشید من یه کد دارم که میخوام هر 30 ثانیه یک بار اجرا بشه امکانش هست کمک کنید
  3. مشکل در text size

    عرض ادب خدمت اساتید سایت بنده طبق آموزش جناب خلیلی در اسکریپت دیزاینر سایز لیبل و تکست سایزش رو تعریف کردم به این صورت SetLeftAndRight(60%x , 100%x) SetTopAndBottom(0%y , 20%y) text size = 2%y در اکثر گوشیها درست کار میکنه اما در سری Z سونی درست نتیجه خوبی نداره و سایز متن خیلی بزرگ میشه ! راهنمایی بفرمایید لطفا ممنونم
  4. سلام من یه برنامه نوشتم که از دریافت sms جلوگیری میکنه و چند شماره موبایل هم به طور مثال توی برنامه وارد کردم فقط یه مشکل دارم اونم اینه که برنامه فقط اولین شماره ای که توی کدها وارد کردم رو block میکنه و شماره های دیگه آزاد هستن. به نظرتون چیکار باید بکنم ؟ If From="+989395930000" OR From="+989380600000" Then ToastMessageShow("پیام پاک شد",True) Return True End If
  5. مشکل msg

    سلام Msgbox("سلام به برنامه خوش آمدید","wlc") من میخوام تو مسیج باک فاصله اضافه کنم یا کلمه رو به خط بعد بفرستم باید چیکار کنم؟؟ مثلا بخوام متن مسیج باکس اینجوری نمایش داده شه "سلام به برنامه خوش آمدید" باید چیکا کنم؟
  6. پخش صدا

    یه سوال: من فایل صوتی رو توی برنامه اجرا میکنم ولی وقتی دکمه pause رو می زنم و بعد دکمه play رو میزنم فایل صوتی از اول پخش میشه(یعنی pause مثل stop عمل میکنه) اینم کد: Sub stop_Click md.stop End Sub Sub pause_Click md.pause pause.Visible=False play.Visible=True End Sub چه کار کنم؟؟؟؟؟
  7. مشکل با لیست

    سلام من داشتم برنامه ای مینوشتم و میخواستم با کلیک روی گزینه ذخیره اطلاعات یک آبجکت توی یک لیست ذخیره بشه. و با زدن بازیابی اون اطلاعات داخل یک لیبل برگرده. میشه راهنمایی کنید؟ یک فیلم آموزشی هم دیدم ولی نشد الان مشکل اینه که اطلاعات ذخیره نمیشه. اینم کد : Sub Save_Click write End Sub Sub re_Click read End Sub Sub write list1.Add(n) File.writelist(File.DirDefaultExternal,"list.txt",list1) End Sub Sub read If File.Exists(File.DirInternal,"list.txt") Then Dim list1 As List list1 = File.readlist(File.DirInternal,"list.txt") td.text=list1.Get(0) End If End Sub
  8. service

    سلام من میخوام وقتی ساعت گوشی 00:00 شد تنظیمات برنامه به صورت اولیه برگرده. یه کدی نوشتم ولی وقتی برنامه رو اجرا میکنم برنامه کرش میکنه و از برنامه خارج میشه. میشه بگید کجای این کد اشتباهه ؟ Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("water") StartService(noti) end sub #Region Service Attributes #StartAtBoot: False #StartCommandReturnValue:android.app.Service.START_STICKY #End Region Sub Process_Globals Dim Path,dtime,etime As String End Sub Sub Service_Create Path=File.DirRootExternal&"/kalerykhaf" dtime="00:00:00" etime="00:01:00" End Sub Sub Service_Start (StartingIntent As Intent) StartServiceAt("", DateTime.Now + 10000,True) If File.Exists(Path,"health10.txt") Then If DateTime.Time(DateTime.Now)>=dtime AND DateTime.Time(DateTime.Now)<=etime Then File.WriteString(Path,"health10.txt","0") End If End If End Sub Sub Service_Destroy End Sub
  9. سلام و درود من از کد زیر برای ذخیره عکس تو حافظه گوشی استفاده می کنم.ولی مثلا از بین 20 تا عکس هر بار که روی باتن کلیک میشه فقط یک عکس دخیره میشه با نام bitmap من می خوام هر عکس که روی باتن زدم با نام دیگه ذخیره بشه مثلا bitmap1,bitmap2 ,... ممنون میشم راهنمایی کنید Sub bsave_Click a.Initialize3(ImageView1.Bitmap) Dim out As OutputStream out = File.OpenOutput(File.DirRootExternal, "&bitmap&.png", False) a.WriteToStream(out, 100, "PNG") out.Close ToastMessageShow("عکس در حافظه گوشی ذخیره شد",False) End Sub
  10. سلام نمیشه کاری کرد وقتی می خواهیم ارتفاع اسکروا ویو رو تنظیم کنیم کاری کرد که دیگه نخوایم دستور زیر رو بنویسیم : ScrollView1.Panel.Height=1500dip یعنی هر چی تو دیتابیس اضافه شه به ارتفاع اسکرول ویو هم اضافه شه ...
  11. استفاده از code module

    با سلام من میخوام یه code module ایجاد کنم و از داخل اکتیویتی هام یه متن را براش بفرستم و اون متن را مثلا در 2 ضرب کنه و داخل تکست اکتیویتی بنویسه ه کار باید بکنم ؟ میدونم مثلا این تابع را درست میکنم (Sub Vahid(text As String text = text * 2 end sub و باید اینجوری تابع را بخونم mycode.vahid("2"( خب حالا جواب را چه طوری داخل تکست نمایش بدم ؟
  12. مشکل با list

    سلام دوستان من چنتا متغییر به یک list دادم و می خوام اونا رو داخل لیست ویو نمایش بدم ولی می خوام هرکدام که با صفر برابر شد نمایش نده چطوری میتونم برای list شرط بذارم . dim list2 as list list2.Initialize list1.AddAll(Array As Int(int1,int2,int3,int4,int5,int6,int7,int8,int9)) For i=0 To list2.Size-1 ListView1.AddSingleLine2(list1.Get(i),i) Next
  13. اموزش گرفتن چقدر مانده از اتمام باتری

    سلام و خسته نباشید اول باید لایبری phone را تیک بزنید و بعد از تیک و عال شدن این کد را بدید درصد باتریتون می اید Sub Globals Dim iman As PhoneEvents End Sub Sub Activity_Create(FirstTime As Boolean) iman.Initialize("iman") End Sub Sub iman_BatteryChanged (Level As Int, Scale As Int, Plugged As Boolean, Intent As Intent) Log("BatteryChanged: Level = " & Level & ", Scale = " & Scale & ", Plugged = " & Plugged) [center]End Sub[/center] اگه سوال بود بفرمایید نظر فراموش نشه
  14. سلام.میخوام عدد های وارده در چند edittext رو با هم جمع کنم و جواب رو توی edittext دیگه نمایش بدم. این کد رو نوشتم خطا میده.مشکلش چیه؟ EditText8.Text = ((EditText1.Text) * (EditText2.Text))+((EditText3.Text) * (EditText4.Text) * (EditText5.Text)) - ((EditText6.Text) / 30) - ((EditText3.Text) * (EditText7.Text) / 30)
  15. اتصال YouWave به بیسیک 4 اندروید

    سلام ، به پوشه platform-tools که در محل SDK شما قرار دارد بروید. جلوی آدرس یک \ (اسلش) بزنید و دستور زیر را بنویسید: adb connect 127.0.0.1:5558 اینتر را روی کیبورد فشار دهید. نکته: توجه داشته باشید که هم B4A و هم Youwave باز باشد. موفق و مؤید باشید
  16. بررسی کد

    سلام میشه بگید کجای این کد اشتباهه ؟ Sub pan2_LongClick cur2=sql1.ExecQuery("SELECT * FROM tbl") Dim send As Panel send=Sender cur2.Position =send.Tag Dim matnsms As Label matnsms.Initialize("") matnsms.text=cur2.GetString("id") cur2.Close Dim share As Intent share.Initialize(share.ACTION_SEND,"") share.SetType("text/plain") share.PutExtra("android.intent.extra.TEXT", matnsms.text) share.WrapAsIntentChooser("متن خود را به اشتراک بگذارید....") StartActivity(share) End Sub وقتی برنامه رو اجرا میکنم این خطارو میده ؟
  17. سلام و خسته نباشید خدمت اساتید گل خودم! دوستان دنبال یه مثال برای ساخت پوشه و ذخیره ی فایل درون پوشه ی داخل کارت حافظه بودم که به این کد برخوردم ولی راستش خیلی سر در نیوردم و نمی دونم چجوری میشه استفاده کرد! اگه امکان داره راهنمایی کنید بعد تبدیلش کنیم به سورس همه استفاده کنن! باز هم بسیار سپاسگذارم.. *like* [color=#0000FF]Private Sub [/color][color=#000000]StartAStream ([/color][color=#0000FF]In[/color][color=#0000FF]As[/color][color=#008B8B]InputStream[/color][color=#000000], out [/color][color=#0000FF]As[/color][color=#008B8B]OutputStream[/color][color=#000000]) [/color][color=#0000FF]Log[/color][color=#000000]([/color][color=#800000]"StartAStream"[/color][color=#000000]) astream.InitializePrefix([/color][color=#0000FF]In[/color][color=#000000], [/color][color=#0000FF]True[/color][color=#000000], out, [/color][color=#800000]"astream"[/color][color=#000000]) [/color][color=#0000FF]If[/color][color=#0000FF]File[/color][color=#000000].IsDirectory([/color][color=#800000]"/mnt/extSdCard"[/color][color=#000000], [/color][color=#800000]""[/color][color=#000000]) = [/color][color=#0000FF]True[/color][color=#0000FF]Then[/color][color=#008000]' SD Card on Galaxy Note 10.1 & Galaxy Phone [/color][color=#0000FF]If[/color][color=#0000FF]File[/color][color=#000000].IsDirectory([/color][color=#800000]"/mnt/extSdCard"[/color][color=#000000], [/color][color=#800000]"FileTransferBT"[/color][color=#000000]) = [/color][color=#0000FF]False[/color][color=#0000FF]Then[/color][color=#000000] [/color][color=#0000FF]File[/color][color=#000000].MakeDir([/color][color=#800000]"/mnt/extSdCard"[/color][color=#000000], [/color][color=#800000]"FileTransferBT"[/color][color=#000000]) [/color][color=#0000FF]End[/color][color=#0000FF]If[/color][color=#000000] astream.StreamFolder = [/color][color=#800000]"/mnt/extSdCard/FileTransferBT"[/color][color=#000000] [/color][color=#0000FF]Else[/color][color=#0000FF]If[/color][color=#0000FF]File[/color][color=#000000].IsDirectory([/color][color=#800000]"/mnt/sdcard0"[/color][color=#000000], [/color][color=#800000]""[/color][color=#000000]) = [/color][color=#0000FF]True[/color][color=#0000FF]Then[/color][color=#008000]' On-board storage Galaxy Note 10.1 [/color][color=#0000FF]If[/color][color=#0000FF]File[/color][color=#000000].IsDirectory([/color][color=#800000]"/mnt/sdcard0"[/color][color=#000000], [/color][color=#800000]"FileTransferBT"[/color][color=#000000]) = [/color][color=#0000FF]False[/color][color=#0000FF]Then[/color][color=#000000] [/color][color=#0000FF]File[/color][color=#000000].MakeDir([/color][color=#800000]"/mnt/sdcard0"[/color][color=#000000], [/color][color=#800000]"FileTransferBT"[/color][color=#000000]) [/color][color=#0000FF]End[/color][color=#0000FF]If[/color][color=#000000] astream.StreamFolder = [/color][color=#800000]"/mnt/sdcard0/FileTransferBT"[/color][color=#000000] [/color][color=#0000FF]Else[/color][color=#0000FF]If[/color][color=#0000FF]File[/color][color=#000000].IsDirectory([/color][color=#800000]"/mnt/sdcard"[/color][color=#000000], [/color][color=#800000]""[/color][color=#000000]) = [/color][color=#0000FF]True[/color][color=#0000FF]Then[/color][color=#008000]' On-board storage Galaxy Phone [/color][color=#0000FF]If[/color][color=#0000FF]File[/color][color=#000000].IsDirectory([/color][color=#800000]"/mnt/sdcard"[/color][color=#000000], [/color][color=#800000]"FileTransferBT"[/color][color=#000000]) = [/color][color=#0000FF]False[/color][color=#0000FF]Then[/color][color=#000000] [/color][color=#0000FF]File[/color][color=#000000].MakeDir([/color][color=#800000]"/mnt/sdcard"[/color][color=#000000], [/color][color=#800000]"FileTransferBT"[/color][color=#000000]) [/color][color=#0000FF]End[/color][color=#0000FF]If[/color][color=#000000] astream.StreamFolder = [/color][color=#800000]"/mnt/sdcard/FileTransferBT"[/color][color=#000000] [/color][color=#0000FF]Else[/color][color=#000000] [/color][color=#0000FF]Msgbox[/color][color=#000000]([/color][color=#800000]"Storage space not available ..."[/color][color=#000000], [/color][color=#800000]"Unable to transfer"[/color][color=#000000]) [/color][color=#0000FF]End[/color][color=#0000FF]If[/color][color=#000000] [/color][color=#0000FF]End Sub[/color]
  18. سلام میشه بگین توی مینفست یکی از این دوتا خط رو اگه بذارم فرقش چیه؟ کدوم یکی بهتره؟ فقط میدونم در رابطه با ورژن اندروید مورد پشتیبانیه. <uses-sdk android:minSdkVersion="4" android:targetSdkVersion="14"/> <uses-sdk android:minSdkVersion="4" /> ممنونم
  19. سلام خسته نباشید من یه باتن دارم و یه منو ، حالا میخوام وقتی رو باتن کلیک شد منو باز بشه راهی هست واسه انجام این کار منو رو هم اینطوری اضافه کردم: Activity.AddMenuItem("تنظیمات","next1")
  20. اشتراک گذاری در اینستاگرم

    کد اشتراک گذاری عکس در اینستاگرم [color=#0000FF]Dim[/color][color=#000000] u [/color][color=#0000FF]As[/color][color=#008B8B]Uri[/color][color=#008000]'ContentResolver library [/color][color=#000000]u.Parse([/color][color=#800000]"file://"[/color][color=#000000] & [/color][color=#0000FF]File[/color][color=#000000].Combine(a, [/color][color=#800000]"tmpfile.jpg"[/color][color=#000000])) [/color][color=#0000FF]Dim[/color][color=#000000] inten [/color][color=#0000FF]As[/color][color=#008B8B]Intent[/color][color=#000000] [/color][color=#0000FF]Dim[/color][color=#000000] tmpt [/color][color=#0000FF]As[/color][color=#008B8B]String[/color][color=#000000] = [/color][color=#800000]"your text"[/color][color=#000000] inten.Initialize(inten.ACTION_SEND,[/color][color=#800000]""[/color][color=#000000]) inten.SetType([/color][color=#800000]"image/*"[/color][color=#000000]) inten.PutExtra([/color][color=#800000]"android.intent.extra.STREAM"[/color][color=#000000],u) inten.PutExtra([/color][color=#800000]"android.intent.extra.TEXT"[/color][color=#000000],tmpt) inten.SetComponent([/color][color=#800000]"com.instagram.android/.activity.ShareHandlerActivity"[/color][color=#000000]) [/color][color=#0000FF]StartActivity[/color][color=#000000](inten)[/color]
  21. سلام. خسته نباشید من برای اینکه بانک طالاعاتی رو update کنم از کد زیر استفاده کردم SQL.ExecNonQuery("update tblsetting set Password='"+txtpass.Text+"'") در این کد به مفدار txtpass خطا میده. چطور میشه از ییک مقدار خارجی در دستورات SQL استفاده کرد؟هر وقت بجای txtpass یه رششته میذارم کار میکنه ممنون
  22. بخشی از دیتابیس

    به نام خدا سلام به همگی یه سوال: من توی دیتابیس میخوام از آیدی 1 تا 10 رو توی لیبلم نشون بده کدی که نوشتم: cur1 = sql1.ExecQuery("select * from a where id between 1 and 10") این کد بالا درسته؟ با emulator که اجرا میکنم درسته ها ولی وقتی با گوشی اجرا میکنم هیچ متنی نشون نمیده!!! ممنون میشم راهنماییم کنید.
  23. سلام. یه سوال داشتم جون من کمکم کنید:*solh**give_rose* برای ایجاد لیست علاقه مندی برای کتابی که با مولتی پنل ساخته شده ، چطور میشه روی هر آیتمی که کلیک شد، فقط همون آیتم توی دیتابیس ،ستون fav اش از 0 بشه 1؟ کدی که من نوشتم: sql1.ExecNonQuery("update sec1 set fav = 1 where id ="&cur1.GetInt("id")) اما مشکلش اینه که هر کدوم رو کلیک کنم همگی ستون fav شون از 0 میشه 1 ممنون میشم جواب بدین.*monkey**wall*
  24. سلام من با این کد قبلا فایل کپی میکردم الان یک ارور بی معنی میده چیزی اشتباه هست بگید If File.ExternalWritable = True Then File.Copy(File.DirInternalCache ,"tm.pdf" , File.DirDefaultExternal ,"/Books/" & book & ".pdf") Pnlcopy.Visible = True Else File.Copy (File.DirInternalCache ,"tm.pdf" ,File.DirInternal ,"/Books/" & book & ".pdf") Pnlcopy.Visible = True End If خطا هم این متن هست یکم عجیبه چون من فایلی هنوز کپی نکردم و اصلا نمیخوام اون فابل رو اپن کنم java.io.FileNotFoundException: /storage/sdcard0/Android/data/b4a.example/files/Books/شبهات.pdf: open failed: ENOENT (No such file or directory)
  25. با سلام من میخواستم از کتابخانه ripple effect واسه دکمه ها استفاده کنم ولی نمیدونم پارامتر آخرشو باید چی بنویسم لطفا راهنمایی کنید dim re as ripple effect sub button_click re.Initialize(button,255.0.0,500,**inja ro nemidoonam**)