Diğer öğeleri ekleme sorunu


     Projede pil ve görevini kod üzerinden ekledik ama diğer basit elektrik devre elemanlarını ekleyemedik.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">    var
  MyForm: TCLForm;
  MainPanel: TCLPanel;
  BtnEleman1, BtnGorev1: TCLButton;
  SelectedEleman, SelectedGorev: String;

procedure CheckMatch;
begin
  // Boş olup olmadığını kontrol ediyoruz
  if (SelectedEleman <> '') and (SelectedGorev <> '') then
  begin
    // Karşılaştırma yaparken tek '=' kullanılır
    if (SelectedEleman = 'PİL') and (SelectedGorev = 'Enerji Sağlar') then
    begin
      ShowMessage('Doğru Eşleşme: Pil enerji kaynağıdır!');
    end
    else
    begin
      ShowMessage('Hatalı Eşleşme, tekrar dene.');
    end;
    
    // Seçimleri sıfırla
    SelectedEleman := '';
    SelectedGorev := '';
  end;
end;

procedure OnElemanClick;
begin
  SelectedEleman := 'PİL';
  CheckMatch;
end;

procedure OnGorevClick;
begin
  SelectedGorev := 'Enerji Sağlar';
  CheckMatch;
end;

begin // Ana kod bloğu başlıyor
  MyForm := TCLForm.Create(Self);
  MyForm.BtnFormMenu.Visible := False;
  MyForm.SetFormColor('#6CEADB', '#C9F3CE', clGVertical);
  MyForm.clSetCaption('ELEKTRİK DEVRESİ ELEMANLARINI TANIYORUM');

  MainPanel := MyForm.AddNewPanel(MyForm, 'MainPanel');
  MainPanel.Align := alClient;

  // Eleman Butonu
  BtnEleman1 := MyForm.AddNewButton(MainPanel, 'BtnEleman1', 'PİL RESMİ');
  BtnEleman1.Align := alTop;
  BtnEleman1.Margins.Top := 40;
  BtnEleman1.Height := 80;
  MyForm.AddNewEvent(BtnEleman1, tbeOnClick, 'OnElemanClick');

  // Görev Butonu
  BtnGorev1 := MyForm.AddNewButton(MainPanel, 'BtnGorev1', 'Elektrik enerjisi üretir.');
  BtnGorev1.Align := alBottom;
  BtnGorev1.Margins.Bottom := 40;
  BtnGorev1.Height := 80;
  MyForm.AddNewEvent(BtnGorev1, tbeOnClick, 'OnGorevClick');

  MyForm.Run;
end;

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
ilko_nyrrr_ Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 3 Saat 25 Dakika Önce Konum: Konya Durum: Aktif Değil Puanlar: 5	Mesaj Seçenekleri Yanıt Yaz Alıntı ilko_nyrrr_ Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Diğer öğeleri ekleme sorunu Gönderim Zamanı: 3 Saat 17 Dakika Önce Saat 21:39
	Projede pil ve görevini kod üzerinden ekledik ama diğer basit elektrik devre elemanlarını ekleyemedik.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"> var MyForm: TCLForm; MainPanel: TCLPanel; BtnEleman1, BtnGorev1: TCLButton; SelectedEleman, SelectedGorev: String; procedure CheckMatch; begin // Boş olup olmadığını kontrol ediyoruz if (SelectedEleman <> '') and (SelectedGorev <> '') then begin // Karşılaştırma yaparken tek '=' kullanılır if (SelectedEleman = 'PİL') and (SelectedGorev = 'Enerji Sağlar') then begin ShowMessage('Doğru Eşleşme: Pil enerji kaynağıdır!'); end else begin ShowMessage('Hatalı Eşleşme, tekrar dene.'); end; // Seçimleri sıfırla SelectedEleman := ''; SelectedGorev := ''; end; end; procedure OnElemanClick; begin SelectedEleman := 'PİL'; CheckMatch; end; procedure OnGorevClick; begin SelectedGorev := 'Enerji Sağlar'; CheckMatch; end; begin // Ana kod bloğu başlıyor MyForm := TCLForm.Create(Self); MyForm.BtnFormMenu.Visible := False; MyForm.SetFormColor('#6CEADB', '#C9F3CE', clGVertical); MyForm.clSetCaption('ELEKTRİK DEVRESİ ELEMANLARINI TANIYORUM'); MainPanel := MyForm.AddNewPanel(MyForm, 'MainPanel'); MainPanel.Align := alClient; // Eleman Butonu BtnEleman1 := MyForm.AddNewButton(MainPanel, 'BtnEleman1', 'PİL RESMİ'); BtnEleman1.Align := alTop; BtnEleman1.Margins.Top := 40; BtnEleman1.Height := 80; MyForm.AddNewEvent(BtnEleman1, tbeOnClick, 'OnElemanClick'); // Görev Butonu BtnGorev1 := MyForm.AddNewButton(MainPanel, 'BtnGorev1', 'Elektrik enerjisi üretir.'); BtnGorev1.Align := alBottom; BtnGorev1.Margins.Bottom := 40; BtnGorev1.Height := 80; MyForm.AddNewEvent(BtnGorev1, tbeOnClick, 'OnGorevClick'); MyForm.Run; end;

ilko_nyrrr_ Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 3 Saat 25 Dakika Önce Konum: Konya Durum: Aktif Değil Puanlar: 5	Mesaj Seçenekleri Yanıt Yaz Alıntı ilko_nyrrr_ Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 2 Saat 56 Dakika Önce Saat 22:00
	hocam sorun çözüldü forma attıktan sonra 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">
	.

Emr.Erkmn Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Moderatör Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Değil Puanlar: 882	Mesaj Seçenekleri Yanıt Yaz Alıntı Emr.Erkmn Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 2 Saat 35 Dakika Önce Saat 22:21
	Merhabalar İlknur tamamadır