Pemograman Delphi 7 Part 10

Gambar ini adalah hasil dari tutorial dibawah ini

Tulisan kali ini saya akan membahas tentang angka RANDOM atau angka ACAK nah... oleh karena itu component yang dibutuhkan nya adalah LISBOX dan BUTTON .. silakan kawan design formnya seperti yang dibawah ini :

setelah selesai design nya kawan klik 2 kali pada BUTTON tersebut dan ketik koding nya dibawah ini :

procedure TForm1.Button1Click(Sender: TObject);
const
  angka='12345678910';
var
   i, x: integer;
  s1,s2: string;
begin
      s1 := angka;
  for i := 0 to 10 do
  begin
    x := Random(Length(s1));
    x := Length(s1) - x;
    s2 := s2 + s1[x];
    s1 := Copy(s1, 1,x - 1) + Copy(s1, x + 1,Length(s1));
  end;
  ListBox1.Items.Add(s2);
end;

kalo udah di ketik silakan pencet F9 untuk melihat hasilnya .. :D

Create : Abednego,S.T