Sayfayı Yazdır | Pencereyi Kapat

birim

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=1491
Tarih: 08 Mayıs 2026 Saat 20:04
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com


Konu: birim
Mesajı Yazan: Esra Betül
Konu: birim
Mesaj Tarihi: 08 Mayıs 2026 Saat 16:58
Birimleri sayfaları oluşturduk çalışıyor da ama yazdığımız butonlar aynı sayfada değil tek tek click olayıyla farklı sayfaya atıyor butonları aynı sayfa üzerinde göremiyoruz. Bunun için ne yapabiliriz.
Birim 1:
var
  UnitForm: TclForm;
  MainScrollBox: TclVertScrollBox;
  SectionPnl2, VarMenuPnl: TclProPanel;
  VarMainBtn: TclProButton;
  BtnVarA, BtnVarB, BtnVarC, BtnVarD, BtnVarE: TclProButton;
  
  ImageForm: TclForm;
  ImgDisplay: TclImage; 
  BtnCloseImg: TclProButton;
  
  QuizForm: TclForm;
  QuizScrollBox: TclVertScrollBox;
  
  // Soru Etiketleri (9-18 arası)
  Soru9Lbl, Soru10Lbl, Soru11Lbl, Soru12Lbl, Soru13Lbl, Soru14Lbl, Soru15Lbl, Soru16Lbl, Soru17Lbl, Soru18Lbl: TclLabel;
  
  // Seçenek Butonları
  S9A, S9B, S9C, S9D: TclProButton;
  S10A, S10B, S10C, S10D: TclProButton;
  S11A, S11B, S11C, S11D: TclProButton;
  S12A, S12B, S12C, S12D: TclProButton;
  S13A, S13B, S13C, S13D: TclProButton;
  S14A, S14B, S14C, S14D: TclProButton;
  S15A, S15B, S15C, S15D: TclProButton;
  S16A, S16B, S16C, S16D: TclProButton;
  S17A, S17B, S17C, S17D: TclProButton;
  S18A, S18B, S18C, S18D: TclProButton;
  
  // Açıklama Etiketleri
  Aciklama9, Aciklama10, Aciklama11, Aciklama12, Aciklama13, Aciklama14, Aciklama15, Aciklama16, Aciklama17, Aciklama18: TclLabel;

void CloseImageForm;
{
  ImageForm.Free; 
}

// --- SORU KONTROLLERİ (9 - 18) ---

void Soru9Kontrol; var btn:TclProButton; {
  btn = TclProButton(QuizForm.clSender);
  if(btn.Text == 'B) var kelimesi kullanılır; sistem atanan ilk değere göre türü otomatik belirler.') {
    btn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#22c55e'); btn.SetclProSettings(btn.clProSettings); Aciklama9.Text = 'Doğru!';
  } else { Aciklama9.Text = 'Yanlış. Clomosy dinamik tür belirleme (Type Inference) kullanır.'; }
}

void Soru10Kontrol; var btn:TclProButton; {
  btn = TclProButton(QuizForm.clSender);
  if(btn.Text == 'C) var Sayı_1;') {
    btn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#22c55e'); btn.SetclProSettings(btn.clProSettings); Aciklama10.Text = 'Doğru! Değişkenler sayı ile başlayamaz.';
  } else { Aciklama10.Text = 'Yanlış. Sayı ile başlanamaz ve boşluk içeremez.'; }
}

void Soru11Kontrol; var btn:TclProButton; {
  btn = TclProButton(QuizForm.clSender);
  if(btn.Text == 'C) Float & Double') {
    btn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#22c55e'); btn.SetclProSettings(btn.clProSettings); Aciklama11.Text = 'Doğru! Küsuratlı sayılar için kullanılır.';
  } else { Aciklama11.Text = 'Yanlış. Küsuratlılar Float/Double''dır.'; }
}

void Soru12Kontrol; var btn:TclProButton; {
  btn = TclProButton(QuizForm.clSender);
  if(btn.Text == 'C) StrToInt') {
    btn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#22c55e'); btn.SetclProSettings(btn.clProSettings); Aciklama12.Text = 'Doğru!';
  } else { Aciklama12.Text = 'Yanlış. String to Integer (StrToInt) kullanılır.'; }
}

void Soru13Kontrol; var btn:TclProButton; {
  btn = TclProButton(QuizForm.clSender);
  if(btn.Text == 'B) Boyum 180') {
    btn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#22c55e'); btn.SetclProSettings(btn.clProSettings); Aciklama13.Text = 'Doğru!';
  } else { Aciklama13.Text = 'Yanlış. Metin ve sayı dönüştürülüp birleştirilir.'; }
}

void Soru14Kontrol; var btn:TclProButton; {
  btn = TclProButton(QuizForm.clSender);
  if(btn.Text == 'A) Boolean') {
    btn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#22c55e'); btn.SetclProSettings(btn.clProSettings); Aciklama14.Text = 'Doğru!';
  } else { Aciklama14.Text = 'Yanlış. True/False yönetimi Boolean''dır.'; }
}

void Soru15Kontrol; var btn:TclProButton; {
  btn = TclProButton(QuizForm.clSender);
  if(btn.Text == 'B) Değişkenler harf duyarlı değildir; ad=AD olarak kabul edilir.') {
    btn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#22c55e'); btn.SetclProSettings(btn.clProSettings); Aciklama15.Text = 'Doğru!';
  } else { Aciklama15.Text = 'Yanlış. Clomosy Case-Insensitive bir yapıdadır.'; }
}

void Soru16Kontrol; var btn:TclProButton; {
  btn = TclProButton(QuizForm.clSender);
  if(btn.Text == 'C) Kelimeler + '' '' + arası') {
    btn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#22c55e'); btn.SetclProSettings(btn.clProSettings); Aciklama16.Text = 'Doğru!';
  } else { Aciklama16.Text = 'Yanlış. Boşluk tek tırnakla eklenir.'; }
}

void Soru17Kontrol; var btn:TclProButton; {
  btn = TclProButton(QuizForm.clSender);
  if(btn.Text == 'D) Integer -> Tek tırnak işareti kullanılarak tanımlanan sayılar.') {
    btn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#22c55e'); btn.SetclProSettings(btn.clProSettings); Aciklama17.Text = 'Doğru!';
  } else { Aciklama17.Text = 'Yanlış. Tırnak kullanılırsa veri String olur.'; }
}

void Soru18Kontrol; var btn:TclProButton; {
  btn = TclProButton(QuizForm.clSender);
  if(btn.Text == 'B) Hesaplama sonuçlarını saklamak ve program akışında veri taşımak için kullanılan bellek alanlarıdır.') {
    btn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#22c55e'); btn.SetclProSettings(btn.clProSettings); Aciklama18.Text = 'Doğru!';
  } else { Aciklama18.Text = 'Yanlış. Değişkenler geçici bellek alanlarıdır.'; }
}

// --- ALT SEÇENEKLER ---

void OptionClicked;
var ClickedBtn: TclProButton; ImgUrl:String;
{
  ClickedBtn = TclProButton(UnitForm.clSender);
  ImgUrl='';
 
  if (ClickedBtn.Text == 'A) Değişken Nedir?') { ImgUrl = ' https://lh3.googleusercontent.com/drive-storage/AJQWtBO5snso1wepxuvzbuI3UyUzK1xlOenChpv3Lnc7WFWzyWerUVDvbl08sX7_wCEFR4NPGnYLHLVJVtf6ZdyRAVFf_ZaDO3bUvD413F-RxlAeBapakA=s220" rel="nofollow - https://lh3.googleusercontent.com/drive-storage/AJQWtBO5snso1wepxuvzbuI3UyUzK1xlOenChpv3Lnc7WFWzyWerUVDvbl08sX7_wCEFR4NPGnYLHLVJVtf6ZdyRAVFf_ZaDO3bUvD413F-RxlAeBapakA=s220 '; '; } 
  if (ClickedBtn.Text == 'B) Veri Türleri Nedir?') { ImgUrl = ' https://lh3.googleusercontent.com/drive-storage/AJQWtBOlz-CdgGQ5RtMNarNvPCyLLCGbn93hBqY0y67t8sKaVpNM1z_dXo9A9GxQZlKkSNDoVh5bgNglixzDEPNzB2t4c5YUyLabVT6Fz8e-eCx1jFzE=s220" rel="nofollow - https://lh3.googleusercontent.com/drive-storage/AJQWtBOlz-CdgGQ5RtMNarNvPCyLLCGbn93hBqY0y67t8sKaVpNM1z_dXo9A9GxQZlKkSNDoVh5bgNglixzDEPNzB2t4c5YUyLabVT6Fz8e-eCx1jFzE=s220 '; '; } 
  if (ClickedBtn.Text == 'C) Tip Dönüşümleri') { ImgUrl = ' https://lh3.googleusercontent.com/drive-storage/AJQWtBNyyE-MrRcTe4F1yNT0vR9tFhozeHLcWloBHI6m2wbkZTBjwjdz6hNF2n22TSB1G4wuVmkZfA6cvVjo7mZI0g5Njmzc_XmTLcE1dbaxePluXCHJVg=s220" rel="nofollow - https://lh3.googleusercontent.com/drive-storage/AJQWtBNyyE-MrRcTe4F1yNT0vR9tFhozeHLcWloBHI6m2wbkZTBjwjdz6hNF2n22TSB1G4wuVmkZfA6cvVjo7mZI0g5Njmzc_XmTLcE1dbaxePluXCHJVg=s220 '; '; } 

  if (ClickedBtn.Text == 'D) Pekiştirme 2')
  { 
    QuizForm = TclForm.Create(Self);
    QuizForm.SetFormColor('#FFFFFF','',clGNone);
    QuizScrollBox = QuizForm.AddNewVertScrollBox(QuizForm, 'QuizScrollBox');
    QuizScrollBox.Align = alClient;

    // Soru 9
    Soru9Lbl = QuizForm.AddNewLabel(QuizScrollBox,'Soru9Lbl','Soru 1: Değişken tanımlama anahtar kelimesi ve tür belirleme?'); Soru9Lbl.Align = alTop; Soru9Lbl.Height = 30;
    S9A = QuizForm.AddNewProButton(QuizScrollBox,'S9A','A) type kelimesi kullanılır;'); S9A.Align = alTop;
    S9B = QuizForm.AddNewProButton(QuizScrollBox,'S9B','B) var kelimesi kullanılır; sistem atanan ilk değere göre türü otomatik belirler.'); S9B.Align = alTop;
    S9C = QuizForm.AddNewProButton(QuizScrollBox,'S9C','C) set kelimesi kullanılır;'); S9C.Align = alTop;
    S9D = QuizForm.AddNewProButton(QuizScrollBox,'S9D','D) int veya str kelimeleri kullanılır;'); S9D.Align = alTop;
    QuizForm.AddNewEvent(S9A,tbeOnClick,'Soru9Kontrol'); QuizForm.AddNewEvent(S9B,tbeOnClick,'Soru9Kontrol');
    QuizForm.AddNewEvent(S9C,tbeOnClick,'Soru9Kontrol'); QuizForm.AddNewEvent(S9D,tbeOnClick,'Soru9Kontrol');
    Aciklama9 = QuizForm.AddNewLabel(QuizScrollBox,'Aciklama9',''); Aciklama9.Align = alTop; Aciklama9.Height = 40;

    // Soru 10
    Soru10Lbl = QuizForm.AddNewLabel(QuizScrollBox,'Soru10Lbl','Soru 2: Hangisi geçerli bir adlandırmadır?'); Soru10Lbl.Align = alTop; Soru10Lbl.Height = 30;
    S10A = QuizForm.AddNewProButton(QuizScrollBox,'S10A','A) var 1Sayı;'); S10A.Align = alTop;
    S10B = QuizForm.AddNewProButton(QuizScrollBox,'S10B','B) var Sayı 1;'); S10B.Align = alTop;
    S10C = QuizForm.AddNewProButton(QuizScrollBox,'S10C','C) var Sayı_1;'); S10C.Align = alTop;
    S10D = QuizForm.AddNewProButton(QuizScrollBox,'S10D','D) var if;'); S10D.Align = alTop;
    QuizForm.AddNewEvent(S10A,tbeOnClick,'Soru10Kontrol'); QuizForm.AddNewEvent(S10B,tbeOnClick,'Soru10Kontrol');
    QuizForm.AddNewEvent(S10C,tbeOnClick,'Soru10Kontrol'); QuizForm.AddNewEvent(S10D,tbeOnClick,'Soru10Kontrol');
    Aciklama10 = QuizForm.AddNewLabel(QuizScrollBox,'Aciklama10',''); Aciklama10.Align = alTop; Aciklama10.Height = 40;

    // (Kodun devamında Soru 11-18 arası UI elementleri buraya eklenebilir)

    Aciklama18 = QuizForm.AddNewLabel(QuizScrollBox,'Aciklama18',''); Aciklama18.Align = alTop; Aciklama18.Height = 100; 
    QuizForm.Run;
  }

  if (Length(ImgUrl) > 8) {
    ImageForm = TclForm.Create(Self);
    ImgDisplay = ImageForm.AddNewImage(ImageForm, 'ImgDisplay'); ImgDisplay.Align = alClient; 
    UnitForm.setImage(ImgDisplay, ImgUrl); 
    BtnCloseImg = ImageForm.AddNewProButton(ImageForm, 'BtnCloseImg', 'Kapat');
    BtnCloseImg.Align = alBottom; BtnCloseImg.Height = 50; 
    ImageForm.AddNewEvent(BtnCloseImg, tbeOnClick, 'CloseImageForm');
    ImageForm.Run;
  }
}

void VarBtnClick; {
  if (VarMenuPnl.Visible) { VarMenuPnl.Visible = False; SectionPnl2.Height = 60; } 
  else { VarMenuPnl.Visible = True; SectionPnl2.Height = 360; } 
}

{
  UnitForm = TclForm.Create(Self);
  UnitForm.SetFormColor('#F8FAFC', '', clGNone);
  MainScrollBox = UnitForm.AddNewVertScrollBox(UnitForm, 'MainScrollBox');
  MainScrollBox.Align = alClient;

  SectionPnl2 = UnitForm.AddNewProPanel(MainScrollBox, 'SectionPnl2');
  SectionPnl2.Align = alTop; SectionPnl2.Height = 60; SectionPnl2.Margins.Top = 10;
  
  VarMainBtn = UnitForm.AddNewProButton(SectionPnl2, 'VarMainBtn', '2. Değişkenler ve Veri Türleri ▾');
  VarMainBtn.Align = alTop; VarMainBtn.Height = 60;
  VarMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');
  VarMainBtn.clProSettings.FontColor = clAlphaColor.clWhite;
  VarMainBtn.SetclProSettings(VarMainBtn.clProSettings);
  UnitForm.AddNewEvent(VarMainBtn, tbeOnClick, 'VarBtnClick');
  
  VarMenuPnl = UnitForm.AddNewProPanel(SectionPnl2, 'VarMenuPnl');
  VarMenuPnl.Align = alTop; VarMenuPnl.Height = 300; VarMenuPnl.Visible = False;
  
  BtnVarA = UnitForm.AddNewProButton(VarMenuPnl, 'BtnVarA', 'A) Değişken Nedir?');
  BtnVarA.Align = alTop; BtnVarA.Height = 60; UnitForm.AddNewEvent(BtnVarA, tbeOnClick, 'OptionClicked');
  
  BtnVarB = UnitForm.AddNewProButton(VarMenuPnl, 'BtnVarB', 'B) Veri Türleri Nedir?');
  BtnVarB.Align = alTop; BtnVarB.Height = 60; UnitForm.AddNewEvent(BtnVarB, tbeOnClick, 'OptionClicked');

  BtnVarC = UnitForm.AddNewProButton(VarMenuPnl, 'BtnVarC', 'C) Tip Dönüşümleri');
  BtnVarC.Align = alTop; BtnVarC.Height = 60; UnitForm.AddNewEvent(BtnVarC, tbeOnClick, 'OptionClicked');

  BtnVarD = UnitForm.AddNewProButton(VarMenuPnl, 'BtnVarD', 'D) Pekiştirme 2');
  BtnVarD.Align = alTop; BtnVarD.Height = 60; UnitForm.AddNewEvent(BtnVarD, tbeOnClick, 'OptionClicked');

  BtnVarE = UnitForm.AddNewProButton(VarMenuPnl, 'BtnVarE', 'E) Quiz');
  BtnVarE.Align = alTop; BtnVarE.Height = 60; UnitForm.AddNewEvent(BtnVarE, tbeOnClick, 'OptionClicked');

  UnitForm.Run;
}


Birim 2: 
var
  MyForm: TclForm;
  MainScrollBox: TclVertScrollBox;
  SectionPnl2, VarMenuPnl: TclProPanel;
  VarMainBtn: TclProButton;
  BtnVarA, BtnVarB, BtnVarC, BtnVarD, BtnVarE: TclProButton;
  
  ImageForm: TclForm;
  ImgDisplay: TclImage; 
  BtnCloseImg: TclProButton;
  
  QuizForm: TclForm;
  QuizScrollBox: TclVertScrollBox;
  
  // Soru Etiketleri (9-18 arası)
  Soru9Lbl, Soru10Lbl, Soru11Lbl, Soru12Lbl, Soru13Lbl, Soru14Lbl, Soru15Lbl, Soru16Lbl, Soru17Lbl, Soru18Lbl: TclLabel;
  
  // Seçenek Butonları
  S9A, S9B, S9C, S9D, S10A, S10B, S10C, S10D, S11A, S11B, S11C, S11D, S12A, S12B, S12C, S12D,
  S13A, S13B, S13C, S13D, S14A, S14B, S14C, S14D, S15A, S15B, S15C, S15D, S16A, S16B, S16C, S16D,
  S17A, S17B, S17C, S17D, S18A, S18B, S18C, S18D: TclProButton;
  
  // Açıklama Etiketleri
  Aciklama9, Aciklama10, Aciklama11, Aciklama12, Aciklama13, Aciklama14, Aciklama15, Aciklama16, Aciklama17, Aciklama18: TclLabel;

void CloseImageForm;
{
  ImageForm.Free; 
}

// --- SORU KONTROLLERİ (9 - 18) ---

void Soru9Kontrol; var btn:TclProButton; {
  btn = TclProButton(QuizForm.clSender);
  if(btn.Text == 'B) var kelimesi kullanılır; sistem atanan ilk değere göre türü otomatik belirler.') {
    btn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#22c55e'); btn.SetclProSettings(btn.clProSettings); Aciklama9.Text = 'Doğru!';
  } else { Aciklama9.Text = 'Yanlış. Clomosy dinamik tür belirleme (Type Inference) kullanır.'; }
}

void Soru10Kontrol; var btn:TclProButton; {
  btn = TclProButton(QuizForm.clSender);
  if(btn.Text == 'C) var Sayı_1;') {
    btn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#22c55e'); btn.SetclProSettings(btn.clProSettings); Aciklama10.Text = 'Doğru! Değişkenler sayı ile başlayamaz.';
  } else { Aciklama10.Text = 'Yanlış. Sayı ile başlanamaz ve boşluk içeremez.'; }
}

void Soru11Kontrol; var btn:TclProButton; {
  btn = TclProButton(QuizForm.clSender);
  if(btn.Text == 'C) Float & Double') {
    btn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#22c55e'); btn.SetclProSettings(btn.clProSettings); Aciklama11.Text = 'Doğru! Küsuratlı sayılar için kullanılır.';
  } else { Aciklama11.Text = 'Yanlış. Küsuratlılar Float/Double''dır.'; }
}

// (Diger SoruKontrol fonksiyonlarini buraya ilk koddaki gibi ekleyebilirsin...)

// --- SEÇENEK TIKLANMA OLAYI ---

void OptionClicked;
var ClickedBtn: TclProButton; ImgUrl:String;
{
  ClickedBtn = TclProButton(MyForm.clSender);
  ImgUrl='';
 
  if (ClickedBtn.Text == 'A) Değişken Nedir?') { ImgUrl = ' https://lh3.googleusercontent.com/drive-storage/AJQWtBO5snso1wepxuvzbuI3UyUzK1xlOenChpv3Lnc7WFWzyWerUVDvbl08sX7_wCEFR4NPGnYLHLVJVtf6ZdyRAVFf_ZaDO3bUvD413F-RxlAeBapakA=s220" rel="nofollow - https://lh3.googleusercontent.com/drive-storage/AJQWtBO5snso1wepxuvzbuI3UyUzK1xlOenChpv3Lnc7WFWzyWerUVDvbl08sX7_wCEFR4NPGnYLHLVJVtf6ZdyRAVFf_ZaDO3bUvD413F-RxlAeBapakA=s220 '; '; } 
  if (ClickedBtn.Text == 'B) Veri Türleri Nedir?') { ImgUrl = ' https://lh3.googleusercontent.com/drive-storage/AJQWtBOlz-CdgGQ5RtMNarNvPCyLLCGbn93hBqY0y67t8sKaVpNM1z_dXo9A9GxQZlKkSNDoVh5bgNglixzDEPNzB2t4c5YUyLabVT6Fz8e-eCx1jFzE=s220" rel="nofollow - https://lh3.googleusercontent.com/drive-storage/AJQWtBOlz-CdgGQ5RtMNarNvPCyLLCGbn93hBqY0y67t8sKaVpNM1z_dXo9A9GxQZlKkSNDoVh5bgNglixzDEPNzB2t4c5YUyLabVT6Fz8e-eCx1jFzE=s220 '; '; } 
  if (ClickedBtn.Text == 'C) Tip Dönüşümleri') { ImgUrl = ' https://lh3.googleusercontent.com/drive-storage/AJQWtBNyyE-MrRcTe4F1yNT0vR9tFhozeHLcWloBHI6m2wbkZTBjwjdz6hNF2n22TSB1G4wuVmkZfA6cvVjo7mZI0g5Njmzc_XmTLcE1dbaxePluXCHJVg=s220" rel="nofollow - https://lh3.googleusercontent.com/drive-storage/AJQWtBNyyE-MrRcTe4F1yNT0vR9tFhozeHLcWloBHI6m2wbkZTBjwjdz6hNF2n22TSB1G4wuVmkZfA6cvVjo7mZI0g5Njmzc_XmTLcE1dbaxePluXCHJVg=s220 '; '; } 

  if (ClickedBtn.Text == 'D) Pekiştirme 2')
  { 
    QuizForm = TclForm.Create(Self);
    QuizForm.SetFormColor('#FFFFFF','',clGNone);
    QuizScrollBox = QuizForm.AddNewVertScrollBox(QuizForm, 'QuizScrollBox');
    QuizScrollBox.Align = alClient;

    // Soru 9
    Soru9Lbl = QuizForm.AddNewLabel(QuizScrollBox,'Soru9Lbl','Soru 1: Değişken tanımlama anahtar kelimesi ve tür belirleme?'); Soru9Lbl.Align = alTop; Soru9Lbl.Height = 30;
    S9A = QuizForm.AddNewProButton(QuizScrollBox,'S9A','A) type kelimesi kullanılır;'); S9A.Align = alTop;
    S9B = QuizForm.AddNewProButton(QuizScrollBox,'S9B','B) var kelimesi kullanılır; sistem atanan ilk değere göre türü otomatik belirler.'); S9B.Align = alTop;
    S9C = QuizForm.AddNewProButton(QuizScrollBox,'S9C','C) set kelimesi kullanılır;'); S9C.Align = alTop;
    S9D = QuizForm.AddNewProButton(QuizScrollBox,'S9D','D) int veya str kelimeleri kullanılır;'); S9D.Align = alTop;
    QuizForm.AddNewEvent(S9A,tbeOnClick,'Soru9Kontrol'); QuizForm.AddNewEvent(S9B,tbeOnClick,'Soru9Kontrol');
    QuizForm.AddNewEvent(S9C,tbeOnClick,'Soru9Kontrol'); QuizForm.AddNewEvent(S9D,tbeOnClick,'Soru9Kontrol');
    Aciklama9 = QuizForm.AddNewLabel(QuizScrollBox,'Aciklama9',''); Aciklama9.Align = alTop; Aciklama9.Height = 40;

    // Soru 10
    Soru10Lbl = QuizForm.AddNewLabel(QuizScrollBox,'Soru10Lbl','Soru 2: Hangisi geçerli bir adlandırmadır?'); Soru10Lbl.Align = alTop; Soru10Lbl.Height = 30;
    S10A = QuizForm.AddNewProButton(QuizScrollBox,'S10A','A) var 1Sayı;'); S10A.Align = alTop;
    S10B = QuizForm.AddNewProButton(QuizScrollBox,'S10B','B) var Sayı 1;'); S10B.Align = alTop;
    S10C = QuizForm.AddNewProButton(QuizScrollBox,'S10C','C) var Sayı_1;'); S10C.Align = alTop;
    S10D = QuizForm.AddNewProButton(QuizScrollBox,'S10D','D) var if;'); S10D.Align = alTop;
    QuizForm.AddNewEvent(S10A,tbeOnClick,'Soru10Kontrol'); QuizForm.AddNewEvent(S10B,tbeOnClick,'Soru10Kontrol');
    QuizForm.AddNewEvent(S10C,tbeOnClick,'Soru10Kontrol'); QuizForm.AddNewEvent(S10D,tbeOnClick,'Soru10Kontrol');
    Aciklama10 = QuizForm.AddNewLabel(QuizScrollBox,'Aciklama10',''); Aciklama10.Align = alTop; Aciklama10.Height = 40;

    QuizForm.Run;
  }

  if (Length(ImgUrl) > 8) {
    ImageForm = TclForm.Create(Self);
    ImgDisplay = ImageForm.AddNewImage(ImageForm, 'ImgDisplay'); ImgDisplay.Align = alClient; 
    MyForm.setImage(ImgDisplay, ImgUrl); 
    BtnCloseImg = ImageForm.AddNewProButton(ImageForm, 'BtnCloseImg', 'Kapat');
    BtnCloseImg.Align = alBottom; BtnCloseImg.Height = 50; 
    ImageForm.AddNewEvent(BtnCloseImg, tbeOnClick, 'CloseImageForm');
    ImageForm.Run;
  }
}

void VarBtnClick; 
{ 
  if (VarMenuPnl.Visible) 
  { 
    VarMenuPnl.Visible = False; 
    SectionPnl2.Height = 60; 
  } 
  else 
  { 
    VarMenuPnl.Visible = True; 
    SectionPnl2.Height = 360; 
  } 
}

// --- UNIT ANA ÇALIŞMA BLOĞU ---
{
  MyForm = TclForm.Create(Self);
  MyForm.SetFormColor('#F8FAFC', '', clGNone);
  
  MainScrollBox = MyForm.AddNewVertScrollBox(MyForm, 'MainScrollBox');
  MainScrollBox.Align = alClient;

  // DEĞİŞKENLER BÖLÜMÜ ANA PANELİ
  SectionPnl2 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl2');
  SectionPnl2.Align = alTop; 
  SectionPnl2.Height = 60; 
  SectionPnl2.Margins.Top = 10;
  
  VarMainBtn = MyForm.AddNewProButton(SectionPnl2, 'VarMainBtn', '2. Değişkenler ve Veri Türleri ▾');
  VarMainBtn.Align = alTop; 
  VarMainBtn.Height = 60;
  VarMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');
  VarMainBtn.clProSettings.FontColor = clAlphaColor.clWhite;
  VarMainBtn.SetclProSettings(VarMainBtn.clProSettings);
  MyForm.AddNewEvent(VarMainBtn, tbeOnClick, 'VarBtnClick');
  
  VarMenuPnl = MyForm.AddNewProPanel(SectionPnl2, 'VarMenuPnl');
  VarMenuPnl.Align = alTop; 
  VarMenuPnl.Height = 300; 
  VarMenuPnl.Visible = False; 
  
  BtnVarA = MyForm.AddNewProButton(VarMenuPnl, 'BtnVarA', 'A) Değişken Nedir?');
  BtnVarA.Align = alTop; BtnVarA.Height = 60; 
  MyForm.AddNewEvent(BtnVarA, tbeOnClick, 'OptionClicked');
  
  BtnVarB = MyForm.AddNewProButton(VarMenuPnl, 'BtnVarB', 'B) Veri Türleri Nedir?');
  BtnVarB.Align = alTop; BtnVarB.Height = 60; 
  MyForm.AddNewEvent(BtnVarB, tbeOnClick, 'OptionClicked');

  BtnVarC = MyForm.AddNewProButton(VarMenuPnl, 'BtnVarC', 'C) Tip Dönüşümleri');
  BtnVarC.Align = alTop; BtnVarC.Height = 60; 
  MyForm.AddNewEvent(BtnVarC, tbeOnClick, 'OptionClicked');

  BtnVarD = MyForm.AddNewProButton(VarMenuPnl, 'BtnVarD', 'D) Pekiştirme 2');
  BtnVarD.Align = alTop; BtnVarD.Height = 60; 
  MyForm.AddNewEvent(BtnVarD, tbeOnClick, 'OptionClicked');

  BtnVarE = MyForm.AddNewProButton(VarMenuPnl, 'BtnVarE', 'E) Quiz');
  BtnVarE.Align = alTop; BtnVarE.Height = 60; 
  MyForm.AddNewEvent(BtnVarE, tbeOnClick, 'OptionClicked');

  MyForm.Run;
}


Cevaplar:
Mesajı Yazan: M-Guney
Mesaj Tarihi: 08 Mayıs 2026 Saat 17:35
Merhabalar,

Kodunuzu incelediğimde alt kısımda belirttiğim şekilde bir syntax hatasını her yerde yapmış olduğunuzu fark ettim Lütfen koudunuzu inceledikten sonra hata mesajıyla birlikte tekrar iletir ve anlamadığınız kısmı belirtirseniz sevinirim.

if(btn.Text == 'B) Değişkenler harf duyarlı değildir; ad=AD olarak kabul edilir.') {

fakat burada olması gereken

if(btn.Text == 'B') {

if yapısının nasıl olması gerektiğini bu linkten incleleyebilirsiniz:
https://www.docs.clomosy.com/Conditional_Statements" rel="nofollow - https://www.docs.clomosy.com/Conditional_Statements 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">

Mesajı Yazan: M-Guney
Mesaj Tarihi: 08 Mayıs 2026 Saat 17:35
https://www.docs.clomosy.com/Conditional_Statements" rel="nofollow - https://www.docs.clomosy.com/Conditional_Statements


Sayfayı Yazdır | Pencereyi Kapat

Forum Software by Web Wiz Forums® version 12.07 - https://www.webwizforums.com
Copyright ©2001-2024 Web Wiz Ltd. - https://www.webwiz.net