Rabu, 2018-02-21, 2:14 PM
Coretan And-U
         Menyenangkan saat berbagi pengalaman
Welcome Guest | RSS
Site menu
Login form
Kategori CoretanKu
Pemrograman Delphi [6]
Database [1]
HP [0]
Elektro [2]
Puisi Ku [5]
Digital Imaging [0]
Kategori Download
Free File Aplikasi [5]
Free Project Downloads [5]
DOTA MAP Downloads [2]
Gratis tentunya
Kalender
Site friends
  • Bikin Web di uCoz
  • piere.dikti.net
  • piere-blog.blogspot.com
  • Main » Articles » Pemrograman Delphi

    Pengulangan menggunakan "for" untuk tabel perkalian atau pertambahan
    Pengulangan menggunakan "for" untuk tabel perkalian atau pertambahan


    pengulangan "for" pada borland delphi biasa digunakan untuk mengulangi langkah2 yang kita inginkan..
    contoh penggunaannya pada aplikasi tabel perkalian dan pertambahan berikut :



    Let's Begin.. :D

    >> Langkah Pertama siapkan beberapa pernak pernik sebagai berikut :
    1. Satu buah form / Tform
    2. Satu buah stringgrid / TStringGrid
    3. Dua buah tombol / TButton.

    >> Langkah Kedua susun pernakpernik tersebut setidaknya seperti contoh diatas!, lalu set manual beberapa pernak pernik sebagai berikut :
    1. Form1 > Caption = Tabel Perkalian dan Pengurangan..
    2. StringGrid1 > DefaultColWidth = 24
    3. StringGrid1 > DefaultRowHeight = 24
    4. StringGrid1 > ColCount = 10
    5. StringGrid1 > RowCount = 10
    6. Button1 > Caption = Pertambahan
    7. Button2 > Caption = Perkalian

    >> Langkah ketiga pada event form1 saat form muncul / formshow terapkan code sbb:

    // - Saat Form Muncul -
    procedure TForm1.FormShow(Sender: TObject);
    var
    x,y:integer;
    begin
    stringgrid1.Cells[0,0] :='0';
    for
    x := 1 to 10 do begin
    stringgrid1.Cells[x,0] := inttostr(x);
    end;
    for
    y := 1 to 10 do begin
    stringgrid1.Cells[0,y] := inttostr(y);
    end;
    end;


    >> Langkah Keempat mengaktifkan tombol pertama, tombol penjumlahan, sbb:

    // - Saat Tombol pertama(button1) diklik -
    procedure TForm1.Button1Click(Sender: TObject);
    var
    x,y:integer;
    begin
    stringgrid1.Cells[0,0] :='+';
    for
    x := 1 to 10 do
    for
    y := 1 to 10 do
    stringgrid1.Cells[x,y] := inttostr(x+y);
    end;


    >> Langkah Terakhir mengaktifkan tombol Kedua, tombol perkalian, sbb:

    // - Saat Tombol Kedua(button2) diklik -
    procedure TForm1.Button2Click(Sender: TObject);
    var
    x,y:integer;
    begin
    stringgrid1.Cells[0,0] :='x';
    for
    x := 1 to 10 do
    for
    y := 1 to 10 do
    stringgrid1.Cells[x,y] := inttostr(x*y);
    end;


    Selesai sudah.. simpan dan jalankan.. :D :D :D

    klik disini untuk download project diatas! (free)


    Category: Pemrograman Delphi | Added by: ArtrashBoy (2010-01-06)
    Views: 28381 | Rating: 0.0/0 |
    Total comments: 0
    Only registered users can add comments.
    [ Registration | Login ]
    Pencarian
    Corentan Entry
    Smiley Face (8823)
    Pengulangan menggunakan "for" untuk tabel perkalian atau pertambahan (28380)
    Show or Hide Icon Desktop (11622)
    Menampilkan Nama, Bentuk dan Jumlah Font Text yg terinstal (9874)
    Contoh Rectangle, Style, Color (9033)
    Sekilas tentang OP AMP (9994)
    Tulisan Tanpa Makna "Malam PanjangKu" (10640)
    Tulisan Tanpa Makna "Me Vs Me" (8188)
    Tulisan Tanpa Makna "Forbiden Kingdom" (8856)
    Setetes pengertian Teknik Kendali (12991)
    Pengertian Database ato Basis Data (Dasar) (10039)
    Log off, shut down, restart ato reboot Pake delphi?? Bisa ko.. (8967)
    Mengolah TmediaPlayer delphi menjadi musik ato video player sederhana (63967)
    Statistics

    Total online: 1
    Guests: 1
    Users: 0
    Bookmark and Share
    Copyright © 2018, And-U Site
    Powered by uCoz