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

    • 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

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

سورس کد چراغ قرمز

Recommended Posts

سلام دیدم همه رفتن سمت b4r گفتم ما چرا نریم

این هم یک سورس چراغ قرمز

این عکس بردتون باید باشه

http://up.basic4x.ir/0d97d6973749234a/SS-2016-04-11_12.21.36.png

این هم کدتون

[​IMG]

Code:
Sub Process_Globals
  Public Serial1 As Serial
  Type State (Red As Boolean, Yellow As Boolean, Green As Boolean, Duration As UInt)
  Private Green, Yellow, Red As Pin
  Private States(4) As State
  Private CurrentStateIndex As Int = 0
End Sub

Private Sub AppStart
  Serial1.Initialize(115200)
  Log("AppStart")
  Red.Initialize(Red.A0, Red.MODE_OUTPUT)   
  Yellow.Initialize(Yellow.A1, Yellow.MODE_OUTPUT)   
  Green.Initialize(Green.A2, Green.MODE_OUTPUT)   
  'Reset the pins
  For Each p As Pin In Array As Pin(Red, Yellow, Green)
    p.DigitalWrite(False)
  Next
  SetState(States(0), True, False, False, 1000) 'red
  SetState(States(1), True, True, False, 500) 'yellow  + red
  SetState(States(2), False, False, True, 1000) 'green
  SetState(States(3), False, True, False, 500) 'yellow
  RunState(0)
End Sub

Private Sub SetState(s As State, RedValue As Boolean, YellowValue As Boolean, GreenValue As Boolean, duration As UInt)
  s.Red = RedValue
  s.Yellow = YellowValue
  s.Green = GreenValue
  s.Duration = duration
End Sub

Private Sub RunState(unused As Byte)
  Log("CurrentStateIndex: ", CurrentStateIndex)
  Dim s As State = States(CurrentStateIndex)
  Red.DigitalWrite(s.Red)
  Yellow.DigitalWrite(s.Yellow)
  Green.DigitalWrite(s.Green)
  CurrentStateIndex = (CurrentStateIndex + 1) mod States.Length
  'switch to the next state after the current state duration.
  CallSubPlus("RunState", s.Duration, 0)
End Sub

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

اقا کار این b4r دقیقا چیه باهاش چیکار میکنن کدای اردنیو رو مینویسن یه توضیح بده اگه چیزی بلدی

ببنید b4r یعنی اینکه بتونی برای برد های آدرینو برنامه بسازی

برای اجرا کردن باید یه برد آدرینو داشته باشی که فک کنم از 25 تومن شروع میشه به بالا 

قیمت هاشم بسته به ماژول ها و لازم اضافیه 

مثلا تو ارزانترین برد نتونه بلوتوث رو راه اندازی کنه 

در ضمن پیش نیاز الکتروینک میخاید این جوری نیست که 2 سیم بهم وصل کنی و تمام 

من خودم یه مدت کیت و.. کار کردم خیلی رو اعصابه 

اگر یه جا رو اشتباه بری شاید کل کیت یه جا بسوزه و هم هزینه هم وقتتون به باد بره

سوالی بود در خدمتم 

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

اها .چه کاریه اخه تا وقتی خوده برنامه اردنیو مونده ادم بره با b4r کار کنه

یه نکته ای اگر کار اصلی شما الکترونیک نباشه 

آدرینو اصلا به کارتون نمیاد و فقط هزینه بره 

مثلا میخاید یه کیت بسازید فلان ic پیدا نمیشه و..

سر همین دنگو فنگ هاش زدم بیرون 

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

برای اینکه بتوانید دیدگاهی ارسال کنید نیاز دارید که کاربر سایت شوید

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !

ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید

ورود به حساب کاربری

×