Merhaba Enes,
Her butona tıklandığında sayacın artması için global bir tam sayı değişkeni tanımlıcaz.
Her buton tıklandığında çalışacak ortak bir fonksiyon gerekli bu fonksiyon değeri +1 arttıracak ve yeni değeri labele yazdıracak.
var svy1frm : TclGameForm frkses : Single Giris : TclForm OyunPanel : TclProPanel img1,img2 : TCLProImage frk1,frk2,frk11,frk22 : TClProButton baslik1,sayma,sayi0,sayi1,sayi2 : TClProLabel bulunanFark: Integer; void FarkBulundu; var TiklananButon: TClProButton; { TiklananButon = TClProButton(svy1frm.clSender); svy1frm.PlayGameSound(frkses); TiklananButon.Visible = False; bulunanFark = bulunanFark + 1; sayi0.Text = IntToStr(bulunanFark); if (bulunanFark == 2) { ShowMessage('Tebrikler! Tüm farkları buldunuz.'); } } void bulma2; { sayi0.Visible = False sayi2= svy1frm.AddNewProLabel(svy1frm,'sayi1','2') sayi2.margins.bottom= 700 sayi2.margins.left=1250 sayi2.Height=100 sayi2.Width=50 sayi2.clProsettings.TextSettings.Font.Style = [fsBold] sayi2.clProsettings.FontSize = 35; sayi2.SetclProsettings(sayi2.clProsettings); } void bulma1; { sayi0.Visible = False sayi1= svy1frm.AddNewProLabel(svy1frm,'sayi1','1') sayi1.margins.bottom= 700 sayi1.margins.left=1250 sayi1.Height=100 sayi1.Width=50 sayi1.clProsettings.TextSettings.Font.Style = [fsBold] sayi1.clProsettings.FontSize = 35; sayi1.SetclProsettings(sayi1.clProsettings);
} { svy1frm = TclGameForm.Create(Self);
bulunanFark = 0; svy1frm.SetFormColor('#FAEBD7','',clGNone); svy1frm.clSetWindowState(fwsMaximized) svy1frm.AddGameAssetFromUrl(' https://clomosy.com/demos/true.wav" rel="nofollow - https://clomosy.com/demos/true.wav '); frkses = svy1frm.RegisterSound('true.wav'); svy1frm.SoundIsActive=True;
img1 = svy1frm.AddNewProImage(svy1frm, 'img1'); svy1frm.AddGameAssetFromUrl(' https://resmim.net/cdn/2026/04/29/CYvnS3.png" rel="nofollow - https://resmim.net/cdn/2026/04/29/CYvnS3.png '); svy1frm.SetImage(img1,'CYvnS3.png'); img1.Align=alTop img1.Height=530 img1.Width=600
img2 = svy1frm.AddNewProImage(svy1frm, 'img2'); img2.Align=alBottom img2.Height=480 img2.Width=600 svy1frm.AddGameAssetFromUrl(' https://resmim.net/cdn/2026/04/27/CYTVlD.png" rel="nofollow - https://resmim.net/cdn/2026/04/27/CYTVlD.png '); svy1frm.SetImage(img2,'CYTVlD.png');
frk1 = svy1frm.AddNewProButton(svy1frm, 'frk1', ' '); frk1.margins.bottom= 83 frk1.margins.left = -5 frk1.Height=30 frk1.Width=67 frk1.clProsettings.BackgroundColor = Clalphacolor.clhextocolor('#ff0000') frk1.SetclProsettings(frk1.clProSettings)
frk2 = svy1frm.AddNewProButton(svy1frm, 'frk2', ' '); frk2.margins.bottom = 550 frk2.margins.left = 497 frk2.Height=20 frk2.Width=20 frk2.clProsettings.BackgroundColor = Clalphacolor.clhextocolor('#ff0000') frk2.SetclProsettings(frk1.clProSettings)
frk11 = svy1frm.AddNewProButton(svy1frm, 'frk11', ' '); frk11.margins.top= 923 frk11.margins.left = -20 frk11.Height=30 frk11.Width=67 frk11.clProsettings.BackgroundColor = Clalphacolor.clhextocolor('#ff0000') frk11.SetclProsettings(frk1.clProSettings)
frk22 = svy1frm.AddNewProButton(svy1frm, 'frk22', ' '); frk22.margins.top = 470 frk22.margins.left = 500 frk22.Height=20 frk22.Width=20 frk22.clProsettings.BackgroundColor = Clalphacolor.clhextocolor('#ff0000') frk22.SetclProsettings(frk1.clProSettings)
sayma= svy1frm.AddNewProLabel(svy1frm,'sayma','Bulunan Fark:') sayma.width=800 sayma.Height=40 sayma.margins.bottom= 750 sayma.margins.left=1600 sayma.clProsettings.TextSettings.Font.Style = [fsBold, fsItalic] sayma.clProsettings.FontSize = 30; sayma.SetclProsettings(sayma.clProsettings);
sayi0= svy1frm.AddNewProLabel(svy1frm,'sayi1','0') sayi0.margins.bottom= 700 sayi0.margins.left=1250 sayi0.Height=100 sayi0.Width=50 sayi0.clProsettings.TextSettings.Font.Style = [fsBold] sayi0.clProsettings.FontSize = 35; sayi0.SetclProsettings(sayi0.clProsettings);
baslik1= svy1frm.AddNewProLabel(svy1frm,'baslik1',' 2 FARKI BUL (ÜSTTEKİ FOTOĞRAFTAN İŞARETLEYİNİZ)'); baslik1.Width=900 baslik1.Height=200 baslik1.margins.bottom= 690 baslik1.margins.left = -970 baslik1.clProsettings.TextSettings.Font.Style = [fsBold, fsItalic] baslik1.clProsettings.FontSize = 30; baslik1.SetclProsettings(baslik1.clProsettings);
svy1frm.AddNewEvent(frk1, tbeOnClick, 'FarkBulundu'); svy1frm.AddNewEvent(frk2, tbeOnClick, 'FarkBulundu');
svy1frm.run }
https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
|