Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - github üzerinden fotoğraf yükleme 2
  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.

github üzerinden fotoğraf yükleme 2
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
Esra Betül Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 17 Nisan 2026
Konum: Konya
Durum: Aktif Değil
Puanlar: 13 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Esra Betül Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: github üzerinden fotoğraf yükleme 2
    Gönderim Zamanı: 2 Saat 45 Dakika Önce Saat 22:42

hocam diğer sayfadan yanıtlayamadım mesaj atma sınırı varmış
var
  MyForm: TclForm;
  MainScrollBox: TclVertScrollBox;
  
  ImageForm: TclForm;
  ImgDisplay: TclImage; 
  BtnCloseImg: TclProButton;
  
  
  SectionPnl1, SectionPnl2, SectionPnl3, SectionPnl4, SectionPnl5, SectionPnl6, 
  SectionPnl7, SectionPnl8, SectionPnl9, SectionPnl10, SectionPnl11: TclProPanel;
  
  PrintMainBtn, VarMainBtn, OpMainBtn, ConMainBtn, LoopMainBtn, ArrMainBtn, 
  VoidMainBtn, TryMainBtn, FormMainBtn, CompMainBtn, EventMainBtn: TclProButton;
  
  PrintMenuPnl, VarMenuPnl, OpMenuPnl, ConMenuPnl, LoopMenuPnl, ArrMenuPnl, 
  VoidMenuPnl, TryMenuPnl, FormMenuPnl, CompMenuPnl, EventMenuPnl: TclProPanel;
  
  BtnPrintA, BtnPrintB, BtnPrintC: TclProButton;
  BtnVarA, BtnVarB, BtnVarC, BtnVarD, BtnVarE: TclProButton;
  BtnOp1, BtnOp2, BtnOp3: TclProButton;
  BtnCon1, BtnCon2, BtnCon3, BtnCon4: TclProButton;
  BtnL1, BtnL2, BtnL3, BtnL4, BtnL5, BtnL6: TclProButton;
  BtnArr1, BtnArr2, BtnArr3: TclProButton;
  BtnV1, BtnV2, BtnV3, BtnV4, BtnV5, BtnV6: TclProButton;
  BtnTry1, BtnTry2, BtnTry3, BtnTry4: TclProButton;
  BtnForm1, BtnForm2, BtnForm3, BtnForm4: TclProButton;
  BtnComp1, BtnComp2, BtnComp3, BtnComp4, BtnComp5: TclProButton;
  BtnEv1, BtnEv2, BtnEv3, BtnEv4: TclProButton;



void CloseImageForm;
{
  ImageForm.Free; 
}


void AssetleriYukle;
{
/*  YonetimForm.AddAssetFromUrl('https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/ses1.png'); // müzik buton
  YonetimForm.AddAssetFromUrl('https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/restartbtn.png'); // yeniden başlat buton
  YonetimForm.AddAssetFromUrl('https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/felaket1.png'); // Felaket görseli
  YonetimForm.AddAssetFromUrl('https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/felaket2.png'); // Felaket görseli
  YonetimForm.AddAssetFromUrl('https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/felaket3.png'); // Felaket görseli
  YonetimForm.AddAssetFromUrl('https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/felaket4.png'); // Felaket görseli
  YonetimForm.AddAssetFromUrl('https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/oyunsonu.png'); // oyun sonu görseli
 YonetimForm.AddAssetFromUrl('https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/nufus.png'); // nüfus görseli
 */
  
}


void OptionClicked;
var 
  ClickedBtn: TclProButton;
  ImgUrl:String;
{
  ClickedBtn = TclProButton(MyForm.clSender);
 //ShowMessage('Seçilen Bölüm: ' + ClickedBtn.Text);
 ImgUrl='';
 
 // 1. Ünite - ShowMessage Kontrolü
  if (ClickedBtn.Text == 'A) ShowMessage Nedir?') 
  {
    ImgUrl = '';// asset konumunu yazıcaz
    
  } 
  
  // 2. Ünite - Değişken Nedir Kontrolü (Hata Aldığın Yer Burasıydı)
  if (ClickedBtn.Text == 'A) Değişken Nedir?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  if (ClickedBtn.Text == 'B) Veri Türleri Nedir?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  if (ClickedBtn.Text == 'C) Tip Dönüşümleri') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  // 3. unıte
   if (ClickedBtn.Text == '1) Operatör Türleri') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  
  
  //4. unit
   
  if (ClickedBtn.Text == '1) If-Else Nedir?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  
    
  if (ClickedBtn.Text == '2) Case Nedir') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
 
  //5. unıte
  
  
  if (ClickedBtn.Text == '1) While Nedir?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  
    
  if (ClickedBtn.Text == '2) Repeat-Until Nedir') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  
  if (ClickedBtn.Text == '3) For Nedir?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
    
  }
  
    
  if (ClickedBtn.Text == '4) Döngü Yönlendirme İfadeleri?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  
     
  if (ClickedBtn.Text == '1) Diziler Nedir?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
    }
  
  
  
  
  if (ClickedBtn.Text == '1) Parametreli Prosedür?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  
    
  if (ClickedBtn.Text == '2) Parametresiz Prosedür?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  
  if (ClickedBtn.Text == '3) Fonksiyon Nedir?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
    
  }
  
  if (ClickedBtn.Text == '4) Hazır Kütüphaneler?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  
  
    if (ClickedBtn.Text == '1) Try-Except Nedir?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  
    
  if (ClickedBtn.Text == '2) Try-Finally Nedir?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  
   if (ClickedBtn.Text == '1) Form Nedir?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  
   if (ClickedBtn.Text == '2) Form Özellikleri') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  
   if (ClickedBtn.Text == '1) Çeşitler Nelerdir?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  
  
   if (ClickedBtn.Text == '2) Ortak Özellikler?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  
  
   if (ClickedBtn.Text == '3) Temel Özellikler?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  
    if (ClickedBtn.Text == '1) Events Nedir?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  
    if (ClickedBtn.Text == '2) Çeşitleri Nedir?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  
  // Sadece URL doluysa ve geçerli bir link gibi görünüyorsa işlem yap
  if (Length(ImgUrl) > 8) 
  {
    ImageForm = TclForm.Create(Self);
    ImageForm.SetFormColor('#000000', '', clGNone); 
    
    PrintMenuPnl.Visible = False;
    VarMenuPnl.Visible = False;
    
    ImgDisplay = ImageForm.AddNewImage(ImageForm, 'ImgDisplay');
    ImgDisplay.Align = alClient; 
    
    // Hata veren satır: ImgUrl boş veya hatalıysa uygulama kapanır.
    MyForm.setImage(ImgDisplay, ImgUrl); 
    
    BtnCloseImg = ImageForm.AddNewProButton(ImageForm, 'BtnCloseImg', 'Kapat');
    BtnCloseImg.Align = alBottom; 
    BtnCloseImg.Height = 50; 
    BtnCloseImg.Margins.Bottom = 20; 
    BtnCloseImg.Margins.Left = 50; 
    BtnCloseImg.Margins.Right = 50;
    BtnCloseImg.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E11D48'); 
    BtnCloseImg.clProSettings.FontColor = clAlphaColor.clWhite;
    BtnCloseImg.clProSettings.RoundHeight = 10; 
    BtnCloseImg.clProSettings.RoundWidth = 10;
    BtnCloseImg.SetclProSettings(BtnCloseImg.clProSettings);
    
    ImageForm.AddNewEvent(BtnCloseImg, tbeOnClick, 'CloseImageForm');
    
    ImageForm.Run;
  }
  
}

void CloseAllPanels;
{
  PrintMenuPnl.Visible = False; SectionPnl1.Height = 50;
  VarMenuPnl.Visible = False;   SectionPnl2.Height = 50;
  OpMenuPnl.Visible = False;    SectionPnl3.Height = 50;
  ConMenuPnl.Visible = False;   SectionPnl4.Height = 50;
  LoopMenuPnl.Visible = False;  SectionPnl5.Height = 50;
  ArrMenuPnl.Visible = False;   SectionPnl6.Height = 50;
  VoidMenuPnl.Visible = False;  SectionPnl7.Height = 50;
  TryMenuPnl.Visible = False;   SectionPnl8.Height = 50;
  FormMenuPnl.Visible = False;  SectionPnl9.Height = 50;
  CompMenuPnl.Visible = False;  SectionPnl10.Height = 50;
  EventMenuPnl.Visible = False; SectionPnl11.Height = 50;
}

// --- TIKLAMA OLAYLARI ---

void PrintBtnClick; 
{ 
  if (PrintMenuPnl.Visible) { PrintMenuPnl.Visible = False; SectionPnl1.Height = 50; } 
  else { CloseAllPanels; PrintMenuPnl.Visible = True; SectionPnl1.Height = 200; } 
}

void VarBtnClick;   
{ 
  if (VarMenuPnl.Visible) { VarMenuPnl.Visible = False; SectionPnl2.Height = 50; } 
  else { CloseAllPanels; VarMenuPnl.Visible = True; SectionPnl2.Height = 300; } 
}

void OpBtnClick;    
{ 
  if (OpMenuPnl.Visible) { OpMenuPnl.Visible = False; SectionPnl3.Height = 50; } 
  else { CloseAllPanels; OpMenuPnl.Visible = True; SectionPnl3.Height = 200; } 
}

void ConBtnClick;   
{ 
  if (ConMenuPnl.Visible) { ConMenuPnl.Visible = False; SectionPnl4.Height = 50; } 
  else { CloseAllPanels; ConMenuPnl.Visible = True; SectionPnl4.Height = 250; } 
}

void LoopBtnClick;  
{ 
  if (LoopMenuPnl.Visible) { LoopMenuPnl.Visible = False; SectionPnl5.Height = 50; } 
  else { CloseAllPanels; LoopMenuPnl.Visible = True; SectionPnl5.Height = 350; } 
}

void ArrBtnClick;   
{ 
  if (ArrMenuPnl.Visible) { ArrMenuPnl.Visible = False; SectionPnl6.Height = 50; } 
  else { CloseAllPanels; ArrMenuPnl.Visible = True; SectionPnl6.Height = 200; } 
}

void VoidBtnClick;  
{ 
  if (VoidMenuPnl.Visible) { VoidMenuPnl.Visible = False; SectionPnl7.Height = 50; } 
  else { CloseAllPanels; VoidMenuPnl.Visible = True; SectionPnl7.Height = 350; } 
}

void TryBtnClick;   
{ 
  if (TryMenuPnl.Visible) { TryMenuPnl.Visible = False; SectionPnl8.Height = 50; } 
  else { CloseAllPanels; TryMenuPnl.Visible = True; SectionPnl8.Height = 250; } 
}

void FormBtnClick;  
{ 
  if (FormMenuPnl.Visible) { FormMenuPnl.Visible = False; SectionPnl9.Height = 50; } 
  else { CloseAllPanels; FormMenuPnl.Visible = True; SectionPnl9.Height = 250; } 
}

void CompBtnClick;  
{ 
  if (CompMenuPnl.Visible) { CompMenuPnl.Visible = False; SectionPnl10.Height = 50; } 
  else { CloseAllPanels; CompMenuPnl.Visible = True; SectionPnl10.Height = 300; } 
}

void EventBtnClick; 
{ 
  if (EventMenuPnl.Visible) { EventMenuPnl.Visible = False; SectionPnl11.Height = 50; } 
  else { CloseAllPanels; EventMenuPnl.Visible = True; SectionPnl11.Height = 250; } 
}

// --- ANA TASARIM BLOĞU ---

{
  MyForm = TclForm.Create(Self);
  

  
  MyForm.SetFormColor('#F8FAFC', '', clGNone);
  MainScrollBox = MyForm.AddNewVertScrollBox(MyForm, 'MainScrollBox');
  MainScrollBox.Align = alClient;

  // --- 1. PRINT ---
  SectionPnl1 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl1');
  SectionPnl1.Align = alTop; SectionPnl1.Height = 50; SectionPnl1.Margins.Top = 10;
  PrintMainBtn = MyForm.AddNewProButton(SectionPnl1, 'PrintMainBtn', '1. Print İşlemleri ▾');
  PrintMainBtn.Align = alTop; PrintMainBtn.Height = 50;
  PrintMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');
  PrintMainBtn.clProSettings.FontColor = clAlphaColor.clWhite;
  PrintMainBtn.SetclProSettings(PrintMainBtn.clProSettings);
  MyForm.AddNewEvent(PrintMainBtn, tbeOnClick, 'PrintBtnClick');
  
  PrintMenuPnl = MyForm.AddNewProPanel(SectionPnl1, 'PrintMenuPnl');
  PrintMenuPnl.Align = alTop; PrintMenuPnl.Height = 150; PrintMenuPnl.Visible = False;
  BtnPrintA = MyForm.AddNewProButton(PrintMenuPnl, 'BtnPrintA', 'A) ShowMessage Nedir?');
  BtnPrintA.Align = alTop; BtnPrintA.Height = 50; MyForm.AddNewEvent(BtnPrintA, tbeOnClick, 'OptionClicked');
  BtnPrintB = MyForm.AddNewProButton(PrintMenuPnl, 'BtnPrintB', 'B) Pekiştirme');
  BtnPrintB.Align = alTop; BtnPrintB.Height = 50; MyForm.AddNewEvent(BtnPrintB, tbeOnClick, 'OptionClicked');
  BtnPrintC = MyForm.AddNewProButton(PrintMenuPnl, 'BtnPrintC', 'C) Quiz');
  BtnPrintC.Align = alTop; BtnPrintC.Height = 50; MyForm.AddNewEvent(BtnPrintC, tbeOnClick, 'OptionClicked');

  // --- 2. DEĞİŞKENLER ---
  SectionPnl2 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl2');
  SectionPnl2.Align = alTop; SectionPnl2.Height = 50; SectionPnl2.Margins.Top = 10;
  VarMainBtn = MyForm.AddNewProButton(SectionPnl2, 'VarMainBtn', '2. Değişkenler ve Veri Türleri ▾');
  VarMainBtn.Align = alTop; VarMainBtn.Height = 50;
  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 = 250; VarMenuPnl.Visible = False;
  BtnVarA = MyForm.AddNewProButton(VarMenuPnl, 'BtnVarA', 'A) Değişken Nedir?');
  BtnVarA.Align = alTop; BtnVarA.Height = 50; MyForm.AddNewEvent(BtnVarA, tbeOnClick, 'OptionClicked');
  BtnVarB = MyForm.AddNewProButton(VarMenuPnl, 'BtnVarB', 'B) Veri Türleri Nedir?');
  BtnVarB.Align = alTop; BtnVarB.Height = 50; MyForm.AddNewEvent(BtnVarB, tbeOnClick, 'OptionClicked');
  BtnVarC = MyForm.AddNewProButton(VarMenuPnl, 'BtnVarC', 'C) Tip Dönüşümleri');
  BtnVarC.Align = alTop; BtnVarC.Height = 50; MyForm.AddNewEvent(BtnVarC, tbeOnClick, 'OptionClicked');
  BtnVarD = MyForm.AddNewProButton(VarMenuPnl, 'BtnVarD', 'D) Pekiştirme');
  BtnVarD.Align = alTop; BtnVarD.Height = 50; MyForm.AddNewEvent(BtnVarD, tbeOnClick, 'OptionClicked');
  BtnVarE = MyForm.AddNewProButton(VarMenuPnl, 'BtnVarE', 'E) Quiz');
  BtnVarE.Align = alTop; BtnVarE.Height = 50; MyForm.AddNewEvent(BtnVarE, tbeOnClick, 'OptionClicked');

  // --- 3. OPERATÖRLER ---
  SectionPnl3 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl3');
  SectionPnl3.Align = alTop; SectionPnl3.Height = 50; SectionPnl3.Margins.Top = 10;
  OpMainBtn = MyForm.AddNewProButton(SectionPnl3, 'OpMainBtn', '3. Operatörler ▾');
  OpMainBtn.Align = alTop; OpMainBtn.Height = 50;
  OpMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');
  OpMainBtn.clProSettings.FontColor = clAlphaColor.clWhite;
  OpMainBtn.SetclProSettings(OpMainBtn.clProSettings);
  MyForm.AddNewEvent(OpMainBtn, tbeOnClick, 'OpBtnClick');
  
  OpMenuPnl = MyForm.AddNewProPanel(SectionPnl3, 'OpMenuPnl');
  OpMenuPnl.Align = alTop; OpMenuPnl.Height = 150; OpMenuPnl.Visible = False;
  BtnOp1 = MyForm.AddNewProButton(OpMenuPnl, 'BtnOp1', '1) Operatör Türleri');
  BtnOp1.Align = alTop; BtnOp1.Height = 50; MyForm.AddNewEvent(BtnOp1, tbeOnClick, 'OptionClicked');
  BtnOp2 = MyForm.AddNewProButton(OpMenuPnl, 'BtnOp2', '2) Pekiştirme');
  BtnOp2.Align = alTop; BtnOp2.Height = 50; MyForm.AddNewEvent(BtnOp2, tbeOnClick, 'OptionClicked');
  BtnOp3 = MyForm.AddNewProButton(OpMenuPnl, 'BtnOp3', '3) Quiz');
  BtnOp3.Align = alTop; BtnOp3.Height = 50; MyForm.AddNewEvent(BtnOp3, tbeOnClick, 'OptionClicked');

  // --- 4. KOŞULLAR ---
  SectionPnl4 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl4');
  SectionPnl4.Align = alTop; SectionPnl4.Height = 50; SectionPnl4.Margins.Top = 10;
  ConMainBtn = MyForm.AddNewProButton(SectionPnl4, 'ConMainBtn', '4. Koşullar ▾');
  ConMainBtn.Align = alTop; ConMainBtn.Height = 50;
  ConMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');
  ConMainBtn.clProSettings.FontColor = clAlphaColor.clWhite;
  ConMainBtn.SetclProSettings(ConMainBtn.clProSettings);
  MyForm.AddNewEvent(ConMainBtn, tbeOnClick, 'ConBtnClick');
  
  ConMenuPnl = MyForm.AddNewProPanel(SectionPnl4, 'ConMenuPnl');
  ConMenuPnl.Align = alTop; ConMenuPnl.Height = 200; ConMenuPnl.Visible = False;
  BtnCon1 = MyForm.AddNewProButton(ConMenuPnl, 'BtnCon1', '1) If-Else Nedir?');
  BtnCon1.Align = alTop; BtnCon1.Height = 50; MyForm.AddNewEvent(BtnCon1, tbeOnClick, 'OptionClicked');
  BtnCon2 = MyForm.AddNewProButton(ConMenuPnl, 'BtnCon2', '2) Case Nedir');
  BtnCon2.Align = alTop; BtnCon2.Height = 50; MyForm.AddNewEvent(BtnCon2, tbeOnClick, 'OptionClicked');
  BtnCon3 = MyForm.AddNewProButton(ConMenuPnl, 'BtnCon3', '3) Pekiştirme');
  BtnCon3.Align = alTop; BtnCon3.Height = 50; MyForm.AddNewEvent(BtnCon3, tbeOnClick, 'OptionClicked');
  BtnCon4 = MyForm.AddNewProButton(ConMenuPnl, 'BtnCon4', '4) Quiz');
  BtnCon4.Align = alTop; BtnCon4.Height = 50; MyForm.AddNewEvent(BtnCon4, tbeOnClick, 'OptionClicked');

  // --- 5. DÖNGÜLER ---
  SectionPnl5 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl5');
  SectionPnl5.Align = alTop; SectionPnl5.Height = 50; SectionPnl5.Margins.Top = 10;
  LoopMainBtn = MyForm.AddNewProButton(SectionPnl5, 'LoopMainBtn', '5. Döngüler ▾');
  LoopMainBtn.Align = alTop; LoopMainBtn.Height = 50;
  LoopMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');
  LoopMainBtn.clProSettings.FontColor = clAlphaColor.clWhite;
  LoopMainBtn.SetclProSettings(LoopMainBtn.clProSettings);
  MyForm.AddNewEvent(LoopMainBtn, tbeOnClick, 'LoopBtnClick');
  
  LoopMenuPnl = MyForm.AddNewProPanel(SectionPnl5, 'LoopMenuPnl');
  LoopMenuPnl.Align = alTop; LoopMenuPnl.Height = 300; LoopMenuPnl.Visible = False;
  BtnL1 = MyForm.AddNewProButton(LoopMenuPnl, 'BtnL1', '1) While Nedir?');
  BtnL1.Align = alTop; BtnL1.Height = 50; MyForm.AddNewEvent(BtnL1, tbeOnClick, 'OptionClicked');
  BtnL2 = MyForm.AddNewProButton(LoopMenuPnl, 'BtnL2', '2) Repeat-Until Nedir?');
  BtnL2.Align = alTop; BtnL2.Height = 50; MyForm.AddNewEvent(BtnL2, tbeOnClick, 'OptionClicked');
  BtnL3 = MyForm.AddNewProButton(LoopMenuPnl, 'BtnL3', '3) For Nedir?');
  BtnL3.Align = alTop; BtnL3.Height = 50; MyForm.AddNewEvent(BtnL3, tbeOnClick, 'OptionClicked');
  BtnL4 = MyForm.AddNewProButton(LoopMenuPnl, 'BtnL4', '4) Döngü Yönlendirme İfadeleri?');
  BtnL4.Align = alTop; BtnL4.Height = 50; MyForm.AddNewEvent(BtnL4, tbeOnClick, 'OptionClicked');
  BtnL5 = MyForm.AddNewProButton(LoopMenuPnl, 'BtnL5', '5) Pekiştirme');
  BtnL5.Align = alTop; BtnL5.Height = 50; MyForm.AddNewEvent(BtnL5, tbeOnClick, 'OptionClicked');
  BtnL6 = MyForm.AddNewProButton(LoopMenuPnl, 'BtnL6', '6) Quiz');
  BtnL6.Align = alTop; BtnL6.Height = 50; MyForm.AddNewEvent(BtnL6, tbeOnClick, 'OptionClicked');

  // --- 6. DİZİLER ---
  SectionPnl6 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl6');
  SectionPnl6.Align = alTop; SectionPnl6.Height = 50; SectionPnl6.Margins.Top = 10;
  ArrMainBtn = MyForm.AddNewProButton(SectionPnl6, 'ArrMainBtn', '6. Diziler ▾');
  ArrMainBtn.Align = alTop; ArrMainBtn.Height = 50;
  ArrMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');
  ArrMainBtn.clProSettings.FontColor = clAlphaColor.clWhite;
  ArrMainBtn.SetclProSettings(ArrMainBtn.clProSettings);
  MyForm.AddNewEvent(ArrMainBtn, tbeOnClick, 'ArrBtnClick');
  
  ArrMenuPnl = MyForm.AddNewProPanel(SectionPnl6, 'ArrMenuPnl');
  ArrMenuPnl.Align = alTop; ArrMenuPnl.Height = 150; ArrMenuPnl.Visible = False;
  BtnArr1 = MyForm.AddNewProButton(ArrMenuPnl, 'BtnArr1', '1) Diziler Nedir?');
  BtnArr1.Align = alTop; BtnArr1.Height = 50; MyForm.AddNewEvent(BtnArr1, tbeOnClick, 'OptionClicked');
  BtnArr2 = MyForm.AddNewProButton(ArrMenuPnl, 'BtnArr2', '2) Pekiştirme');
  BtnArr2.Align = alTop; BtnArr2.Height = 50; MyForm.AddNewEvent(BtnArr2, tbeOnClick, 'OptionClicked');
  BtnArr3 = MyForm.AddNewProButton(ArrMenuPnl, 'BtnArr3', '3) Quiz');
  BtnArr3.Align = alTop; BtnArr3.Height = 50; MyForm.AddNewEvent(BtnArr3, tbeOnClick, 'OptionClicked');

  // --- 7. VOID ---
  SectionPnl7 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl7');
  SectionPnl7.Align = alTop; SectionPnl7.Height = 50; SectionPnl7.Margins.Top = 10;
  VoidMainBtn = MyForm.AddNewProButton(SectionPnl7, 'VoidMainBtn', '7. Void(Prosedür) ▾');
  VoidMainBtn.Align = alTop; VoidMainBtn.Height = 50;
  VoidMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');
  VoidMainBtn.clProSettings.FontColor = clAlphaColor.clWhite;
  VoidMainBtn.SetclProSettings(VoidMainBtn.clProSettings);
  MyForm.AddNewEvent(VoidMainBtn, tbeOnClick, 'VoidBtnClick');
  
  VoidMenuPnl = MyForm.AddNewProPanel(SectionPnl7, 'VoidMenuPnl');
  VoidMenuPnl.Align = alTop; VoidMenuPnl.Height = 300; VoidMenuPnl.Visible = False;
  BtnV1 = MyForm.AddNewProButton(VoidMenuPnl, 'BtnV1', '1) Parametreli Prosedür?');
  BtnV1.Align = alTop; BtnV1.Height = 50; MyForm.AddNewEvent(BtnV1, tbeOnClick, 'OptionClicked');
  BtnV2 = MyForm.AddNewProButton(VoidMenuPnl, 'BtnV2', '2) Parametresiz Prosedür?');
  BtnV2.Align = alTop; BtnV2.Height = 50; MyForm.AddNewEvent(BtnV2, tbeOnClick, 'OptionClicked');
  BtnV3 = MyForm.AddNewProButton(VoidMenuPnl, 'BtnV3', '3) Fonksiyon Nedir?');
  BtnV3.Align = alTop; BtnV3.Height = 50; MyForm.AddNewEvent(BtnV3, tbeOnClick, 'OptionClicked');
  BtnV4 = MyForm.AddNewProButton(VoidMenuPnl, 'BtnV4', '4) Hazır Kütüphaneler?');
  BtnV4.Align = alTop; BtnV4.Height = 50; MyForm.AddNewEvent(BtnV4, tbeOnClick, 'OptionClicked');
  BtnV5 = MyForm.AddNewProButton(VoidMenuPnl, 'BtnV5', '5) Pekiştirme');
  BtnV5.Align = alTop; BtnV5.Height = 50; MyForm.AddNewEvent(BtnV5, tbeOnClick, 'OptionClicked');
  BtnV6 = MyForm.AddNewProButton(VoidMenuPnl, 'BtnV6', '6) Quiz');
  BtnV6.Align = alTop; BtnV6.Height = 50; MyForm.AddNewEvent(BtnV6, tbeOnClick, 'OptionClicked');

  // --- 8. TRY ---
  SectionPnl8 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl8');
  SectionPnl8.Align = alTop; SectionPnl8.Height = 50; SectionPnl8.Margins.Top = 10;
  TryMainBtn = MyForm.AddNewProButton(SectionPnl8, 'TryMainBtn', '8. Hata Yakalama ▾');
  TryMainBtn.Align = alTop; TryMainBtn.Height = 50;
  TryMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');
  TryMainBtn.clProSettings.FontColor = clAlphaColor.clWhite;
  TryMainBtn.SetclProSettings(TryMainBtn.clProSettings);
  MyForm.AddNewEvent(TryMainBtn, tbeOnClick, 'TryBtnClick');
  
  TryMenuPnl = MyForm.AddNewProPanel(SectionPnl8, 'TryMenuPnl');
  TryMenuPnl.Align = alTop; TryMenuPnl.Height = 200; TryMenuPnl.Visible = False;
  BtnTry1 = MyForm.AddNewProButton(TryMenuPnl, 'BtnTry1', '1) Try-Except Nedir?');
  BtnTry1.Align = alTop; BtnTry1.Height = 50; MyForm.AddNewEvent(BtnTry1, tbeOnClick, 'OptionClicked');
  BtnTry2 = MyForm.AddNewProButton(TryMenuPnl, 'BtnTry2', '2) Try-Finally Nedir?');
  BtnTry2.Align = alTop; BtnTry2.Height = 50; MyForm.AddNewEvent(BtnTry2, tbeOnClick, 'OptionClicked');
  BtnTry3 = MyForm.AddNewProButton(TryMenuPnl, 'BtnTry3', '3) Pekiştirme');
  BtnTry3.Align = alTop; BtnTry3.Height = 50; MyForm.AddNewEvent(BtnTry3, tbeOnClick, 'OptionClicked');
  BtnTry4 = MyForm.AddNewProButton(TryMenuPnl, 'BtnTry4', '4) Quiz');
  BtnTry4.Align = alTop; BtnTry4.Height = 50; MyForm.AddNewEvent(BtnTry4, tbeOnClick, 'OptionClicked');

  // --- 9. FORM ---
  SectionPnl9 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl9');
  SectionPnl9.Align = alTop; SectionPnl9.Height = 50; SectionPnl9.Margins.Top = 10;
  FormMainBtn = MyForm.AddNewProButton(SectionPnl9, 'FormMainBtn', '9. Form İşlemleri ▾');
  FormMainBtn.Align = alTop; FormMainBtn.Height = 50;
  FormMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');
  FormMainBtn.clProSettings.FontColor = clAlphaColor.clWhite;
  FormMainBtn.SetclProSettings(FormMainBtn.clProSettings);
  MyForm.AddNewEvent(FormMainBtn, tbeOnClick, 'FormBtnClick');
  
  FormMenuPnl = MyForm.AddNewProPanel(SectionPnl9, 'FormMenuPnl');
  FormMenuPnl.Align = alTop; FormMenuPnl.Height = 200; FormMenuPnl.Visible = False;
  BtnForm1 = MyForm.AddNewProButton(FormMenuPnl, 'BtnForm1', '1) Form Nedir?');
  BtnForm1.Align = alTop; BtnForm1.Height = 50; MyForm.AddNewEvent(BtnForm1, tbeOnClick, 'OptionClicked');
  BtnForm2 = MyForm.AddNewProButton(FormMenuPnl, 'BtnForm2', '2) Form Özellikleri');
  BtnForm2.Align = alTop; BtnForm2.Height = 50; MyForm.AddNewEvent(BtnForm2, tbeOnClick, 'OptionClicked');
  BtnForm3 = MyForm.AddNewProButton(FormMenuPnl, 'BtnForm3', '3) Pekiştirme');
  BtnForm3.Align = alTop; BtnForm3.Height = 50; MyForm.AddNewEvent(BtnForm3, tbeOnClick, 'OptionClicked');
  BtnForm4 = MyForm.AddNewProButton(FormMenuPnl, 'BtnForm4', '4) Quiz');
  BtnForm4.Align = alTop; BtnForm4.Height = 50; MyForm.AddNewEvent(BtnForm4, tbeOnClick, 'OptionClicked');

  // --- 10. BİLEŞENLER ---
  SectionPnl10 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl10');
  SectionPnl10.Align = alTop; SectionPnl10.Height = 50; SectionPnl10.Margins.Top = 10;
  CompMainBtn = MyForm.AddNewProButton(SectionPnl10, 'CompMainBtn', '10. Bileşenler ▾');
  CompMainBtn.Align = alTop; CompMainBtn.Height = 50;
  CompMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');
  CompMainBtn.clProSettings.FontColor = clAlphaColor.clWhite;
  CompMainBtn.SetclProSettings(CompMainBtn.clProSettings);
  MyForm.AddNewEvent(CompMainBtn, tbeOnClick, 'CompBtnClick');
  
  CompMenuPnl = MyForm.AddNewProPanel(SectionPnl10, 'CompMenuPnl');
  CompMenuPnl.Align = alTop; CompMenuPnl.Height = 250; CompMenuPnl.Visible = False;
  BtnComp1 = MyForm.AddNewProButton(CompMenuPnl, 'BtnComp1', '1) Çeşitler Nelerdir?');
  BtnComp1.Align = alTop; BtnComp1.Height = 50; MyForm.AddNewEvent(BtnComp1, tbeOnClick, 'OptionClicked');
  BtnComp2 = MyForm.AddNewProButton(CompMenuPnl, 'BtnComp2', '2) Ortak Özellikler?');
  BtnComp2.Align = alTop; BtnComp2.Height = 50; MyForm.AddNewEvent(BtnComp2, tbeOnClick, 'OptionClicked');
  BtnComp3 = MyForm.AddNewProButton(CompMenuPnl, 'BtnComp3', '3) Temel Özellikler?');
  BtnComp3.Align = alTop; BtnComp3.Height = 50; MyForm.AddNewEvent(BtnComp3, tbeOnClick, 'OptionClicked');
  BtnComp4 = MyForm.AddNewProButton(CompMenuPnl, 'BtnComp4', '4) Pekiştirme');
  BtnComp4.Align = alTop; BtnComp4.Height = 50; MyForm.AddNewEvent(BtnComp4, tbeOnClick, 'OptionClicked');
  BtnComp5 = MyForm.AddNewProButton(CompMenuPnl, 'BtnComp5', '5) Quiz');
  BtnComp5.Align = alTop; BtnComp5.Height = 50; MyForm.AddNewEvent(BtnComp5, tbeOnClick, 'OptionClicked');

  // --- 11. EVENTS ---
  SectionPnl11 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl11');
  SectionPnl11.Align = alTop; SectionPnl11.Height = 50; SectionPnl11.Margins.Top = 10;
  EventMainBtn = MyForm.AddNewProButton(SectionPnl11, 'EventMainBtn', '11. Olaylar (Events) ▾');
  EventMainBtn.Align = alTop; EventMainBtn.Height = 50;
  EventMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');
  EventMainBtn.clProSettings.FontColor = clAlphaColor.clWhite;
  EventMainBtn.SetclProSettings(EventMainBtn.clProSettings);
  MyForm.AddNewEvent(EventMainBtn, tbeOnClick, 'EventBtnClick');
  
  EventMenuPnl = MyForm.AddNewProPanel(SectionPnl11, 'EventMenuPnl');
  EventMenuPnl.Align = alTop; EventMenuPnl.Height = 200; EventMenuPnl.Visible = False;
  BtnEv1 = MyForm.AddNewProButton(EventMenuPnl, 'BtnEv1', '1) Events Nedir?');
  BtnEv1.Align = alTop; BtnEv1.Height = 50; MyForm.AddNewEvent(BtnEv1, tbeOnClick, 'OptionClicked');
  BtnEv2 = MyForm.AddNewProButton(EventMenuPnl, 'BtnEv2', '2) Çeşitleri Nedir?');
  BtnEv2.Align = alTop; BtnEv2.Height = 50; MyForm.AddNewEvent(BtnEv2, tbeOnClick, 'OptionClicked');
  BtnEv3 = MyForm.AddNewProButton(EventMenuPnl, 'BtnEv3', '3) Pekiştirme');
  BtnEv3.Align = alTop; BtnEv3.Height = 50; MyForm.AddNewEvent(BtnEv3, tbeOnClick, 'OptionClicked');
  BtnEv4 = MyForm.AddNewProButton(EventMenuPnl, 'BtnEv4', '4) Quiz');
  BtnEv4.Align = alTop; BtnEv4.Height = 50; MyForm.AddNewEvent(BtnEv4, tbeOnClick, 'OptionClicked');

  MyForm.Run;
}
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">
Yukarı Dön
Emr.Erkmn Açılır Kutu İzle
Moderatör
Moderatör


Kayıt Tarihi: 28 Şubat 2025
Durum: Aktif Değil
Puanlar: 857 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Emr.Erkmn Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 2 Saat 31 Dakika Önce Saat 22:56
Merhaba Esra

Rica etsem önce bir github hesabı oluşturur musun?
daha sonra buraya proje de kullanacağın görselleri yüklemeni isticem daha sonra bu linkleri bahsettiğim prosedüre linkleri eklemeni isticem 

çünkü şu an görseller benim kullandığım görseller 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">
Yukarı Dön
Esra Betül Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 17 Nisan 2026
Konum: Konya
Durum: Aktif Değil
Puanlar: 13 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Esra Betül Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 2 Saat 27 Dakika Önce Saat 23:00
Hocam hesap oluşturdum ve sizin attığınız kod blogunu kapattım tek satır açık sekılde kendı lınkımı ekledım o sekılde konumu cekmeye calıstımhttps://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">
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,047 Saniyede Yüklendi.