Kod Çalışmama Hatası


   // renksec
var
  renkForm: TclForm;
  centerLayout: TclLayout;
  btnKirmizi, btnMavi: TclProButton;
  lblInfo: TclProLabel;
  CanliMQTT: TclMQTT;
  MyGUID: String;
  MyName: String;
  renkSecildi: Boolean;

void MQTTMesajGelince
{
  var GelenMesaj: String;
  var Komut: String;
  
  if (CanliMQTT.ReceivedAlright)
  {
    GelenMesaj = CanliMQTT.ReceivedMessage;
    Komut = clGetStringTo(GelenMesaj, '|');
    
    if (Komut == 'YARISMA_BASLADI')
    {
      ShowMessage('Yarisma basliyor! Soru ekranina yonlendiriliyorsunuz...');
    }
  }
}

void MQTTBaglan
{
  CanliMQTT = renkForm.AddNewMQTTConnection(renkForm, 'CanliMQTT');
  CanliMQTT.Channel = 'Yarisma2026_App';
  renkForm.AddNewEvent(CanliMQTT, tbeOnMQTTPublishReceived, 'MQTTMesajGelince');
  CanliMQTT.Connect;
}

void SecKirmizi
{
  if (renkSecildi == True)
  {
    ShowMessage('Zaten renk sectiniz!');
    Exit;
  }
  
  MyGUID = Clomosy.AppUserGUID;
  MyName = Clomosy.AppUserDisplayName;
  CanliMQTT.Send('RENK_SEC|Kirmizi|' + MyGUID + '|' + MyName);
  renkSecildi = True;
  ShowMessage('Sayin ' + MyName + ', Kirmizi sectiniz. Yarisma baslayinca haber verilecek.');
}

void SecMavi
{
  if (renkSecildi == True)
  {
    ShowMessage('Zaten renk sectiniz!');
    Exit;
  }
  
  MyGUID = Clomosy.AppUserGUID;
  MyName = Clomosy.AppUserDisplayName;
  CanliMQTT.Send('RENK_SEC|Mavi|' + MyGUID + '|' + MyName);
  renkSecildi = True;
  ShowMessage('Sayin ' + MyName + ', Mavi sectiniz. Yarisma baslayinca haber verilecek.');
}

{
  renkForm = TclForm.Create(Self);
  renkForm.LytTopBar.Visible = False;
  renkForm.SetFormColor('#FFFF00', '', clGNone);
  
  MQTTBaglan;
  renkSecildi = False;
  
  centerLayout = renkForm.AddNewLayout(renkForm, 'centerLayout');
  centerLayout.Align = alCenter;
  centerLayout.Width = 300;
  centerLayout.Height = 400;
  centerLayout.Margins.Top = 60;
  
  lblInfo = renkForm.AddNewProLabel(centerLayout, 'lblInfo', 'Hosgeldin: ' + Clomosy.AppUserDisplayName);
  lblInfo.Align = alTop;
  lblInfo.Height = 40;
  lblInfo.clProSettings.FontColor = clAlphaColor.clBlack;
  lblInfo.clProSettings.FontSize = 14;
  lblInfo.clProSettings.FontHorzAlign = palCenter;
  lblInfo.SetclProSettings(lblInfo.clProSettings);
  
  btnKirmizi = renkForm.AddNewProButton(centerLayout, 'btnKirmizi', 'KIRMIZI');
  btnKirmizi.Align = alTop;
  btnKirmizi.Height = 110;
  btnKirmizi.Margins.Top = 20;
  btnKirmizi.clProSettings.BackgroundColor = clAlphaColor.clRed;
  btnKirmizi.clProSettings.FontColor = clAlphaColor.clWhite;
  btnKirmizi.clProSettings.BorderColor = clAlphaColor.clBlack;
  btnKirmizi.clProSettings.BorderWidth = 3;
  btnKirmizi.clProSettings.IsRound = True;
  btnKirmizi.clProSettings.RoundHeight = 25;
  btnKirmizi.clProSettings.RoundWidth = 25;
  btnKirmizi.SetclProSettings(btnKirmizi.clProSettings);
  renkForm.AddNewEvent(btnKirmizi, tbeOnClick, 'SecKirmizi');
  
  btnMavi = renkForm.AddNewProButton(centerLayout, 'btnMavi', 'MAVI');
  btnMavi.Align = alTop;
  btnMavi.Height = 110;
  btnMavi.Margins.Top = 25;
  btnMavi.clProSettings.BackgroundColor = clAlphaColor.clBlue;
  btnMavi.clProSettings.FontColor = clAlphaColor.clWhite;
  btnMavi.clProSettings.BorderColor = clAlphaColor.clBlack;
  btnMavi.clProSettings.BorderWidth = 3;
  btnMavi.clProSettings.IsRound = True;
  btnMavi.clProSettings.RoundHeight = 25;
  btnMavi.clProSettings.RoundWidth = 25;
  btnMavi.SetclProSettings(btnMavi.clProSettings);
  renkForm.AddNewEvent(btnMavi, tbeOnClick, 'SecMavi');
  
  renkForm.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">

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
Hüseyin_Sadik Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 03 Aralık 2025 Durum: Aktif Değil Puanlar: 14	Mesaj Seçenekleri Yanıt Yaz Alıntı Hüseyin_Sadik Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Kod Çalışmama Hatası Gönderim Zamanı: 2 Saat 2 Dakika Önce Saat 17:52
	// renksec var renkForm: TclForm; centerLayout: TclLayout; btnKirmizi, btnMavi: TclProButton; lblInfo: TclProLabel; CanliMQTT: TclMQTT; MyGUID: String; MyName: String; renkSecildi: Boolean; void MQTTMesajGelince { var GelenMesaj: String; var Komut: String; if (CanliMQTT.ReceivedAlright) { GelenMesaj = CanliMQTT.ReceivedMessage; Komut = clGetStringTo(GelenMesaj, '\|'); if (Komut == 'YARISMA_BASLADI') { ShowMessage('Yarisma basliyor! Soru ekranina yonlendiriliyorsunuz...'); } } } void MQTTBaglan { CanliMQTT = renkForm.AddNewMQTTConnection(renkForm, 'CanliMQTT'); CanliMQTT.Channel = 'Yarisma2026_App'; renkForm.AddNewEvent(CanliMQTT, tbeOnMQTTPublishReceived, 'MQTTMesajGelince'); CanliMQTT.Connect; } void SecKirmizi { if (renkSecildi == True) { ShowMessage('Zaten renk sectiniz!'); Exit; } MyGUID = Clomosy.AppUserGUID; MyName = Clomosy.AppUserDisplayName; CanliMQTT.Send('RENK_SEC\|Kirmizi\|' + MyGUID + '\|' + MyName); renkSecildi = True; ShowMessage('Sayin ' + MyName + ', Kirmizi sectiniz. Yarisma baslayinca haber verilecek.'); } void SecMavi { if (renkSecildi == True) { ShowMessage('Zaten renk sectiniz!'); Exit; } MyGUID = Clomosy.AppUserGUID; MyName = Clomosy.AppUserDisplayName; CanliMQTT.Send('RENK_SEC\|Mavi\|' + MyGUID + '\|' + MyName); renkSecildi = True; ShowMessage('Sayin ' + MyName + ', Mavi sectiniz. Yarisma baslayinca haber verilecek.'); } { renkForm = TclForm.Create(Self); renkForm.LytTopBar.Visible = False; renkForm.SetFormColor('#FFFF00', '', clGNone); MQTTBaglan; renkSecildi = False; centerLayout = renkForm.AddNewLayout(renkForm, 'centerLayout'); centerLayout.Align = alCenter; centerLayout.Width = 300; centerLayout.Height = 400; centerLayout.Margins.Top = 60; lblInfo = renkForm.AddNewProLabel(centerLayout, 'lblInfo', 'Hosgeldin: ' + Clomosy.AppUserDisplayName); lblInfo.Align = alTop; lblInfo.Height = 40; lblInfo.clProSettings.FontColor = clAlphaColor.clBlack; lblInfo.clProSettings.FontSize = 14; lblInfo.clProSettings.FontHorzAlign = palCenter; lblInfo.SetclProSettings(lblInfo.clProSettings); btnKirmizi = renkForm.AddNewProButton(centerLayout, 'btnKirmizi', 'KIRMIZI'); btnKirmizi.Align = alTop; btnKirmizi.Height = 110; btnKirmizi.Margins.Top = 20; btnKirmizi.clProSettings.BackgroundColor = clAlphaColor.clRed; btnKirmizi.clProSettings.FontColor = clAlphaColor.clWhite; btnKirmizi.clProSettings.BorderColor = clAlphaColor.clBlack; btnKirmizi.clProSettings.BorderWidth = 3; btnKirmizi.clProSettings.IsRound = True; btnKirmizi.clProSettings.RoundHeight = 25; btnKirmizi.clProSettings.RoundWidth = 25; btnKirmizi.SetclProSettings(btnKirmizi.clProSettings); renkForm.AddNewEvent(btnKirmizi, tbeOnClick, 'SecKirmizi'); btnMavi = renkForm.AddNewProButton(centerLayout, 'btnMavi', 'MAVI'); btnMavi.Align = alTop; btnMavi.Height = 110; btnMavi.Margins.Top = 25; btnMavi.clProSettings.BackgroundColor = clAlphaColor.clBlue; btnMavi.clProSettings.FontColor = clAlphaColor.clWhite; btnMavi.clProSettings.BorderColor = clAlphaColor.clBlack; btnMavi.clProSettings.BorderWidth = 3; btnMavi.clProSettings.IsRound = True; btnMavi.clProSettings.RoundHeight = 25; btnMavi.clProSettings.RoundWidth = 25; btnMavi.SetclProSettings(btnMavi.clProSettings); renkForm.AddNewEvent(btnMavi, tbeOnClick, 'SecMavi'); renkForm.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">