Tutorial Menggunakan Stringgrid Delphi

Stringgrid | Input Data | Tutorial Delphi | Stringgrid adalah salah satu komponen dari Delphi yang mampu menyajikan data dalam bentuk baris dan kolom. Dalam penyajian data tersebut, diperlukan beberapa properti untuk mengakses stringgrid. Posting kali ini ada sedikit contoh tentang cara input data atau penggunaan stringgrid sederhana. Gambarannya, data yang adakan dimasukkan stringgrid diketi dalam TEdit, kemudian diinputkan. Beberapa komponen yang digunakan adalah Stringgrid, TEdit, Button, dan Label. Properti stringgrid yang digunakan adalah :

            ColCount       : Untuk menentukan jumlah kolom dalam stringgrid.

            RowCount     : Untuk menentukan jumlah baris dalam stringgrid.

            ColWidhts    : Untuk menentukan lebar kolom dalam stringgrid.

         Cells                : Untuk menyatakan konten pada alamat [kolom,baris]. Data berupa string dalam alamat tersebut.          

Langsung saja ya kita belajar bareng di langkah-langkahnya :

1.    Membuat form dengan komponen stringgrid, button, TEdit, dan label.

  

2.    Membuat variabel global.
                        var
                          Form1: TForm1;
                          y : integer;

3.    Membuat prosedure FormOnCreate.
                        procedure TForm1.FormCreate(Sender: TObject);
                        begin
                                stringgrid1.RowCount := 12;
                                stringgrid1.ColCount := 2;
                                stringgrid1.Cells[0,0] := 'No.';
                                stringgrid1.Cells[1,0] := 'Text';
                                stringgrid1.ColWidths[1] := 175;
                                stringgrid1.ColWidths[0] := 50;
                                y := 0;
                        end;

4.    Membuat prosedure Button1OnClick.
                        procedure TForm1.Button1Click(Sender: TObject);
                        begin
                                inc(y);
                                stringgrid1.Cells[1,y] := edit1.Text;
                                stringgrid1.Cells[0,y] := inttostr (y);
                        end;

5.    Running aplikasi dan memasukkan data pada stringgrid. Caranya ketik teks di TEdit  Klik Button.

Yaaa…itu hanya sedikit sharing pengalaman, heeeee…Cuma sederhana saja,,,maap yaa…

Salam damai, senajan kenthir nanging kebak pikir
Semoga bermanfaat….

Read More

Tutorial Terima Data Serial – Plot Chart Delphi

 

Serial | Chart | Tutorial Delphi | Beberapa bidang aplikasi instrumentasi ada yang memerlukan pemanfaatan komunikasi serial antara hardware dan software. Sebagai contoh untuk monitoring pengukuran ataupun pengendalian sistem. Dalam aplikasinya, data yang diterima komputer terkadang perlu di plot dalam Chart. Sistem yang demikian adalah penggabungan dari teknik komunikasi data serial dan plot data di chart Delphi yang telah diposting dulu.

Posting kali ini sharing tentang contoh sederhana sistem tersebut. Ceritanya adalah mikrokontroler menerima input tegangan di jalur ADC, kemudian data integer hasil konversi dikirim serial RS232 ke komputer. Data tersebut diolah dalam Delphi 7 yang kemudian disajikan dalam Chart Delphi 7. Komponen yang digunakan adalah Comport, Timer, Chart, Button, Edit, dan Label. Langsung saja ya, ki pelajari bareng langkah-langkangnya.

1.    Membuat Form dengan komponen Comport, Timer, Chart, Button, Edit, dan Label menjadi seperti ini.

 

2.    Mendefinisikan variabel global.
                    var
                          Form1: TForm1;
                          x : integer;

3.    Membuat prosedure Button1OnClick.
                    procedure TForm1.Button1Click(Sender: TObject);
                    begin
                            x := 0;
                            series1.Clear;
                           timer1.Interval := 500;
                            timer1.Enabled := true;
                            comport1.Open;
                    end;

4.    Membuat prosedure Button2OnClick.
                    procedure TForm1.Button2Click(Sender: TObject);
                    begin
                            comport1.ShowSetupDialog;
                    end;

5.    Membuat prosedure Button3OnClick.
                    procedure TForm1.Button3Click(Sender: TObject);
                    begin
                            timer1.Enabled := false;
                            comport1.Close;
                    end;

6.    Membuat prosedure Timer1OnTimer.
                    procedure TForm1.Timer1Timer(Sender: TObject);
                    var
                            str : string;
                            count : byte;
                            tegangan : real;
                    begin
                            comport1.ReadStr(str,count);
                            tegangan := strtofloat(str) * 5 / 1000;
                            x := x+1;
   
                            edit1.Text := floattostr (tegangan);

                          with chart1 do
                                  with series1 do
                                        addxy(x,tegangan);
                    end; 

7.    Running aplikasi, kemudian klik tombol “start”, berikut ini hasilnya.
 

Yaaa…itu hanya sedikit sharing pengalaman, heeeee…Cuma sederhana saja,,,maap yaa…

Salam damai, senajan kenthir nanging kebak pikir
Semoga bermanfaat….

Read More