Welcome to بیسیک فور ایکس

Register now to gain access to all of our features. Once registered and logged in, you will be able to contribute to this site by submitting your own content or replying to existing content. You'll be able to customize your profile, receive reputation points as a reward for submitting content, while also communicating with other members via your own private inbox, plus much more! This message will be removed once you have signed in.

Sina

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

3 ارسال در این موضوع قرار دارد

سلام دیدم همه رفتن سمت 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

پسند شده توسط dostmobile

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


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

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

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

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

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

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

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

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

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

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

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


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

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

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

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

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

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

پسند شده توسط H@mid.RS

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


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

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

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

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

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


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

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

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


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