Clomosy | Forum : Bile�en bulunamad� hatas�

Bile�en bulunamad� hatas� : Çünkü her yeni kelime dekelimeProLabel...

Fri, 16 Aug 2024 11:26:55 +0000

Yazar: cagataycantay
Konu: 877
G�nderim Zaman�: 16 A�ustos 2024 Saat 11:26

��nk� her yeni kelime de kelimeProLabel bile�enini yeniden olu�turuyor, bir if blo�u ekleyerek ilk kelime de olu�turup di�er kelimeler i�in index art�nca sadece text i�eri�ini de�i�tirerek bu hatay� ��zebiliriz. Fonksiyonun d�zeltilmi� hali:

-------------------------------------------------------------------------------------------

function harfleriKaristir(List:TclStringList);

var

i,j, k, RandomIndex: Integer;

harfListesi, alfabe, randomHarfler: TclStringList;

TempChar: String;

{

alfabe = Clomosy.StringListNew;

alfabe.Add('a');

alfabe.Add('b');

alfabe.Add('c');

alfabe.Add('d');

alfabe.Add('e');

alfabe.Add('f');

alfabe.Add('g');

alfabe.Add('h');

alfabe.Add('i');

alfabe.Add('j');

alfabe.Add('k');

alfabe.Add('l');

alfabe.Add('m');

alfabe.Add('o');

alfabe.Add('p');

alfabe.Add('q');

alfabe.Add('r');

alfabe.Add('s');

alfabe.Add('t');

alfabe.Add('u');

alfabe.Add('v');

alfabe.Add('w');

alfabe.Add('x');

alfabe.Add('y');

alfabe.Add('z');

if (kelimeIndex < List.Count)

{

orijinalKelime = List[kelimeIndex];

harfListesi = Clomosy.StringListNew;

harfListesi.Capacity = Length(List[kelimeIndex]) + 3;

for j = 1 to Length(orijinalKelime)

{

harfListesi.Add(Copy(orijinalKelime, j, 1));

}

// Rasgele 3 harf ekleme

randomHarfler = Clomosy.StringListNew;

for j = 1 to 3

{

RandomIndex = Round(Random(alfabe.Count - 1));

randomHarfler.Add(alfabe[RandomIndex]);

}

for j = 0 to randomHarfler.Count - 1

{

harfListesi.Add(randomHarfler[j]);

}

// Kar��t�rma

for k = 0 to harfListesi.Count - 1

{

RandomIndex = Round(Random(harfListesi.Count - 1));

TempChar = harfListesi[k];

harfListesi[k] = harfListesi[RandomIndex];

harfListesi[RandomIndex] = TempChar;

}

// Kar��k kelimeyi olu�tur

karisikKelime = '';

for k = 0 to harfListesi.Count - 1

{

karisikKelime = karisikKelime + harfListesi[k];

}

if(kelimeIndex == 0)

{

kelimeProLabel = oyunForm.AddNewProLabel(oyunForm, 'kelimeProLabel', karisikKelime);

clComponent.SetupComponent(kelimeProLabel, '{ "Align": "Center", "MarginBottom": 350, "Width": 340, "Height": 60, "TextSize": 25, "TextHorizontalAlign": "Center", "TextVerticalAlign": "Center", "TextBold": "Yes", "BackgroundColor": "#fefbec", "RoundHeight": 8, "RoundWidth": 8, "BorderColor": "#94ae89", "BorderWidth": 2 }');

kelimeProLabel.Text = karisikKelime;

}

else

kelimeProLabel.Text = karisikKelime;

}

Bile�en bulunamad� hatas� : Merhaba.Kodu bu şekilde düzenlediğimde...

Fri, 16 Aug 2024 10:59:45 +0000

Yazar: NadireNurSaglam
Konu: 877
G�nderim Zaman�: 16 A�ustos 2024 Saat 10:59

Merhaba.

Kodu bu �ekilde d�zenledi�imde ise formun ilk a��l��nda s�k�nt� olmuyor ama form 2. defa a��ld��nda yani listedeki bir sonraki kelimeye ge�ip form yenilendi�inde

kelimeProLabel = oyunForm.AddNewProLabel(oyunForm, 'kelimeProLabel', karisikKelime);

yukar�daki sat�rda a�a��daki hatay� al�yorum:

RUNT�ME ERROR

A component named kelimeProLabeI already exists when

evaluating instruction CallProc

Stack content is:

[Integer:331807424,Integer:O,UnicodeString:cat,O.,.].

Source position: 94,88

Position: 94, 88.

Bile�en bulunamad� hatas� : Merhaba Nadire Nur,kelimeProLabel...

Fri, 16 Aug 2024 10:18:41 +0000

Yazar: cagataycantay
Konu: 877
G�nderim Zaman�: 16 A�ustos 2024 Saat 10:18

Merhaba Nadire Nur,

kelimeProLabel bile�enini t�retmeden kullanmaya �al��t��n i�in bu hatay� al�yorsun. Kodunun d�zeltilmi� hali a�a��daki gibidir. harfleriKaristir Fonksiyonunu a�a��daki gibi g�ncelleyebilirsin.

-------------------------------------------------------------------------------------------------

function harfleriKaristir(List:TclStringList);

var

i,j, k, RandomIndex: Integer;

harfListesi, alfabe, randomHarfler: TclStringList;

TempChar: String;

{

alfabe = Clomosy.StringListNew;

alfabe.Add('a');

alfabe.Add('b');

alfabe.Add('c');

alfabe.Add('d');

alfabe.Add('e');

alfabe.Add('f');

alfabe.Add('g');

alfabe.Add('h');

alfabe.Add('i');

alfabe.Add('j');

alfabe.Add('k');

alfabe.Add('l');

alfabe.Add('m');

alfabe.Add('o');

alfabe.Add('p');

alfabe.Add('q');

alfabe.Add('r');

alfabe.Add('s');

alfabe.Add('t');

alfabe.Add('u');

alfabe.Add('v');

alfabe.Add('w');

alfabe.Add('x');

alfabe.Add('y');

alfabe.Add('z');

if (kelimeIndex < List.Count)

{

orijinalKelime = List[kelimeIndex];

harfListesi = Clomosy.StringListNew;

harfListesi.Capacity = Length(List[kelimeIndex]) + 3;

for j = 1 to Length(orijinalKelime)

{

harfListesi.Add(Copy(orijinalKelime, j, 1));

}

// Rasgele 3 harf ekleme

randomHarfler = Clomosy.StringListNew;

for j = 1 to 3

{

RandomIndex = Round(Random(alfabe.Count - 1));

randomHarfler.Add(alfabe[RandomIndex]);

}

for j = 0 to randomHarfler.Count - 1

{

harfListesi.Add(randomHarfler[j]);

}

// Kar��t�rma

for k = 0 to harfListesi.Count - 1

{

RandomIndex = Round(Random(harfListesi.Count - 1));

TempChar = harfListesi[k];

harfListesi[k] = harfListesi[RandomIndex];

harfListesi[RandomIndex] = TempChar;

}

// Kar��k kelimeyi olu�tur

karisikKelime = '';

for k = 0 to harfListesi.Count - 1

{

karisikKelime = karisikKelime + harfListesi[k];

}

kelimeProLabel = oyunForm.AddNewProLabel(oyunForm, 'kelimeProLabel', karisikKelime);

kelimeProLabel.Text = karisikKelime;

}

Bile�en bulunamad� hatas� : Merhaba. oyunForm sayfam ilk açıldığında...

Thu, 15 Aug 2024 13:29:02 +0000

Yazar: NadireNurSaglam
Konu: 877
G�nderim Zaman�: 15 A�ustos 2024 Saat 13:29

Merhaba. oyunForm sayfam ilk a��ld��nda kelimeProLabel bile�eni ekrana gelmesi ve bu sayfa yenilendi�i zaman ayn� bile�enin bo� bir �ekilde ekranda ayn� yere gelmesi i�in a�a��daki kodu yazd�m. E�er ;

yedeklabel = oyunForm.clFindComponent('kelimeProLabel');

if (yedeklabel <> nil)

{

yedeklabel.Text = karisikKelime;

}
bu k�sm� yazmadan direk kelimeProLabel � tan�mlarsam bile�en ekrana gelmiyor. Ama bu k�sm� yazd�ktan sonra da ekran a��ld��nda mesaj kutusunda 'Bile�en bulunamad�' yaz�yor ve kutuyu kapatt�ktan sonra istedi�im �ekilde bile�en geliyor. Sayfa yenilendi�i zaman yine istedi�im �ekilde bile�en ayn� yere geliyor. Ekrana gelen bu 'Bile�en bulunamad�' hatas�n� nas�l ��zerim?
Te�ekk�rler.
------------------------------------------------------------------------------

var

MyForm,baslaForm,oyunForm: TclForm;

arkaPlanImg: TCLImage;

baslaButon,nasiloynanirButon,fruitsButon,animalsButon,colorsButon,jobsButon,tahminEtProButton : TClProButton;

fruitsList,animalsList,colorsList,jobsList: TclStringList;

kelimeProLabel, kategoriProLabel,karistirilmisProLabel,tahminetProLabel: TClProLabel;

tahminProEdit: TclProEdit;

karisikKelime: String;

i: Integer;

yedeklabel : TClProLabel;

orijinalKelime: String;

canSayisi: Integer;

selectedList: TclStringList;

kelimeIndex: Integer;

function harfleriKaristir(List:TclStringList);

var

i,j, k, RandomIndex: Integer;

harfListesi, alfabe, randomHarfler: TclStringList;

TempChar: String;

{

alfabe = Clomosy.StringListNew;

alfabe.Add('a');

alfabe.Add('b');

alfabe.Add('c');

alfabe.Add('d');

alfabe.Add('e');

alfabe.Add('f');

alfabe.Add('g');

alfabe.Add('h');

alfabe.Add('i');

alfabe.Add('j');

alfabe.Add('k');

alfabe.Add('l');

alfabe.Add('m');

alfabe.Add('o');

alfabe.Add('p');

alfabe.Add('q');

alfabe.Add('r');

alfabe.Add('s');

alfabe.Add('t');

alfabe.Add('u');

alfabe.Add('v');

alfabe.Add('w');

alfabe.Add('x');

alfabe.Add('y');

alfabe.Add('z');

if (kelimeIndex < List.Count)

{

orijinalKelime = List[kelimeIndex];

harfListesi = Clomosy.StringListNew;

harfListesi.Capacity = Length(List[kelimeIndex]) + 3;

for j = 1 to Length(orijinalKelime)

{

harfListesi.Add(Copy(orijinalKelime, j, 1));

}

// Rasgele 3 harf ekleme

randomHarfler = Clomosy.StringListNew;

for j = 1 to 3

{

RandomIndex = Round(Random(alfabe.Count - 1));

randomHarfler.Add(alfabe[RandomIndex]);

}

for j = 0 to randomHarfler.Count - 1

{

harfListesi.Add(randomHarfler[j]);

}

// Kar��t�rma

for k = 0 to harfListesi.Count - 1

{

RandomIndex = Round(Random(harfListesi.Count - 1));

TempChar = harfListesi[k];

harfListesi[k] = harfListesi[RandomIndex];

harfListesi[RandomIndex] = TempChar;

}

// Kar��k kelimeyi olu�tur

karisikKelime = '';

for k = 0 to harfListesi.Count - 1

{

karisikKelime = karisikKelime + harfListesi[k];

}

yedeklabel = oyunForm.clFindComponent('kelimeProLabel');

if (yedeklabel <> nil)

{

yedeklabel.Text = karisikKelime;

}

else

{

kelimeProLabel = oyunForm.AddNewProLabel(oyunForm, 'kelimeProLabel', karisikKelime);

}

void KategoriSecimi;

{

oyunForm = TCLForm.Create(Self);

oyunForm.SetFormBGImage('https://i.imgur.com/0ozkr4m.png');

karistirilmisProLabel = oyunForm.AddNewProLabel(oyunForm,'karistirilmisProLabel','KEL�MEN�N KARI�TIRILMI�

HAL�:');

clComponent.SetupComponent(karistirilmisProLabel,'{

"Align":"Center",

"MarginBottom" : 550,

"Width":400,

"Height" :300,

"TextSize" : 25,

"TextVerticalAlign": "Center",

"TextHorizontalAlign" :"Center",

"TextBold": "Yes"

}')

tahminetProLabel = oyunForm.AddNewProLabel(oyunForm,'tahminetProLabel','TAHM�N ET:');

clComponent.SetupComponent(tahminetProLabel,'{

"Align":"Center",

"MarginBottom" : 120,

"Width":400,

"Height" :300,

"TextSize" : 25,

"TextVerticalAlign": "Center",

"TextHorizontalAlign" :"Center",

"TextBold": "Yes"

}')

tahminProEdit = oyunForm.AddNewProEdit(oyunForm, 'tahminProEdit', 'Tahminini Gir...');

clComponent.SetupComponent(tahminProEdit,'{

"Align" : "Center",

"MarginTop":80,

"Width":340,

"Height":60,

"TextSize" :25,

"TextHorizontalAlign " : "Center",

"TextVerticalAlign" : "Center",

"TextBold":"Yes",

"BackgroundColor":"#fefbec",

"RoundHeight":8,

"RoundWidth":8,

"BorderColor":"#94ae89",

"BorderWidth":2

}')

tahminProEdit.clTypeOfField = taString; //Sadece metin giri�i

tahminEtProButton = oyunForm.AddNewProButton(oyunForm, 'tahminEtProButton', 'KONTROL ET');

clComponent.SetupComponent(tahminEtProButton,

"Align" : "Center",

"TextSize":15,

"MarginTop" : 320,

"MarginLeft":200,

"Width" : 200,

"Height" : 50,

"RoundHeight" : 8,

"RoundWidth" : 8,

"BackgroundColor":"#fefbec",

"BorderColor":"#94ae89",

"BorderWidth" : 2

}');

oyunForm.AddNewEvent(tahminEtProButton,tbeOnClick,'tahminEtButonClick');

oyunForm.Run;

}

void fruitsButonClick;

{

fruitsList = Clomosy.StringListNew;

fruitsList.Capacity = 10;

fruitsList.Add('apple');

fruitsList.Add('banana');

fruitsList.Add('orange');

fruitsList.Add('mango');

fruitsList.Add('watermelon');

fruitsList.Add('cherry');

fruitsList.Add('lemon');

fruitsList.Add('strawberry');

fruitsList.Add('grape');

fruitsList.Add('pineapple');

kelimeIndex = 0;

selectedList = fruitsList;

KategoriSecimi;

harfleriKaristir(selectedList);

}

void animalsButonClick;

{

animalsList = Clomosy.StringListNew;

animalsList.Capacity = 10;

animalsList.Add('cat');

animalsList.Add('dog');

animalsList.Add('elephant');

animalsList.Add('tiger');

animalsList.Add('lion');

animalsList.Add('giraffe');

animalsList.Add('zebra');

animalsList.Add('monkey');

animalsList.Add('bear');

animalsList.Add('dolphin');

kelimeIndex = 0;

selectedList = animalsList;

KategoriSecimi;

harfleriKaristir(selectedList);

}

void colorsButonClick;

{

colorsList = Clomosy.StringListNew;

colorsList.Capacity = 10;

colorsList.Add('red');

colorsList.Add('blue');

colorsList.Add('green');

colorsList.Add('yellow');

colorsList.Add('black');

colorsList.Add('white');

colorsList.Add('pink');

colorsList.Add('orange');

colorsList.Add('purple');

colorsList.Add('brown');

kelimeIndex = 0;

selectedList = colorsList;

KategoriSecimi;

harfleriKaristir(selectedList);

}

void jobsButonClick;

{

jobsList = Clomosy.StringListNew;

jobsList.Capacity = 10;

jobsList.Add('doctor');

jobsList.Add('teacher');

jobsList.Add('engineer');

jobsList.Add('nurse');

jobsList.Add('lawyer');

jobsList.Add('architect');

jobsList.Add('chef');

jobsList.Add('artist');

jobsList.Add('police');

jobsList.Add('journalist');

kelimeIndex = 0;

selectedList = jobsList;

KategoriSecimi;

harfleriKaristir(selectedList);

}

void baslaButonClick;

{

canSayisi = 3;

baslaForm = TCLForm.Create(Self);

baslaForm.SetFormBGImage('https://i.imgur.com/QdZNWrx.png');

kategoriProLabel = baslaForm.AddNewProLabel(baslaForm,'kategoriProLabel','HAD� B�R KATEGOR� SE�

TAHM�N ETMEYE BA�LA!');

clComponent.SetupComponent(kategoriProLabel,'{

"Align":"Center",

"MarginBottom" : 520,

"Width":400,

"Height" :300,

"TextSize" : 25,

"TextVerticalAlign": "Center",

"TextHorizontalAlign" :"Center",

"TextBold": "Yes"

}')

fruitsButon = baslaForm.AddNewProButton(baslaForm, 'fruitsButon', 'Fruits');

clComponent.SetupComponent(fruitsButon,

"Align" : "Center",

"TextSize":20,

"MarginBottom" : 150,

"MarginRight":200,

"Width" : 170,

"Height" : 170,

"RoundHeight" : 8,

"RoundWidth" : 8,

"Bordercolor" : "#8eaaad",

"BackgroundColor":"#fefbec",

"BorderWidth" : 2

}');

baslaForm.AddNewEvent(fruitsButon,tbeOnClick,'fruitsButonClick');

//-------------------------------------------------------------------------------

animalsButon = baslaForm.AddNewProButton(baslaForm, 'animalsButon', 'Animals');

clComponent.SetupComponent(animalsButon,

"Align" : "Center",

"TextSize":20,

"MarginBottom" : 150,

"MarginLeft":200,

"Width" : 170,

"Height" : 170,

"RoundHeight" : 8,

"RoundWidth" : 8,

"Bordercolor" : "#8eaaad",

"BackgroundColor":"#fefbec",

"BorderWidth" : 2

}');

baslaForm.AddNewEvent(animalsButon,tbeOnClick,'animalsButonClick');

//--------------------------------------------------------------------------

colorsButon = baslaForm.AddNewProButton(baslaForm, 'colorsButon', 'Colors');

clComponent.SetupComponent(colorsButon,

"Align" : "Center",

"TextSize":20,

"MarginTop" : 250,

"MarginRight":200,

"Width" : 170,

"Height" : 170,

"RoundHeight" : 8,

"RoundWidth" : 8,

"Bordercolor" : "#8eaaad",

"BackgroundColor":"#fefbec",

"BorderWidth" : 2

}');

baslaForm.AddNewEvent(colorsButon,tbeOnClick,'colorsButonClick');

//--------------------------------------------------------------------

jobsButon = baslaForm.AddNewProButton(baslaForm, 'jobsButon', 'Jobs');

clComponent.SetupComponent(jobsButon,

"Align" : "Center",

"TextSize":20,

"MarginTop" : 250,

"MarginLeft":200,

"Width" : 170,

"Height" : 170,

"RoundHeight" : 8,

"RoundWidth" : 8,

"Bordercolor" : "#8eaaad",

"BackgroundColor":"#fefbec",

"BorderWidth" : 2

}');

baslaForm.AddNewEvent(jobsButon,tbeOnClick,'jobsButonClick');

//-------------------------------------------------------------

baslaForm.Run;

}

void kalanHak;

{

if (canSayisi > 0)

{

Dec(canSayisi);

if (canSayisi == 2)

{

ShowMessage('Yanl�� tahmin! Kalan can say�n: '+ IntToStr(canSayisi));

}

else if (canSayisi == 1)

{

ShowMessage('Yanl�� tahmin! Kalan can say�n: '+ IntToStr(canSayisi));

}

else if (canSayisi == 0)

{

ShowMessage('Oyun bitti! Geriye hi� can�n kalmad� :(

Do�ru kelime: '+ orijinalKelime+'

Hadi Tekrar Oyna!');

oyunForm.BtnGoBackClick(self);

}

void tahminEtButonClick;

var

tahminEdilenKelime: String;

karsilastir: Integer;

{

tahminEdilenKelime= LowerCase(tahminProEdit.Text);

karsilastir= AnsiCompareText(tahminEdilenKelime,LowerCase(orijinalKelime));

if (karsilastir == 0)

{

ShowMessage('Do�ru bildin! Hadi di�er kelimeye ge�!');

kelimeIndex = kelimeIndex + 1; // Bir sonraki kelimeye ge�

if (kelimeIndex < selectedList.Count)

{

harfleriKaristir(selectedList); // Yeni kelimeyi kar��t�r ve g�ster

}

else

{

ShowMessage('Tebrikler! T�m kelimeleri do�ru tahmin ettiniz!

Hadi bir kategori daha se� ve kelimeleri bulmaya devam et!');

oyunForm.BtnGoBackClick(Self); // Ana men�ye d�n

}

else

{

kalanHak;

}

tahminProEdit.Text = '';

}

void nasiloynanirButonClick;

{

ShowMessage('Guess What oyununa ho� geldiniz! Bu oyunda, kar��k halde verilen harflerden anlaml� bir kelime olu�turman�z beklenmektedir.

Oyunun amac�, verilen harfleri kullanarak do�ru kelimeyi bulmakt�r. Se�ilen kategori ile ilgili gelen kelimenin harfleri kar��k gelir. Ayr�ca kelimeye ait olmayan harfler de bu kar��k harflerin aras�nda yer al�r.

Haydi Ba�la butonuna t�kla, ard�ndan bir kategori se� ve e�lenmeye ba�la!');

}

{

MyForm = TCLForm.Create(Self);

MyForm.SetFormBGImage('https://i.imgur.com/rLwQoPD.png');

baslaButon = MyForm.AddNewProButton(MyForm, 'baslaButon', 'BA�LA');

clComponent.SetupComponent(baslaButon,

"Align" : "Center",

"TextSize":25,

"MarginBottom" : 135,

"Width" : 250,

"Height" : 70,

"RoundHeight" : 5,

"RoundWidth" : 5,

"Bordercolor" : "#8eaaad",

"BorderWidth" : 2

}');

MyForm.AddNewEvent(baslaButon,tbeOnClick,'baslaButonClick');

nasiloynanirButon = MyForm.AddNewProButton(MyForm, 'nasiloynanirButon', 'NASIL OYNANIR?');

clComponent.SetupComponent(nasiloynanirButon,

"Align" : "Center",

"TextSize":25,

"MarginTop" : 40,

"Width" : 250,

"Height" : 70,

"RoundHeight" : 5,

"RoundWidth" : 5,

"Bordercolor" : "#8eaaad",

"BorderWidth" : 2

}');

MyForm.AddNewEvent(nasiloynanirButon,tbeOnClick,'nasiloynanirButonClick');

MyForm.Run;

}