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

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

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



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

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

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

نوع محتوا


تالار ها

  • انجمن برنامه نویسی Basic4X
    • قوانین
    • انتقادات و پیشـــنهادات
    • پشتیبانی
    • اخبار
    • بازارچه
  • Basic4Android - برنامه نویسی اندروید
    • دریافت برنامه 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 موضوع ها

وبلاگ‌ها

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

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


جستجو در ...

جستجو به صورت ...


تاریخ ایجاد

  • شروع

    پایان


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

  • شروع

    پایان


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

تاریخ عضویت

  • شروع

    پایان


گروه


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


skype


محل زندگی


Interests


تلگرام

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

  1. آردوینو می تواند با استفاده از سنسور های مختلف محیط اطراف را احساس کند ، آردوینو می تواند با کنترل لامپ ها ، موتور ها و سایر ماژول ها بر دنیای اطراف خود تأثیر گزاری کند.میکروکنترلر بکار رفته بر روی برد آردوینو بر اساس زبان برنامه نویسی آردوینو (بر پایه Wiring) و محیط ویژه کدنویسی آن (بر پایه Processing) برنامه ریزی شده است و شما برای کد نویسی به نرم افزار B4R نیاز دارید. پروژه های آردوینو می توانند به صورت stand-alone و یا مرتبط با سایر نرم افزار های کامپیوتر شخصی شما باشد. برای مثال شما می توانید فرمان های خود را برای کنترل موتور ها با یک کامپیوتر شخصی از طریق پورت USB ارسال نموده و یا داده های سنسورها را نیز از همین پورت دریافت نمایید. آردوینو تقریبا می تواند به هر چیزی وصل شود ، کامپیوتر شخصی ، گوشی موبایل ، تبلت ، لپ تاپ ، شبکه های محلی و اینترنت از طریق سیم و وایفای ، اتومبیل شخصی ، دستگاهای موجود در منزل و هزاران هزار مورد دیگر. آردوینو در سال 2006 موفق به اخذ یک دیپلم افتخاری در بخش Digital Communities از جشنواره Ars Electronica Prix شده است. اعضای تیم آردوینو: Massimo Banzi, David Cuartielles, Tom Igoe, Gianluca Martino و David Mellis. Credits
  2. ی راه حل عالی استفاده از کتابخانه MQTT که این کتابخانه در قسمت کتابخانه های برنامه Basic4Arduino موجود است به صورت زیر عمل کنید: mqtt.Initialize(ethClient.Stream, serverIp, serverPort, "arduino", "Mqtt_MessageArrived", "Mqtt_Disconnected") Sub Connect(unused As Byte) If mqtt.Connect = False Then Log("trying to connect again") CallSubPlus("Connect", 1000, 0) Return End If Log("Connected to broker") mqtt.Subscribe("arduino", 0) End Sub Sub Mqtt_MessageArrived (Topic As String, Payload() As Byte) Log("Message arrived. Topic=", Topic, " payload: ", Payload) End Sub Sub Mqtt_Disconnected Log("Disconnected") mqtt.Close Connect(0) End Sub اینم نمونه کدی که برای آردوینو uno r3 بکار میره و با موفقیت تست شده : Sub Process_Globals Public Serial1 As Serial Private eth As Ethernet Private ethClient As EthernetSocket Private btn As Pin Private serverIp() As Byte = Array As Byte(192, 168, 1, 105 ) Private MacAddress() As Byte = Array As Byte(0xDE, 0xAD, 0xBE, 0xEF, 0xFE, 0xED) Private const serverPort As UInt = 50000 '51042 Private mqtt As MqttClient 'Private astream As AsyncStreams End Sub Private Sub AppStart Serial1.Initialize(115200) Log("AppStart") If eth.InitializeDHCP(MacAddress) = False Then Log("Error connecting to network.") Return Else Log("Connected to network. My ip address: ", eth.LocalIp) End If btn.Initialize(btn.A0, btn.MODE_INPUT_PULLUP) btn.AddListener("Btn_StateChanged") mqtt.Initialize(ethClient.Stream, serverIp, serverPort, "arduino", "Mqtt_MessageArrived", "Mqtt_Disconnected") Connect(0) End Sub Sub Btn_StateChanged (State As Boolean) If ethClient.Connected Then Dim s As Byte If State Then s = 1 Else s = 0 'astream.Write(Array As Byte(s)) mqtt.Publish("pc" , Array As Byte(s) ) End If End Sub '============mqtt Sub Connect(unused As Byte) If mqtt.Connect = False Then Log("trying to connect again") CallSubPlus("Connect", 1000, 0) Return End If Log("Connected to broker") mqtt.Subscribe("arduino", 0) End Sub Sub Mqtt_MessageArrived (Topic As String, Payload() As Byte) Log("Message arrived. Topic=", Topic, " payload: ", Payload) End Sub Sub Mqtt_Disconnected Log("Disconnected") mqtt.Close Connect(0) End Sub در پناه حق
  3. درود با این مثال شما می توانید دما رو از سنسور TMP36 دریافت و بخونید کل کد پروژه : Sub Process_Globals Public Serial1 As Serial Private TempSensorPin As Pin 'Output pin connected from the TMP36 sensor Private TempSensorPinNumber As Byte = 0x00 'Pin number used is A0 (Analog) Private MeasureTimer As Timer 'Timer for the sensor measurement Private MeasureTimerInterval As ULong = 2 'Timerinterval in seconds End Sub Private Sub AppStart Serial1.Initialize(115200) Log("AppStart - TemperaturePin ", TempSensorPinNumber, " read every ", MeasureTimerInterval, " seconds") 'Init the pin with TMP36 connected TempSensorPin.Initialize(TempSensorPinNumber, TempSensorPin.MODE_OUTPUT) 'Init the timer MeasureTimer.Initialize("MeasureTimer_Tick", MeasureTimerInterval * 1000) 'Start the timer MeasureTimer.Enabled = True End Sub 'Handle the timer ticks Private Sub MeasureTimer_Tick 'Read the current state of the pin Dim rawvoltage As UInt = TempSensorPin.AnalogRead 'Convert rawvoltage To celsius And fahrenheit Dim volts As Double = rawvoltage/205.0 'Calculate Celsius Dim celsiustemp As Double = 100.0 * volts - 50 Log("Temperature: ", celsiustemp) End Sub چیزی که بهتون نشون میده داخل لوگ برنامه : AppStart - Temperature Pin 0 read every 2 seconds Temperature: 16.3415 Temperature: 17.8049 Temperature: 19.2683 Temperature: 20.2439 Temperature: 21.2195 Temperature: 20.2439 Temperature: 19.7561 در پناه حق
×