Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - github üzerinden fotoğraf yükleme
  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
 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
Puanlar: 8 		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
    Gönderim Zamanı: 2 Saat 25 Dakika Önce Saat 19:27

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

// --- GENEL FONKSİYONLAR ---

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?') 
  {
    
  } 
  
  // 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;
}                                                  

Merhaba Hocam,
bu kod bloğuna GitHub üzerinden fotoğraf eklemek için yazılması gereken void kod bloğunu yazamadık.Yardımcı olursanız seviniriz. Şimdiden teşekkürler.                          
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
Puanlar: 847 		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ı: 32 Dakika Önce Saat 21:20
Merhaba Esra

IDE ekranında yer alana assets kullandığımız zaman fotoğraflar siyah olarak geliyor demiştin değil mi? Rica etsem o kodu da atabilir misin 
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
Puanlar: 8 		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ı: 23 Dakika Önce Saat 21:29
Hocam assest konumunu yazdıgımızda sıyah ekran degil direkt açılmıyor veya erişim engeli veriyor. Ayrı bir kod yazmadık bu kodda link yerine assest konumu yazarak denedik.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
Puanlar: 847 		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ı: 15 Dakika Önce Saat 21:37
Merhaba Esra 


void AssetleriYukle;
{
  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
}

Verdiğim kod örnek bir prosedür mantığı bu şekilde githup üzerinden de görselleri indirip dosya adlarıyla beraber kullanabilirisn. 

Assest konumu ile yazdığın kod duruyorsa tekrar atabilir misin?
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
Puanlar: 847 		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ı: 14 Dakika Önce Saat 21:38
Daha sonra AssetleriYukle prosedürü formu creat ettiğin  yerin hemen altında çağırmanı da gerekli 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
Puanlar: 8 		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ı: 11 Dakika Önce Saat 21:41
hocam o kodlar elimizde yok link yerine direkt onu koymustuk. hata alınca lınklerle degıstırdıkhttps://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.