Thursday, December 18, 2014

Telemeteri Sensor Suhu dan kendali lampu via SMS dengan AT mega 16 wavecom dan bascom AVR

Pengukuran parameter tertentu secara jarak jauh, saya sebut di sini sebagai telemeteri, dimana data yang di cek secara jarak jauh adalah data suhu menggunakan media SMS untuk berkomunikasi data,







source code Telemeteri  Sensor Suhu dan kendali lampu via SMS dengan AT mega 16 wavecom dan bascom AVR

'-----------------------------------------------------
' Kontrol nyala - padam listrik via SMS
' serta cek suhu via sms
''-----------------------------------------------------
$regfile = "m16def.dat"                                     'Mikrokontroler ATMega16
$crystal = 16000000
$baud = 9600

'Ddrd.2 = 0
'Portd.2 = 1

'------- konfigurasi LCD
'Config Lcdpin = Pin , Rs = Porta.0 , E = Porta.2 , Db4 = Porta.4 ,
'Config Lcdpin = Pin , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7
'Config Lcd = 16 * 2
'Cursor Off
'Cls


Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = PortC.1 , Db7 = Portc.0 , E = Portc.5 , Rs = Portc.7
Config Lcd = 16 * 2
cls
Cursor Off


'On Int0 Int_ext0
'Enable Interrupts
'Enable Int0

Config Portb = Output
portb = 255
wait 1
portb = 0


Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc

Dim Data_adc As Word , Adc_convert As Single , Adc_string As String * 10



$hwstack = 20
$swstack = 8
$framesize = 8

Declare Sub Getline(s As String)
Declare Sub Showsms(s As String )


Dim I As Byte , B As Byte
Dim Sret As String * 70 , Stemp As String * 70
Dim Pos_str1 As Byte , Pos_str2 As Byte , Long_str As Byte
Dim Inbox As String * 2
Dim No_sender As String * 15

Dim S1 As String * 6 , S2 As String * 6 , S3 As String * 6 , S4 As String * 6 , Alls As String * 25

Declare Sub Status

Config Serialin = Buffered , Size = 72
Enable Interrupts
Wait 1
Print "AT"


Lcd "SMS CONTROLLER"
'------ sistem interupsi diaktifkan
Enable Interrupts
Wait 1                                                      'Tunggu modem stabil
'------ tes komunikasi dengan modem
Do
  Print "AT" :                                              ' Waitms 100
  Getline Sret                                              ' get data from modem
  Lowerline
  Lcd Sret
Loop Until Sret = "OK"                                      ' modem must send OK
'------ tunggu 2 detik
Wait 2
'Print "AT+CMGF=1";
'Wait 1


Do
Getline Sret
I = Instr(sret , ":")
If I > 0 Then
Stemp = Left(sret , I)
Select Case Stemp
Case "+CMTI:" : Showsms Sret
End Select
End If
Loop
End

'***********************************************
Sub Getline(s As String)
S = ""
Do
B = Inkey()
Select Case B
Case 0 :
Case 13
Case 10 : If S <> "" Then Exit Do
Case Else
S = S + Chr(b)
End Select
Loop
End Sub

'**********************************************
Sub Showsms(s As String )
Pos_str1 = Instr(s , ",")
Long_str = Len(s)
Long_str = Long_str - Pos_str1
Inbox = Right(s , Long_str)
Print "AT+CMGR=" ; Inbox
Getline Stemp
Getline Sret
'__ambil nomor dulu_____no pengirim ada di no_sender ____
Pos_str1 = Instr(stemp , ",")
Incr Pos_str1
Pos_str2 = Instr(pos_str1 , Stemp , ",")
Incr Pos_str1
Decr Pos_str2
Long_str = Pos_str2 - Pos_str1
No_sender = Mid(stemp , Pos_str1 , Long_str)

'_________________________________________________________
Print "AT+CMGD=" ; Inbox

'-------------------------kontrol lampu
If Sret = "ER-07-s1 on" Then
Wait 1
Portb.0 = 1

Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender


Print "AT+CMGS=";
   '----nomor HP tujuan : , bisa ganti yang lain
   Print No_sender
   '----- tunggu 700 ms
   Waitms 700
   '----- isi sms yang dikirim
   Print "Lampu 1 dinyalakan";
   '----- kode akhiran untuk perintah kirim sms
   Print Chr(26)
   '----- tunggu 1 detik
  Wait 1

Elseif Sret = "ER-07-s1 off" Then
Wait 1
PortB.0 = 0
Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender

Print "AT+CMGS=";
   '----nomor HP tujuan : , bisa ganti yang lain
   Print No_sender
   '----- tunggu 700 ms
   Waitms 700
   '----- isi sms yang dikirim
   Print "Lampu 1 dipadamkan";
   '----- kode akhiran untuk perintah kirim sms
   Print Chr(26)
   '----- tunggu 1 detik
  Wait 1



Elseif Sret = "ER-07-s2 on" Then
Wait 1
Portb.1 = 1
Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender


Print "AT+CMGS=";
   '----nomor HP tujuan : , bisa ganti yang lain
   Print No_sender
   '----- tunggu 700 ms
   Waitms 700
   '----- isi sms yang dikirim
   Print "Lampu 2 dinyalakan";
   '----- kode akhiran untuk perintah kirim sms
   Print Chr(26)
   '----- tunggu 1 detik
  Wait 1

Elseif Sret = "ER-07-s2 off" Then
Wait 1
Portb.1 = 0
Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender

Print "AT+CMGS=";
   '----nomor HP tujuan : , bisa ganti yang lain
   Print No_sender
   '----- tunggu 700 ms
   Waitms 700
   '----- isi sms yang dikirim
   Print "Lampu 2 dipadamkan";
   '----- kode akhiran untuk perintah kirim sms
   Print Chr(26)
   '----- tunggu 1 detik
  Wait 1


Elseif Sret = "ER-07-s3 on" Then
Wait 1
Portb.2 = 1
Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender


Print "AT+CMGS=";
   '----nomor HP tujuan : , bisa ganti yang lain
   Print No_sender
   '----- tunggu 700 ms
   Waitms 700
   '----- isi sms yang dikirim
   Print "Lampu 3 dinyalakan";
   '----- kode akhiran untuk perintah kirim sms
   Print Chr(26)
   '----- tunggu 1 detik
  Wait 1

Elseif Sret = "ER-07-s3 off" Then
Wait 1
PortB.2 = 0
Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender

Print "AT+CMGS=";
   '----nomor HP tujuan : , bisa ganti yang lain
   Print No_sender
   '----- tunggu 700 ms
   Waitms 700
   '----- isi sms yang dikirim
   Print "Lampu 3 dipadamkan";
   '----- kode akhiran untuk perintah kirim sms
   Print Chr(26)
   '----- tunggu 1 detik
  Wait 1


Elseif Sret = "ER-07-s4 on" Then
Wait 1
PortB.3 = 1
Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender


Print "AT+CMGS=";
   '----nomor HP tujuan : , bisa ganti yang lain
   Print No_sender
   '----- tunggu 700 ms
   Waitms 700
   '----- isi sms yang dikirim
   Print "Lampu 4 dinyalakan";
   '----- kode akhiran untuk perintah kirim sms
   Print Chr(26)
   '----- tunggu 1 detik
  Wait 1

Elseif Sret = "ER-07-s4 off" Then
Wait 1
Portb.3 = 0
Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender

Print "AT+CMGS=";
   '----nomor HP tujuan : , bisa ganti yang lain
   Print No_sender
   '----- tunggu 700 ms
   Waitms 700
   '----- isi sms yang dikirim
   Print "Lampu 4 dipadamkan";
   '----- kode akhiran untuk perintah kirim sms
   Print Chr(26)
   '----- tunggu 1 detik
  Wait 1




Elseif Sret = "ER-07-s5 on" Then
Wait 1
PortB.4 = 1
Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender


Print "AT+CMGS=";
   '----nomor HP tujuan : , bisa ganti yang lain
   Print No_sender
   '----- tunggu 700 ms
   Waitms 700
   '----- isi sms yang dikirim
   Print "Lampu 5 dinyalakan";
   '----- kode akhiran untuk perintah kirim sms
   Print Chr(26)
   '----- tunggu 1 detik
  Wait 1

Elseif Sret = "ER-07-s5 off" Then
Wait 1
Portb.4 = 0
Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender

Print "AT+CMGS=";
   '----nomor HP tujuan : , bisa ganti yang lain
   Print No_sender
   '----- tunggu 700 ms
   Waitms 700
   '----- isi sms yang dikirim
   Print "Lampu 5 dipadamkan";
   '----- kode akhiran untuk perintah kirim sms
   Print Chr(26)
   '----- tunggu 1 detik
  Wait 1




Elseif Sret = "ER-07-s6 on" Then
Wait 1
PortB.5 = 1
Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender


Print "AT+CMGS=";
   '----nomor HP tujuan : , bisa ganti yang lain
   Print No_sender
   '----- tunggu 700 ms
   Waitms 700
   '----- isi sms yang dikirim
   Print "Lampu 6 dinyalakan";
   '----- kode akhiran untuk perintah kirim sms
   Print Chr(26)
   '----- tunggu 1 detik
  Wait 1

Elseif Sret = "ER-07-s6 off" Then
Wait 1
PortB.5 = 0
Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender

Print "AT+CMGS=";
   '----nomor HP tujuan : , bisa ganti yang lain
   Print No_sender
   '----- tunggu 700 ms
   Waitms 700
   '----- isi sms yang dikirim
   Print "Lampu 6 dipadamkan";
   '----- kode akhiran untuk perintah kirim sms
   Print Chr(26)
   '----- tunggu 1 detik
  Wait 1






Elseif Sret = "ER-07-suhu" Then
Wait 1

Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender


 Data_adc = Getadc(0)
  Adc_convert = Data_adc
  Adc_convert = Adc_convert * 500
  Adc_convert = Adc_convert / 1023
  Adc_string = Fusing(adc_convert , "#.##")

  cls
  Locate 2 , 1
  Lcd "Suhu =" ; Adc_string ; " C "
  Waitms 200

Print "AT+CMGS=";
   '----nomor HP tujuan : , bisa ganti yang lain
   Print No_sender
   '----- tunggu 700 ms
   Waitms 700
   '----- isi sms yang dikirim
   Print Adc_string ; "Celcius"
   '----- kode akhiran untuk perintah kirim sms
   Print Chr(26)
   '----- tunggu 1 detik
  Wait 1

End If


End Sub



video ujicoba Telemeteri  Sensor Suhu dan kendali lampu via SMS dengan AT mega 16 wavecom dan bascom AVR

https://www.blogger.com/blogger.g?blogID=2644711086117012239#editor/target=post;postID=5554990425331950395;onPublishedMenu=allposts;onClosedMenu=allposts;postNum=0;src=link


membutuhkan Telemeteri  Sensor Suhu dan kendali lampu via SMS dengan AT mega 16 wavecom dan bascom AVR ?


 Contact Person : 
Facebook : Taufik Adi Sanjaya
No HP / Whats App : 0823 2613 3990
PIN BBM 5983E244
Alamat : Jalan Imogiri Timur KM 11, 
Blawong 1 , RT 01, Trimulyo, 
Jetis, Bantul 55781.

Anda membutuhkan komponen elektronik , Arduino, Sensor, Tutorial(paket belajar), jasa pembuatan alat berbasis mikrokontroler, kendali lampu via jaringan LAN, led running teks, pengendali lampu  atau peralatan listrik lainnya via internet dan sebagainya ? anda dapat membelinya di www.kedaiarduino.com
 www.kedaiarduino.com






Friday, December 12, 2014

Mencoba interface neo 6m gps arduino uno delphi 7

Posting kali ini saya memainkan interdace neo 6m gps arduino uno dengan delphi 7 , 



dalam percobaan ini, saya menggunakan hardware :

1 modul  neo 6m gps
1 modul arduino uno versi  SMD, harga lebih murah daripada arduino non SMD, fungsinya sama persis, 


untuk mengakses neo 6m gps saya menggunakan libary tiny gps dan software serial, fungsi library software serial adalah untuk membuat port komunikasi serial buatan yang secara default hanya ada di pin 0 dan 1 arduino uno, sehingga kita dapat memiliki port serial selainyang sudah ada di pin 0 dan 1 tersebut, dalam hal ini saya menggunakan pin 10 dan 11 pada aruino uni, pin 10 sebaga pin Rx dan pin 11 sebagi pin Tx, pin ini lah yang dihubungkan ke modul modul  neo 6m gps, 

nantinya arduino uno bertugas membaca data latitude dan logitude dari posisi GPS lalu ditampilka ke komputer melalui komunukasi serial dengan baudrate 9600

catatan :

baud rate modul  neo 6m gps adalah 9600
ketika dinyalakan modul  neo 6m gps membutuhkan waktu power up sekitar 30 detik - 5 menit untuk mendapatkan sinyal GPS sehingga dapat mengirim kan data lintang dan bujur ke komputer, 


aplikasi pada komputer untuik menerima data latitude dan logitude dari posisi GPS pada komputer dapat menggunakan software hyperteminal, namun dalam aplikasi pada postingan ini dipergunakan software yang dikembangkan dengan delphi 7 dimana nantinya data logitude dan laltitude dipisahkan dan ditampailkan pada komponen edit yang ada pada delphi 7.

 berikut ini adalah video ujicoba interface neo 6m gps arduino uno delphi 7 



Contact Person : 
Facebook : Taufik Adi Sanjaya
No HP / Whats App : 0823 2613 3990
PIN BBM 5983E244
Alamat : Jalan Imogiri Timur KM 11, 
Blawong 1 , RT 01, Trimulyo, 
Jetis, Bantul 55781.

Anda membutuhkan komponen elektronik , Arduino, Sensor, Tutorial(paket belajar), jasa pembuatan alat berbasis mikrokontroler, kendali lampu via jaringan LAN, led running teks, pengendali lampu  atau peralatan listrik lainnya via internet dan sebagainya ? anda dapat membelinya di www.kedaiarduino.com
 www.kedaiarduino.com




Wednesday, December 10, 2014

Alat kendali lampu berbasis internet 8 channel dengan interface android

alat kendali lampu berbasis internet 8 channel dengan interface android
Saat ini jaringan internet sudah menjadi bagian tak terpisahkan dari kehidupan manusia, mulai dari anak anak sampai orang tua sudah sangat akrab dengan internet ,
Alat ini berfungsi sebagai pengendali peralatan listrik jarak jauh berbasis internet speedy, jadi selama anda menggunakan jaringan internet speedy anda dapat melakukan pengendalian lampu rumah anda dengan menggunakan alat ini,
Alat ini mampu menangani 8  buah peralatan listrik semisal lampu pijar, lampu hemat energy dan sebagainya bebasis internet

Berikut ini video ujicoba kendali lampu via internet sebelum kami chasing


Selain itu jumlah channel juga tidak terbatas sebanyak 8 lampu saja, tersedia jumlah channel lain , 4channel, 12 channel, 16 channel dan sebagainya.

Membutuhkan  alat kendali lampu berbasis internet 8 channel dengan interface android?


Contact Person : 
Facebook : Taufik Adi Sanjaya
No HP / Whats App : 0823 2613 3990
PIN BBM 5983E244
Alamat : Jalan Imogiri Timur KM 11, 
Blawong 1 , RT 01, Trimulyo, 
Jetis, Bantul 55781.

Anda membutuhkan komponen elektronik , Arduino, Sensor, Tutorial(paket belajar), jasa pembuatan alat berbasis mikrokontroler, kendali lampu via jaringan LAN, led running teks, pengendali lampu  atau peralatan listrik lainnya via internet dan sebagainya ? anda dapat membelinya di www.kedaiarduino.com
 www.kedaiarduino.com



Ujicoba alat kendali relay 8 channel berbasis internet via delphi 7




Ujicoba  alat kendali relay  8 channel berbasis internet via delphi 7



Saat ini jaringan internet sudah menjadi bagian tak terpisahkan dari kehidupan manusia, mulai dari anak anak sampai orang tua sudah sangat akrab dengan internet ,


Alat ini berfungsi sebagai pengendali peralatan listrik jarak jauh berbasis internet speedy, jadi selama anda menggunakan jaringan internet speedy anda dapat melakukan pengendalian lampu rumah anda dengan menggunakan alat ini,


Alat ini mampu menangani 8  buah peralatan listrik semisal lampu pijar, lampu hemat energy dan sebagainya bebasis internet



Berikut ini video ujicoba kendali lampu via internet sebelum kami chasing



Selain itu jumlah channel juga tidak terbatas sebanyak 4 lampu saja, tersedia jumlah channel lain , 8 channel, 12 channel, 16 channel dan sebagainya.

membutuhkan  alat kendali relay  8 channel berbasis internet via delphi 7?

Contact Person : Taufik Adi Sanjaya
No HP / Whats App : 0823 2613 3990
PIN BBM 5983E244
Alamat : Jalan Imogiri Timur KM 11, 
Blawong 1 , RT 01, Trimulyo, 
Jetis, Bantul 55781.


Anda membutuhkan komponen elektronik , Arduino, Sensor, Tutorial(paket belajar), jasa pembuatan alat berbasis mikrokontroler, kendali lampu via jaringan LAN, dan sebagainya ? anda dapat membelinya di www.kedaiarduino.com
 www.kedaiarduino.com


Video ujicoba Paket Belajar Kontrol lampu melalui komunikasi Bluetooth Arduino – Android

Setelah agak lama saya ndak nulis di blog kesayangan saya ini, akhirnya saya beranikan diri untuk menulis lagi, (hahahaha lebay),

kali ini saya hanya akan memposting sebuah video mengenai ujicoba Paket Belajar Kontrol lampu melalui komunikasi Bluetooth Arduino – Android  dimana apada paket belajar terserbut terdiri atas :

1.    Arduino Uno + kabel
2.    Relay 4 channel
3.    Bluetooth
4.    CD berisi software Arduino, Android Aplication dengan Basic4Android, source Code /sketch Arduino,
5.    Buku panduan pemrograman Kontrol lampu melalui komunikasi Bluetooth Arduino – Android
CD + Panduan only : Rp.750.000,00
CD + Panduan + Arduino + Relay 4 Channel + Bluetooth = Rp. 1.250.000,00

video ujicoba Paket Belajar Kontrol relay melalui komunikasi Bluetooth Arduino – Android
dapat dilihat pada video di bawah ini :




Contact Person : Taufik Adi Sanjaya
No HP / Whats App : 0823 2613 3990
PIN BBM 5983E244
Alamat : Jalan Imogiri Timur KM 11, 
Blawong 1 , RT 01, Trimulyo, 
Jetis, Bantul 55781.


Anda membutuhkan komponen elektronik , Arduino, Sensor, Tutorial(paket belajar), jasa pembuatan alat berbasis mikrokontroler, kendali lampu via jaringan LAN, dan sebagainya ? anda dapat membelinya di www.kedaiarduino.com
 www.kedaiarduino.com

Tuesday, December 9, 2014

Sensor warna dengan output suara berbasis Arduino Uno

Sebenarnya judul Sensor warna dengan output suara berbasis Arduino Uno dapat di ubah menjadi Sensor warna dengan output suara berbasis Mikrokontroler AVR, baik at mega 16, 8 ataupun at mega varian lain, bahkan at tiny pun dapat di gunakan sebagai otak pengolah informasi yang diberikan oleh sensor warna untuk kemudian menghasilkan output suara


sensor warna nya memiliki skematik sebagai berikut :



Modul Hardware yang dipergunakan dalam tulisan ini adalah :


1. modul Arduino UNO, boleh versi aseli italy ataupun versi abal abal china (arduino uno rev clone),
2. modul serial ttl to play wave (hehehehe membingungkan?) cara kerjanya kirim perintah serial ke mdul tersebut , selanjutnya file wav yang ada di MMC yang terkoneksi pada modul akan di play oleh modul
3. penguat suara (modul mini amplifier)
4. speaker
5. power supplya
6. rangkaian sensor warna, 

gambar alat  Sensor warna dengan output suara berbasis Arduino Uno




source kode untuk  Sensor warna dengan output suara berbasis Arduino Uno adalah sebagai berikut :

#include <SoftwareSerial.h>

SoftwareSerial mySerial(10, 11); // RX, TX

const int analogInRed = A0; 
const int analogInGreen = A1; 
const int analogInBlue = A2; 
int sensorValueRed = 0;    
int sensorValueGreen = 0;    
int sensorValueBlue = 0;    

int k=15;

const int buttonPin = 3;     // the number of the pushbutton pin
const int buzzerPin = 2;      // the number of the buzzer pin
int buttonState = 0;

void setup() {
mySerial.begin(19200); 
mySerial.write(13);
mySerial.write(13);
mySerial.write(13);

delay(100);
//kirim stop
mySerial.print ("g") ;
//mySerial.print Chr(13) ;
mySerial.write(13);


//'seting single step
mySerial.print ("t") ;
//mySerial.print Chr(13) ;
mySerial.write(13);
 
   pinMode(buzzerPin, OUTPUT);     
   pinMode(buttonPin, INPUT);
  
  digitalWrite(buzzerPin,LOW);
  delay(500);

  digitalWrite(buzzerPin,HIGH);
  delay(500);
  
  digitalWrite(buzzerPin,LOW);
  delay(500);

  digitalWrite(buzzerPin,HIGH);
  delay(500);
 
  digitalWrite(buzzerPin,LOW);
  delay(500);

  digitalWrite(buzzerPin,HIGH);
  delay(500);
 
  digitalWrite(buzzerPin,LOW);
  delay(500);

  digitalWrite(buttonPin,HIGH);
  delay(500);
 
 
  Serial.begin(19200);
}

void loop() {
  // read the analog in value:
 buttonState = digitalRead(buttonPin); 
if (buttonState==LOW) {
 
 sensorValueRed = analogRead(analogInRed);
  sensorValueGreen = analogRead(analogInGreen);
  sensorValueBlue = analogRead(analogInBlue);

  digitalWrite(buzzerPin,HIGH);
  delay(500);
 
  digitalWrite(buzzerPin,LOW);
  delay(500);
 
   digitalWrite(buzzerPin,HIGH);
  delay(500);
 
  digitalWrite(buzzerPin,LOW);
  delay(500);
 
 
if(abs(sensorValueRed-606)<k && abs(sensorValueGreen-172)<k && abs(sensorValueBlue-428)<k){
    Serial.println("HITAM");
 mySerial.print ("lxhitam") ;
//mySerial.print Chr(13) ;
mySerial.write(13);
   } else


if(abs(sensorValueRed-239)<k && abs(sensorValueGreen-57)<k && abs(sensorValueBlue-154)<k){
    Serial.println("PUTIH");
   mySerial.print ("lxputih") ;
//mySerial.print Chr(13) ;
mySerial.write(13);
} else
   

if(abs(sensorValueRed-338)<k && abs(sensorValueGreen-135)<k && abs(sensorValueBlue-342)<k){
    Serial.println("MERAH");
 mySerial.print ("lxmerah") ;
//mySerial.print Chr(13) ;
mySerial.write(13);
}  else
   

if(abs(sensorValueRed-455)<k && abs(sensorValueGreen-86)<k && abs(sensorValueBlue-273)<k){
    Serial.println("HIJAU");
 mySerial.print ("lxhijau") ;
//mySerial.print Chr(13) ;
mySerial.write(13);
}   else
   
if(abs(sensorValueRed-488)<k && abs(sensorValueGreen-97)<k && abs(sensorValueBlue-226)<k){
    Serial.println("BIRU");
 mySerial.print ("lxbiru") ;
//mySerial.print Chr(13) ;
mySerial.write(13);
}  else
   
if(abs(sensorValueRed-255)<k && abs(sensorValueGreen-67)<k && abs(sensorValueBlue-222)<k){
    Serial.println("KUNING");
  mySerial.print ("lxkuning") ;
//mySerial.print Chr(13) ;
mySerial.write(13);
}  else
   
if(abs(sensorValueRed-392)<k && abs(sensorValueGreen-77)<k && abs(sensorValueBlue-249)<k){
    Serial.println("HIJAU MUDA");
  mySerial.print ("lxhijau1") ;
//mySerial.print Chr(13) ;
mySerial.write(13);
}   else
   
if(abs(sensorValueRed-489)<k && abs(sensorValueGreen-101)<k && abs(sensorValueBlue-311)<k){
    Serial.println("HIJAU TUA");
  mySerial.print ("lxhijau2") ;
//mySerial.print Chr(13) ;
mySerial.write(13);
}   else     

if(abs(sensorValueRed-403)<k && abs(sensorValueGreen-78)<k && abs(sensorValueBlue-198)<k){
    Serial.println("BIRU MUDA");
 mySerial.print ("lxbiru1") ;
//mySerial.print Chr(13) ;
mySerial.write(13);
}   else         

if(abs(sensorValueRed-506)<k && abs(sensorValueGreen-104)<k && abs(sensorValueBlue-234)<k){
    Serial.println("BIRU TUA");
 mySerial.print ("lxbiru2") ;
//mySerial.print Chr(13) ;
mySerial.write(13);
}   else   


if(abs(sensorValueRed-462)<k && abs(sensorValueGreen-150)<k && abs(sensorValueBlue-372)<k){
    Serial.println("COKLAT");
    mySerial.print ("lxcoklat") ;
//mySerial.print Chr(13) ;
mySerial.write(13);
}else         

if(abs(sensorValueRed-302)<k && abs(sensorValueGreen-122)<k && abs(sensorValueBlue-346)<k){
    Serial.println("ORANYE");
  mySerial.print ("lxoranye") ;
//mySerial.print Chr(13) ;
mySerial.write(13);
}  else     


if(abs(sensorValueRed-402)<k && abs(sensorValueGreen-93)<k && abs(sensorValueBlue-221)<k){
    Serial.println("ABU ABU");
 mySerial.print ("lxabu") ;
//mySerial.print Chr(13) ;
mySerial.write(13);
} else     

if(abs(sensorValueRed-562)<k && abs(sensorValueGreen-145)<k && abs(sensorValueBlue-304)<k){
    Serial.println("UNGU");
 mySerial.print ("lxungu") ;
//mySerial.print Chr(13) ;
mySerial.write(13);
} else
if(abs(sensorValueRed-287)<k && abs(sensorValueGreen-87)<k && abs(sensorValueBlue-289)<k){
    Serial.println("KUNING TUA");
 mySerial.print ("lxkuning2") ;
//mySerial.print Chr(13) ;
mySerial.write(13);
}     else

if(abs(sensorValueRed-426)<k && abs(sensorValueGreen-134)<k && abs(sensorValueBlue-291)<k){
    Serial.println("PINK");
  mySerial.print ("lxpink") ;
//mySerial.print Chr(13) ;
mySerial.write(13);}           
  Serial.println(sensorValueRed);                      
  Serial.println(sensorValueGreen);                 
  Serial.println(sensorValueBlue); 
 Serial.println("=====================");
  delay(1000);  

}


panjang ya ?  ah enggak, itu kosing nya bentar aja, apalagi kopast nya

sensor warna dipasang di pin A0, A1, A2 yang merupakan keluaran dari sensor LDR yang di hadapkan dengna LED Merah, Hijau dan Biru .

beikut ini adalah video uji coba nya :



Contact Person : Taufik Adi Sanjaya
No HP / Whats App : 0823 2613 3990
PIN BBM 5983E244
Alamat : Jalan Imogiri Timur KM 11, 
Blawong 1 , RT 01, Trimulyo, 
Jetis, Bantul 55781.


Anda membutuhkan komponen elektronik , Arduino, Sensor, Tutorial(paket belajar), jasa pembuatan alat berbasis mikrokontroler, kendali lampu via jaringan LAN, dan sebagainya ? anda dapat membelinya di www.kedaiarduino.com
 www.kedaiarduino.com



 
Design by Free WordPress Themes | Bloggerized by Lasantha - Premium Blogger Themes | Hot Sonakshi Sinha, Car Price in India