Animasyon g�r�n�rl�� hatas� : Merhaba Nadire NurAşağıdaki kodu...

Mon, 19 Aug 2024 15:52:21 +0000

Yazar: Developer
Konu: 888
G�nderim Zaman�: 19 A�ustos 2024 Saat 15:52

Merhaba Nadire Nur

A�a��daki kodu inceler misin:

var

MainForm : TclForm;

iconImg : TCLProImage;

informationLbl : TclLabel;

void Animation;

{

clAnimateFloatWait(iconImg,'Opacity',0,1,0,0);

clAnimateFloat(iconImg,'Opacity',1, 1,0,0);

}

{

MainForm=TclForm.Create(self);

MainForm.SetFormBGImage('https://clomosy.com/demos/bg.png');

informationLbl= MainForm.AddNewLabel(MainForm,'informationLbl','Click on the image to see the animation.');

informationLbl.StyledSettings = ssFamily;

informationLbl.TextSettings.Font.Size=14;

informationLbl.Align = alTop;

informationLbl.Margins.Left= 10;

informationLbl.Margins.Top= 10;

informationLbl.Height = 50;

informationLbl.Width = 150;

informationLbl.AutoSize = True;

informationLbl.WordWrap = True;

iconImg = MainForm.AddNewProImage(MainForm,'iconImg');

iconImg.Align = alTop;

iconImg.Height = 250;

iconImg.Margins.Top = 50;

iconImg.Margins.Left = 50;

iconImg.Margins.Right = 50;

iconImg.clProSettings.PictureSource = 'https://clomosy.com/demos/moon.png';

iconImg.clProSettings.PictureAutoFit = True;

iconImg.SetclProSettings(iconImg.clProSettings);

MainForm.AddNewEvent(iconImg,tbeOnClick,'Animation');

MainForm.Run;

}

Birde burda yer alan kodlar� inceler misin?

Animasyon g�r�n�rl�� hatas� : Merhaba,aşağıdaki kodumda 'kirikKalpRandomClick'...

Mon, 19 Aug 2024 14:15:52 +0000

Yazar: NadireNurSaglam
Konu: 888
G�nderim Zaman�: 19 A�ustos 2024 Saat 14:15

Merhaba,

a�a��daki kodumda 'kirikKalpRandomClick' fonksiyonunda g�sterilen foto�raf ;

if (canSayisi == 2)

{

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

kirikKalpRandomClick;

}

else if (canSayisi == 1)

{

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

kirikKalpRandomClick;

bu k�s�mdaki if ve if else'lerde �al��rken ekranda aniden g�r�n�p kayboluyor. Biraz daha ekranda kals�n istiyorum. Ayr�ca linkteki foto�raf�n sadece bir k�sm� g�r�n�yor ekranda. T�m foto�raf� alm�yor. Bu hatalar� nas�l ��zebilirim?
Te�ekk�rler.

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

var

MyForm,baslaForm: TclForm;

oyunForm: TCLGameForm;

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;

canSayisiLabel: TClProLabel;

kalpImg, kirikKalpImg: TCLImage;

ipucuProButon,bilgiVerButon: TClProButton;

ipucuTiklamaSayisi: Integer;

kirikKalpRandom: TClButton;

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('n'); 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": 150, "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;

}

void bilgiVerClick;

{

ShowMessage('�stersen ipucu butonunu kullanarak, as�l kelimeye ait olmayan 2 harfi ��karabilirsin!');

}

void ipucuClick;

var

j: Integer;

randomHarfler: TclStringList;

indexToRemove: Integer;

{

if ipucuTiklamaSayisi < 2

{

ipucuTiklamaSayisi = ipucuTiklamaSayisi + 1;

// E�er kelime zaten tamamen tahmin edilmi�se veya hi� rastgele harf eklenmemi�se, ipucu verilmeyecek

if (kelimeIndex < selectedList.Count)

{

orijinalKelime = selectedList[kelimeIndex];

randomHarfler = Clomosy.StringListNew;

// Orijinal kelimeyi i�ermeyen harfleri bul ve randomHarfler listesine ekle

for j = 0 to Length(karisikKelime) - 1

{

if Pos(Copy(karisikKelime, j + 1, 1), orijinalKelime) == 0

{

randomHarfler.Add(Copy(karisikKelime, j + 1, 1));

}

// E�er rastgele harfler varsa, bunlardan birini sil

if randomHarfler.Count > 0

{

indexToRemove = Round(Random(randomHarfler.Count - 1));

// Bu harfi karisikKelime'den ��kar

for j = 1 to Length(karisikKelime)

{

if Copy(karisikKelime, j, 1) == randomHarfler[indexToRemove]

{

karisikKelime = Copy(karisikKelime, 1, j - 1) + Copy(karisikKelime, j + 1, Length(karisikKelime) - j);

Break;

}

// Yeni kar��k kelimeyi label'a yazd�r

yedeklabel = oyunForm.clFindComponent('kelimeProLabel');

if (yedeklabel <> nil)

{

yedeklabel.Text = karisikKelime;

}

else

{

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

}

if ipucuTiklamaSayisi == 2

{

ipucuProButon.enabled=false;

ShowMessage('�pucu alma hakk�n bitti!');

}

void kirikKalpRandomClick;

var

m: Integer;

{

oyunForm.clAnimateBitmap.AnimationCount =9;

oyunForm.clAnimateBitmap.AnimationRowCount =3;

oyunForm.clAnimateBitmap.Duration = 2000;

for(m=0 to 5)

{

oyunForm.clAnimation(Random()*oyunForm.clWidth, Random()*oyunForm.clHeight,20,'nphkfKh.png');

}

void KategoriSecimi;

{

ipucuTiklamaSayisi =0;

oyunForm = TCLGameForm.Create(Self);

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

oyunForm.AddGameAssetFromUrl('https://i.imgur.com/nphkfKh.png');

ipucuProButon = oyunForm.AddNewProButton(oyunForm,'ipucuProButon','');

clComponent.SetupComponent(ipucuProButon,'{

"MarginTop": 520,

"MarginRight":250,

"Width": 100,

"Height":100,

"RoundHeight" : 8,

"RoundWidth" : 8,

"BackgroundColor":"#fefbec",

"BorderColor":"#94ae89",

"BorderWidth" : 2

}')

oyunForm.SetImage(ipucuProButon,'https://i.imgur.com/1OcBHtw.png');

oyunForm.AddNewEvent(ipucuProButon,tbeOnClick,'ipucuClick');

bilgiVerButon = oyunForm.AddNewProButton(oyunForm,'bilgiVerButon','');

clComponent.SetupComponent(bilgiVerButon,'{

"MarginBottom": 520,

"MarginLeft":250,

"Width": 50,

"Height":50,

"RoundHeight" : 8,

"RoundWidth" : 8,

"BackgroundColor":"#fefbec",

"BorderColor":"#94ae89",

"BorderWidth" : 2

}')

oyunForm.SetImage(bilgiVerButon,'https://i.imgur.com/rLIsfEP.png');

oyunForm.AddNewEvent(bilgiVerButon,tbeOnClick,'bilgiVerClick');

kalpImg = oyunForm.AddNewImage(oyunForm, 'kalpImg');

kalpImg.Align=alClient;

kalpImg.Margins.Top=8;

kalpImg.Margins.Bottom = 550;

kalpImg.Margins.Right =285;

oyunForm.SetImage(kalpImg,'https://i.imgur.com/po59c7R.png');

canSayisiLabel = oyunForm.AddNewProLabel(oyunForm, 'canSayisiLabel', 'Kalan Can Say�n: '+IntToStr(canSayisi));

clComponent.SetupComponent(canSayisiLabel, '{

"MarginBottom": 410,

"MarginRight": 240,

"MarginLeft":150,

"TextSize": 16,

"TextBold": "Yes",

"Width":150,

"Height" :150

}')

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

HAL�:');

clComponent.SetupComponent(karistirilmisProLabel,'{

"Align":"Center",

"MarginBottom" : 350,

"Width":400,

"Height" :50,

"TextSize" : 25,

"TextVerticalAlign": "Center",

"TextHorizontalAlign" :"Center",

"TextBold": "Yes"

}')

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

clComponent.SetupComponent(tahminetProLabel,'{

"Align":"Center",

"MarginTop" : 80,

"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":280,

"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" : 520,

"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);

canSayisiLabel.Text = 'Kalan Can Say�n: '+IntToStr(canSayisi);

if (canSayisi == 2)

{

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

kirikKalpRandomClick;

}

else if (canSayisi == 1)

{

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

kirikKalpRandomClick;

}

else if (canSayisi == 0)

{

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

Do�ru kelime: '+ orijinalKelime+'

Hadi Tekrar Oyna!');

oyunForm.BtnGoBackClick(self);

canSayisi=3;

}

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

canSayisi=3;

}

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;

}

Clomosy | Forum : Animasyon g�r�n�rl��� hatas�

Animasyon g�r�n�rl��� hatas� : Merhaba Nadire NurAşağıdaki kodu...

Animasyon g�r�n�rl��� hatas� : Merhaba,aşağıdaki kodumda 'kirikKalpRandomClick'...

Clomosy | Forum : Animasyon g�r�n�rl�� hatas�

Animasyon g�r�n�rl�� hatas� : Merhaba Nadire NurAşağıdaki kodu...

Animasyon g�r�n�rl�� hatas� : Merhaba,aşağıdaki kodumda 'kirikKalpRandomClick'...