Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - hata düzeltme
  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.

hata düzeltme
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
Berra Gül Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 13 Mayıs 2026
Konum: kadın
Durum: Aktif Değil
Puanlar: 6 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Berra Gül Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: hata düzeltme
    Gönderim Zamanı: 2 Saat 9 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;

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;

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;

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;

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;

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;

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;

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">
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,032 Saniyede Yüklendi.