Pada kesempatan kali ini saya akan menjelaskan mengenai bagaimana cara membuat alat untuk kendali peralatan rumah tangga atau lainnya menggunakan sms, jadi alat ini bisa mengaktifkan dan mematikan alat menggunakan perintah SMS. aplikasi dari alat ini yaitu bisa digunakan untuk kendali peralatan rumah seperti lampu, kipas angin dll. ataupun untuk kendali industri seperti pintu kantor atau kendali valve. pada contoh ini menggunakan kipas angin dan sms yang di izinkan yaitu "Kipason" dan "Kipasoff". untuk penjelasan program dan skemanya seperti berikut.
a. Arduino Uno
b. Modul SMS SIM800L
c. Rangkaian Driver AC
d. Program Arduino IDE
#include "SIM900.h"
#include "sms.h"
#include "SoftwareSerial.h"
#include "sms.h"
SMSGSM sms;
boolean started=false;
char smsbuffer[160];
char n[20];
void setup(){
pinMode(13,OUTPUT);
digitalWrite(13,LOW);
if(gsm.begin(9600)){
started=true;
}
if(started){
delsms();
}
delay(1000);
sms.SendSMS("085726496000","SIAP EKSEKUSI");
}
void loop(){
if(gsm.begin(9600)){
started=true;
}
int pos=0;
if(started){
pos=sms.IsSMSPresent(SMS_ALL);
if(pos){
sms.GetSMS(pos,n,smsbuffer,100);
if(!strcmp(smsbuffer,"Kipason")){
digitalWrite(13,HIGH);
sms.SendSMS(n,"KIPAS TELAH AKTIF");
}
if(!strcmp(smsbuffer,"Kipasoff")){
digitalWrite(13,LOW);
sms.SendSMS(n,"KIPAS TELAH NON-AKTIF");
}
delsms();
}
}
delay(100);
}
void delsms()
{
for (int i=0; i<10; i++)
{
int pos=sms.IsSMSPresent(SMS_ALL);
if (pos!=0)
{
if (sms.DeleteSMS(pos)==1){}else{}
}
}
}
e. CONTOH SMS
f. VIDEO HASILNYA
b. Modul SMS SIM800L
c. Rangkaian Driver AC
d. Program Arduino IDE
#include "SIM900.h"
#include "sms.h"
#include "SoftwareSerial.h"
#include "sms.h"
SMSGSM sms;
boolean started=false;
char smsbuffer[160];
char n[20];
void setup(){
pinMode(13,OUTPUT);
digitalWrite(13,LOW);
if(gsm.begin(9600)){
started=true;
}
if(started){
delsms();
}
delay(1000);
sms.SendSMS("085726496000","SIAP EKSEKUSI");
}
void loop(){
if(gsm.begin(9600)){
started=true;
}
int pos=0;
if(started){
pos=sms.IsSMSPresent(SMS_ALL);
if(pos){
sms.GetSMS(pos,n,smsbuffer,100);
if(!strcmp(smsbuffer,"Kipason")){
digitalWrite(13,HIGH);
sms.SendSMS(n,"KIPAS TELAH AKTIF");
}
if(!strcmp(smsbuffer,"Kipasoff")){
digitalWrite(13,LOW);
sms.SendSMS(n,"KIPAS TELAH NON-AKTIF");
}
delsms();
}
}
delay(100);
}
void delsms()
{
for (int i=0; i<10; i++)
{
int pos=sms.IsSMSPresent(SMS_ALL);
if (pos!=0)
{
if (sms.DeleteSMS(pos)==1){}else{}
}
}
}
e. CONTOH SMS
f. VIDEO HASILNYA
No comments:
Post a Comment