Clomosy | Forum : Farkı buldaki eklemeler

Clomosy | Forum : Farkı buldaki eklemeler https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 18:29:40 +0000 Mon, 04 May 2026 17:29:25 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 30 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1466 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[Farkı buldaki eklemeler : Merhaba Enes,Her butona tıklandığında...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1466&PID=3343#3343 Yazar: Emr.Erkmn
Konu: 1466
Gönderim Zamanı: 04 Mayıs 2026 Saat 17:29

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

frkses = svy1frm.RegisterSound('true.wav');

svy1frm.SoundIsActive=True;

img1 = svy1frm.AddNewProImage(svy1frm, 'img1');

svy1frm.AddGameAssetFromUrl('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');

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" 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">]]> Mon, 04 May 2026 17:29:25 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1466&PID=3343#3343 <![CDATA[Farkı buldaki eklemeler : varsvy1frm : TclGameFormfrkses...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1466&PID=3336#3336 Yazar: MenesKaya
Konu: 1466
Gönderim Zamanı: 04 Mayıs 2026 Saat 14:59

var

svy1frm : TclGameForm

frkses : Single

Giris : TclForm

OyunPanel : TclProPanel

img1,img2 : TCLProImage

frk1,frk2,frk11,frk22 : TClProButton

baslik1,sayma,sayi0,sayi1,sayi2 : TClProLabel

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

svy1frm.SetFormColor('#FAEBD7','',clGNone);

svy1frm.clSetWindowState(fwsMaximized)

svy1frm.AddGameAssetFromUrl('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');

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

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.run

}

kodda her butona tıklandığında ayrı ayrı olarak bulunan sayısını nasıl arttırabiliriz

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">]]> Mon, 04 May 2026 14:59:20 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1466&PID=3336#3336