Berkant bey ne diyeceğimi bilemiyorum. Ben 3 hatfadır bunu nasıl yaparım diye düşünüyordum. Hiçbiryerde ipucu dahi bulamamıştım. Burayı keşfedene kadar ne çok zaman kaybetmişim ona yanarım. ÇOK teşekkür ederim. Ben zaten max 5 karakterde sabit tutacağım için (120 kayıt yani) süper çalışacak. Tekrar teşekkürler.

Değerli hocam kelime içinde bir harften birden fazla olması durumunda aynı kelimeyi fazladan oluşturabiliyor.. Mesela ben KEKİK kelimesinden yeni kelimeler türettiğimde 120 kayıt verdi ama bunların sadece 20 tanesi benzersiz.. Sadece benzersizleri listemek için ne yapmak lazım? Olmasa bile bu halide yeter. tekrar teşekkürler.

Merhaba..

Berkant tebrik ederim.. Zor bir soruyu küçük ama mükemmel bir fonksiyonla çözmüşsün..

(14-09-2009, 15:16)Purki demiş ki: Değerli hocam kelime içinde bir harften birden fazla olması durumunda aynı kelimeyi fazladan oluşturabiliyor.. Mesela ben KEKİK kelimesinden yeni kelimeler türettiğimde 120 kayıt verdi ama bunların sadece 20 tanesi benzersiz.. Sadece benzersizleri listemek için ne yapmak lazım? Olmasa bile bu halide yeter. tekrar teşekkürler.

Bu güzel fonksiyonun altına ekleyeceğiniz basit bir sorgu ile bunu yapabilirsiniz..

Çocuklarım için, basit bir İngilizce öğrenme programı yapıyorum. Bana komut düğmesine basıldığında "metindeki harflerin yerlerini değiştirecek " kod lazım. Sayfamızda sadece burada anlatılanları buldum. ne yazık ki geliştiremedim. Ancak, internette C dilinde bir kod buldum. bunu access uyarlamasını isteyecektim. kod aşağıda; yardımlarınız için teşekkürler. Allah, bu siteyi korusun. İnsanın elinin altında olması çok güzel.

private void button1_Click(object sender, EventArgs e)
{
string metin = textBox1.Text;
string yeni = "";
Random r = new Random();
int randomIndex = 0;
int uzunluk = metin.Length;
for (int i = uzunluk; i > 0; i--)
{
randomIndex = r.Next(0, uzunluk);
yeni += metin[randomIndex];
metin = metin.Remove(randomIndex, 1);
uzunluk = metin.Length;
}
label1.Text = yeni;
}

  dosyam.rar (Boyut: 25,93 KB / İndirilme: 58) Sn Berkant Öztürk ornegi ile sizin kodunuzun buton tiklama ile test formu.

aşağıdaki gibi değişiklik yaptım. işimi gördü. teşekkürler.

Function karistir()
Dim bb, x, yeni As String
Dim j, k, i As Integer
x = [Forms]![kelime_yazmaca_frm]![kelime]
j = Len(x)
For i = 1 To j
k = Int((j * Rnd()) + 1)
bb = Mid(x, k, 1) + Left(x, k - 1) + Right(x, j - k)
x = bb
Next
[Forms]![kelime_yazmaca_frm]![Metin211] = bb
End Function