Arsip: kode generator..tanya.?

 
user image
more 12 years ago

dm.adoconnx

kaka delphier yang canggih2, ikut nimbrung ya. 1. saya meng-generate kode spt ini, utk mendapatkan nomor yang unik,. :

procedure TFinbrg.bitbtn_newClick(Sender: TObject);
var
      a : string;
     c,d : integer;
begin
     
       a := FormatDateTime('hhmmss',now);
       c := RandomRange(1,100);
       d := StrToInt(a) + c;
       dbekd_brg.Text := IntToStr(d);
  
end;
yg jadi pertanyaan saya, apakah hasil dari kode tersebut bisa sama,?.. 2. Tanya lagi, masalah ADO, saya bingung kapan saat nya saya menggunakan adotable, adoquery, atau adocommand, (maksud saya..misal dengan adotable pun kita bisa melakukan insert,update,dll).binggung..maaf.kalo basi..sy lebih suka bertanya pada kaka2 dari pada mesin (google) :)..
user image
more 12 years ago

saysansay

wah selamat bergabung @dm.adonconx setelah saya coba dgn looping untuk generete, ternyata peluang untuk menghasilkan nilai sama sangat besar 75%, Coba lihat grafik hasil experiment menggunakan koding anda Coba lihat gambarnya di link ini http://xs.to/xs.php?h=xs234&d=08491&f=grafik995.jpg

procedure TForm1.Button1Click(Sender: TObject);
var
  a : string;
  c,d : integer;
begin
       a := FormatDateTime('hhmmss',now);
       c := RandomRange(1,100);
       d := StrToInt(a) + c;
       Memo1.Lines.Add (IntToStr(d));
end;
procedure TForm1.Button2Click(Sender: TObject);
var
  i :Integer;
begin
 for i:=0 to 1000 do
 begin
    Application.ProcessMessages;
    Button1.Click;
 end;
end;
Ayo semangat lagi experimentnya. OOT: @Mas ulil Delphi Image uploadnya diaktifin dunkz....
user image
more 12 years ago

deLogic

@saysansay: jelas sekali peluang menghasilkan nilai yang sama akan sangat besar, karena range untuk angka acaknya adalah 100 (1 hingga 100), sementara kejadian yang dilakukan adalah 1000 kali (1 hingga 1000), jadi sekitar 10 kali-nya. Sementara lama proses untuk menghasilkan satu angka unik sangat singkat. Alternatif solusi - memperlebar 'a' dengan menambahkan mili-detik - memperlebar range angka acak - mengurangi kejadian :D
user image
more 12 years ago

dm.adoconnx

thanks kaka,@saysansay @de. kalo misalnya, yg diambil juga termasuk dmy (day month years)?..spt : formatdatetime('ddmmyyss',now); asumsinya kalo jam menit detik kemungkinan sama, tapi kalo beda hari,bulan tahun?..cuman ini maunya dibatasin gak lebih dari 7digit angka, trus yg dimaksud mengurangi kejadian?.
user image
more 12 years ago

deLogic

mengurangi kejadian dalam konteks post saya ya artinya mengurangi perintah menghasilkan nilai acak, yang dalam kasus adalah 1000 kali, jadi dikurangi misalnya menjadi 50 kali. Point tersebut jangan di buat serius karena pastinya kecil kemungkinan kan mengurangi kejadian dalam implementasi aplikasi sehari2... makanya dibaris tersebut saya tambahkan emoticon tertawa.
user image
more 12 years ago

saysansay

@dm.adoconnx daku mah bagian ngetest doank :D, coba dikau search di forum dengan kata " auto number". coba dikau ikutin saran @DL. tetap semangat
user image
more 12 years ago

dm.adoconnx

sip..siap dilaksanakan..langsung ke tkp dolo.. :)
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com