yardım

[mehmet_x]

arkadaşlar sayısal loto programı yapmaya çalışıyorum.ama kolonda aynı sayıları yazdırmaması için bi çözüm bulamadım.daha açıklayıcı olmak gerekirse 6 tane editbox (yanyana) var ve bunların içine rastgele sayı yazdırdım.bu editlerin içindeki sayılar hem sıfırdan farklı hemde birbirinden farklı olmasını istiyorum.örneğin

begin
randomize;
edit1.text:=inttostr(random(49));
edit2.text:=inttostr(random(49));
edit3.text:=inttostr(random(49));
edit4.text:=inttostr(random(49));
edit5.text:=inttostr(random(49));
edit6.text:=inttostr(random(49));
end;



komut satırı bu ama oyna butonuna basınca editlerin içine sıfır da yazıyo aynı sayılarda denk geliyor.

bunları engellemek istiyorum.

yardım ederseniz sevinirim.

[salvation]

bu şekilde kullanabilirsin:

Kod: Tümünü seç

    repeat
      randomize;
      edit1.Text := inttostr(random(48)+1);
      edit2.Text := inttostr(random(48)+1);
      edit3.Text := inttostr(random(48)+1);
      edit4.Text := inttostr(random(48)+1);
      edit5.Text := inttostr(random(48)+1);
      edit6.Text := inttostr(random(48)+1);
    until   (edit1.Text <> edit2.Text) and
            (edit2.Text <> edit3.Text) and
            (edit3.Text <> edit4.Text) and
            (edit4.Text <> edit5.Text) and
            (edit5.Text <> edit6.Text);

[fahrettin]

Oncelikle forumumuza hoş geldiniz... Sizden ricam biraz vakit ayırıp forum kurallarının tamamını okumanızdır.....

Mesajınıza uygun ve konuyu özetleyen kısa bir başlık yazın. Acil, Çok Acil, Önemli gibi ifadeler veya konuyla alakasız bir başlık kullanmayın.

sorunuza gelince salvation'un dedigine ilaveten diger rakamlarla farklı olmayı şu şekilde garanti altına alabilirsiniz....

Kod: Tümünü seç

while (Edit2.Text=Edit1.Text) or (Edit2.Text='0') or (Edit2.Text='') do
edit2.Text := inttostr(random(48)+1); 

Digerlerini de benzer mantıkta onceki değerleden farklı olmaya zorlayacak bir kodu yazabilirsiniz....

[mege]

ah ah aramaya inanmak lazım arkadaşlar
admin kızıcak sonra hüsonet yapmış ne güzel daha önce
Sayısal Loto (Ama Oynamayın Sakın)