Translate

Monitor Kelembaban Tanah dan Kendali Pompa via TELEGRAM

 Monitor Kelembaban Tanah dan Kendali Pompa via TELEGRAM
 

           Pada kesempatan kali ini saya akan menjelaskan mengenai bagaimana cara membuat sebuah alat dengan menggunakan Wemos D1 yang dapat mengendalikan pompa dan monitor RH tanah melalui aplikasi telegram. keunggulan melalui telegram yaitu berbasis chat sehingga kita bisa monitor RH jika kita butuhkan saja dan juga untuk mengendalikan pompa juga seperti kita chat dengan seseorang sehingga lebih mudah digunakan. untuk lebih jelasnya berikut adalah program dan daftar komponennya.
 
 
 
a. Wemos D1
 

 
 
b. Modul Relay
 

 
 
c. Sensor Kelembaban Tanah
 

 
 
d. LCD + I2C
 

 
 
e. Setting Telegram








 
f. Program Arduino IDE versi 1.8.4
 
#include <CTBot.h>
CTBot myBot;
 
String ssid  = "Hotspotku OK";
String pass  = "123456789";
String token = "3876092376:JHGJHgjhgjhfsdadswqepioIPOPHHKJHBnbix";

int dryValue = 1023;
int wetValue = 0;
int friendlyDryValue = 100;
int friendlyWetValue = 0;

int rawValue;
float mapping;
const int mout1 = 14;                        
 float nddi1;
 
void setup() {
  // initialize the Serial
  Serial.begin(9600);
   
  Serial.println("Starting TelegramBot...");
  myBot.wifiConnect(ssid, pass);
  myBot.setTelegramToken(token);
 
  // check if all things are ok
  if (myBot.testConnection())
    Serial.println("\ntestConnection OK");
  else
    Serial.println("\ntestConnection NOK");

 pinMode(mout1, OUTPUT);
  // set the pin connected to the LED to act as output pin
  //digitalWrite(mout1, HIGH); // turn off the led (inverted logic!)
 
}
 
void loop() {
 
      rawValue = analogRead(A0);          
 //mapping = map(rawValue, dryValue, wetValue, friendlyDryValue, friendlyWetValue);
 //nddi = mapping /100;

  nddi1 = map(rawValue, dryValue, wetValue, friendlyDryValue, friendlyWetValue);

 

  // a variable to store telegram message data
  TBMessage msg;
 
  // if there is an incoming message...
   if (myBot.getNewMessage(msg)) {
    if (msg.text.equalsIgnoreCase("Hum")) {
    Serial.print("Kelembaban saat ini : ");
    Serial.println(nddi1);   
     String rawValue = "Kelembaban saat ini  : ";
      rawValue += int(nddi1);
      rawValue += "  %\n";
       myBot.sendMessage(msg.sender.id, rawValue,""); //Balasan dari perangkat ke Bot Telegram
    }

    if (msg.text.equalsIgnoreCase("On")) {                   //Perintah dari telegram ke perangkat
      digitalWrite(mout1, HIGH);                              //Lampi dihidupkan
      myBot.sendMessage(msg.sender.id, "The Pump is now ON"); //Balasan dari perangkat ke Bot Telegram
    }
    else if (msg.text.equalsIgnoreCase("Off")) {              //Perintah dari telegram ke perangkat
      digitalWrite(mout1, LOW);                              //Lampi dihidupkan
      myBot.sendMessage(msg.sender.id, "The Pump is now OFF"); //Balasan dari perangkat ke Bot Telegram
    }
    else {                                                    // otherwise...
      // generate the message for the sender
      String reply;
      reply = (String)"Welcome " + msg.sender.username + (String)". Try PUMP ON or PUMP OFF.";
      myBot.sendMessage(msg.sender.id, reply);    
     // and send it
    
    }
   
  }
  // wait 500 milliseconds
  delay(3000);
}
 
 
 
 
g. VIDEO HASILNYA
 

 
 
 
 

Monitor Kelembaban Tanah (Soil Moisture) dan Kendali Pompa via Internet ONLINE Blynk

 Monitor Kelembaban Tanah dan Kendali Pompa via Internet ONLINE Blynk


         Pada kesempatan kali ini saya akan menjelaskan mengenai bagaimana cara membuat sebuah alat yang menggunakan internet untuk keperluan monitoring kelembaban tanah dan kendali pompa. keunggulan alat ini yaitu dapat dipantau dan dikendalikan secara jarak jauh karena menggunakan internet sehingga kedua device harus terkonek internet agar saling terhubung. untuk lebih jelasnya berikut program dan daftar komponenya.



a. Wemos D1 Mini




b. LCD I2C 




c. Sensor Kelembaban Tanah




d. Relay Module






e. Program Arduino IDE

#include <Wire.h>
#include <LiquidCrystal_I2C.h>
LiquidCrystal_I2C lcd(0x27, 16, 2);
#define  BLYNK_PRINT Serial    
#include <ESP8266WiFi.h>
#include <BlynkSimpleEsp8266.h>
#include <SimpleTimer.h>
#include <SPI.h>

int dryValue = 1023;
int wetValue = 0;
int friendlyDryValue = 100;
int friendlyWetValue = 0;
float nddi;
int rawValue;
float mapping;

char auth[ ] = "hjgjfyjhEJDJRKRdfgddfkjhkjhJETDDFH";
char ssid[ ] = "Hotspot hpku";
char pass[ ] = "123456789";

SimpleTimer timer;

void sendSensor()
{
  
Blynk.virtualWrite(V5, nddi);
delay(1000);
   
}

void setup()
{
lcd.begin();
lcd.clear();
lcd.noCursor();
lcd.backlight();

 Blynk.begin(auth, ssid, pass);
  timer.setInterval(1000L, sendSensor);
}

void loop()
{
 
 rawValue = analogRead(A0);          
 //mapping = map(rawValue, dryValue, wetValue, friendlyDryValue, friendlyWetValue);
 //nddi = mapping /100;

  nddi = map(rawValue, dryValue, wetValue, friendlyDryValue, friendlyWetValue);
 
  lcd.setCursor(0,0);
  lcd.print("S= ");
  lcd.print(nddi);
  lcd.print("    %     ");
  
       Blynk.run();
      timer.run();
 
  if( nddi <= 27.0 ){
  lcd.setCursor(0, 1);
  lcd.print("AIR            ");
  }
 
  if(( nddi > 28.0 )&&(nddi <= 30.0 )){
  lcd.setCursor(0, 1);
  lcd.print("NORMAL         ");
  }
 
  if(( nddi > 32.0 )&&(nddi <= 40.0 )){
  lcd.setCursor(0, 1);
  lcd.print("KERING RINGAN   ");
  }
 
 delay(200);
}




f. VIDEO HASILNYA








Interface Delphi 7 untuk Data 6 Grafik Realtime

 Interface Delphi 7 untuk Data 6 Grafik Realtime


      Pada kesempatan kali ini saya akan menjelaskan mengenai bagaimana cara membuat software interface dengan menggunakan Delphi 7 untuk menampilkan 6 buah data dan grafik secara realtime berdasarkan input dari arduino menggunakan serial. untuk lebih jelasnya berikut adalah tampilan interface dan programnya.



a. Interface Delphi 7



unit TA;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,strutils, TeeProcs, TeEngine, Chart, CPort, mmsystem,
  Series, Buttons;

type
  TForm1 = class(TForm)
    ComPort1: TComPort;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Chart1: TChart;
    Shape1: TShape;
    Shape2: TShape;
    GroupBox2: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Memo1: TMemo;
    Timer1: TTimer;
    Label7: TLabel;
    Label8: TLabel;
    BitBtn1: TBitBtn;
    Chart2: TChart;
    Series2: TFastLineSeries;
    Label5: TLabel;
    Timer2: TTimer;
    Chart3: TChart;
    Series3: TFastLineSeries;
    Chart4: TChart;
    Chart5: TChart;
    Chart6: TChart;
    Series4: TFastLineSeries;
    Series5: TFastLineSeries;
    Series6: TFastLineSeries;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Series1: TFastLineSeries;
    Timer3: TTimer;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label9: TLabel;
    procedure ComPort1RxChar(Sender: TObject; Count: Integer);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var buff:string;
begin
comport1.ReadStr(buff,count);
memo1.Text:=memo1.Text+buff;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
comport1.ShowSetupDialog;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Timer2.Enabled := True;
Timer3.Enabled := True;
if button2.Caption='Connect' then
   begin
   button2.Caption:='Disconnect';
   comport1.Open;
   end
else if button2.Caption='Disconnect' then
   begin
   button2.Caption:='Connect';
   comport1.Close;
   end;

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Edit1.Color:=clwhite;
Edit2.Color:=clwhite;
edit1.text:='';
edit2.text:='';
memo1.Text:='';
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ThousandSeparator:=',';
DecimalSeparator:='.';
end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
label7.Caption:='Date  '+ FormatdateTime('d/mm/yyyy',Date);
label8.Caption:='Time  '+ FormatDateTime('hh:nn:ss',Time);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
var ruang,kulit,ruangx,kulitx,ruangy,kulity:double;
    rin,kin,rinx,kinx,riny,kiny:string;

begin

  riny:=memo1.Lines[memo1.Lines.count-6];
  kiny:=memo1.Lines[memo1.Lines.count-5];
  rinx:=memo1.Lines[memo1.Lines.count-4];
  kinx:=memo1.Lines[memo1.Lines.count-3];
  rin:=memo1.Lines[memo1.Lines.count-2];
  kin:=memo1.Lines[memo1.Lines.count-1];

  if rightstr(riny,1)= 'a' then
     begin
     edit1.Text:=leftstr(rin,length(rin)-1);
     ruang:=strtofloat(edit1.text);
     Series1.Add(ruang,'',clred) ;
     end;
  if rightstr(kiny,1)='b' then
     begin
     edit2.Text:=leftstr(kin,length(kin)-1);
     kulit:=strtofloat(edit2.text);
     Series2.Add(kulit,'',clgreen) ;
     end;

  if rightstr(rinx,1)= 'c' then
     begin
     edit5.Text:=leftstr(rinx,length(rinx)-1);
     ruangx:=strtofloat(edit5.text);
     Series3.Add(ruangx,'',clred) ;
     end;
  if rightstr(kinx,1)='d' then
     begin
     edit6.Text:=leftstr(kinx,length(kinx)-1);
     kulitx:=strtofloat(edit6.text);
     Series4.Add(kulitx,'',clgreen) ;
     end;

  if rightstr(rin,1)= 'e' then
     begin
     edit7.Text:=leftstr(riny,length(riny)-1);
     ruangy:=strtofloat(edit7.text);
     Series5.Add(ruangy,'',clred) ;
     end;
  if rightstr(kin,1)='f' then
     begin
     edit8.Text:=leftstr(kiny,length(kiny)-1);
     kulity:=strtofloat(edit8.text);
     Series6.Add(kulity,'',clgreen) ;
     end;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
var
  F: TextFile;
begin
  AssignFile(F, 'D:\recordku.txt');
  Append(F);
  WriteLn(F, '======================================');
  WriteLn(F, 'Tanggal = ',label7.Caption);
  WriteLn(F, 'Jam     = ',label8.Caption);
  WriteLn(F, '======================================');

  WriteLn(F, 'Data A : ',Edit1.Text);
  WriteLn(F, 'Data B  : ',Edit2.Text);
  WriteLn(F, 'Data C  : ',Edit3.Text);
  WriteLn(F, 'Data D : ',Edit4.Text);
  WriteLn(F, 'Data E : ',Edit5.Text);
  WriteLn(F, 'Data F : ',Edit6.Text);

  CloseFile(F);
end;

end.




b. Program Arduino IDE

void setup() {
  // initialize serial communication at 9600 bits per second:
  Serial.begin(9600);
}

// the loop routine runs over and over again forever:
void loop() {
  // read the input on analog pin 0:
  int sensorValue1 = analogRead(A0);
  int sensorValue2 = analogRead(A1);
  int sensorValue3 = analogRead(A2);
  int sensorValue4 = analogRead(A3);
  int sensorValue5 = analogRead(A4);
  int sensorValue6 = analogRead(A5);
  // print out the value you read:
  Serial.print(sensorValue1),Serial.println ('a');
  Serial.print(sensorValue2),Serial.println ('b');
  Serial.print(sensorValue3),Serial.println ('c');
  Serial.print(sensorValue4),Serial.println ('d');
  Serial.print(sensorValue5),Serial.println ('e');
  Serial.print(sensorValue6),Serial.println ('f');
  delay(1000);        // delay in between reads for stability
}




c. VIDEO HASILNYA






Monitor Suhu Tubuh Non Contact dan BPM ONLINE Blynk

 Monitor Suhu Tubuh Non Contact dan BPM ONLINE Blynk


        Pada kesempatan kali ini saya akan menjelaskan mengenai bagaimana cara membuat sebuah alat yang digunakan untuk mengukur suhu tubuh dan bpm secara online via aplikasi Blynk. keuntungan alat ini yaitu bisa monitor secara jarak jauh dan juga bisa dimonitor dimanapun berada asalkan kedua device terkoneksi internet. untuk lebih jelasnya berikut adalah komponen dan programnya. 



a. Wemos D1 Mini




b. Sensor Suhu MLX90614




c. Sensor BPM max30102




d. LCD + I2C






e, Program Arduino IDE

#include <Wire.h>
#define  BLYNK_PRINT Serial  
#include <SPI.h>
#include <ESP8266WiFi.h>
#include <BlynkSimpleEsp8266.h>
#include <SimpleTimer.h>
#include "MAX30105.h"
#include <LiquidCrystal_I2C.h>
#include "heartRate.h"
#include <Adafruit_MLX90614.h>
LiquidCrystal_I2C lcd(0x27, 16,2);

MAX30105 particleSensor;
Adafruit_MLX90614 mlx = Adafruit_MLX90614();
float TargetC;
const byte RATE_SIZE = 4; //Increase this for more averaging. 4 is good.
byte rates[RATE_SIZE]; //Array of heart rates
byte rateSpot = 0;
long lastBeat = 0; //Time at which the last beat occurred

float beatsPerMinute;
int beatAvg;
int counter;

char auth[] = "hgjhgjTJUIYRgfhjjhrerewiuoiuokjhkjgfh";
char ssid[] = "myHotspot";
char pass[] = "1234567";

SimpleTimer timer;

const int speakerPin = 12;
int ledmerah = 14;
int ledhijau = 2;

void sendSensor()
{
 Blynk.virtualWrite(V5, TargetC);
 Blynk.virtualWrite(V6, beatsPerMinute);
 delay(1000);
}

void setup()
{
  
  lcd.clear();
  lcd.begin();
  lcd.noCursor();
  Serial.begin(115200);
  Serial.println("Initializing...");
   pinMode(ledmerah,OUTPUT);
   pinMode(ledhijau,OUTPUT);
   pinMode(speakerPin, OUTPUT);

   digitalWrite(ledmerah,LOW);
   digitalWrite(ledhijau,LOW);
   
Blynk.begin(auth, ssid, pass);
timer.setInterval(1000L, sendSensor);

}

void loop()
{

    // Initialize sensor
  if (!particleSensor.begin(Wire, I2C_SPEED_FAST)) //Use default I2C port, 400kHz speed
  {
    Serial.println("MAX30105 was not found. Please check wiring/power. ");
    while (1);
  }
  Serial.println("Place your index finger on the sensor with steady pressure.");

  particleSensor.setup(); //Configure sensor with default settings
  particleSensor.setPulseAmplitudeRed(0x0A); //Turn Red LED to low to indicate sensor is running
  particleSensor.setPulseAmplitudeGreen(0); //Turn off Green LED

  long irValue = particleSensor.getIR();

  if (checkForBeat(irValue) == true)
  {
    //We sensed a beat!
    long delta = millis() - lastBeat;
    lastBeat = millis();

    beatsPerMinute = 60 / (delta / 1000.0);

    if (beatsPerMinute < 255 && beatsPerMinute > 20)
    {
      rates[rateSpot++] = (byte)beatsPerMinute; //Store this reading in the array
      rateSpot %= RATE_SIZE; //Wrap variable

      //Take average of readings
      beatAvg = 0;
      for (byte x = 0 ; x < RATE_SIZE ; x++)
        beatAvg += rates[x];
      beatAvg /= RATE_SIZE;
    }
  }

  counter++;

if(counter > 100){
 counter = 0;

 mlx.begin();
 TargetC = mlx.readObjectTempC();

 lcd.setCursor(0,1);
 lcd.print("Temp= ");
 lcd.print(TargetC);
 lcd.println(" 'C     ");

 if (TargetC <=  37.5) {
   digitalWrite(speakerPin, LOW);  
   digitalWrite(ledmerah,LOW);  
   digitalWrite(ledhijau,HIGH);
  }
 if (TargetC > 37.5 ) {
   digitalWrite(speakerPin, HIGH);
   digitalWrite(ledmerah,HIGH);
   digitalWrite(ledhijau,LOW);
   delay (3000);
 }
      
 Blynk.run();
 timer.run();
}

  lcd.setCursor(0,0);
  lcd.print("BPM= ");
  lcd.print(beatsPerMinute);
  lcd.println("       ");
      
  Serial.print("IR=");
  Serial.print(irValue);
  Serial.print(", BPM=");
  Serial.print(beatsPerMinute);
  Serial.print(", Avg BPM=");
  Serial.print(beatAvg);

  if (irValue < 50000)
    Serial.print(" No finger?");

  Serial.println();
}




f. VIDEO HASILNYA







Monitor Suhu Tubuh Non Contact (Measure Body Temperature) IOT Blynk

 Monitor Suhu Tubuh Non Contact (Measure Body Temperature) IOT Blynk

           Pada kesempatan kali ini saya akan menjelaskan mengenai bagaimana cara membuat sebuah alat yang dapat digunakan untuk mengukur suhu tubuh secara non contact atau tidak bersentuhan, alat ini sangat cocok digunakan untuk kondisi negara dilanda pandemi dikarenakan dibutuhkan alat yang bisa digunakan untuk mengukur suhu tubuh tanpa disentuh. alat ini berbasis IOT dengan aplikasi Blynk sehingga untuk jarak monitor bisa sangat jauh dan sangat cocok digunakan pada suatu gedung atau supermarket. untuk lebih jelasnya berikut adalah program dan daftar komponennya.


a. Wemos D1


b. Sensor Suhu Non Contact MLX90614

 

c. LCD + I2C



d. Program Arduino IDE

#include <Wire.h>
#include <LiquidCrystal_I2C.h>
#include <Adafruit_MLX90614.h>
#define  BLYNK_PRINT Serial    
#include <ESP8266WiFi.h>
#include <BlynkSimpleEsp8266.h>
#include <SimpleTimer.h>
#include <SPI.h>


LiquidCrystal_I2C lcd(0x27, 16,2);

Adafruit_MLX90614 mlx = Adafruit_MLX90614();

// You should get Auth Token in the Blynk App.
// Go to the Project Settings (nut icon).

char auth[ ] = "kjhkjKJGKHGOIUIgghgcxgfgfcbgdgfsjgfj";

// Your WiFi credentials.
// Set password to "" for open networks.

char ssid[ ] = "MyHotspotku";
char pass[ ] = "123456789";

SimpleTimer timer;

float TargetC;
const int speakerPin = 12;
int ledmerah = 14;
int ledhijau = 2;

void sendSensor()
{

    Blynk.virtualWrite(V5, TargetC);
      
     delay(1000);

}

void setup(){
 
  mlx.begin();
  lcd.clear();
  lcd.begin();
  Serial.begin(9600);
  lcd.noCursor();

   pinMode(ledmerah,OUTPUT);
   pinMode(ledhijau,OUTPUT);
   pinMode(speakerPin, OUTPUT);

   digitalWrite(ledmerah,LOW);
   digitalWrite(ledhijau,LOW);

  Blynk.begin(auth, ssid, pass);
  timer.setInterval(1000L, sendSensor);
 
}

    void loop(){
           
  TargetC = mlx.readObjectTempC();

      lcd.setCursor(0,0);
      lcd.print("Temp= ");
      lcd.print(TargetC);
      lcd.println(" 'C     ");
   
       if (TargetC <=  37.5) {
      digitalWrite(speakerPin, LOW);  
       digitalWrite(ledmerah,LOW);  
      digitalWrite(ledhijau,HIGH);
  }
       if (TargetC > 37.5 ) {
      digitalWrite(speakerPin, HIGH);
        digitalWrite(ledmerah,HIGH);
        digitalWrite(ledhijau,LOW);
     delay (3000);
    
  }
   
       Blynk.run();
      timer.run();
 }
   
   
   

e. VIDEO HASILNYA




Monitor Arus AC Sensor SCT-013 Komunikasi Wireless LoRa Module ARDUINO

 Monitor Arus AC Sensor SCT-013 Komunikasi Wireless LoRa Module ARDUINO 


          Pada kesempatan kali ini saya akan menjelaskan mengenai bagaimana cara membuat sebuah alat yang menggunakan sepasang modul LoRa transmitter dan receiver untuk komunikasi datanya. sensor yang dipakai yaitu SCT-013 untuk mengukur arus AC atau IAC. untuk lebih jelasnya berikut adalah program dan daftar komponennya.



a. Arduino Uno




b. Modul Wireless LoRa




c. Sensor SCT-013




d. LCD + I2C






e. Program Arduino Transmitter

#include <SPI.h>
#include <LoRa.h>

int vin = 0;
int iin = 0;
int vout;
float kal;

unsigned long start_times[100];
unsigned long stop_times[100];
unsigned long values[100];

// Define various ADC prescaler
const unsigned char PS_16 = (1 << ADPS2);
const unsigned char PS_32 = (1 << ADPS2) | (1 << ADPS0);
const unsigned char PS_64 = (1 << ADPS2) | (1 << ADPS1);
const unsigned char PS_128 = (1 << ADPS2) | (1 << ADPS1) | (1 << ADPS0);

int a = 0;
int zero = 1;


void setup() {
  Serial.begin(9600);
   
  // set up the ADC
  ADCSRA &= ~PS_128;  // remove bits set by Arduino library

  // you can choose a prescaler from above.
  // PS_16, PS_32, PS_64 or PS_128
  ADCSRA |= PS_128;    // set our own prescaler to 64

  while (!Serial);

  Serial.println("LoRa Sender");

  if (!LoRa.begin(915E6)) {
    Serial.println("Starting LoRa failed!");
    while (1);
  }
}

void loop() {

unsigned int i1;
  unsigned int z1;
  z1 = 0;
 
  unsigned int i2;
  unsigned int z2;
  z2 = 0;
 
  unsigned int i3;
  unsigned int z3;
  z3 = 0;
 
  unsigned int i4;
  unsigned int z4;
  z4 = 0;
  
  for(i1=0;i1<100;i1++) {
    start_times[i1] = micros();
    values[i1] = analogRead(A0);            

  if (values[i1] >= z1) {
  z1 = values[i1];
  }
 
    stop_times[i1] = micros();
  }
 
    for(i2=0;i2<100;i2++) {
    start_times[i2] = micros();
    values[i2] = analogRead(A0);            

  if (values[i2] >= z2) {
  z2 = values[i2];
  }
 
    stop_times[i2] = micros();
  }
 
 
    for(i3=0;i3<100;i3++) {
    start_times[i3] = micros();
    values[i3] = analogRead(A0);            

  if (values[i3] >= z3) {
  z3 = values[i3];
  }
 
    stop_times[i3] = micros();
  }
 
 
    for(i4=0;i4<100;i4++) {
    start_times[i4] = micros();
    values[i4] = analogRead(A0);            

  if (values[i4] >= z4) {
  z4 = values[i4];
  }
 
    stop_times[i4] = micros();
  }
 

   int vin1 = z1 ;
   int vin2 = z2 ;
   int vin3 = z3 ;
   int vin4 = z4 ;

  z1 = 0;
  z2 = 0;
  z3 = 0;
  z4 = 0;

if((vin1 > vin2)&&(vin1 > vin3)&&(vin1 > vin4)){
  vout = vin1;
  kal = (vout - 512.0) / 7.0;
}
else if((vin2 > vin1)&&(vin2 > vin3)&&(vin2 > vin4)){
  vout = vin2;
  kal = (vout - 512.0) / 7.0;
}
else if((vin3 > vin1)&&(vin3 > vin2)&&(vin3 > vin4)){
  vout = vin3;
 kal = (vout - 512.0) / 7.0;
}
else if((vin4 > vin1)&&(vin4 > vin2)&&(vin4 > vin3)){
  vout = vin4;
 kal = (vout - 512.0) / 7.0;
}

if(kal < 0){
kal = 0;
}

int arusku = kal * 100; 

  Serial.print("I= ");
  Serial.println(arusku);

  // send packet
  LoRa.beginPacket();
  LoRa.print(arusku);
  LoRa.endPacket();
 
  delay(200);
}




f. Program Arduino Receiver

#include <SPI.h>
#include <LoRa.h>
#include "Wire.h"
#include <LiquidCrystal_I2C.h>
LiquidCrystal_I2C lcd(0x27,16,2);

String inString = "";    // string to hold input
int val = 0;

void setup() {

  lcd.begin();
  lcd.clear();
  lcd.noCursor();
  
  Serial.begin(9600);
  while (!Serial);

  Serial.println("LoRa Receiver");

  if (!LoRa.begin(915E6)) {
    Serial.println("Starting LoRa failed!");
    while (1);
  }
}

void loop() {

  // try to parse packet
  int packetSize = LoRa.parsePacket();
  if (packetSize) { 
    // read packet    
    while (LoRa.available())
    {
      int inChar = LoRa.read();
      inString += (char)inChar;
      val = inString.toInt();       
    }
    inString = "";     
    LoRa.packetRssi();    
  }
  
Serial.println(val); 

float ix = val/100.0;

lcd.setCursor(0,0);
lcd.print("I = ");
lcd.print(ix);
lcd.print("   ");

delay(200);
}



g. Cara kalibrasi

1. Siapkan Ampermeter dan Ms. Excel lalu catat  nilai yang dihasilkan 
2. Klik Add trendline lalu pilih linier
3. Lalu masukkan rumus yg dihasilkan





h. VIDEO HASILNYA








Kendali Kursi Roda (Wheel Chair) Menggunakan Joystick / Thumb stick Driver IBT2 Control Speed PWM Arduino

 Kendali Kursi Roda (Wheel Chair) Menggunakan Joystick / Thumb stick Driver IBT2 Control Speed PWM Arduino 

        Pada kesempatan kali ini saya akan menjelaskan mengenai bagaimana membuat sebuah alat untuk mengendalikan motor DC yang memiliki torsi dan arus yang besar karena digunakan untuk kursi roda yang memiliki beban kerja yang lumayan besar maka dari itu dibutuhkan 2 buah driver ibt2 dan juga untuk kendali arah dan kecepatan menggunakan joystick atau thumb stick. untuk lebih jelasnya berikut adalah komponen dan programnya.


a. Arduno Nano



b. Driver IBT2



c. Motor DC



d. Joystick / Thumb Stick






e. Program Arduino IDE

//motor kanan
int pinpwma = 9;
int pinpwmb = 10;
//motor kiri
int pinpwmc = 5;
int pinpwmd = 6;
int speedx;
int speedx1;
void setup() {
 Serial.begin(9600);
 pinMode(pinpwma, OUTPUT);
 pinMode(pinpwmb, OUTPUT);
 pinMode(pinpwmc, OUTPUT);
 pinMode(pinpwmd, OUTPUT);
}
void loop() {
int dataadc1 = analogRead(A0);
int dataadc2 = analogRead(A1);
//Serial.print(dataadc1);
//Serial.print(" ");
//Serial.println(dataadc2);
speedx = map(dataadc1, 450, 1010, 0, 255);
speedx1 = map(dataadc2, 450, 1010, 0, 255);
if(speedx > 255){
  speedx = 255;
  }
  
if(speedx1 > 255){
  speedx1 = 255;
  }
//maju
if(speedx1 > 50){ 
  Serial.println("maju"); 
  speedx1 = speedx1 * 1;
  analogWrite(pinpwma,speedx);
  analogWrite(pinpwmb,speedx1);
  analogWrite(pinpwmc,speedx);
  analogWrite(pinpwmd,speedx1);
  }
//mundur
if(speedx1 < 0){
  Serial.println("mundur");
  speedx1 = speedx1 * -1;
  analogWrite(pinpwma,speedx1);
  analogWrite(pinpwmb,speedx);
  analogWrite(pinpwmc,speedx1);
  analogWrite(pinpwmd,speedx);
  }  
  
if(speedx > 50){
  Serial.println("kiri");
  analogWrite(pinpwma,0);
  analogWrite(pinpwmb,0);
  analogWrite(pinpwmc,0);
  analogWrite(pinpwmd,speedx);
  }
if(speedx < 0){
  Serial.println("kanan");
  speedx = speedx * -1;
  analogWrite(pinpwma,0);
  analogWrite(pinpwmb,speedx);
  analogWrite(pinpwmc,0);
  analogWrite(pinpwmd,0);
  }
if((speedx > 0)&&(speedx < 50)&&(speedx1 > 0)&&(speedx1 < 50)){ 
  analogWrite(pinpwma,0);
  analogWrite(pinpwmb,0);
  analogWrite(pinpwmc,0);
  analogWrite(pinpwmd,0);
}
      
Serial.print(speedx);
Serial.print(" ");
Serial.println(speedx1);
  
delay(100);
 
}



f. VIDEO HASILNYA