Tutorial Delphi7 : Membuat Program Simulasi Kirim data Melalui Port serial

Tutorial Delphi7 :  Membuat Simulasi  Program Kirim data Melalui  Port serial

program yang akan kita buat adalah program untuk mensimulasikan pengiriman data melalui jalur port, kita akan menggunakan sebuah Virtual comPort sebagai portnya dan Delphi untuk membuat aplikasinya, aplikasi yang kita buat mensimulasikan pengiriman data berupa karakter atau teks, dan akan diterima dan ditampilkan kembali, berikut cara pembuatan programnya..

Alat dan Bahan

- Delphi7
- ComPort ( Anda bisa tanya prof gugel cara installnya)
- VSPE ( Anda bisa tanya prof gugel link downloanya)
- Niat ingin Belajar

Cara Pengerjaan

1.  Buat Project Baru pada Delphi 7, lalu atur layout sebagai berikut pada Form1:



- Button1
- Button2
- Button3
- Button4
- Memo1
- ComPort1

2. Buat Form Baru, Kemudian Atur layout sebagai Berikut Pada Form 2:



- Button1
- Button2
- Button3
- Memo1
- ComPort1

3. Sekarang Kita Program pada Form1,Form2 :


- Button1 : Setting Port 

Codenya : 

ComPort1.ShowSetupDialog;

- Button2 : Sambungkan

Codenya :

if(Button2.Caption='Sambungkan') then
begin
Form2.Show;
ComPort1.Open;
Button2.Caption:='Tutup';
end
else if(Button2.Caption='Tutup' ) then
begin
ComPort1.Close;
Button2.Caption:='Sambungkan';
end
else begin
ComPort1.Open;
Button2.Caption:='Tutup';
end


- Button3 : Kirim

Codenya:

dataserial:=Memo1.Text;
ComPort1.WriteStr(dataserial);

- Button4 : Keluar

Codenya:

Application.Terminate;

Dan Khusus pada Form1/unit1 Tambahkan uses Unit2 dibawah implementation seperti berikut,



4. Buat Variable Baru Pada Unit1 dan Unit2:

Pada Unit1:

 dataserial: String;

pada Unit2:

 dataserial2: String;

Lihat penempatan kodenya pada gambar..



5. Pada Form2, Kita Klik ComPortnya, Kemudian  diobject Inspectornya Kita setting :

- Pada Object Inspector ComPort Kita pilih Events kemudian pada OnRxChar kita tambahkan ComPort1OnRxChar  .




- Terlihat pada unit2 muncul ruang buat kita koding untuk OnRxChar lalu masukan kode berikut:

Memo1.Text:=dataserial2;

ComPort1.ReadStr(dataserial2,Count);

6. Setelah Selesai Sekarang kita aplikasi VSPE, buat virtual port baru:

- Klik Device
- Pilih Create
- Klik next lalu pilih Portnya terserah
- Finish

7. Kemudian Kita Jalankan program yang telah kita buat tadi. Pilih port sesuai settingan di VSPE.Selesai..




Terima Kasih,
Sistem Komputer Unsri, 2017

Comments