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

    • 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

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

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

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



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

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

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

نوع محتوا


دسته ها

  • Articles

تالار ها

  • انجمن برنامه نویسی Basic4X
    • قوانین
    • انتقادات و پیشـــنهادات
    • پشتیبانی
    • اخبار
    • بازارچه
  • Basic4Android - برنامه نویسی اندروید
    • کتابخانه ها Libraries
    • کتابخانه های رپ شده library wrapper
    • آموزش های مبتدی
    • متریال
    • درخواست ها
    • سورس کد
    • آموزش های تصویری
    • آمورش های متنی
    • پاسخگوی به سوالات
    • برنامه های ساخته شده شما
    • پشتیبانی محصولات کاربران
  • Basic4IOS - برنامه نویسی ای او اس
    • IOS کتابخانه ها Libraries
    • IOS آموزش های تصویری
    • IOS سورس کد
    • IOS برنامه های ساخته شده شما
  • Basic4Java - برنامه نویسی کامپیوتر - شبکه - جاوا
    • B4J کتابخانه ها Libraries
    • B4J آموزش های تصویری
    • B4J سورس کد
    • B4J پاسخگوی به سوالات
    • B4J برنامه های ساخته شده شما
    • پشتیبانی محصولات کاربران
  • Basic4Arduino - برنامه نویسی آردوینو
    • B4R کتابخانه ها Libraries
    • B4R آموزش و سورس کد
  • AndroidStudio-اندروید استودیو
    • آموزش اندروید استودیو
    • سورس کد
    • کتابخانه ها
  • برنامه های مورد نیاز برنامه نویسی بیسیک
    • برنامه های ویندوز
    • برنامه های اندروید و ای او اس
    • دیگر نیازمندی ها
  • دیگر برنامه ها و زبان های برنامه نویسی
    • آموزش PHP
    • آموزش RUBY
    • اکلیپس
    • پاسخگویی به سوالات
    • آموزش سی شارپ
  • گرافیک
    • ابرازهای طراحی
    • طرح های لایه باز
    • درخواست ها
  • متفرقه
    • آگاه سازی
    • بازی TownShip-تاون شیپ
    • VIP
    • صندلی داغ
    • بحث آزاد
    • مسابقه
  • بایگانی
    • بایگانی
  • کلوپ بچه های بیسیک's موضوع ها

وبلاگ‌ها

چیزی برای نمایش وجود ندارد

چیزی برای نمایش وجود ندارد


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

  1. سلام دوستان حدود چند ماهه سر درگمم تو یه موضوعی. چند بارم منصرف شم ازش ولی گفتم بپرسم کسی شاید تونست کمکم کنه... تو این پروژه میخوام . از این دیوایس برای اونیکی دیوایس از طریق سرور . هاست یا هر چی که بشه... از این دیوایس برای اونیکی دیوایس دستور ارسال کنم بعدش پاسخ تاییدم دریافت بشه یه چیزی شبیه به team viewer البته مشکل من دستوراتش نیست . مشکل اصلیم برقراری ارتباط بین این دو تا دیوایس هستش. دو روش هم پیش گرفتم ولی نتیجه خوبی نداده یکی از طریق ftp یکی از طریق ارسال ایمیل و دریافتش... و.. اگه کسی میتونه خواهشا کمکم کنه هزینه هم میکنم... یا یه نمونه سورسی ساخته بشع هم بقیشو خودم ادامه میدم. راه حل هاتونم پیشنهاد کنید مرسی
  2. با سلام بنده اومدم یک باتن گذاشتم و برای اون باتن هم از طریق soundpool یک اهنگ گذاشتم اما وقتی که کلیک کردم و اهنگ پخش شد اگه بخوام همونجور که در حال پخشه دوباره رو باتن کلیک کنم اهنگ قطع نمیشه و دوباره اهنگ شروع میشه که که با اهنگ قبلی قاطی میشه و صدا به هم میریزه کدم هم کد زیره Sub Globals Dim sp As SoundPool Dim hu As Int End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("1") sp.Initialize(1) hu = sp.Load(File.DirAssets,"re.ogg") End sub Sub Button8_Down sp.Play(hu,1,1,2,-1,1) End Sub ممنون میشم راهنمایی کنید
  3. درود شما با مثالی که گذاشتم می تونید برد آردینو خودتون رو با گوشیتون کنترل کنید این کار با GSM میشه رخ داد کد : Sub btn_StateChanged (State As Boolean) If State = False Then GSM.SendSMS(phoneNumber, "Click!!!") End If End Sub Sub MessageArrived(msg() As Byte) If msg = "On" Then led.DigitalWrite(True) Else if msg = "Off" Then led.DigitalWrite(False) Else Log("error: ", msg) End If End Sub سورس کد پیوست شد GSM_Example.zip
  4. درود به دوستان فیلم ارتباط و برنامه نویسی برای انواع گوشی ها و برد های آردوینو حتما ببینید فوق العاده جالب هست : موفق باشید
  5. درود با برنامه توسعه دهنده برد های آردوینو در خدمت شما هستیم این برنامه همانند برنامه های دیگر برنامه نویسی مرجع بیسیک زبان برنامه نویسی بیسیک بوده و به راحتی می توانید با اموزش های که در انجمن ما قرار داده می شود برای برد خود برنامه بنویسید چگونه نصب کنید : اول از همه ما به پیش نیاز برنامه برای اجرا روی برد نیاز داریم از لینک زیر برنامه اخرین نسخه برنامه آردینو IDE (1.6.7+) رو در لینک زیر می تونید دانلود و برای ویندوز یا هر سیستم عاملی که دارید دانلود کنید : https://www.arduino....n/Main/Software ما تنها مدل های Uno, Mega و Due رو تست کردیم و کاملا جواب داده است. در اینده ای نزدیک برنامه نویسی برای برد های اردینو همراه با اموزش و کتابخانه های جدید برای شما دوستان عزیز قرار خواهیم داد پس با ما باشید. دانلود Basic4Arduino از لینک زیر : http://basic4x.ir/files/file/10-basic4arduino/ در پناه حق
  6. با این کتابخانه شما می توانیدایمیل ارسال نمیاید برنامه نویسی ای او اس با Basic4IOS لینک دانلود : http://www.visualnet.inf.br/download/b4x/iPOP.zip سورس کد پیوست شد: iPOPSample.zip
  7. شما با استفاده از این مثال می توانید یک استپر موتور رو کنترل کنید وقتی بتونید کار بالا رو انجام بدید قطعا می تونید ریموت ایجاد کنید برای کنترل دوربین های مدار بسته Sub Process_Globals 'These global variables will be declared once when the application starts. 'Public variables can be accessed from all modules. Public Serial1 As Serial Private direction As Boolean = True End Sub Private Sub AppStart Serial1.Initialize(115200) Log("AppStart") 'define the 4 pin numbers and the time delay for the stepper Stepper.Initialize(10,11,12,13,10) Stepper.turn(True,90) End Sub public Sub turndone(Text As String) 'change turn direction direction = Not(direction) Stepper.turn(direction,90) End Sub کد کلاس Stepper Sub Process_Globals 'These global variables will be declared once when the application starts. 'Public variables can be accessed from all modules. Private tmr As Timer Private stopcount, endcount As Int Private direction As Boolean Private state As Int Private p1,p2,p3,p4 As Pin End Sub Public Sub Initialize(dpin1 As Byte _ ,dpin2 As Byte _ ,dpin3 As Byte _ ,dpin4 As Byte _ ,TimeDelay As ULong ) tmr.Initialize("tmr_Tick",TimeDelay) p1.Initialize(dpin1,p1.MODE_OUTPUT) p2.Initialize(dpin2,p2.MODE_OUTPUT) p3.Initialize(dpin3,p3.MODE_OUTPUT) p4.Initialize(dpin4,p4.MODE_OUTPUT) End Sub public Sub turn(forward As Boolean, angle As Float) stopcount = 0 endcount = angle * 2048 /360 direction = forward state = 0 tmr.Enabled = True End Sub Private Sub tmr_Tick If direction Then rotateRight Else rotateLeft End If state = (state + 1) mod 4 If stopcount >= endcount Then tmr.Enabled = False zeroall Main.turndone("done") End If stopcount = stopcount + 1 End Sub Private Sub rotateLeft Select state Case 0 p1.DigitalWrite(True) p4.DigitalWrite(False) Case 1 p2.DigitalWrite(True) p1.DigitalWrite(False) Case 2 p3.DigitalWrite(True) p2.DigitalWrite(False) Case 3 p4.DigitalWrite(True) p3.DigitalWrite(False) End Select End Sub Private Sub rotateRight Select state Case 0 p1.DigitalWrite(True) p2.DigitalWrite(False) Case 1 p4.DigitalWrite(True) p1.DigitalWrite(False) Case 2 p3.DigitalWrite(True) p4.DigitalWrite(False) Case 3 p2.DigitalWrite(True) p3.DigitalWrite(False) End Select End Sub Private Sub zeroall p1.DigitalWrite(False) p2.DigitalWrite(False) p3.DigitalWrite(False) p4.DigitalWrite(False) End Sub در پناه حق
  8. ارتباط با بلوتوث در اردینو ارتباط بین گوشی و برد آردینو توسط یک بلوتوث با این مثال شما با استفاده از یک بلوتوث HC 05 می تونید این ارتباط رو برقرار کنید. سورس کد استفاده در بیسیک فور اردینو به صورت زیر می باشد. Sub Process_Globals Public Serial1 As Serial Private SerialNative1 As Stream Private astream As AsyncStreams Private leds(1) As Pin Private timer1 As Timer End Sub Private Sub AppStart Serial1.Initialize(115200) Log("AppStart") leds(0).Initialize(leds(0).A0, leds(0).MODE_OUTPUT) 'Using the hardware serial named Serial1 (Arduino Due) 'A SoftwareSerial will also work. RunNative("SerialNative1", Null) astream.Initialize(SerialNative1, "astream_NewData", Null) timer1.Initialize("timer1_Tick", 1000) timer1.Enabled = True End Sub #if C void SerialNative1(B4R::Object* unused) { ::Serial1.begin(9600); b4r_main::_serialnative1->wrappedStream = &::Serial1; } #end if Sub Timer1_Tick astream.Write("Millis here: ".GetBytes) astream.Write(NumberFormat(Millis, 0, 0).GetBytes) astream.Write(Array As Byte(10)) 'end of line character. AsyncStreamsText will cut the message here End Sub Sub AStream_NewData (Buffer() As Byte) For i = 0 To Buffer.Length - 2 Step 2 Dim ledNumber As Byte = Buffer(i) Dim value As Boolean = Buffer(i + 1) = 1 leds(ledNumber).DigitalWrite(value) Next End Sub این کد کامل هست و شما می توانید با این ارتباط رو انجام بدید سورس بیسیک فور اندروید برای نوشتن برنامه برای اندروید رو هم پیوست کردم سوالی بود بپرسید Adruino_Bluetooth_B4A.zip
  9. یک مثال ساده که با استفاده از یک تایمر برای تغییر حالت از پین 13 (این پین متصل به ساخته شده در چراغ است): Sub Process_Globals Public Serial1 As Serial Private Timer1 As Timer Private pin13 As Pin End Sub Private Sub AppStart Serial1.Initialize(115200) Log("AppStart") pin13.Initialize(13, pin13.MODE_OUTPUT) Timer1.Initialize("Timer1_Tick", 1000) '1000ms = 1 second Timer1.Enabled = True End Sub Private Sub Timer1_Tick Dim currentState As Boolean = pin13.DigitalRead Log("CurrentState: ", currentState) Dim NewState As Boolean = Not(currentState) Log("NewState: ", NewState) pin13.DigitalWrite(NewState) End Sub
×