|
| 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 
|
| Yazar | |
Esra Betül 
Yeni Üye 
Kayıt Tarihi: 17 Nisan 2026 Konum: Konya Durum: Aktif Değil Puanlar: 13 |
 Mesaj Seçenekleri
Yanıt Yaz
Alıntı Esra Betül
Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.
 Teşekkürler(0)
 Alıntı Cevapla
 Konu: github üzerinden fotoğraf yüklemeGönderim Zamanı: 7 Saat 55 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.AddAssetFromUrl('https://github.com/cayesrabetul-pixel/CloStepp.git'); 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">
|
|
 |
|
|
Emr.Erkmn
Moderatör 
Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Değil Puanlar: 857 |
Mesaj Seçenekleri
Yanıt Yaz
Alıntı Emr.Erkmn
Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.
Teşekkürler(0)
Alıntı Cevapla
Gönderim Zamanı: 6 Saat 2 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 |
|
|
|
|
Esra Betül
Yeni Üye
Kayıt Tarihi: 17 Nisan 2026 Konum: Konya Durum: Aktif Değil Puanlar: 13 |
Mesaj Seçenekleri
Yanıt Yaz
Alıntı Esra Betül
Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.
Teşekkürler(0)
Alıntı Cevapla
Gönderim Zamanı: 5 Saat 53 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">
|
|
|
|
|
Emr.Erkmn
Moderatör
Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Değil Puanlar: 857 |
Mesaj Seçenekleri
Yanıt Yaz
Alıntı Emr.Erkmn
Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.
Teşekkürler(0)
Alıntı Cevapla
Gönderim Zamanı: 5 Saat 45 Dakika Önce Saat 21:37 |
|
Merhaba Esra
void AssetleriYukle; { YonetimForm.AddAssetFromUrl('https://raw.githubusercontent.com/emrkmn/ses/main/arkaplanmz.mp3'); 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/ses2.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/char1.jpg'); // karakter 1 YonetimForm.AddAssetFromUrl('https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/char2.jpg'); // karakter 2 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 } 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">
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? |
|
|
|
|
Emr.Erkmn
Moderatör
Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Değil Puanlar: 857 |
Mesaj Seçenekleri
Yanıt Yaz
Alıntı Emr.Erkmn
Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.
Teşekkürler(0)
Alıntı Cevapla
Gönderim Zamanı: 5 Saat 44 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">
|
|
|
|
|
Esra Betül
Yeni Üye
Kayıt Tarihi: 17 Nisan 2026 Konum: Konya Durum: Aktif Değil Puanlar: 13 |
Mesaj Seçenekleri
Yanıt Yaz
Alıntı Esra Betül
Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.
Teşekkürler(0)
Alıntı Cevapla
Gönderim Zamanı: 5 Saat 41 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">
|
|
|
|
|
Esra Betül
Yeni Üye
Kayıt Tarihi: 17 Nisan 2026 Konum: Konya Durum: Aktif Değil Puanlar: 13 |
Mesaj Seçenekleri
Yanıt Yaz
Alıntı Esra Betül
Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.
Teşekkürler(0)
Alıntı Cevapla
Gönderim Zamanı: 4 Saat 50 Dakika Önce Saat 22:32 |
|
Merhaba Hocam,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">
biz void kısmın ekledik. Link uzantısını da ekledik. Asset link üzerinden fotografı cekıp konum olarak eklemek istediğimizde , asset kısmına linki yapıştırıyoruz ancak fotograf cekmıyor sadece yuklenıyor seklınde donuyor
|
|
|
|
|
Emr.Erkmn
Moderatör
Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Değil Puanlar: 857 |
Mesaj Seçenekleri
Yanıt Yaz
Alıntı Emr.Erkmn
Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.
Teşekkürler(0)
Alıntı Cevapla
Gönderim Zamanı: 4 Saat 45 Dakika Önce Saat 22:37 |
|
kodu paylaşabilir 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">
|
|
|
|
|
Esra Betül
Yeni Üye
Kayıt Tarihi: 17 Nisan 2026 Konum: Konya Durum: Aktif Değil Puanlar: 13 |
Mesaj Seçenekleri
Yanıt Yaz
Alıntı Esra Betül
Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.
Teşekkürler(0)
Alıntı Cevapla
Gönderim Zamanı: 4 Saat 42 Dakika Önce Saat 22:40 |
|
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; { MyForm.AddAssetFromUrl('https://raw.githubusercontent.com/cayesrabetul-pixel/CloStepp/blob/main/unnamed%20(21).png'); /* 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/ses2.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/char1.jpg'); // karakter 1 YonetimForm.AddAssetFromUrl('https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/char2.jpg'); // karakter 2 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.AddAssetFromUrl('https://github.com/cayesrabetul-pixel/CloStepp.git'); 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">
|
|
|
|
|
Emr.Erkmn
Moderatör
Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Değil Puanlar: 857 |
Mesaj Seçenekleri
Yanıt Yaz
Alıntı Emr.Erkmn
Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.
Teşekkürler(0)
Alıntı Cevapla
Gönderim Zamanı: 4 Saat 25 Dakika Önce Saat 22:57 |
|
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 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"> |
|
|
|
|
Yanıt Yaz
|
|
| Tweet |
| Forum Atla | Forum İzinleri Kapalı Foruma Yeni Konu Gönderme Kapalı Forumdaki Konulara Cevap Yazma Kapalı Forumda Cevapları Silme Kapalı Forumdaki Cevapları Düzenleme Kapalı Forumda Anket Açma Kapalı Forumda Anketlerde Oy Kullanma |
Topic Seçenekleri