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

    • H@mid.RS

      جذب نیرو   پنجشنبه, 10 فروردین 1396

      درود به دوستان عزیز به چند نفر مدیر برای بخش های php و گرافیک نیازمندیم درصورت تمایل درخواست خود را در پیام خصوصی بفرستید  
    • H@mid.RS

      تغییر نام کاربری   دوشنبه, 28 فروردین 1396

      درود دوستانی که نام کاربری انها با ایمل شان یکی بود تغییر کرد مثلا نام کاربری sss@tmail.com به sss تغییر کرد دوستانی که مشکل ورود دارند @ به بعد را پاک کنند
    • H@mid.RS

      کسب درآمد   پنجشنبه, 31 فروردین 1396

      دوستانی که میخواهند با انجمن خودشون همکاری کنند و از محیط انجمن درآمد کسب کنند به بنده پیام خصوصی بفرستند
    • H@mid.RS

      راه اندازی وبلاگ برای انجمن   دوشنبه, 18 اردیبهشت 1396

      درود به همه دوستان عزیز از این پس کاربران ویژه  - همکاران - و مدیران میتوانند در انجمن برای خود وبلاگ بسازند

تمامی فعالیت ها

این جریان به طور خودکار بروز می شود     

  1. Today
  2. به روز رسانی برنامه

    عددد php ورژن کد آخرین نسخه php هست. اونجا که من مسیج راکس گذاشتم خودتون دیگه باید براش بذارید بره دانلود کنه و ‌.. شما اصلا دنبال راهنمایی نیستید ! فقط سورس میخواید 😑
  3. به روز رسانی برنامه

    باسلام خیلی ممنون از راهنمایی شما یعنی اگر من فایل php رو عددش = 2 شود نسخه جدید دانلود خواهد شد؟ لینک دانلود نسخه اپ را باید کجا وارد کنیم؟ از کجا باید اپ را دانلود نماید
  4. دیروز
  5. به روز رسانی برنامه

    <?php echo ("1") ?> Sub Globals Dim Link as String= "http://yourhost.ir/phpname" Dim H as Httphob End Sub Sub Activity_Create H.initialize("VER",Me) H.Download(Link) ProgressDialogShow2("درحال بررسی...",false) End Sub Sub Jobdone (job as httpjob) progressdialoghide if job.jobname="VER" then if Job.Sucsess then If Application.VersionCode<>job.GetString then MsgBox("نسخه جدیدی موجود است.","") Else Log("نسخه جدیدی یافت نشد!") end if else Log("خطا در برقراری ارتباط!!!") End if End If job.Realse End Sub
  6. به روز رسانی برنامه

    با کمال معذرت ممنون میشم قسمت php و b4a رو بگذاری
  7. به روز رسانی برنامه

    😐😐😐😐 اینی ‌که گفتمو تبدیل به کد کن ... برو اول php رو پیدا کن ۳ خط کده فقط.. بعدش بیا تو برنانه با okhttputil2 یا همون httpjob دانلودش کن توی Sub jobdone متنشو مقایسه کن If Job. Success =false then Return If job.GetString<> Application.VersionCode then برای بروز رسانی بزن End if
  8. به روز رسانی برنامه

    ممنونم بیشتر توضیح بدهید یه مثال اگه بزنید ممنون میشم
  9. هفته گذشته
  10. انتقال پیام از یک اپ به یک اپ دیگر

    سلام یا با دیتابیس انلاین مثل چت و .. (php و سکوت و .. ) میتونید بسازید یا آفلاین به وسیله بلوتوث یا وایفا
  11. به روز رسانی برنامه

    سلام. شما باید تو یه php ورژن کد یا ورژن نیم اخرین نسخه از برنامتونو بنویسید توی برنامه اون php رو دانلود کنید و با مال خودتون مقایسه کنید اگه یکی نبود پیام بده که باید اپدیت کنید..
  12. به روز رسانی برنامه

    با سلام من می خواهم وقتی VersionCode برنامه یا VersionName را تغییر دادم برنامه من به طور آنلاین به روز رسانی بشود چیکار باید بکنم ممنون میشم راهنمایی کنید
  13. با سلام من می خوام از یک اپ خودم به یک اپ دیگر پیام انتقال بدهم هر دو اپ یکسان هستند ولی به روی دو گوشی جداگانه نصب شده اند نمی خوام نوتیفیکشن بره می خوام پیام رو در یک اکتیویتی اپ دوم ببیند و پس از تایید پیام یک عکس در اکتیویتی اپ اول نشان داده شود
  14. ارتباط با دیوایس HID

    سلام چطور میشه با یه دستگاه HID از طریق پورت USB ارتباط برقرار کرد و read/write داشت؟ من این پروژه رو خروجی گرفتم اما کار نمیکنه https://www.b4x.com/android/forum/threads/android-usb-host-tutorial-adbtest.11289/
  15. سلام وقت بخیر Public class TextViewOutline extends TextView { Private Paint mTextPaint; Private Paint mTextPaintOutline; //add another paint attribute For your outline ... //modify initTextViewOutline To setup the outline style Private void initTextViewOutline() { mTextPaint = new Paint(); mTextPaint.setAntiAlias(True); mTextPaint.setTextSize(16); mTextPaint.setColor(0xFF000000); mTextPaint.setStyle(Paint.Style.FILL); mTextPaintOutline = new Paint(); mTextPaintOutline.setAntiAlias(True); mTextPaintOutline.setTextSize(16); mTextPaintOutline.setColor(0xFF000000); mTextPaintOutline.setStyle(Paint.Style.STROKE); mTextPaintOutline.setStrokeWidth(4); setPadding(3, 3, 3, 3); } ... //make sure To update other methods you've overridden to handle your new paint object ... //And finally draw the text, mAscent refers To a member attribute which had //a value assigned To it in the measureHeight And Width methods @Override protected void onDraw(Canvas canvas) { super.onDraw(canvas); canvas.drawText(mText, getPaddingLeft(), getPaddingTop() - mAscent, mTextPaintOutline); canvas.drawText(mText, getPaddingLeft(), getPaddingTop() - mAscent, mTextPaint); } من میخوام از این کد جاوا توی بیسیک استفاده کنم دوستان راهنمایی کنن چطوری باید قرار بدم ممنون میشم تیکه کدش رو قرار بدید اینم سایت منبع: https://stackoverflow.com/questions/3182393/android-textview-outline-text
  16. لود کردن xml لیوت ها در بیسیک مشاهده فایل با سلام خدمت همه دوستان. به درخواست کاربران آموزش ساخت لیوت با اندروید استودیو و لود کردن آن در b4a رو امشب ضبط کردم. امیدوارم بدردتون بخوره امیرحسین آقاجری اگه خوشتون اومد پسندیدن رو بزنید ارسال کننده Assassin ارسال شنبه, 25 شهریور 1396 دسته آموزش های ویدویی  
  17. باتن روی مولتی پنل

    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 Dim scr As ScrollView Dim left1 , top1 As Int left1=1%x top1=1%x Dim picasso As Picasso Private ImageView1 As ImageView Dim pnl As Panel Dim btn2 As Button Dim ht As HttpJob Dim img As ImageView End Sub Sub Activity_Create(FirstTime As Boolean) 'Do not forget to load the layout file created with the visual designer. For example: 'Activity.LoadLayout("Layout1") scr.Initialize2(20%y,"scr") Activity.AddView(scr,0%x,0%y,100%x,100%y) Dim error As BitmapDrawable error.Initialize(LoadBitmap(File.DirAssets,"imageerror.png")) Dim holder As BitmapDrawable holder.Initialize(LoadBitmap(File.DirAssets,"loading.png")) picasso.Initialize For i = 1 To 5 img.Initialize("img") picasso.LoadUrl("https://bellphi.000webhostapp.com/a/"&i&".png").ErrorDrawable(error).PlaceholderDrawable(holder).IntoImageView(img) scr.Panel.AddView(img,left1,top1,32%x,30%y) left1=left1 + 33%x btn2.Initialize("btn2") img.Tag =("https://bellphi.000webhostapp.com/a/"&i&".png") If i Mod 3 = 0 Then top1 = top1 + 31%y scr.Panel.Height = top1 + 25%y left1 = 1%x End If Next End Sub Sub img_click pnl.Initialize("pnl") Activity.AddView(pnl,20%x,20%y,60%x,60%y) pnl.Visible=False pnl.Color=Colors.ARGB(40,0,0,0) ImageView1.Initialize("imageview") pnl.AddView(ImageView1,0%x,0%y,60%x,60%y) btn2.Initialize("btn2") pnl.AddView(btn2,15%x,50%y,15%x,10%y) btn2.SetBackgroundImage(LoadBitmap(File.DirAssets,"favorites.png")) Dim p1 As ImageView p1 = Sender Dim error As BitmapDrawable error.Initialize(LoadBitmap(File.DirAssets,"imageerror.png")) Dim holder As BitmapDrawable holder.Initialize(LoadBitmap(File.DirAssets,"loading.png")) pnl.Visible=True picasso.LoadUrl(p1.Tag).ErrorDrawable(error).PlaceholderDrawable(holder).IntoImageView(ImageView1) End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub ImageView1_Click ImageView1.Visible=False End Sub Sub Activity_KeyPress (KeyCode As Int) As Boolean If pnl.Visible=True Then pnl.Visible=False Return True End Sub Sub pnl_click End Sub Sub btn2_click ht.Initialize("myjob1",Me) ProgressDialogShow2("در حال دانلود فایل",False) ht.Download("https://bellphi.000webhostapp.com/a/&i&.png") End Sub Sub jobdone (job As HttpJob) ProgressDialogHide If job.Success = True Then If File.IsDirectory(File.DirRootExternal,"myapp") = False Then File.MakeDir(File.DirRootExternal,"myapp") End If Dim i1 As InputStream Dim o1 As OutputStream i1 = job.GetInputStream o1 = File.OpenOutput(File.DirRootExternal,"1.png",True) File.Copy2(i1,o1) i1.Close o1.Close ToastMessageShow("با موفقیت دانلود شد",False) Else ToastMessageShow("error",False) End If End Sub دوستان سلام ..این سورس نوشتم میخام کاربر روی باتن کلیک کرد عکس مربوط به همون ایمیجویو رو تو حافظه ذخیره کنه کجای سورس رو باید اصلاح کنم؟؟؟؟
  18. جدیدا
  19. ایجاد لیست کشویی

    سلام اگه گیف میدادی بهتر بود. شما اینو برا کجا میخواید؟
  20. دیکشنری دیکینو

    سلام دوستان این از اولین برنامه من بعد از این چن سالی که برنامه نویسی میکنم میدونم ایده‌ش تکراریه ولی سعی کردم تا حد ممکن توسعه‌ش بدم: لینک دانلود از مایکت: دانلود دیکشنری دیکینو 1.0.0 | Dicino Dictionary د... توضیحات برنامه: 📖دیکشنری دیکینو منتشر شد📖 💎با امکاناتی فوق‌العاده که شما ار هر برنامه دیگری بی‌نیاز میکند💎 😍کامـــلا رایـــگــــان😍 خب، بریم سراغ امکانات دیکینو: 🔖دیکشنری آفلاین دو زبانه با پشتیانی از حدود 200,000 کلمه بدون کندی سرعت ✍️تشخیص زبان کیبورد و جستجو در دیکشنری بر اساس آن ✏️دیکشنری آنلاین با پشتیانی از 103 زبان مطرح دنیا در کوتاه ترین زمان ممکن 🛠 استفاده از سه موتور قدرتمند برای ترجمه آنلاین 💻 تشخیص خودکار زبان مبدأ برای ترجمه آنلاین 📷 ترجمه متن ها و کلمات با استفاده از دوربین(OCR) 📣 تلفظ متن ها و جملات به صورت آفلاین در چهار زبان 🔊 تعیین سرعت و زیر و بمی صدا برای تلفظ آفلاین 📢 تلفظ کلمات و جملات به صورت آنلاین با کیفیت صدای بسیار بالا(HD) 👨🏽‍ تلفظ آنلاین به دو لهجه آمریکایی و بریتانیایی از دانشگاه کمبریج 📷 تلفظ متن ها و کلمات با استفاده از دوربین(OCR) 📓 یافتن چند معنی مختلف برای کلمات(کلمه یابی) 🅰️ یافتن کاربردهای مختلف کلمات در جملات(جمله یابی) 🌐 پشتیبانی از 103 زبان مطرح دنیا برای کلمه یابی و جمله یابی 📗 یافتن معنی و مترادف های کلمات فارسی(فرهنگ لغت) 📜 پشتیبانی از چهار فرهنگ لغت معروف دهخدا، معین، عمید وگنج‌واژه 🤚 دستیار ترجمه و تلفظ 📋 ترجمه و تلفظ متن ها و کلمات بدون نیاز به باز بودن برنامه و فقط با کپی کردن آن ها(دستیار) 🎙 ترجمه، تلفظ، دیکشنری, جمله یابی و کلمه یابی با استفاده از صحبت کردن(تشخیص گفتار) 📋 کپی و اشتراک‌گذاری کلمات به راحتی در همه جای برنامه 🚀 ربات تلگرام برای ترجمه و تلفظ بسیار راحت از طریق تلگرام🚀 امیدوارم از خوندن این همه قابلیت خسته نشده باشید خب بیاید با هم دیگه قابلیت های ظاهری این برنامه رو هم بررسی کنیم: 📱 این برنامه روی اندروید 3 به بالا قابل اجراست 💎 و کاملاً بر اساس استاندارد های متریال اندروید طراحی شده و ظاهر بسیار زیبایی رو به خود اختصاص داده 🎨 همچنین رنگ تم این برنامه کاملاً قابل شخصی سازی‌ه و میتونید اون رو به هر رنگی که خواستید در بیارید ⌚ یه حالت شب هم توی برنامه تعبیه شده برای آسیب کمتر به چشم ☕ تمامی قسمت های برنامه راهنما زده شده تا برای کار با اون مشکلی نداشته باشید خوشحال میشم دانلود کنید و نظر بدید.
  21. اسم این کتابخونه چیه؟

    سلام مجدد یعنی لیبلی که داریم یه متن داخلش هست اون متن داخلش رو بشه کوچیک بزرگ و بچرخونیم حالا به هر روشی و بصورت تاچ روی لیبل کار کنه ینی مثلا برای زوم دو انگشت بزاریم با دو انگشت بچرخونیم و جابجایی هم داشت هباشه
  22. ایجاد لیست کشویی

    کسی نمیدونه چیه این؟
  23. با سلام من می خوام ازطریق گالری گوشی فیلمی را وارد برنامه اندرویدم کنم چجوری باید این کار رو بکنم
  24. ایجاد لیست کشویی

    سلام میشه همچین منویی درست کرد که خودش اتوماتیک اسکرول کنه صفحه رو
  25. جستجو برای دیتابیس1000تای

    با سلام الان نمونه کدد از نوع هست من کتابم تکمیل همینش مونده بعد خیلی گشتم هیچ نمونه ازش تو اینترنت نیست بخدا گیج شده الان چند روز دارم کار میکنم با لیست یو درست کردم ارور داده چون کتاب با مولتی پنل درست کردم
  26. جستجو برای دیتابیس1000تای

    جستوجو داخل دیتابیس با لیمیت مثل عادی نیست شما باید بین ایتم های لیمیت شده جستوجو بذاری و یا روش دیکه اینه که بیم همه جستوجو ‌نی اما موقع جستوجو تمام ایتم ها پاک بشن و نتایج فقط بیاد . همچنین برا برگشت به قبل از جستوجو تعداد ایتم هدتو باید بدونی چند تاست.
  27. سلام. یک پروژه بسیار ساده برای مبتدی ها کار با ویو های : SeekBar-AlartDialog-Button-EditText-TextView به وسسیله سیک بار اندازه متن تکست ویو کنترل میشه متن ادیت تکست با کلیک روی دکمه در تکست ویو قرار می گیره. به زودی سورس های بیشتر... #امیرحسین_آقاجری First.rar
  28. جستجو برای دیتابیس1000تای

    کسی نیست جواب بده:|
  29. با سلام نت زیررو کردم یک جا نتونستم اموزش درست کردن یک جستجو برای دیتابیس 1000تایی پیدا کنم این کد نوشتم ولی وتی سرچ میکنم ارور میده از برنامه خارج میشه یکی کمک کنه این مشگل حل کنم ScrollView1.Panel.RemoveAllViews top = ScrollView1.Height - ScrollView1.Height + 2%y ScrollView1.ScrollPosition = top 'cur = sql.ExecQuery("Select * From Matn Where Matn Like '%" & EditText1.Text & "%'") 'cur = Main.SQL.ExecQuery("SELECT * FROM Matn WHERE Titr LIKE '"&EditText1.Text&"%' ") ' cur = Main.SQL.ExecQuery("SELECT Titr,Favo FROM MatnWHERE Titr ='"& Value &"'") cur=sql.ExecQuery("SELECT * FROM Matn WHERE Titr Like '%"&EditText1.Text&"%' OR Matn Like '%"&EditText1.Text&"%' ") For i = 0 To cur.RowCount -1 cur.Position = i Dim pnl As Panel pnl.Initialize("") ScrollView1.Panel.AddView(pnl,2%x,top,96%x,30%y) pnl.LoadLayout("multi") anim.InitializeScaleCenter("scale",0,0,1,1,Panel1) anim.Duration = 1000 anim.Start(Panel1) Label1.Text = cur.GetString("Titr") Label1.Tag = cur.GetString("id") Label1.Typeface = ACTMENU.typ Label1.TextSize = 20 Label1.TextColor = Colors.Black top = top + 15%y ScrollView1.Panel.Height = top + 3%y Next cur.Close
  1. نمایش فعالیت های بیشتر
×