MONITORING DAYA SOLAR PANEL MENGGUNAKAN ARDUINO DAN DELPHI 7

percobaan plotting datalogger daya/tegangan/arus solar panel 10 wp untuk membandingkan efisiensi daya tangkap sinar matahari mulai jam 5.30 pagi hingga 17.30 sore dalam cuaca terik. pada kesempatan kali ini saya menggunakan beberapa perangkat sensor berupa:
- sensor tegangan
- sensor arus ACS 712
- arduino nano
- SD card reader dan SD card
- program delphi sebagai penampil plotter hasil perekaman daya yang dihasilkan
- resistor beban

berikut saya tampilkan skema perangkat dan grafik hasil perekaman data solar panel
NB:
- pada gambar grafik, grafik atas merupakan solar panel menggunakan sistem tracking arah sinar matahari, dan grafik bawah merupakan solar panel yang dipasang secara statis
- penenpatan solar panel diletakkan secara berdekatan
- waktu penyinaran, dan jenis solar panel pun serupa
semoga dapat bermanfaat sebagai referensi untuk menentukan dimana yang paling baik, apakah solar panel statis dan solar panel yang mampu bergerak mengikuti arah matahari

grafik atas grafik solar tracking, dan garfik bawah solar statis

rangkaian sensor dan arduino

 
Berikut saya lampirkan coding delphi pada tampilan aplikasi yang saya lampirkan:
Coding Delphi 7:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Chart1: TChart;
    Memo1: TMemo;
    Button1: TButton;
    Timer1: TTimer;
    Series1: TLineSeries;
    Series2: TLineSeries;
    Series3: TLineSeries;
    Memo2: TMemo;
    Memo3: TMemo;
    Timer2: TTimer;
    Timer3: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(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.Button1Click(Sender: TObject);
begin
//Label1.Caption:=memo1.Lines[5];
timer1.Enabled:=true;
timer2.Enabled:=true;
timer3.Enabled:=true;
//Chart1.Series[0].Add(StrToFloat(memo1.Lines[0]),'',clred);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
//i: real;
i,j: integer;
begin
for j:= 0 to 179 do
Chart1.Series[0].Add(StrToFloat(memo1.Lines[j]),'',clred);
//Chart1.Series[1].Add(StrToFloat(memo2.Lines[j]),'',clgreen);
//Chart1.Series[2].Add(StrToFloat(memo3.Lines[j]),'',clyellow);
if j>= 179 then
begin
timer1.Enabled:=False;
end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
var
//i: real;
i,j: integer;
begin
for j:= 0 to 179 do
//Chart1.Series[0].Add(StrToFloat(memo1.Lines[j]),'',clred);
Chart1.Series[1].Add(StrToFloat(memo2.Lines[j]),'',clgreen);
//Chart1.Series[2].Add(StrToFloat(memo3.Lines[j]),'',clyellow);
if j>= 179 then
begin
timer2.Enabled:=False;
end;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
var
//i: real;
i,j: integer;
begin
for j:= 0 to 179 do
//Chart1.Series[0].Add(StrToFloat(memo1.Lines[j]),'',clred);
//Chart1.Series[1].Add(StrToFloat(memo2.Lines[j]),'',clgreen);
Chart1.Series[2].Add(StrToFloat(memo3.Lines[j]),'',clblue);
if j>= 179 then
begin
timer3.Enabled:=False;
end;
end;

end.

****************************************************************************************************************

Postingan ini sempat saya posting di laman Facebook saya dan mendapat berupa pertanyaan menarik dan menurut saya sangat bagus, berikut adalah pertanyaan dan jawaban atas pertanyaan tersebut:
Balasan pertanyaan:
- yg kotak2 putih jejer 3 itu buat apa?
itu memo gan, fungsinya buat nyimpan data hasil pembacaan sensor ke program delphi, jadi ceritanya nilai pembacaan sensor dari arduino saya simpan pada modul SD card, dan kemudian data yg berupa TXT saya copy untuk saya copy paste ke memo yang ada di program delphi sehingga dapat di plot untuk jadi sebuah grafik

- untuk grafiknya yg angka bagian bawah, sebaiknya di ganti jam, dari 5.30 sampe 7.30 biar lansung keliatan jam berapa efektifnya.
sebenarnya kemarin saya mau tapilkan data jam dan intensitas cahaya yang dari data logger, ternyata modul RTC dan sensor cahaya yang saya gunakan tidak berfungsi

- untuk efisiensi dari segi penerimaan daya saat 12V keatas lebih bagus 2 atau 3 jam yang treking sinar matahari,
untuk hasil penerimaan cahaya sebagai berikut tracking = 1122,969 watt vs statis 882,000 watt, terlihat bahwa tracking 1,3 kali lebih baik dibanding statis

- untuk harga alat treking sinar matahari ekonomis gk? apa sebanding dengan 2 atau 3 jam kelebihan efektifnya
untuk skala kecil memang lebih mahal, untuk skala besar misalkan 1000 watt lebih murah gan, dapat menghemat anggaran hingga pembelian solar panel yg hingga 3 x 100Wp untuk produksi daya yg sama, harga pembuatanpun sebenarnya ga sampai harga pembelian 3 buah solar panel 100 Wp yg sampai 1,4juta per panelnya, apalagi jika ditambah teknologi MPPT pasti lebih efisien menurut saya