اطلاعیه

کاربر گرامی

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

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


جستجو در تالارهای گفتگو

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



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

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

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

نوع محتوا


Product Groups

  • اندروید استودیو
    • آموزش های تصویری کاربردی
    • سورس کد
    • آموزش های مرتباط با برنامه های آنلاین و اینترنتی
  • بیسیک4اندروید
    • سورس کد
    • فیلم آموزشی کاربردی
    • فیلم آموزشی برنامه های آنلاین
    • کتابخانه ها
  • اشتراک ویژه
  • Products
  • تعرفه تبلیغات

تالارهای گفتگو

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

جستجو در ...

نمایش نتایجی که شامل ...


تاریخ ایجاد

  • شروع

    پایان


آخرین بروزرسانی

  • شروع

    پایان


فیلتر بر اساس تعداد ...

تاریخ عضویت

  • شروع

    پایان


گروه


اسکایپ


آدرس سایت


یاهو


بیوگرافی


محل زندگی


محل تولد


علایق


شغل


علاقه مندی ها

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

  1. مجید آرتا

    آموزش Do While

    به نام خدا با سلام امیدوارم حالتون خوب باشه در خدمتتون هستیم با آموزش کار با حلقه Do While Do While:کاری مانند حلقه For را دارد با این تفاوت که در این حلقه شمارنده وجود ندارد حالا با یک مثال کار را شروع می کنیم: مثال: Dim i As Int Dim pluse As Int i=0 Pluse=1 Do While (i<20) pluse = pluse + 1 MsgBox(pulse,"Do While") i = i +1 Loop در کد بالا ابتدا 2تا متغیر اینتجر تعریف کردیم و یک مقدار به آن ها تخصیص دادیم در ادامه در حلقه شرط گذاشتیم تا زمانی عمل کند که مقدار i کمتر از 20 باشد،در هر بار تکرار یک مقدار به متغیر pluse اضافه می شود. و این مقدار را در یک مسج باکس نشان می دهیم در آخر هم یک مقدار به i اضافه می کنیم تا به عدد 20 برسد و کار حلقه به پایان برسد موفق و موید باشید
  2. سلام من یه کدی نوشتم ک تو سرویس همش سرویسو اجرا میکنه StartServiceAt("", DateTime.Now + 10 * 1000,True) چطور میشه اینو غیر فعال کرد که کار نکنه؟
  3. سلام به همه ببخشید من آموزش ساخت sqlite و استفاده توی b4a رو نگاه کردم و مثالش رو انجام دادم به درستی کار کرد اما دارم یه پروژه می نویسم که توی این پروژه نمی تونم به databse وصل شم و پیغام میده: could not open database If File.Exists(File.DirInternal,"test.db")=False Then File.Copy(File.DirAssets,"test.db",File.DirInternal,"test.db") End If mySQL.Initialize(File.DirInternal,"test.db",False) در حالی که فایل db رو توی b4a اضافه کردم
  4. سلام دوستان . پوزش می طلبم از این که چند روزه زوم کردم رو پیام . داخل انجمن رو کامل گشتم چیز زیادی پیدا نکردم . اگر لطف کنید و بگید چطوری می تونم پیام دریافت شده رو داخل نرم افزار نشون بدم ممنون می شم . این کد دیدم اما سر در نیووردم چطوری ازش استفاده کنم . [color=#ff8c00]Sub Message(Body As String)[/color] Dim SmsMessages1 As SmsMessages Dim List1 As List List1 = SmsMessages1.GetAll [color=#0000ff] For i = 0 To List1.Size - 1 [/color] Dim Sms As Sms Sms = List1.Get(i) [color=#ff0000]If[/color] Sms.Body = Body [color=#ff0000]Then [/color] Dim id As String = Sms.id Dim addr As String = Sms.Address Dim bd As String = Sms.Body 'hamin to ta akhar [color=#ff0000]End If [/color] [color=#0000ff]Next [/color] [color=#ff8c00]End Sub[/color] مثلا بخوام پیام دریافتی رو داخل یک EditText نمایش بدم چکار کنم .
  5. سلام دوستان تو Designer هست به اسم Button Properties همون قسمتی که میشه یه کاری کرد که وقتی روی Button زده میشه برای یک ثانیه عکسش عوض بشه خب میخواستم بدونم امکانش هست اون قسمت رو با کد تغییر داد؟
  6. سلام فک کنم از اسمش مشخصه دیگه خیلی جاها به کارتون میاد میدونین که وقت امتحاناست پس به خاطر اینکه وقت درسم رو گذاشتم واسه نوشتن این واسم دعا کنید که قبول شم *ناز2* Sub Process_Globals 'These global variables will be declared once when the application starts. 'These variables can be accessed from all modules. End Sub Sub Globals 'These global variables will be redeclared each time the activity is created. 'These variables can only be accessed from this module. Private WebView1 As WebView Dim s As WebViewSettings Dim fp As filepicker End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("ehem") s.setAllowFileAccess(WebView1,True) s.setJavaScriptCanOpenWindowsAutomatically(WebView1,True) s.setLoadWithOverviewMode(WebView1,True) s.setPluginState(WebView1,"ON") WebView1.LoadUrl("http://www.androidexample.com/media/webview/details.html") fp.startWebView(WebView1) End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub download listener هم بهش اضافه کردم دوباره دانلود کنید دوستان Dim s As DownLoadListener s.setOnDownlaodListener(WebView1,"web1") Sub web1_onDownloadStart (Url As String, userAgent As String, contentDisposition As String, mimetype As String, contentLength As Long) Log(Url) End Sub می تونین از تو sub ببرین تو یه activity دیگه برای دانلود WebViewFilePicker v.1.1.zip
  7. با سلام. برای مثال ما میخوایم یه مدول از نوع سرویس داشته باشیم که همیشه تو بگراند اجرا باشه . در حالت عادی اگه برنامه رو کلا ببندین سرویس متوقف میشه. با این آموزش میتونین سرویس رو بعد بسته شدن نرم افزار هم به قول معروف زنده نگه دارید برای اینکار از ServiceStartAt استفاده میکنیم این کد رو میتونین تو هر مدول و هر جایی بزارین که مثل StartService عمل میکنه بعد یه زمان سرویس رو اجرا کنه ولی برای اینکه سرویس خودشو بعد از هر دوره زمانی اجرا کنه باید این کد رو داخل خو سرویس درون سابService_Start قرار بدین . به این صورت : [left] Sub Process_Globals End Sub Sub Service_Create End Sub Sub Service_Start (StartingIntent As Intent) StartServiceAt("", DateTime.Now + 10000,True) End Sub Sub Service_Destroy End Sub[/left] توضیح : برای اینکه سرویس خودشو اجرا کنه نام سرویس رو خالی بزارین . قسمت دوم هم زمان اجرا رو تعیین میکنیم ، که ما اینجا گفتیم 10 ثانیه بعد از زمان حال . قسمت سوم هم اگه میخواین زمانی که دستگاه stand by بود هم سرویس اجرا شه باید مقدار رو true قرار بدین در غیر این صورت false . در این حالت حتی اگه برنامه رو کلا kill process کنین یا کلا ببندین باز هم بعد 10 ثانیه سرویس دوباره خودش اجرا میشه. امیدوارم مفید بوده باشه *قلب*
  8. سلام ببخشید من یه کد دارم که میخوام هر 30 ثانیه یک بار اجرا بشه امکانش هست کمک کنید
  9. سلام مجدد بابت راهنماییهای دوستان بسیار متشکرم ببخشید من میخوام button درست کنم که هنگام کلیک بر روش کاربر بتونه از تلفن خودش ایمیل ارسال کنه سرچ کردم به کدهایی مثل : Dim mail As Email mail.To.Add("Email@yahoo.com") mail.Subject = "subject" mail.Body = "Body" StartActivity(mail.GetIntent) ToastMessageShow("nmitune send kne dg :|", False) برخوردم اما متاسفانه هر کاری کردم به نتیجه نرسیدم میشه لطفا راهنمایی بفرمایید.
  10. سلام دوستان. خب مستقیم میریم سراغ آموزش اول کتابخانه رو اضافه کنید بعدش در Sub Globals : Dim x As ABWifi خب میخواییم لیست Wifi هایی که در اطراف ما روشن هستند و اینکه ما به کدوم یک از اونها Connect هستیم رو ببینیم: در کد کلیک باتن هم میتونید این رو قرار بدید: Dim MyBool As Boolean Dim Tedad As Int Dim Winfo As ABWifiInfo MyBool = x.ABLoadWifi() Winfo = x.ABGetCurrentWifiInfo() Msgbox("Connected 0 :: " & Winfo.IsConnected, "") If MyBool = True Then Msgbox (x.ABGetCurrentWifiInfo().SSID, "به این وصل هستیم") For Tedad = 0 To x.ABNumberOfAvailableWifiNetworks - 1 Msgbox(x.ABGetWifiNetwork(Tedad).SSID & " " & x.ABGetWifiNetwork(Tedad).Level & " " & x.ABGetWifiNetwork(Tedad).IsConnected, "میتونیم به این متصل بشیم") Next Else Msgbox(x.ABWifiLastError,"") End If مهمون برامون اومده از شیراز. الان که دارم تایپ میکنم 4 نفر کنار دستم نشستن نمیفهمم دارم چی میگم. موفق باشید.
  11. باسلام ببخشید سوالی داشتم در مورد نام اکتیویتی می خواستم بدونم نام اکتیویتی اول و شروع کننده که با کدهای #Region Project Attributes #ApplicationLabel: test #VersionCode:1 #VersionName: 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: True #End Region شروه میشود باید حتما نام Main رو داشته باشه یا اسم دیگه ای هم میتونه داشته باشه؟باتشکر
  12. سلام و خسته نباشید من برای برنامم تنظیمات قرار دادم که سایز متن رو کاربر مشخص کنه مشکل من اینه که وقتی متن سایزش زیاد میشه کامل متن رو نشون میده با اسکرول ولی وقتی فونت رو کوچیک میکنم دو خط سه خط آن رو نشون نمیده نمیدونم چکار کنم و تو گوشی دیگه هم بعضی از صفحاتش متن رو کامل نشون نمیده بعضی هم نشون میده چطور لیبل رو سایزش و با اسکرول فیکس کنم که کاربر رو هر سایزی که انتخاب کرد مشکلی نداشته باشه برای دیدن.سورس کدم رو قرار دادم لطفا راهنمایی کنید با تشکر. Activity.LoadLayout("cheshm") ScrollView1.Panel.LoadLayout("do") aa.Initialize(LoadBitmap(File.DirAssets,"love.jpg")) lbl.Background=aa cur=khoshki.sql1.ExecQuery("SELECT matn FROM khoshki WHERE list='"& khoshki.meghdar & "'") t.Initialize label2.TextColor=Colors.Black label2.Gravity=Gravity.RIGHT For i=0 To cur.RowCount-1 cur.Position=i label2.text=cur.GetString("matn") Next label2.Typeface = Typeface.LoadFromAssets(File.ReadString(File.DirInternal,"FontType.txt")&".ttf") t.LongText(label2,label2.Text,File.ReadString(File.DirInternal,"FontSize.txt"),ScrollView1,File.ReadString(File.DirInternal,"lineheight.txt")) label2.Height=label2.Height +10%x ScrollView1.Panel.Height=label2.Height
  13. سلام بعضی دوستان خواستار اسپلش شیشه ای و شیشه ای کردن برنامه بودند که چیز خاصی نداره فقط باید به قسمت مانیفست ادیتوراینو کپی کنید SetApplicationAttribute(android:theme, "@android:style/Theme.Translucent") یه چیز مهم فقط برای برنامه ای میخاهید استفاده کنید وگرنه اگر حواستون نباشه کل برنامه بعدی شیشه ای میشه که اصلا جالب نیست 3210.rar
  14. سلام. یه سوال داشتم جون من کمکم کنید:*solh**give_rose* برای ایجاد لیست علاقه مندی برای کتابی که با مولتی پنل ساخته شده ، چطور میشه روی هر آیتمی که کلیک شد، فقط همون آیتم توی دیتابیس ،ستون fav اش از 0 بشه 1؟ کدی که من نوشتم: sql1.ExecNonQuery("update sec1 set fav = 1 where id ="&cur1.GetInt("id")) اما مشکلش اینه که هر کدوم رو کلیک کنم همگی ستون fav شون از 0 میشه 1 ممنون میشم جواب بدین.*monkey**wall*
  15. با سلام خوب یه آموزش به درد بخور دیگه تو ابن روش ساده یاد میگیرین که چطور فونت ابزار هاتون رو تغییر بدین واسه شروع یه ادیت تکست لازم داریم که از محل دیزاین اونو اضافه میکنیم و یه دکمه واسه اعمال تغییرات یه typeface هم لازم داریم پس: Sub Globals Private Button1 As Button Dim st As Typeface Private EditText1 As EditText End Sub حالا یه فونت لازم داریم باید فونت هاتون رو داخل پوشه file در محل سیو پروژه دخیره کنید اینم کد تغیر فونت: Sub Button1_Click st = Typeface.LoadFromAssets("rr.ttf") EditText1.Typeface = st End Sub موفق باشید
  16. با سلام به اصرار دوستان و همین طور درخواست سورس این موضوع برآن شدم که یه سورس ساده درست کنم چیزای که لازم یدونید 1- تو مانیفست ادیتور این کدو اضاف کردم SetActivityAttribute(Main,android:theme,@android:style/Theme.Translucent.NoTitleBar) 2- مقدار آلفای پنلو 173 دادم که هر چه مقدار بیشترشه تیره تر وهر چه کمتر شفافتر میشه با تشکر از آقای esmaeil57که تو این تاپیک جواب رو دادن ولی فک کنم فرصت نکردن سورس بسازن پسورد فایل : basic4android.org safhey nemeshisheyi.rar
  17. با سلام . اینم یه کد خیلی ساده واسه تعویض عکس یا هر چیز دیگه ای توسط حرکت دادن انگشت به چپ یا راست روی یه پنل. ابتدا یه پنل از توی دیزاینر میسازین که اینجا اسم پنل Panal2 هستش کد : Sub Panel2_Touch (Action As Int, zxc As Float, Y As Float) 'basic4android.org Select Action Case Activity.ACTION_DOWN startX = zxc startY = Y Case Activity.ACTION_UP If Abs(Y - startY) > 20%y Then Return If zxc - startX > 30%x Then 'kod baraye harkat az chap be rast Else If startX - zxc > 30%x Then 'kod baraye harkat az rast be chap End If End Select 'basic4android.org End Sub این کد فقط روی پنل جواب میده پس اگه میخواین برای تعویض عکس استفاده کنین میتونین یه پنل روی ایمیج ویو بزارین و Alpha اونو 0 قرار بده تا هیچی دیده نشه . امیدوارم مفید بوده باشه*badboys*
  18. سلام . چجوری میشه متن داخل تکست باکس رو تایید کرد و کاربر بره به layout جدید؟ من خودم با عقل ناقصم اینو ساختم ولی عمل نکرد: Sub Button1_Click EditText1_EnterPressed If ans=" جواب صحیح " Then correct = correct+1 End If Activity.LoadLayout("q2") End Sub که تو نرم افزار یه سیستم امتیاز دهی هم گذاشتم با هر پاسخ صحیح یک امتیاز. ولی راستش نمیدونم چجوری متن تکست باکس رو تایید کنم یا اصلا کد بالا صحیه؟
  19. سلام زمان اجرای پروژه خطای زیر رو میده تو این سایت و از طریق گوگل همه جارو سرچ کردم چیزی پیدا نکردم لطفا راهنمایی کنید . Parsing code. 0.01 Compiling code. 0.08 Compiling layouts code. 0.05 Generating R file. 0.23 Compiling debugger engine code. Error javac 1.7.0_51 shell\src\b4a\example\actmenu.java:51: error: constructor PCBA in class PCBA cannot be applied to given types; pcBA = new PCBA(this, actmenu.class); ^ required: Object,Class<?>,RemoteObject found: actmenu,Class<actmenu> reason: actual and formal argument lists differ in length 1 error
  20. سلامی دوباره. من هر مشکلی داشته باشم خداروشکر اینجا حل میشه و پیشاپیش واسه این کمکتون هم تشکر میکنم. فرض میکنیم با وب ویو رفتیم داخل یک سایت حالا داخل این سایت یه تکست باکس هست. حالا من وب ویو خودم رو فقط به اندازه همون تسکت باکس در آوردم و حالا میخوام روی اون تکست باکس سایت که هم اسم داره و هم ایدی Focus بشه و اونو نمایش بده. آیا همچین امکانی داخل بیسیک4 وجود داره؟؟ مثلا در ویژوال بیسیک6 به صورت هست. (اگه اسم تسکت باکس ما برفرض pejman باشه) [/size][/b]Me.WebBrowser1.Document.All("pejman").ScrollIntoView [b][size=3] حالا تو بیسیک چطوری هست اینکار؟؟ واقعا نیاز دارم ممنون.
  21. با سلام چجوری این. Get Elements کنم؟ میخوام اسم رو بگیرم ( محمد حسین ) و با by class نمیتونم: <div class="rpTemplate"> <div id="ctl00_menu_LoginControl1_rpu_i0_login_panel"> <center> <div style="width: 92%; padding: 5px; text-align: right;"> <div class="txt3" align="center"> خوش آمدید </div> <div style="text-align: center"> <img id="ctl00_menu_LoginControl1_rpu_i0_f_thumbnail" class="picBox" src="Resources/Images/UserProfile.png" style="width:50px;border-width:0px;"></div> <div class="txt4" align="center"> محمد حسین </div> <div style="height: 7px;"> </div> اینم کدش WVL.executeJavascript(WV,"B4A.CallSub('Get_UName',true,document. document.getElementsByClassName('txt4').innerText)")
  22. fileman

    پخش صدا

    یه سوال: من فایل صوتی رو توی برنامه اجرا میکنم ولی وقتی دکمه pause رو می زنم و بعد دکمه play رو میزنم فایل صوتی از اول پخش میشه(یعنی pause مثل stop عمل میکنه) اینم کد: Sub stop_Click md.stop End Sub Sub pause_Click md.pause pause.Visible=False play.Visible=True End Sub چه کار کنم؟؟؟؟؟
  23. سلام ، به پوشه platform-tools که در محل SDK شما قرار دارد بروید. جلوی آدرس یک \ (اسلش) بزنید و دستور زیر را بنویسید: adb connect 127.0.0.1:5558 اینتر را روی کیبورد فشار دهید. نکته: توجه داشته باشید که هم B4A و هم Youwave باز باشد. موفق و مؤید باشید
  24. با سلام خدمت اساتید عزیز بنده از کد زیر برای خروج با دکمه Back موبایل استفاده کردم ولی وقتی روی گوشی امتحان میکنم با دکمه menu فعال میشه باید چکار کرد Sub Activity_KeyPress (KeyCode As Int) As Boolean If KeyCode = KeyCodes.KEYCODE_BACK Then Return True Dim ext As Int ext = Msgbox2("آیا قصد خروج دارید؟","","بلی","","خیر",Null) If ext = DialogResponse.POSITIVE Then ExitApplication End If Return False End Sub کد اشتباه یا مشکل سخت افزارییه؟
  25. سلام خسته نباشید من یه باتن دارم و یه منو ، حالا میخوام وقتی رو باتن کلیک شد منو باز بشه راهی هست واسه انجام این کار منو رو هم اینطوری اضافه کردم: Activity.AddMenuItem("تنظیمات","next1")