Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - Farkı buldaki eklemeler
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir.

Farkı buldaki eklemeler
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
MenesKaya Açılır Kutu İzle
Yeni Üye
Yeni Üye
Simge

Kayıt Tarihi: 4 Saat 57 Dakika Önce
Konum: Konya
Durum: Aktif Değil
Puanlar: 2 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı MenesKaya Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: Farkı buldaki eklemeler
    Gönderim Zamanı: 4 Saat 35 Dakika Önce 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">
Yukarı Dön
Emr.Erkmn Açılır Kutu İzle
Moderatör
Moderatör


Kayıt Tarihi: 28 Şubat 2025
Durum: Aktif Değil
Puanlar: 833 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Emr.Erkmn Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 2 Saat 5 Dakika Önce 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">
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,031 Saniyede Yüklendi.