|
| 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. |
hata düzeltme |
Yanıt Yaz 
|
| Yazar | |
Berra Gül 
Yeni Üye 
Kayıt Tarihi: 13 Mayıs 2026 Konum: kadın Durum: Aktif Değil Puanlar: 6 |
 Mesaj Seçenekleri
Yanıt Yaz
Alıntı Berra Gül
Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.
 Teşekkürler(0)
 Alıntı Cevapla
 Konu: hata düzeltmeGönderim Zamanı: 11 Saat 38 Dakika Önce Saat 23:14 |
|
var Form1: TclForm; // --- GİRİŞ EKRANI BİLEŞENLERİ --- PnlGiris: TclProPanel; ImgGirisLogo: TclProImage; LblGirisBaslik, LblKullanici, LblSifre, LblGirisHata: TclProLabel; EdtKullanici, EdtSifre: TclProEdit; BtnGirisYap: TclProButton; // --- DENEY EKRANI BİLEŞENLERİ --- PnlDeney: TclProPanel; PnlUst, PnlIndikator, PnlMaddeler: TclProPanel; LblBaslik, LblIndikatorDurum, LblSonuc: TclProLabel; // Maddelerin Satır Panelleri (Resim ve Butonları Yan Yana Tutmak İçin) PnlLimonRow, PnlSirkeRow, PnlTuzRuhuRow, PnlDisMacunuRow, PnlKarbonatRow, PnlSabunRow: TclProPanel; // Madde Butonları BtnLimon, BtnSirke, BtnTuzRuhu, BtnDisMacunu, BtnKarbonat, BtnSabun: TclProButton; // Madde Görselleri ImgLimon, ImgSirke, ImgTuzRuhu, ImgDisMacunu, ImgKarbonat, ImgSabun: TclProImage; /* STREAMING_CHUNK: GİRİŞ YAPMA VE SİSTEM DOĞRULAMA FONKSİYONU */ void OnGirisYap; { // Kullanıcı adı ve şifre kontrolü if ((EdtKullanici.Text == 'ogrenci') && (EdtSifre.Text == '1234')) { PnlGiris.Visible = False; PnlDeney.Visible = True; } else { LblGirisHata.Text = 'Hatalı Giriş! (Kullanıcı: ogrenci, Şifre: 1234)'; LblGirisHata.clProSettings.FontColor = clAlphaColor.clHexToColor('#E74C3C'); LblGirisHata.SetclProSettings(LblGirisHata.clProSettings); } } /* STREAMING_CHUNK: REAKSİYON VE RENK DEĞİŞİM FONKSİYONU */ void OnMaddeEklendi; var SecilenMadde: TclProButton; { SecilenMadde = TclProButton(Form1.clSender); // EĞER SEÇİLEN MADDE ASİT İSE (Etiketi 1 ise) if (SecilenMadde.clTagInt == 1) { PnlIndikator.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E84393'); // Pembe/Kırmızı Tonu LblIndikatorDurum.Text = SecilenMadde.Text + ' Eklendi'; LblSonuc.Text = 'SONUÇ: Asit algılandı! Kırmızı lahana suyu kırmızı/pembe renge dönüştü.'; LblSonuc.clProSettings.FontColor = clAlphaColor.clHexToColor('#E84393'); } // EĞER SEÇİLEN MADDE BAZ İSE (Etiketi 2 ise) else if (SecilenMadde.clTagInt == 2) { PnlIndikator.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00B894'); // Yeşil/Mavi Tonu LblIndikatorDurum.Text = SecilenMadde.Text + ' Eklendi'; LblSonuc.Text = 'SONUÇ: Baz algılandı! Kırmızı lahana suyu mavi/yeşil renge dönüştü.'; LblSonuc.clProSettings.FontColor = clAlphaColor.clHexToColor('#00B894'); } PnlIndikator.SetclProSettings(PnlIndikator.clProSettings); LblSonuc.SetclProSettings(LblSonuc.clProSettings); } { Form1 = TclForm.Create(Self); Form1.SetFormColor('#1E272E', '', clGNone); /* STREAMING_CHUNK: GİRİŞ EKRANI PANEL VE LOGO YAPILANDIRMASI */ PnlGiris = Form1.AddNewProPanel(Form1, 'PnlGiris'); PnlGiris.Align = alClient; PnlGiris.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E272E'); PnlGiris.SetclProSettings(PnlGiris.clProSettings); // Kimya Laboratuvarı Logo Görseli ImgGirisLogo = Form1.AddNewProImage(PnlGiris, 'ImgGirisLogo'); ImgGirisLogo.Align = alTop; ImgGirisLogo.Height = 130; ImgGirisLogo.Margins.Top = 40; ImgGirisLogo.Margins.Left = 80; ImgGirisLogo.Margins.Right = 80; Form1.SetImage(ImgGirisLogo, 'https://images.unsplash.com/photo-1507413245164-6160d8298b31?w=250&fit=crop&q=80'); LblGirisBaslik = Form1.AddNewProLabel(PnlGiris, 'LblGirisBaslik', 'Sanal Kimya Portalı'); LblGirisBaslik.Align = alTop; LblGirisBaslik.Height = 40; LblGirisBaslik.Margins.Top = 15; LblGirisBaslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF'); LblGirisBaslik.clProSettings.FontSize = 20; LblGirisBaslik.clProSettings.FontHorzAlign = palCenter; LblGirisBaslik.clProSettings.TextSettings.Font.Style = [fsBold]; LblGirisBaslik.SetclProSettings(LblGirisBaslik.clProSettings); /* STREAMING_CHUNK: GİRİŞ BİLGİLERİ GİRİŞ ALANLARI */ // Kullanıcı Adı Girişi LblKullanici = Form1.AddNewProLabel(PnlGiris, 'LblKullanici', 'Kullanıcı Adı: (ogrenci)'); LblKullanici.Align = alTop; LblKullanici.Height = 20; LblKullanici.Margins.Left = 40; LblKullanici.Margins.Top = 20; LblKullanici.clProSettings.FontColor = clAlphaColor.clHexToColor('#85929E'); LblKullanici.SetclProSettings(LblKullanici.clProSettings); // Edit kutuları için 3 parametreli güvenli metod kullanılmıştır EdtKullanici = Form1.AddNewProEdit(PnlGiris, 'EdtKullanici', 'Kullanıcı adınızı yazınız...'); EdtKullanici.Align = alTop; EdtKullanici.Height = 40; EdtKullanici.Margins.Left = 40; EdtKullanici.Margins.Right = 40; EdtKullanici.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2F3640'); EdtKullanici.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF'); EdtKullanici.clProSettings.RoundHeight = 10; EdtKullanici.clProSettings.RoundWidth = 10; EdtKullanici.SetclProSettings(EdtKullanici.clProSettings); // Şifre Girişi LblSifre = Form1.AddNewProLabel(PnlGiris, 'LblSifre', 'Şifre: (1234)'); LblSifre.Align = alTop; LblSifre.Height = 20; LblSifre.Margins.Left = 40; LblSifre.Margins.Top = 10; LblSifre.clProSettings.FontColor = clAlphaColor.clHexToColor('#85929E'); LblSifre.SetclProSettings(LblSifre.clProSettings); EdtSifre = Form1.AddNewProEdit(PnlGiris, 'EdtSifre', 'Şifrenizi yazınız...'); EdtSifre.Align = alTop; EdtSifre.Height = 40; EdtSifre.Margins.Left = 40; EdtSifre.Margins.Right = 40; EdtSifre.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2F3640'); EdtSifre.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF'); EdtSifre.clProSettings.RoundHeight = 10; EdtSifre.clProSettings.RoundWidth = 10; EdtSifre.clProSettings.ısSifre = True; EdtSifre.SetclProSettings(EdtSifre.clProSettings); // Hata Mesajı Alanı LblGirisHata = Form1.AddNewProLabel(PnlGiris, 'LblGirisHata', ''); LblGirisHata.Align = alTop; LblGirisHata.Height = 25; LblGirisHata.Margins.Top = 10; LblGirisHata.clProSettings.FontHorzAlign = palCenter; LblGirisHata.clProSettings.FontSize = 11; LblGirisHata.SetclProSettings(LblGirisHata.clProSettings); // Giriş Butonu BtnGirisYap = Form1.AddNewProButton(PnlGiris, 'BtnGirisYap', 'Sisteme Bağlan 🧪'); BtnGirisYap.Align = alTop; BtnGirisYap.Height = 45; BtnGirisYap.Margins.Left = 40; BtnGirisYap.Margins.Right = 40; BtnGirisYap.Margins.Top = 5; BtnGirisYap.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#8E44AD'); BtnGirisYap.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF'); BtnGirisYap.clProSettings.RoundHeight = 12; BtnGirisYap.clProSettings.RoundWidth = 12; BtnGirisYap.clProSettings.TextSettings.Font.Style = [fsBold]; BtnGirisYap.SetclProSettings(BtnGirisYap.clProSettings); Form1.AddNewEvent(BtnGirisYap, tbeOnClick, 'OnGirisYap'); /* STREAMING_CHUNK: DENEY EKRANI ANA PANEL YAPILANDIRMASI */ PnlDeney = Form1.AddNewProPanel(Form1, 'PnlDeney'); PnlDeney.Align = alClient; PnlDeney.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E272E'); PnlDeney.SetclProSettings(PnlDeney.clProSettings); PnlDeney.Visible = False; // Giriş yapılmadan önce gizlenir // --- ÜST BAŞLIK --- PnlUst = Form1.AddNewProPanel(PnlDeney, 'PnlUst'); PnlUst.Align = alTop; PnlUst.Height = 55; PnlUst.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2F3640'); PnlUst.SetclProSettings(PnlUst.clProSettings); LblBaslik = Form1.AddNewProLabel(PnlUst, 'LblBaslik', '🧪 Doğal İndikatör Deneyi'); LblBaslik.Align = alClient; LblBaslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF'); LblBaslik.clProSettings.FontSize = 16; LblBaslik.clProSettings.FontHorzAlign = palCenter; LblBaslik.clProSettings.TextSettings.Font.Style = [fsBold]; LblBaslik.SetclProSettings(LblBaslik.clProSettings); // --- İNDİKATÖR KABI (Kırmızı Lahana Suyu) --- PnlIndikator = Form1.AddNewProPanel(PnlDeney, 'PnlIndikator'); PnlIndikator.Align = alTop; PnlIndikator.Height = 120; PnlIndikator.Margins.Top = 15; PnlIndikator.Margins.Left = 40; PnlIndikator.Margins.Right = 40; PnlIndikator.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#8E44AD'); // Doğal Mor PnlIndikator.clProSettings.RoundHeight = 20; PnlIndikator.clProSettings.RoundWidth = 20; PnlIndikator.clProSettings.BorderColor = clAlphaColor.clHexToColor('#FFFFFF'); PnlIndikator.clProSettings.BorderWidth = 2; PnlIndikator.SetclProSettings(PnlIndikator.clProSettings); LblIndikatorDurum = Form1.AddNewProLabel(PnlIndikator, 'LblIndikatorDurum', 'Saf Kırmızı Lahana Suyu (pH 7)'); LblIndikatorDurum.Align = alClient; LblIndikatorDurum.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF'); LblIndikatorDurum.clProSettings.FontSize = 14; LblIndikatorDurum.clProSettings.FontHorzAlign = palCenter; LblIndikatorDurum.SetclProSettings(LblIndikatorDurum.clProSettings); // --- SONUÇ BİLGİ EKRANI --- LblSonuc = Form1.AddNewProLabel(PnlDeney, 'LblSonuc', 'Aşağıdaki raf görsellerine dokunarak madde ekleyin.'); LblSonuc.Align = alTop; LblSonuc.Height = 50; LblSonuc.Margins.Top = 10; LblSonuc.Margins.Left = 20; LblSonuc.Margins.Right = 20; LblSonuc.clProSettings.FontColor = clAlphaColor.clHexToColor('#DCDDE1'); LblSonuc.clProSettings.FontSize = 12; LblSonuc.clProSettings.FontHorzAlign = palCenter; LblSonuc.clProSettings.TextSettings.WordWrap = True; LblSonuc.SetclProSettings(LblSonuc.clProSettings); // --- MADDELER PANELİ (KAYDIRILABİLİR İÇERİK RAFİ) --- PnlMaddeler = Form1.AddNewProPanel(PnlDeney, 'PnlMaddeler'); PnlMaddeler.Align = alClient; PnlMaddeler.Margins.Top = 5; PnlMaddeler.clProSettings.BackgroundColor = clAlphaColor.clNull; PnlMaddeler.SetclProSettings(PnlMaddeler.clProSettings); /* STREAMING_CHUNK: ASİT MATERYALLERİ VE GÖRSELLERİ */ // --- 1. LİMON SUYU SATIRI --- PnlLimonRow = Form1.AddNewProPanel(PnlMaddeler, 'PnlLimonRow'); PnlLimonRow.Align = alTop; PnlLimonRow.Height = 50; PnlLimonRow.Margins.Bottom = 8; PnlLimonRow.Margins.Left = 20; PnlLimonRow.Margins.Right = 20; PnlLimonRow.clProSettings.BackgroundColor = clAlphaColor.clNull; PnlLimonRow.SetclProSettings(PnlLimonRow.clProSettings); ImgLimon = Form1.AddNewProImage(PnlLimonRow, 'ImgLimon'); ImgLimon.Align = alLeft; ImgLimon.Width = 50; ImgLimon.Margins.Right = 10; Form1.SetImage(ImgLimon, 'https://images.unsplash.com/photo-1590502593747-42a996133562?w=80&fit=crop&q=60'); BtnLimon = Form1.AddNewProButton(PnlLimonRow, 'BtnLimon', '🍋 Limon Suyu (Asit)'); BtnLimon.Align = alClient; BtnLimon.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F1C40F'); BtnLimon.clProSettings.RoundHeight = 10; BtnLimon.clProSettings.RoundWidth = 10; BtnLimon.clProSettings.FontColor = clAlphaColor.clHexToColor('#2C3E50'); BtnLimon.SetclProSettings(BtnLimon.clProSettings); BtnLimon.clTagInt = 1; Form1.AddNewEvent(BtnLimon, tbeOnClick, 'OnMaddeEklendi'); // --- 2. SİRKE SATIRI --- PnlSirkeRow = Form1.AddNewProPanel(PnlMaddeler, 'PnlSirkeRow'); PnlSirkeRow.Align = alTop; PnlSirkeRow.Height = 50; PnlSirkeRow.Margins.Bottom = 8; PnlSirkeRow.Margins.Left = 20; PnlSirkeRow.Margins.Right = 20; PnlSirkeRow.clProSettings.BackgroundColor = clAlphaColor.clNull; PnlSirkeRow.SetclProSettings(PnlSirkeRow.clProSettings); ImgSirke = Form1.AddNewProImage(PnlSirkeRow, 'ImgSirke'); ImgSirke.Align = alLeft; ImgSirke.Width = 50; ImgSirke.Margins.Right = 10; Form1.SetImage(ImgSirke, 'https://images.unsplash.com/photo-1622484211148-716598e04141?w=80&fit=crop&q=60'); BtnSirke = Form1.AddNewProButton(PnlSirkeRow, 'BtnSirke', '🍾 Sirke (Asit)'); BtnSirke.Align = alClient; BtnSirke.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E67E22'); BtnSirke.clProSettings.RoundHeight = 10; BtnSirke.clProSettings.RoundWidth = 10; BtnSirke.clProSettings.FontColor = clAlphaColor.clHexToColor('#2C3E50'); BtnSirke.SetclProSettings(BtnSirke.clProSettings); BtnSirke.clTagInt = 1; Form1.AddNewEvent(BtnSirke, tbeOnClick, 'OnMaddeEklendi'); // --- 3. TUZ RUHU SATIRI --- PnlTuzRuhuRow = Form1.AddNewProPanel(PnlMaddeler, 'PnlTuzRuhuRow'); PnlTuzRuhuRow.Align = alTop; PnlTuzRuhuRow.Height = 50; PnlTuzRuhuRow.Margins.Bottom = 15; PnlTuzRuhuRow.Margins.Left = 20; PnlTuzRuhuRow.Margins.Right = 20; PnlTuzRuhuRow.clProSettings.BackgroundColor = clAlphaColor.clNull; PnlTuzRuhuRow.SetclProSettings(PnlTuzRuhuRow.clProSettings); ImgTuzRuhu = Form1.AddNewProImage(PnlTuzRuhuRow, 'ImgTuzRuhu'); ImgTuzRuhu.Align = alLeft; ImgTuzRuhu.Width = 50; ImgTuzRuhu.Margins.Right = 10; Form1.SetImage(ImgTuzRuhu, 'https://images.unsplash.com/photo-1603126857599-f6e157fa2fe6?w=80&fit=crop&q=60'); BtnTuzRuhu = Form1.AddNewProButton(PnlTuzRuhuRow, 'BtnTuzRuhu', '☠️ Tuz Ruhu (Kuvvetli Asit)'); BtnTuzRuhu.Align = alClient; BtnTuzRuhu.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E74C3C'); BtnTuzRuhu.clProSettings.RoundHeight = 10; BtnTuzRuhu.clProSettings.RoundWidth = 10; BtnTuzRuhu.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF'); BtnTuzRuhu.SetclProSettings(BtnTuzRuhu.clProSettings); BtnTuzRuhu.clTagInt = 1; Form1.AddNewEvent(BtnTuzRuhu, tbeOnClick, 'OnMaddeEklendi'); /* STREAMING_CHUNK: BAZ MATERYALLERİ VE GÖRSELLERİ */ // --- 4. DİŞ MACUNU SATIRI --- PnlDisMacunuRow = Form1.AddNewProPanel(PnlMaddeler, 'PnlDisMacunuRow'); PnlDisMacunuRow.Align = alTop; PnlDisMacunuRow.Height = 50; PnlDisMacunuRow.Margins.Bottom = 8; PnlDisMacunuRow.Margins.Left = 20; PnlDisMacunuRow.Margins.Right = 20; PnlDisMacunuRow.clProSettings.BackgroundColor = clAlphaColor.clNull; PnlDisMacunuRow.SetclProSettings(PnlDisMacunuRow.clProSettings); ImgDisMacunu = Form1.AddNewProImage(PnlDisMacunuRow, 'ImgDisMacunu'); ImgDisMacunu.Align = alLeft; ImgDisMacunu.Width = 50; ImgDisMacunu.Margins.Right = 10; Form1.SetImage(ImgDisMacunu, 'https://images.unsplash.com/photo-1559599189-fe84dea4eb79?w=80&fit=crop&q=60'); BtnDisMacunu = Form1.AddNewProButton(PnlDisMacunuRow, 'BtnDisMacunu', '🪥 Diş Macunu (Baz)'); BtnDisMacunu.Align = alClient; BtnDisMacunu.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#3498DB'); BtnDisMacunu.clProSettings.RoundHeight = 10; BtnDisMacunu.clProSettings.RoundWidth = 10; BtnDisMacunu.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF'); BtnDisMacunu.SetclProSettings(BtnDisMacunu.clProSettings); BtnDisMacunu.clTagInt = 2; Form1.AddNewEvent(BtnDisMacunu, tbeOnClick, 'OnMaddeEklendi'); // --- 5. KARBONAT SATIRI --- PnlKarbonatRow = Form1.AddNewProPanel(PnlMaddeler, 'PnlKarbonatRow'); PnlKarbonatRow.Align = alTop; PnlKarbonatRow.Height = 50; PnlKarbonatRow.Margins.Bottom = 8; PnlKarbonatRow.Margins.Left = 20; PnlKarbonatRow.Margins.Right = 20; PnlKarbonatRow.clProSettings.BackgroundColor = clAlphaColor.clNull; PnlKarbonatRow.SetclProSettings(PnlKarbonatRow.clProSettings); ImgKarbonat = Form1.AddNewProImage(PnlKarbonatRow, 'ImgKarbonat'); ImgKarbonat.Align = alLeft; ImgKarbonat.Width = 50; ImgKarbonat.Margins.Right = 10; Form1.SetImage(ImgKarbonat, 'https://images.unsplash.com/photo-1553530666-ba11a7da3888?w=80&fit=crop&q=60'); BtnKarbonat = Form1.AddNewProButton(PnlKarbonatRow, 'BtnKarbonat', '🫧 Karbonatlı Su (Baz)'); BtnKarbonat.Align = alClient; BtnKarbonat.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#9B59B6'); BtnKarbonat.clProSettings.RoundHeight = 10; BtnKarbonat.clProSettings.RoundWidth = 10; BtnKarbonat.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF'); BtnKarbonat.SetclProSettings(BtnKarbonat.clProSettings); BtnKarbonat.clTagInt = 2; Form1.AddNewEvent(BtnKarbonat, tbeOnClick, 'OnMaddeEklendi'); // --- 6. SABUNLU SU SATIRI --- PnlSabunRow = Form1.AddNewProPanel(PnlMaddeler, 'PnlSabunRow'); PnlSabunRow.Align = alTop; PnlSabunRow.Height = 50; PnlSabunRow.Margins.Bottom = 8; PnlSabunRow.Margins.Left = 20; PnlSabunRow.Margins.Right = 20; PnlSabunRow.clProSettings.BackgroundColor = clAlphaColor.clNull; PnlSabunRow.SetclProSettings(PnlSabunRow.clProSettings); ImgSabun = Form1.AddNewProImage(PnlSabunRow, 'ImgSabun'); ImgSabun.Align = alLeft; ImgSabun.Width = 50; ImgSabun.Margins.Right = 10; Form1.SetImage(ImgSabun, 'https://images.unsplash.com/photo-1607006342411-9c145e227b47?w=80&fit=crop&q=60'); BtnSabun = Form1.AddNewProButton(PnlSabunRow, 'BtnSabun', '🧼 Sabunlu Su (Baz)'); BtnSabun.Align = alClient; BtnSabun.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1ABC9C'); BtnSabun.clProSettings.RoundHeight = 10; BtnSabun.clProSettings.RoundWidth = 10; BtnSabun.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF'); BtnSabun.SetclProSettings(BtnSabun.clProSettings); BtnSabun.clTagInt = 2; Form1.AddNewEvent(BtnSabun, tbeOnClick, 'OnMaddeEklendi'); Form1.Run; } https://static.cloudflareinsights.com/beacon.min.js/v833ccba57c9e4d2798f2e76cebdd09a11778172276447" integrity="sha512-57MDmcccJXYtNnH+ZiBwzC4jb2rvgVCEokYN+L/nLlmO8rfYT/gIpW2A569iJ/3b+0UEasghjuZH/ma3wIs/EQ==" 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">
|
|
 |
|
|
Eren Ö.
Yeni Üye
Kayıt Tarihi: 25 Eylül 2025 Durum: Aktif Puanlar: 38 |
Mesaj Seçenekleri
Teşekkürler(0)
Alıntı Cevapla
Gönderim Zamanı: 1 saat 21 Dakika Önce Saat 09:31 |
|
Merhaba Berra, yazmış olduğunuz kod gayet güzel. Fakat bir kaç eksik/yanlış bulunmakta. "ısŞifre" yanlış bir özellik olup, aynı zamanda Türkçe harflerden dolayı yanlıştır.
Koyduğunuz fotoğraflar açılmadığından dolayı onları yorum satırına aldım, ve böylece kodunuz çalışır hale geldi. Size şimdi teslim edeceğim kodda yapmanız gereken tek şey resimleri desteklenen bir linkle değiştirmek. İlerleyen zamanlarınızda lütfen aldığınız hataları/bizden istediğiniz şeyi belirtmeyi unutmayın. Teşekkür ederiz. var Form1: TclForm; // --- GİRİŞ EKRANI BİLEŞENLERİ --- PnlGiris: TclProPanel; ImgGirisLogo: TclProImage; LblGirisBaslik, LblKullanici, LblSifre, LblGirisHata: TclProLabel; EdtKullanici, EdtSifre: TclProEdit; BtnGirisYap: TclProButton; // --- DENEY EKRANI BİLEŞENLERİ --- PnlDeney: TclProPanel; PnlUst, PnlIndikator, PnlMaddeler: TclProPanel; LblBaslik, LblIndikatorDurum, LblSonuc: TclProLabel; // Maddelerin Satır Panelleri (Resim ve Butonları Yan Yana Tutmak İçin) PnlLimonRow, PnlSirkeRow, PnlTuzRuhuRow, PnlDisMacunuRow, PnlKarbonatRow, PnlSabunRow: TclProPanel; // Madde Butonları BtnLimon, BtnSirke, BtnTuzRuhu, BtnDisMacunu, BtnKarbonat, BtnSabun: TclProButton; // Madde Görselleri ImgLimon, ImgSirke, ImgTuzRuhu, ImgDisMacunu, ImgKarbonat, ImgSabun: TclProImage; /* STREAMING_CHUNK: GİRİŞ YAPMA VE SİSTEM DOĞRULAMA FONKSİYONU */ void OnGirisYap; { // Kullanıcı adı ve şifre kontrolü if ((EdtKullanici.Text == 'ogrenci') && (EdtSifre.Text == '1234')) { PnlGiris.Visible = False; PnlDeney.Visible = True; } else { LblGirisHata.Text = 'Hatalı Giriş! (Kullanıcı: ogrenci, Şifre: 1234)'; LblGirisHata.clProSettings.FontColor = clAlphaColor.clHexToColor('#E74C3C'); LblGirisHata.SetclProSettings(LblGirisHata.clProSettings); } } /* STREAMING_CHUNK: REAKSİYON VE RENK DEĞİŞİM FONKSİYONU */ void OnMaddeEklendi; var SecilenMadde: TclProButton; { SecilenMadde = TclProButton(Form1.clSender); // EĞER SEÇİLEN MADDE ASİT İSE (Etiketi 1 ise) if (SecilenMadde.clTagInt == 1) { PnlIndikator.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E84393'); // Pembe/Kırmızı Tonu LblIndikatorDurum.Text = SecilenMadde.Text + ' Eklendi'; LblSonuc.Text = 'SONUÇ: Asit algılandı! Kırmızı lahana suyu kırmızı/pembe renge dönüştü.'; LblSonuc.clProSettings.FontColor = clAlphaColor.clHexToColor('#E84393'); } // EĞER SEÇİLEN MADDE BAZ İSE (Etiketi 2 ise) else if (SecilenMadde.clTagInt == 2) { PnlIndikator.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00B894'); // Yeşil/Mavi Tonu LblIndikatorDurum.Text = SecilenMadde.Text + ' Eklendi'; LblSonuc.Text = 'SONUÇ: Baz algılandı! Kırmızı lahana suyu mavi/yeşil renge dönüştü.'; LblSonuc.clProSettings.FontColor = clAlphaColor.clHexToColor('#00B894'); } PnlIndikator.SetclProSettings(PnlIndikator.clProSettings); LblSonuc.SetclProSettings(LblSonuc.clProSettings); } { Form1 = TclForm.Create(Self); Form1.SetFormColor('#1E272E', '', clGNone); /* STREAMING_CHUNK: GİRİŞ EKRANI PANEL VE LOGO YAPILANDIRMASI */ PnlGiris = Form1.AddNewProPanel(Form1, 'PnlGiris'); PnlGiris.Align = alClient; PnlGiris.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E272E'); PnlGiris.SetclProSettings(PnlGiris.clProSettings); // Kimya Laboratuvarı Logo Görseli ImgGirisLogo = Form1.AddNewProImage(PnlGiris, 'ImgGirisLogo'); ImgGirisLogo.Align = alTop; ImgGirisLogo.Height = 130; ImgGirisLogo.Margins.Top = 40; ImgGirisLogo.Margins.Left = 80; ImgGirisLogo.Margins.Right = 80; //Form1.SetImage(ImgGirisLogo, 'https://images.unsplash.com/photo-1507413245164-6160d8298b31?w=250&fit=crop&q=80'); LblGirisBaslik = Form1.AddNewProLabel(PnlGiris, 'LblGirisBaslik', 'Sanal Kimya Portalı'); LblGirisBaslik.Align = alTop; LblGirisBaslik.Height = 40; LblGirisBaslik.Margins.Top = 15; LblGirisBaslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF'); LblGirisBaslik.clProSettings.FontSize = 20; LblGirisBaslik.clProSettings.FontHorzAlign = palCenter; LblGirisBaslik.clProSettings.TextSettings.Font.Style = [fsBold]; LblGirisBaslik.SetclProSettings(LblGirisBaslik.clProSettings); /* STREAMING_CHUNK: GİRİŞ BİLGİLERİ GİRİŞ ALANLARI */ // Kullanıcı Adı Girişi LblKullanici = Form1.AddNewProLabel(PnlGiris, 'LblKullanici', 'Kullanıcı Adı: (ogrenci)'); LblKullanici.Align = alTop; LblKullanici.Height = 20; LblKullanici.Margins.Left = 40; LblKullanici.Margins.Top = 20; LblKullanici.clProSettings.FontColor = clAlphaColor.clHexToColor('#85929E'); LblKullanici.SetclProSettings(LblKullanici.clProSettings); // Edit kutuları için 3 parametreli güvenli metod kullanılmıştır EdtKullanici = Form1.AddNewProEdit(PnlGiris, 'EdtKullanici', 'Kullanıcı adınızı yazınız...'); EdtKullanici.Align = alTop; EdtKullanici.Height = 40; EdtKullanici.Margins.Left = 40; EdtKullanici.Margins.Right = 40; EdtKullanici.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2F3640'); EdtKullanici.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF'); EdtKullanici.clProSettings.RoundHeight = 10; EdtKullanici.clProSettings.RoundWidth = 10; EdtKullanici.SetclProSettings(EdtKullanici.clProSettings); // Şifre Girişi LblSifre = Form1.AddNewProLabel(PnlGiris, 'LblSifre', 'Şifre: (1234)'); LblSifre.Align = alTop; LblSifre.Height = 20; LblSifre.Margins.Left = 40; LblSifre.Margins.Top = 10; LblSifre.clProSettings.FontColor = clAlphaColor.clHexToColor('#85929E'); LblSifre.SetclProSettings(LblSifre.clProSettings); EdtSifre = Form1.AddNewProEdit(PnlGiris, 'EdtSifre', 'Şifrenizi yazınız...'); EdtSifre.Align = alTop; EdtSifre.Height = 40; EdtSifre.Margins.Left = 40; EdtSifre.Margins.Right = 40; EdtSifre.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2F3640'); EdtSifre.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF'); EdtSifre.clProSettings.RoundHeight = 10; EdtSifre.clProSettings.RoundWidth = 10; EdtSifre.Password = True; EdtSifre.SetclProSettings(EdtSifre.clProSettings); // Hata Mesajı Alanı LblGirisHata = Form1.AddNewProLabel(PnlGiris, 'LblGirisHata', ''); LblGirisHata.Align = alTop; LblGirisHata.Height = 25; LblGirisHata.Margins.Top = 10; LblGirisHata.clProSettings.FontHorzAlign = palCenter; LblGirisHata.clProSettings.FontSize = 11; LblGirisHata.SetclProSettings(LblGirisHata.clProSettings); // Giriş Butonu BtnGirisYap = Form1.AddNewProButton(PnlGiris, 'BtnGirisYap', 'Sisteme Bağlan 🧪'); BtnGirisYap.Align = alTop; BtnGirisYap.Height = 45; BtnGirisYap.Margins.Left = 40; BtnGirisYap.Margins.Right = 40; BtnGirisYap.Margins.Top = 5; BtnGirisYap.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#8E44AD'); BtnGirisYap.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF'); BtnGirisYap.clProSettings.RoundHeight = 12; BtnGirisYap.clProSettings.RoundWidth = 12; BtnGirisYap.clProSettings.TextSettings.Font.Style = [fsBold]; BtnGirisYap.SetclProSettings(BtnGirisYap.clProSettings); Form1.AddNewEvent(BtnGirisYap, tbeOnClick, 'OnGirisYap'); /* STREAMING_CHUNK: DENEY EKRANI ANA PANEL YAPILANDIRMASI */ PnlDeney = Form1.AddNewProPanel(Form1, 'PnlDeney'); PnlDeney.Align = alClient; PnlDeney.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E272E'); PnlDeney.SetclProSettings(PnlDeney.clProSettings); PnlDeney.Visible = False; // Giriş yapılmadan önce gizlenir // --- ÜST BAŞLIK --- PnlUst = Form1.AddNewProPanel(PnlDeney, 'PnlUst'); PnlUst.Align = alTop; PnlUst.Height = 55; PnlUst.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2F3640'); PnlUst.SetclProSettings(PnlUst.clProSettings); LblBaslik = Form1.AddNewProLabel(PnlUst, 'LblBaslik', '🧪 Doğal İndikatör Deneyi'); LblBaslik.Align = alClient; LblBaslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF'); LblBaslik.clProSettings.FontSize = 16; LblBaslik.clProSettings.FontHorzAlign = palCenter; LblBaslik.clProSettings.TextSettings.Font.Style = [fsBold]; LblBaslik.SetclProSettings(LblBaslik.clProSettings); // --- İNDİKATÖR KABI (Kırmızı Lahana Suyu) --- PnlIndikator = Form1.AddNewProPanel(PnlDeney, 'PnlIndikator'); PnlIndikator.Align = alTop; PnlIndikator.Height = 120; PnlIndikator.Margins.Top = 15; PnlIndikator.Margins.Left = 40; PnlIndikator.Margins.Right = 40; PnlIndikator.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#8E44AD'); // Doğal Mor PnlIndikator.clProSettings.RoundHeight = 20; PnlIndikator.clProSettings.RoundWidth = 20; PnlIndikator.clProSettings.BorderColor = clAlphaColor.clHexToColor('#FFFFFF'); PnlIndikator.clProSettings.BorderWidth = 2; PnlIndikator.SetclProSettings(PnlIndikator.clProSettings); LblIndikatorDurum = Form1.AddNewProLabel(PnlIndikator, 'LblIndikatorDurum', 'Saf Kırmızı Lahana Suyu (pH 7)'); LblIndikatorDurum.Align = alClient; LblIndikatorDurum.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF'); LblIndikatorDurum.clProSettings.FontSize = 14; LblIndikatorDurum.clProSettings.FontHorzAlign = palCenter; LblIndikatorDurum.SetclProSettings(LblIndikatorDurum.clProSettings); // --- SONUÇ BİLGİ EKRANI --- LblSonuc = Form1.AddNewProLabel(PnlDeney, 'LblSonuc', 'Aşağıdaki raf görsellerine dokunarak madde ekleyin.'); LblSonuc.Align = alTop; LblSonuc.Height = 50; LblSonuc.Margins.Top = 10; LblSonuc.Margins.Left = 20; LblSonuc.Margins.Right = 20; LblSonuc.clProSettings.FontColor = clAlphaColor.clHexToColor('#DCDDE1'); LblSonuc.clProSettings.FontSize = 12; LblSonuc.clProSettings.FontHorzAlign = palCenter; LblSonuc.clProSettings.TextSettings.WordWrap = True; LblSonuc.SetclProSettings(LblSonuc.clProSettings); // --- MADDELER PANELİ (KAYDIRILABİLİR İÇERİK RAFİ) --- PnlMaddeler = Form1.AddNewProPanel(PnlDeney, 'PnlMaddeler'); PnlMaddeler.Align = alClient; PnlMaddeler.Margins.Top = 5; PnlMaddeler.clProSettings.BackgroundColor = clAlphaColor.clNull; PnlMaddeler.SetclProSettings(PnlMaddeler.clProSettings); /* STREAMING_CHUNK: ASİT MATERYALLERİ VE GÖRSELLERİ */ // --- 1. LİMON SUYU SATIRI --- PnlLimonRow = Form1.AddNewProPanel(PnlMaddeler, 'PnlLimonRow'); PnlLimonRow.Align = alTop; PnlLimonRow.Height = 50; PnlLimonRow.Margins.Bottom = 8; PnlLimonRow.Margins.Left = 20; PnlLimonRow.Margins.Right = 20; PnlLimonRow.clProSettings.BackgroundColor = clAlphaColor.clNull; PnlLimonRow.SetclProSettings(PnlLimonRow.clProSettings); ImgLimon = Form1.AddNewProImage(PnlLimonRow, 'ImgLimon'); ImgLimon.Align = alLeft; ImgLimon.Width = 50; ImgLimon.Margins.Right = 10; //Form1.SetImage(ImgLimon, 'https://images.unsplash.com/photo-1590502593747-42a996133562?w=80&fit=crop&q=60'); BtnLimon = Form1.AddNewProButton(PnlLimonRow, 'BtnLimon', '🍋 Limon Suyu (Asit)'); BtnLimon.Align = alClient; BtnLimon.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F1C40F'); BtnLimon.clProSettings.RoundHeight = 10; BtnLimon.clProSettings.RoundWidth = 10; BtnLimon.clProSettings.FontColor = clAlphaColor.clHexToColor('#2C3E50'); BtnLimon.SetclProSettings(BtnLimon.clProSettings); BtnLimon.clTagInt = 1; Form1.AddNewEvent(BtnLimon, tbeOnClick, 'OnMaddeEklendi'); // --- 2. SİRKE SATIRI --- PnlSirkeRow = Form1.AddNewProPanel(PnlMaddeler, 'PnlSirkeRow'); PnlSirkeRow.Align = alTop; PnlSirkeRow.Height = 50; PnlSirkeRow.Margins.Bottom = 8; PnlSirkeRow.Margins.Left = 20; PnlSirkeRow.Margins.Right = 20; PnlSirkeRow.clProSettings.BackgroundColor = clAlphaColor.clNull; PnlSirkeRow.SetclProSettings(PnlSirkeRow.clProSettings); ImgSirke = Form1.AddNewProImage(PnlSirkeRow, 'ImgSirke'); ImgSirke.Align = alLeft; ImgSirke.Width = 50; ImgSirke.Margins.Right = 10; //Form1.SetImage(ImgSirke, 'https://images.unsplash.com/photo-1622484211148-716598e04141?w=80&fit=crop&q=60'); BtnSirke = Form1.AddNewProButton(PnlSirkeRow, 'BtnSirke', '🍾 Sirke (Asit)'); BtnSirke.Align = alClient; BtnSirke.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E67E22'); BtnSirke.clProSettings.RoundHeight = 10; BtnSirke.clProSettings.RoundWidth = 10; BtnSirke.clProSettings.FontColor = clAlphaColor.clHexToColor('#2C3E50'); BtnSirke.SetclProSettings(BtnSirke.clProSettings); BtnSirke.clTagInt = 1; Form1.AddNewEvent(BtnSirke, tbeOnClick, 'OnMaddeEklendi'); // --- 3. TUZ RUHU SATIRI --- PnlTuzRuhuRow = Form1.AddNewProPanel(PnlMaddeler, 'PnlTuzRuhuRow'); PnlTuzRuhuRow.Align = alTop; PnlTuzRuhuRow.Height = 50; PnlTuzRuhuRow.Margins.Bottom = 15; PnlTuzRuhuRow.Margins.Left = 20; PnlTuzRuhuRow.Margins.Right = 20; PnlTuzRuhuRow.clProSettings.BackgroundColor = clAlphaColor.clNull; PnlTuzRuhuRow.SetclProSettings(PnlTuzRuhuRow.clProSettings); ImgTuzRuhu = Form1.AddNewProImage(PnlTuzRuhuRow, 'ImgTuzRuhu'); ImgTuzRuhu.Align = alLeft; ImgTuzRuhu.Width = 50; ImgTuzRuhu.Margins.Right = 10; //Form1.SetImage(ImgTuzRuhu, 'https://images.unsplash.com/photo-1603126857599-f6e157fa2fe6?w=80&fit=crop&q=60'); BtnTuzRuhu = Form1.AddNewProButton(PnlTuzRuhuRow, 'BtnTuzRuhu', '☠️ Tuz Ruhu (Kuvvetli Asit)'); BtnTuzRuhu.Align = alClient; BtnTuzRuhu.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E74C3C'); BtnTuzRuhu.clProSettings.RoundHeight = 10; BtnTuzRuhu.clProSettings.RoundWidth = 10; BtnTuzRuhu.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF'); BtnTuzRuhu.SetclProSettings(BtnTuzRuhu.clProSettings); BtnTuzRuhu.clTagInt = 1; Form1.AddNewEvent(BtnTuzRuhu, tbeOnClick, 'OnMaddeEklendi'); /* STREAMING_CHUNK: BAZ MATERYALLERİ VE GÖRSELLERİ */ // --- 4. DİŞ MACUNU SATIRI --- PnlDisMacunuRow = Form1.AddNewProPanel(PnlMaddeler, 'PnlDisMacunuRow'); PnlDisMacunuRow.Align = alTop; PnlDisMacunuRow.Height = 50; PnlDisMacunuRow.Margins.Bottom = 8; PnlDisMacunuRow.Margins.Left = 20; PnlDisMacunuRow.Margins.Right = 20; PnlDisMacunuRow.clProSettings.BackgroundColor = clAlphaColor.clNull; PnlDisMacunuRow.SetclProSettings(PnlDisMacunuRow.clProSettings); ImgDisMacunu = Form1.AddNewProImage(PnlDisMacunuRow, 'ImgDisMacunu'); ImgDisMacunu.Align = alLeft; ImgDisMacunu.Width = 50; ImgDisMacunu.Margins.Right = 10; //Form1.SetImage(ImgDisMacunu, 'https://images.unsplash.com/photo-1559599189-fe84dea4eb79?w=80&fit=crop&q=60'); BtnDisMacunu = Form1.AddNewProButton(PnlDisMacunuRow, 'BtnDisMacunu', '🪥 Diş Macunu (Baz)'); BtnDisMacunu.Align = alClient; BtnDisMacunu.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#3498DB'); BtnDisMacunu.clProSettings.RoundHeight = 10; BtnDisMacunu.clProSettings.RoundWidth = 10; BtnDisMacunu.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF'); BtnDisMacunu.SetclProSettings(BtnDisMacunu.clProSettings); BtnDisMacunu.clTagInt = 2; Form1.AddNewEvent(BtnDisMacunu, tbeOnClick, 'OnMaddeEklendi'); // --- 5. KARBONAT SATIRI --- PnlKarbonatRow = Form1.AddNewProPanel(PnlMaddeler, 'PnlKarbonatRow'); PnlKarbonatRow.Align = alTop; PnlKarbonatRow.Height = 50; PnlKarbonatRow.Margins.Bottom = 8; PnlKarbonatRow.Margins.Left = 20; PnlKarbonatRow.Margins.Right = 20; PnlKarbonatRow.clProSettings.BackgroundColor = clAlphaColor.clNull; PnlKarbonatRow.SetclProSettings(PnlKarbonatRow.clProSettings); ImgKarbonat = Form1.AddNewProImage(PnlKarbonatRow, 'ImgKarbonat'); ImgKarbonat.Align = alLeft; ImgKarbonat.Width = 50; ImgKarbonat.Margins.Right = 10; //Form1.SetImage(ImgKarbonat, 'https://images.unsplash.com/photo-1553530666-ba11a7da3888?w=80&fit=crop&q=60'); BtnKarbonat = Form1.AddNewProButton(PnlKarbonatRow, 'BtnKarbonat', '🫧 Karbonatlı Su (Baz)'); BtnKarbonat.Align = alClient; BtnKarbonat.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#9B59B6'); BtnKarbonat.clProSettings.RoundHeight = 10; BtnKarbonat.clProSettings.RoundWidth = 10; BtnKarbonat.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF'); BtnKarbonat.SetclProSettings(BtnKarbonat.clProSettings); BtnKarbonat.clTagInt = 2; Form1.AddNewEvent(BtnKarbonat, tbeOnClick, 'OnMaddeEklendi'); // --- 6. SABUNLU SU SATIRI --- PnlSabunRow = Form1.AddNewProPanel(PnlMaddeler, 'PnlSabunRow'); PnlSabunRow.Align = alTop; PnlSabunRow.Height = 50; PnlSabunRow.Margins.Bottom = 8; PnlSabunRow.Margins.Left = 20; PnlSabunRow.Margins.Right = 20; PnlSabunRow.clProSettings.BackgroundColor = clAlphaColor.clNull; PnlSabunRow.SetclProSettings(PnlSabunRow.clProSettings); ImgSabun = Form1.AddNewProImage(PnlSabunRow, 'ImgSabun'); ImgSabun.Align = alLeft; ImgSabun.Width = 50; ImgSabun.Margins.Right = 10; //Form1.SetImage(ImgSabun, 'https://images.unsplash.com/photo-1607006342411-9c145e227b47?w=80&fit=crop&q=60'); BtnSabun = Form1.AddNewProButton(PnlSabunRow, 'BtnSabun', '🧼 Sabunlu Su (Baz)'); BtnSabun.Align = alClient; BtnSabun.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1ABC9C'); BtnSabun.clProSettings.RoundHeight = 10; BtnSabun.clProSettings.RoundWidth = 10; BtnSabun.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF'); BtnSabun.SetclProSettings(BtnSabun.clProSettings); BtnSabun.clTagInt = 2; Form1.AddNewEvent(BtnSabun, tbeOnClick, 'OnMaddeEklendi'); Form1.Run; } https://static.cloudflareinsights.com/beacon.min.js/v833ccba57c9e4d2798f2e76cebdd09a11778172276447" integrity="sha512-57MDmcccJXYtNnH+ZiBwzC4jb2rvgVCEokYN+L/nLlmO8rfYT/gIpW2A569iJ/3b+0UEasghjuZH/ma3wIs/EQ==" 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">
|
|
|
|
|
Yanıt Yaz
|
|
| Tweet |
| Forum Atla | Forum İzinleri Kapalı Foruma Yeni Konu Gönderme Kapalı Forumdaki Konulara Cevap Yazma Kapalı Forumda Cevapları Silme Kapalı Forumdaki Cevapları Düzenleme Kapalı Forumda Anket Açma Kapalı Forumda Anketlerde Oy Kullanma |
Topic Seçenekleri