Antarmuka Sensor DHT11 dengan Delphi (Bagian 1)

Pada postinga sebelumnya saya sudah membahas tentang bagaimana cara menggunakan Sensor Suhu dan Kelembaban dengan DHT11. Sebelum kalian melanjutkan aksi pada postingan ini pastikan kalian sudah mencoba melakukan aksi yang ada pada postingan saya sebelumnya yang bisa kalian buka dengan mengklik tulisan biru diatas. Mengikuti aksi pada postingan sebelumnya akan mengurangi tingkat kegagalan pada aksi dipostingan ini karena dasarnya yang saya gunakan ada pada postingan tersebut jadi pastikan kalian mengerti dahulu ya.

Dalam aksi trial and error kita menggunakan fitur Serial Monitor yang ada pada Arduino IDE untuk melihat hasil outputan apakah sudah sesuai dengan yang kita mau atau tidak sesuai. Jika hasil outputan sudah sesuai namun apakah pantas menyajikan sebuah hasil karya hanya dengan tampilan Serial Monitor?? Tentu tidak, maka dari itu tujuan dari postingan saya saat ini membuat sebuah tampilan yang layak untuk disajikan ke dalam presentasi yang sering kita sebut dengan Antarmuka atau bagi yang sudah kenal sejak lama dengan IT atau sejenisnya sering disebut juga dengan Interface.

Fungsi umum dari sebuah software Antarmuka atau Interface sendiri yaitu menghubungkan pengguna dengan Hardware yang digunakan. Sederhananya asumsikan pengguna itu Manusia, hardware itu PC, dan antarmuka adalah Sistem Operasi (Misalnya saja Windows). Fungsi utama Windows yaitu menjembatani antara Manusia dengan PC untuk terjadinya komunikasi antara mereka dengan semudah mungkin. Mungkin begitu sederhananya semoga kalian paham terlebih dahulu.

Nah kali ini kita akan membuat sebuah aplikasi Windows menggunakan software builder bernama Delphi XE8. Aplikasi yang akan kita buat nantinya akan menyajikan hasil pembacaan sensor oleh arduino yaitu data Suhu dan Kelembaban sehingga pantas dan menarik untuk kita presentasikan kepada orang lain. Mari kita mulai.

Persiapkan komponen-komponen yang diperlukan di dalam Delphi sesuai dengan tabel berikut.

Catatan : Komponen ComPort1 tidak akan kalian temui di dalam program Delphi. Komponen ini harus diinstall manual. Petunjuk untuk memasang komponen ComPort akan saya posting dikesempatan berikutnya atau kalian juga bisa mencari tutorial di Google Search dengan keyword Cara Install comport pada Delphi 7 atau X8 (sesuaikan dengan versi Delphi yang sedang kamu gunakan) 

kemudian atur tata letak masing-masing komponen seperti pada gambar berikut.

double-click pada komponen Button1 (CONNECT) maka tampilan akan berubah pada halaman script program. Isi bagian diantara begin dan end; dengan script program berikut ini
Label3.Caption:='0'; Label4.Caption:='0'; stat:=stat+1; if stat>1 then stat:=0; if stat=1 then begin comport1.Open; Button1.Caption:='DISCONNECT'; end; if stat=0 then begin comport1.Close; Button1.Caption:='CONNECT'; end;
deklarasikan variabel stat sebagai variabel global dengan cara masukkan script berikut dibawah script Form1: TForm1; diatas
stat: Integer;
kemudian carilah baris dengan script {$R *.dfm} dan masukkan script dibawah ini pada setelah {$R *.dfm}
function Parsing(Char, Str: string; Count: Integer): string; var i: Integer; strResult: string; begin if Str[Length(Str)] <> Char then Str := Str + Char; for i := 1 to Count do begin strResult := Copy(Str, 0, Pos(Char, Str) - 1); Str := Copy(Str, Pos(Char, Str) + 1, Length(Str)); end; Result := strResult; end;
Catatan : Script diatas adalah script parsing yang digunakan untuk memecah sebuah data tunggal menjadi data yang lebih spesifik. Program parsing akan kita bahas dilain kesempatan.

kembali ke tampilan program dengan menekan tombol F12. Pada kolom Structure pilih Form1 kemudian pada Object Inspector pilih tab Events. Carilah bari OnCreate lalu double-click pada bagian kosong sebelah kanan OnCreate akan muncul kembali tampilan script program isikan script berikut pada bagian antara begin dan end; 
stat:=0; ShellExecute(Handle, 'open', PChar('regsvr32.exe'), PChar('/s VCF132.OCX'), nil, SW_HIDE);
dan hal yang sama juga pada OnClose masukan script berikut pada bagian antara begin dan end; sss
comport1.Close;
Kemudian kembali ke tampilan program dengan menekan F12. Pilih komponen Setting1 (Setting) dan double-click OnClick pada tab Events di Object Inspector dan masukkan script berikut
comport1.ShowSetupDialog;
dan pada komponen Exit1 (Exit) dengan script berikut
comport1.Close;
setelah itu pilih komponen comport1 dan pergi ke tab Events kemudian double-click pada OnRxChar dan ganti begin dan end; dengan script berikut
var datamasuk, temp, humi: String; begin comport1.ReadStr(datamasuk,count); temp:= Parsing('#',datamasuk,1); humi:= Parsing('#',datamasuk,2); Label3.Caption:=temp+' *C'+ #13#10; Label4.Caption:=humi+' %'; end;
kemudian jalankan program dengan menekan tombol CTRL+SHIFT+F9 maka program akan berjalan dan menampilkan tampilan yang sama persis dengan apa yang kalian buat tadi.

Bagi kalian yang masih bingung apakah benar atau salah script yang kalian tulis silahkan samakan saja dengan script saya yang bisa kalian unduh bawah ini.

DHT11 Inteface Delphi

Disini kita sudah mempunyai software antarmuka DHT11. Penjelasan mekanisme dan alur jalannya program akan kita bahas pada Antarmuka Sensor DHT11 dengan Delphi (Bagian 2)

Selamat belajar. Have a nice day :)


Referensi :
Program Parsing : Dosen TE UM (Pak Arya Kusuma Wardana)







Kata Kunci :
GeScript.com GeScripter.blogspot.com Sensor Suhu dan Kelembaban Library Sensor Suhu Cara menggunakan sensor DHT11 dengan Arduino Contoh program DHT11 atau Sensor DHT pada Arduino IDE Menampilkan suhu pada Serial monitor Datasheet sensor DHT11 DHT Spesifikasi Sensor DHT11 Contoh Sketch penggunakan DHT11 pada Arduino Sensor DHT11 Teknik Antarmuka delphi Menghubungkan Arduino dengan Delphi Menggunakan Comport pada Delphi

Keyword :

Temperature and Humidity Sensors Temperature Sensor Library How to use the DHT11 sensor with Arduino Examples of DHT11 programs or DHT Sensors on Arduino IDE Display the temperature on the serial monitor Datasheet of DHT11 DHT sensor DHT11 Sensor Specifications Example Sketch using DHT11 on Arduino DHT11 sensor Delphi Interface Technique Connect Arduino with Delphi Using Comport on Delphi