Lampu lalulintas dengan Arduino severino

Pengaturan nyala lampu lalulintas dapat di atur dengan mudah dengan arduino severino, berikut ini adalah prinsip dan rangkaian dasar cara pengatur lampu lalulintas (ideal) dengan nyala lampu hijau 5 detik, nyala lampu kuning 2,5 detik (lampu kuning mulai menyala setelah lampu hijau menyala 4 detik) dan nyala lampu merah 5 detik.

Demo Video

 

R1=R2=R3=560 Ohm, LED1=Merah, LED2=Kuning, LED3=Hijau

 

List Program

/* Program pengatur nyala lampu lalintas (dasar dan ideal)
 oleh : Aan Darmawan
 http://valfa.blogspot.com
 */
const int pinMerah = 8;
const int pinKuning =9;
const int pinHijau = 10;

void setup() {                
  // inisialisasi digitalpin 8,9,10 sebagai output
  pinMode(pinMerah, OUTPUT);   
  pinMode(pinKuning, OUTPUT);   
  pinMode(pinHijau, OUTPUT);   
  digitalWrite(pinMerah,LOW); 
  digitalWrite(pinKuning,LOW); 
  digitalWrite(pinHijau,LOW); 
}

void loop() {                
  //Led Hijau Nyala 4 detik ,Led kuning dan merah padam
  digitalWrite(pinMerah,LOW); 
  digitalWrite(pinKuning,LOW); 
  digitalWrite(pinHijau,HIGH);
  delay(4000); 
  //Led kuning dan hijau Nyala 1 detik ,Led merah padam
  digitalWrite(pinKuning,HIGH); 
  delay(1000);   
  //Led Kuning masih Nyala 1,5detik ,Led hijau dan merah padam
  digitalWrite(pinMerah,LOW); 
  digitalWrite(pinKuning,HIGH); 
  digitalWrite(pinHijau,LOW);
  delay(1500); 
  //Led Merah Nyala 5 detik ,Led kuning dan hijau padam
  digitalWrite(pinMerah,HIGH); 
  digitalWrite(pinKuning,LOW); 
  digitalWrite(pinHijau,LOW);
  delay(5000); 
}

KIT Arduino Severino (ElMarino)

Arduino Severino compatible Versi 2012 :

Kit Arduino Severino compatible:

Harga hanya Rp 150.000,- ,
 features hampir sama dengan Duemilanove ataupun UNO,
Isi Kit:
1 Arduino severino dengan ATMEGA8 

1 Kabel Serial (untuk Upload program dan komunikasi dengan komputer)

ElMarino (Severino campatible):

Kit ElMarino:

Harga hanya Rp 175.000,- ,
 features sama dengan* Duemilanove ataupun UNO,
 (*kecuali sarana upload)
Isi Kit:
1  Elmarino (Arduino severino compatible) dengan ATMEGA328 

1 Kabel Serial (untuk Upload program dan komunikasi dengan komputer)

petunjuk penggunaan dapat dilihat DISINI.


Bila minat hubungi via email ke valfa007@gmail.com

Arduino Severino + LED RGB

Arduino Severino, diimplementasikan untuk mengendalikan LED RGB secara Random, hasilnya:

List Program :

int ledrPin = 9;
int ledgPin = 10;    // LED connected to digital pin 9,10,11
int ledbPin = 11;
int ledShow = 13;
int faderValue;
int fadegValue;
int fadebValue;
int sw =0;

void setup()  { 
  pinMode(ledrPin,OUTPUT);
  pinMode(ledgPin,OUTPUT);
  pinMode(ledbPin,OUTPUT);
  pinMode(ledShow,OUTPUT); 
  Serial.begin(9600);
  faderValue=0;
  fadegValue=0;
  fadebValue=0;
  randomSeed(analogRead(0));
} 

void loop()   {
  faderValue=random(0,256);
  fadegValue=random(0,256);
  fadebValue=random(0,256);  
  if(sw==0){sw=1;digitalWrite(ledShow,HIGH);}
   else {sw=0;digitalWrite(ledShow,LOW);}
 analogWrite(ledrPin, faderValue);
 analogWrite(ledgPin, fadegValue);         
 analogWrite(ledbPin, fadebValue);
 delay(1000);         
}

Pengendalian LED RGB + Arduino dengan VB.net

Terinispirasi beberapa sumber mengenai pengendalian LED RGB dengan mikrokontroler (antara lain dari situs Pa Insan http://insansainsprojects.wordpress.com/2010/12/20/bermain-ribuan-warna-dengan-led-rgb/ dan http://www.sfgate.com/mp/truveo/search/view?id=144115239614471511&stype=burningman), saya mencoba membuat pengendalian LED RGB melalui Arduino, yang dikoneksikan ke Komputer melalui serialport, GUI yang digunakan VB.net (visual studio 2008)
Berikut ini photo dan video hasil eksperimen:

GUI yang direalisasi pada VB.net

Beberapa hasil warna yang dihasilkan, dan
mungkin sulit dicari warnanya untuk LED satuan biasa

Demo Video

Cara Pembuatan:
Skematik pada Arduino (Duemilanove / Severino)


List Program untuk Arduino

// program kontrol LEDRGB melalui serial(RS232) 9600bps
// Mikrokontroler : Arduino Duemilanove
// Oleh :Aan Darmawan
// Tanggal : 26 Desember 2010
// cara pengendalian :terima informasi dari serial dengan kode "000" s/d "999"
// urutan pengendalian 1 byte red, 1 byte green dan 1 byte blue
// 0=berarti tergelap , 9=berarti terterang
// web http://valfa.blogspot.com
//
int ledrPin = 9;
int ledgPin = 10;    // LED dihubungkan ke digital PWM pin 9,10,11
int ledbPin = 11;
int faderValue = 0;
int fadegValue = 0;
int fadebValue = 0;

void setup()  {
Serial.begin(9600);  // aktifkan komunikasi serial 9600 bps
pinMode(ledrPin,OUTPUT);
pinMode(ledgPin,OUTPUT);
pinMode(ledbPin,OUTPUT);
}

void loop()  {
if(Serial.available()>0) // baca byte pertama sebagai data LED merah
{
faderValue = Serial.read();
faderValue=(faderValue-47)*10.34;
}
if(Serial.available()>0) // baca byte kedua sebagai data LED hijau
{
fadegValue = Serial.read();
fadegValue=(fadegValue-47)*22.00;
}
if(Serial.available()>0) // baca byte ketiga sebagai data LED biru
{
fadebValue = Serial.read();
fadebValue=(fadebValue-47)*25.50;
}
// 3 brs berikut untuk cek saja di computer via serial, bisa dihapus  
Serial.print(faderValue);Serial.print(',');
Serial.print(fadegValue);Serial.print(',');
Serial.println(fadebValue);
// kirim ke PIN 9,10,11
analogWrite(ledrPin, faderValue);
analogWrite(ledgPin, fadegValue);     
analogWrite(ledbPin, fadebValue);
delay(500);     
}


Programming pada VB.net (visual studio 2008)

Buat Disain GUI sebagai berikut:



Programming  :

Public Class Form1
    Dim red, green, blue As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ColorDialog1.ShowDialog()
        red = ColorDialog1.Color.R() \ 28.3333
        green = ColorDialog1.Color.G() \ 28.3333
        blue = ColorDialog1.Color.B() \ 28.3333
        TextBox1.Text = red & green & blue
        SerialPort1.Write(TextBox1.Text)
        BackColor = ColorDialog1.Color

    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.ReadOnly=True
SerialPort1.PortName="COM2"  ' Sesuaikan dengan komputer anda
        SerialPort1.Open()
        SerialPort1.Write("000") 'RGB=000=black
    End Sub
End Class

Catatan:
Pada Properties Object SerialPort1, jangan lupa disesuaikan nama port serialnya
(SerialPort1.PortName) dengan yang tersedia di PC/Notebook anda.

Selamat bereksperimen..... GBU

Formal Presentation (2010)

Formal Presentation pada kuliah Kepemimpinan mahasiswa/i Sistem Informasi Semester Ganjil 2010
Good Presentation...... I Like it......