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