antarmuka Delphi ‘Digital Thermometer’

by Unknown , at 07.25 , has 0 komentar

Aplikasi sederhana yang akan kita buat, sebenarnya termasuk aplikasi dasar serial komunikasi. Tetapi saya kira tetap bermanfaat untuk teman – teman yang baru belajar serial komunikasi komputer dengan mikrokontroler. Arduino UNO, mikrokontroler yang akan kita coba sebagai pengirim data serial. Hasilnya diterima komputer dan ditampilkan di monitor.
Kita pilih saja aplikasi yang pernah saya posting pada kategori Arduino, Bikin Digital Thermometer dengan Arduino, bagi yang belum pernah membaca silahkan buka dulu. Sedikit modifikasi saja, program Arduino akhirnya menjadi seperti ini :

Setelah Upload ke Arduino dan dipasang sensor LM35 selanjutnya kita siapkan program di komputer, buka Delphi 7. Siapkan 3 buah Label, 3 buah Button, 1 Edit dan 1 Comport. Atur propertiesnya seperti berikut :

Klik 2 kali pada button Setup, tulis Kode programnya :
comport1.ShowSetupDialog;
Klik 2 kali pada button Start, ini programnya :
if Button1.Caption=’Start’ then
    begin
      button1.Caption:=’Stop’;
      comport1.Connected:=True;
    end
else
   begin
      button1.Caption:=’Start’;
      comport1.Connected:=False;
    end;
Selanjutnya pada button Close :
if Comport1.Connected then comport1.Connected:=False;
application.Terminate;
Kemudian pada Comport1 buat procedur :
procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
Str: String;
cek:string;
begin
ComPort1.ReadStr(Str, Count);
if Str<>’#’ then
    serin:=serin+str
else
    begin
      Edit1.Text:=serin;
      serin:=”;
    end;
end;
Jangan lupa bikin variabel serin dengan tipe string pada global variabel.
serin: string;
Nah, selanjutnya tinggal Run. Trus Setup, pilih nomor com, setelah itu baru Start, maka akan terlihat hasilnya seperti ini :