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

    • 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

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

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

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



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

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

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

نوع محتوا


دسته ها

  • 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 موضوع ها

وبلاگ‌ها

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

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


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

  1. کتابخانه LiquidCrystal_I2C برای بیسیک فور آردینو کد مثال : #Region Project Attributes #AutoFlushLogs: True #CheckArrayBounds: True #StackBufferSize: 300 #End Region 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 lcd As LiquidCrystal_I2C End Sub Private Sub AppStart Serial1.Initialize(115200) Log("AppStart") lcd.Initialize(0x3F, 16, 2) 'based on the example from the project. lcd.Backlight = True lcd.Write("test") End Sub در پناه حق rLiquidCrystal_I2C.zip
  2. با کتابخانه ای که براتون پیوست کردم می تونید فشار و دما رو دریافت کنید کد مربوط : Sub Process_Globals Public Serial1 As Serial Private bmp180 As SFE_BMP180 Private Temperature, Pressure, PressureSeaLevel, Altitude As Double Private ALTITUDEHAMBURG As Double = 27.0 'in meters Private Timer1 As Timer End Sub Private Sub AppStart Serial1.Initialize(115200) Log("AppStart") bmp180.Initialize Timer1.Initialize("Timer1_Tick", 2000) Timer1.Enabled = True End Sub Private Sub Timer1_Tick If Not(bmp180.GetTemperature) Then Log("Error retrieving the temperature.") Return End If Temperature = bmp180.LastResult bmp180.GetPressure(0, Temperature) Pressure = bmp180.LastResult Log("Pressure [mBar]:", Pressure) PressureSeaLevel = bmp180.Sealevel(Pressure, ALTITUDEHAMBURG) Log("PressureSeaLevel [mBar]:",PressureSeaLevel) Altitude = bmp180.Altitude(Pressure, PressureSeaLevel) Log("Altitude [m]:", Altitude) Log("---") End Sub rSFE_BMP180.zip
  3. درود این کتابخانه برای خواندن و نوشتن بر روی کارت های RFID می باشد که شما در عکس زیر نمونه ای از کارت RFID رو مشاهده می کنید برای خواندن شناسه کارت از کد زیر : Sub Process_Globals Public Serial1 As Serial Private rfid As MFRC522 Private bc As ByteConverter End Sub Private Sub AppStart Serial1.Initialize(115200) Log("AppStart") rfid.Initialize(10, 9, "rfid_CardPresent") rfid.LogVersion End Sub Sub rfid_CardPresent (UID() As Byte, CardType As Byte) Log("UID: ", bc.HexFromBytes(UID)) End Sub و برای خواندن و نوشتن بلوک شماره 1 از کد زیر استفاده می شود: Sub rfid_CardPresent (UID() As Byte, CardType As Byte) Log("UID: ", bc.HexFromBytes(UID)) Log("Type: ", CardType, ", Is it Mifare: ", rfid.IsMifare) If rfid.IsMifare Then If rfid.MifareAuthenticate(1) = False Then Log("Failed to authenticate") Return End If Dim buffer(18) As Byte For i = 0 To buffer.Length - 1 buffer(i) = i Next 'write 16 bytes to block number 1 Log("Write: ", rfid.MifareWrite(1, buffer)) If rfid.MifareRead(1, buffer) > 0 Then 'buffer size must be 18 bytes or more Log(bc.HexFromBytes(buffer)) Else Log("Failed to read") End If End If End Sub کتابخانه پیوست شد. rMFRC522.zip
  4. درود با برنامه توسعه دهنده برد های آردوینو در خدمت شما هستیم این برنامه همانند برنامه های دیگر برنامه نویسی مرجع بیسیک زبان برنامه نویسی بیسیک بوده و به راحتی می توانید با اموزش های که در انجمن ما قرار داده می شود برای برد خود برنامه بنویسید چگونه نصب کنید : اول از همه ما به پیش نیاز برنامه برای اجرا روی برد نیاز داریم از لینک زیر برنامه اخرین نسخه برنامه آردینو IDE (1.6.7+) رو در لینک زیر می تونید دانلود و برای ویندوز یا هر سیستم عاملی که دارید دانلود کنید : https://www.arduino....n/Main/Software ما تنها مدل های Uno, Mega و Due رو تست کردیم و کاملا جواب داده است. در اینده ای نزدیک برنامه نویسی برای برد های اردینو همراه با اموزش و کتابخانه های جدید برای شما دوستان عزیز قرار خواهیم داد پس با ما باشید. دانلود Basic4Arduino از لینک زیر : http://basic4x.ir/files/file/10-basic4arduino/ در پناه حق
  5. درودی دیگر شما با استفاده از این کتابخانه می تونید سیگنال های با مقدار کم بین برد های اردینو ارسال کنید دوستان در این باره اگه سوالی داشتید حتما مطرح کنید تا به سوالاتتون پاسخ بدیم چون کلی توضیح دادم سورس کد استفاده در برد UNO Sub Process_Globals Public Serial1 As Serial Private rf24 As RF24 Private raf As RandomAccessFile Private timer1 As Timer Private led As Pin Private const MEGA = 1, UNO = 2 As Byte Private buffer(4) As Byte End Sub Private Sub AppStart Serial1.Initialize(115200) Log("AppStart") rf24.Initialize(7, 8, "rf24_NewData") rf24.OpenReadingPipe(UNO) rf24.OpenWritingPipe(MEGA) timer1.Initialize("timer1_Tick", 1000) timer1.Enabled = True led.Initialize(2, led.MODE_OUTPUT) 'connect led to pin #2 raf.Initialize(buffer, True) End Sub Sub rf24_NewData (Data() As Byte) led.DigitalWrite(Data(0) = 1) End Sub Sub Timer1_Tick raf.WriteULong32(Millis, 0) rf24.Write(buffer) End Sub سورس کد برای استفاده در برد MEGA Sub Process_Globals Public Serial1 As Serial Private rf24 As RF24 Private btn As Pin Private const MEGA = 1, UNO = 2 As Byte Private raf As RandomAccessFile End Sub Private Sub AppStart Serial1.Initialize(115200) Log("AppStart") rf24.Initialize(7, 8, "rf24_NewData") rf24.OpenReadingPipe(MEGA) rf24.OpenWritingPipe(UNO) btn.Initialize(2, btn.MODE_INPUT_PULLUP) 'button connected to pin #2. btn.AddListener("btn_StateChanged") End Sub Sub btn_StateChanged (State As Boolean) Dim b As Byte If Not(State) Then b = 1 Else b = 0 Log("Write result: ", rf24.Write(Array As Byte(b))) End Sub Sub rf24_NewData (Data() As Byte) raf.Initialize(Data, True) Log("UNO Millis: ", raf.ReadULong32(raf.CurrentPosition)) End Sub کتابخانه پیوست شد در پناه حق rRF24.zip
  6. شما با استفاده از این مثال می توانید یک استپر موتور رو کنترل کنید وقتی بتونید کار بالا رو انجام بدید قطعا می تونید ریموت ایجاد کنید برای کنترل دوربین های مدار بسته 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 در پناه حق
×