Asri Kelime Türetmece Jokerli

[Asri]

Merhaba,

Yeğenlerim MyNet de kelime bulma oyunu oynuyorlardı. 8 adet karışık harf verip belli bir sürede kelimeler türetiyorsunuz.
yeterli sayıda türetince seviye geçiyorsunuz. Bu programıda verilen harflere göre kelime türetmesi için hazırladım.

v2.2 : Programa joker karakter seçimi eklendir
v2.0 : Programa sendkey özelliği eklendi. İ harfli kelimeler dışındaki kelimeleri çift tıklayıp MyNet oyununa direkt yazdırabiliryorsunuz.

Edit: Link güncellendi 14.07.2012
http://www.dosya.tc/server18/cv5Ijo/Asr ... e.zip.html

iyi çalışmalar.

[aslangeri]

s.a.
kelimelerin doğru olup olmadığını nasıl kontrol ettin.

[Asri]

s.a.
kelimelerin doğru olup olmadığını nasıl kontrol ettin.

@aslangeri,

referans kelime listesi oluştururken, web sitelerindeki html Türkçe sözlüklerden, hazır text dosyalardan yararlandım.

Cümle halinde olan Türkçe anlamları kelimelere böldürüp listeye ekledim. Bu nedenle bazı anlamsız kelimeler oluştu.

Ancak programın amacı doğrultusunda bu göz ardı edilebilir bir durum.

Denemelerim sonucunda oyunda 27. seviyeye kadar ilerlenebiliyor. Amaç yapabilirmiyim, yaptım olayı : )

Aslında programı daha da geliştirip. Oyun yerine kelime üretme programı olarak yeniden yapılandırabilirim.

iyi çalışmalar.

[aslangeri]

şöyle sorayım o zaman.
referans kelime listesi nerde?
programın içindemi yoksa başka biryerden mi okutuyorsun?

[Asri]

şöyle sorayım o zaman.
referans kelime listesi nerde?
programın içindemi yoksa başka biryerden mi okutuyorsun?

Merhaba,

Programın içindeki invisible bir listbox'ın içinde.

iyi çalışmalar.

[conari]

Selam, Jokeride düşünebilirmisin.

[Asri]

Selam, Jokeride düşünebilirmisin.

Merhaba,

Bir kelime bir işlem dimi : ) , aklıma gelmemişti acıkcası.

Uygun bir zamanda, bu özelliği eklerim.

iyi çalışmalar.

[Asri]

Selam, Jokeride düşünebilirmisin.

Merhaba,

düşündümde 8 harf den sonra girilen her harf joker sayılıyor.
Program, kaç harf girerseniz girin tüm harfleri kullanarak en fazla 8 karakterli kelimeler üretmektedir.

Ek bir kodlamaya gerek yok şu anda.

iyi çalışmalar.

[sabanakman]

6-7 yıl önceki projem geldi aklıma, onu bulursam paylaşayım O da çarkıfelek içindi

[conari]

Selam, Jokeride düşünebilirmisin.

Merhaba,

düşündümde 8 harf den sonra girilen her harf joker sayılıyor.
Program, kaç harf girerseniz girin tüm harfleri kullanarak en fazla 8 karakterli kelimeler üretmektedir.

Ek bir kodlamaya gerek yok şu anda.

iyi çalışmalar.

Selam,
Benim dediğim Jokeri kendi kullanacak Mesela Buzdolabı yazdım. Domuz çıkmadı. M joker onu demek istedim. domuz listede vardır herhalde.

[Asri]

Selam,
Benim dediğim Jokeri kendi kullanacak Mesela Buzdolabı yazdım. Domuz çıkmadı. M joker onu demek istedim. domuz listede vardır herhalde.

Merhaba,

ne demek istediğini anladım. Bu arada domuz listede var

iyi çalışmalar.

[ilker1525]

güzel ve başarılı bir iş olmuş denedim %85-90 başarılı kelimeler türetiyor ancak
bir soru sorayım
yazılan farklı farklı harfleri nasıl bir filitreleme yaparak bir araya getirttirdin
mesela : AYAUNCRI > UYARINCA gibi bir kelime üretiyor veya buluyor ancak bu harfleri nasıl bir araya getiriyor nasıl bir kodlama kullandın bunu öğrenebilirmiyiz bir mahsuru yoksa

ilker1525@hotmail.com

saygılarımla ilker1525

[Asri]

güzel ve başarılı bir iş olmuş denedim %85-90 başarılı kelimeler türetiyor ancak
bir soru sorayım
yazılan farklı farklı harfleri nasıl bir filitreleme yaparak bir araya getirttirdin
mesela : AYAUNCRI > UYARINCA gibi bir kelime üretiyor veya buluyor ancak bu harfleri nasıl bir araya getiriyor nasıl bir kodlama kullandın bunu öğrenebilirmiyiz bir mahsuru yoksa

ilker1525@hotmail.com

saygılarımla ilker1525

Merhaba,

kod aşağıdaki gibidir. Detaylı açıklamasını zaman olur ise yaparım.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
  buyukharf;
  listbox1.Clear;
  bulunanlar.Clear;
  kacharfvar;
  sozluktenbak;
  i:=bulunanlar.items.Count-1;
  for iz:=0 to i do begin
      gec:=bulunanlar.items.Strings[i-iz];
      listbox1.Items.Add(gec);
  end;

end;

Kod: Tümünü seç

procedure kacharfvarislem;
begin
with form1 do
begin
    for kaci:=1 to 31 do
    begin
      harfsayislem[kaci,1]:='';
      harfsayislem[kaci,2]:='';
    end;

    gec:=kelime;
    kacz:=1;
    for kaci:=1 to length(gec) do
    begin
      harfsayharf:=gec[kaci];
      say:=0;
      for kacj:=1 to length(gec) do
      begin
        if harfsayharf=gec[kacj] then inc(say);
      end;

      buldu:=false;
      for kacj:=1 to 31 do
      begin
        if harfsayharf=harfsayislem[kacj,1] then buldu:=true
      end;

      if not buldu then
      begin
        harfsayislem[kacz,1]:=gec[kaci];
        harfsayislem[kacz,2]:=inttostr(say);
        inc(kacz);
      end;

    end;
end;
end;

Kod: Tümünü seç

procedure karsilastir;
var
ilksayi,sonsayi,kaci,kacj,kacz:integer;
ilkharf,sonharf:string;
begin
   if length(kelime)>length(asilkelime) then
   begin
       buldu:=true;
       exit;
   end;

  for kaci:=1 to 31 do
  begin
    sonharf:=harfsayislem[kaci,1];
    if sonharf='' then break;

    buldu:=false;
    for kacj:=1 to 31 do
    begin
       ilkharf:=harfsay[kacj,1];
       if ilkharf='' then break;

        if (ilkharf<>'') and (ilkharf=sonharf) then
        begin
          buldu:=true;
        end;
    end;

    if not buldu then
    begin
       buldu:=true;
       exit;
    end;

  end;

  for kaci:=1 to 31 do
  begin
      buldu:=false;
      ilkharf:=harfsay[kaci,1];
      if ilkharf<>'' then ilksayi:=strtoint(harfsay[kaci,2]);
      for kacj:=1 to 31 do
      begin
        sonharf:=harfsayislem[kacj,1];
        if sonharf<>'' then sonsayi:=strtoint(harfsayislem[kacj,2]);
        if (ilkharf<>'') and (ilkharf=sonharf) and ( sonsayi>ilksayi) then
        begin
           buldu:=true;
           exit;
        end;
      end;
  end;

end;

Kod: Tümünü seç

procedure listeyeekle;
var
iz:integer;
varmi:boolean;

begin
with form1 do begin
   varmi:=false;
   for iz:=0 to bulunanlar.items.Count-1 do begin
       if bulunanlar.items.Strings[iz]=kelime then begin varmi:=true;break;end;
   end;
   if not varmi then
   begin
    bulunanlar.items.Add(inttostr(length(kelime))+'  '+kelime);
   end;
end;
end;

Kod: Tümünü seç

procedure kacharfvar;
begin
with form1 do
begin
    for kaci:=1 to 31 do
    begin
      harfsay[kaci,1]:='';
      harfsay[kaci,2]:='';
    end;

    gec:=ozellistem.text;
    asilkelime:=gec;
    z:=1;
    for i:=1 to length(gec) do
    begin
      harfsayharf:=gec[i];
      say:=0;
      for j:=1 to length(gec) do
      begin
        if harfsayharf=gec[j] then inc(say);
      end;

      buldu:=false;
      for j:=1 to 31 do
      begin
        if harfsayharf=harfsay[j,1] then buldu:=true
      end;

      if not buldu then
      begin
        harfsay[z,1]:=gec[i];
        harfsay[z,2]:=inttostr(say);
        inc(z);
      end;
    end;
end;
end;

Kod: Tümünü seç

procedure sozluktenbak;
var
iz:integer;
varmi:boolean;
begin
with form1 do begin
   varmi:=false;
   for iz:=0 to sozlukliste.items.Count-1 do begin
       kelime:=sozlukliste.items.Strings[iz];
       kacharfvarislem;
       karsilastir;
       if buldu then continue;
       kelimeshow;
       inc(ihtlog);
       listeyeekle;
   end;
end;
end;

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);
begin
 sozlukliste.Clear;
 sozlukliste.Items.LoadFromFile('.\kelimelistesi.txt');
end;

Kod: Tümünü seç

procedure buyukharf;
var
k:string;
h:char;
begin
with form1 do
begin
      gec:=ozellistem.Text;
      gecici:='';
      for i:=1 to length(gec) do begin
          h:=gec[i];
          case h of
              'ı':gecici:=gecici+'I';
              'i':gecici:=gecici+'İ'
              else gecici:=gecici+ansiuppercase(h);
          end;
      end;
        ozellistem.Text:=gecici;
end;
end;

[karflake]

Denemelerim sonucunda oyunda 27. seviyeye kadar ilerlenebiliyor. Amaç yapabilirmiyim, yaptım olayı : )

40. seviyeye kadar da gelinebiliyor. Test edildi, onaylandı.

Elinize sağlık.

[Asri]

Denemelerim sonucunda oyunda 27. seviyeye kadar ilerlenebiliyor. Amaç yapabilirmiyim, yaptım olayı : )

40. seviyeye kadar da gelinebiliyor. Test edildi, onaylandı.

Elinize sağlık.

40 güzel bir seviye. Ben 37 ye kadar gelmiştim : )
"İ" problemini çözebilseydim, programın kendisine oynatırdım. : )
Pc nin canı sıkıldıkça oyunu çalıştırır. Girer oynardı. Rekora da benim adımı yazardı : )