Bu dersimizde Delphi de DeleteFile komutunu öğreneceğiz. Bu parametre ile belirtilen yoldaki dosyayı silmek için kullanılan 1 fonksiyondur. Procedure TForm1.Button1Click(Sender; Object); begin If DeleteFile(“C:WinNtdede.Txt”) Then // Dosya Silindi ise Caption := “Dosya Silindi” else Caption := “Dosya Silinmedi”; end;
Bu dersimizde Form Ortamında Catch Kullanımını öğreneceğiz. Bunun için aşağıdaki kodları inceleyin. namespace bilgisayarbolumu { public partial class MainForm : Form { private TextBox txt1; private TextBox txt2; private Button btn; public MainForm() { txt1=new TextBox(); txt1.Location=new Point(8,16); txt2=new TextBox(); txt2.Location=new Point(8,46); btn=new Button(); btn.Location=new Point(8,86); btn.Click+=new EventHandler(bilgisayarbolumu); Controls.AddRange(new Control[]{txt1,txt2,btn}); } private void ergün(object sender, [...]
Bu dersimizde sizlerle radiobutton1 işaretlenince bayanları listbox1′e ekleyecek, radiobutton2 işaretlenince de bayları listbox2′ye ekleyecek ve bayanlar veya baylardan seçtiğimiz elemanı silecek bir program yapmayı öğreneceğiz. namespace bilgisayarbolumu { public partial class MainForm : Form { private RadioButton rdb1; private RadioButton rdb2; private ListBox listbox1; private ListBox listbox2; private Button btn; public MainForm() { rdb1=new RadioButton(); [...]
Bu dersimizde sizlerle Form Ortamında Penceremize 4 Renkli Alt Pencere Oluşturma işlemini öğreneceğiz. Bunun için aşağıdaki kodları kullanmanız gerekmekte; namespace bilgisayarbolumu { public partial class MainForm : Form { private Control a,b,c,d; public MainForm(){ this.Text = “bilgisayarbolumu”; this.ClientSize=new Size(640,480); a = new Control(); a.Bounds = new Rectangle(100, 100, 100,100); a.BackColor = Color.Red; b = new [...]
Bu dersimizde sizlerle Metod ile Kareyi Hesaplama işlemini öğreneceğiz. Metod ile Kareyi Hesaplama işlemi için kullanılan kodlar aşağıdaki gibidir; class sınıf { public int sayı; public sınıf() { sayı=Convert.ToInt32(Console.ReadLine()); } public int kare() { return sayı*sayı; }} class program { static void Main() { sınıf karesi=new sınıf(); Console.WriteLine(karesi.kare()); } }
Bu dersimizde sizlerle Soru Sorup Cevap Ekleyen Bot Yapmaya çalışacağız. Bu sizleri fazla zorlamıyacak fakat programın mantığını çözmeye çalışın. { Console.WriteLine (“Merhaba! Lütfen isminizi girin”); string name = Console.ReadLine(); Console.WriteLine(name + ” Güzel Bir İsim. Peki Nasılsınız? “); Console.Read(); string question = Console.ReadLine(); Console.WriteLine(“”); Console.WriteLine(“Nedir Sizi” + question + “Yapan?”); Console.Read(); } Programı bu şekilde [...]
Bu dersimizde sizlerle Consola Dik üçgen çizmeyi öğreneceğiz. File->New->Project->Console Application’u seçeriz.Açılan kod kısmına ise şunları yazalım. static void Main(string[] args) { string a=”*”;//String türündeki a’ya * işaretini atadık. Console.WriteLine(a);//Burada Console ilk açıldığında * işaretini Console’a yazdırdık. for (int i = 1; i < 80; i++)//Burada i yi 1 den 80 e kadar döndürdük.60 olmasının sebebi [...]
Bu dersimizde sizlerle delphide Geometrik Hesaplamalar yapmayı öğreneceğiz. Geometrik Hesaplamalar gereken kodlar aşağıda verilmiştir. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) GroupBox1: TGroupBox; KLabel1: TLabel; kare1: TEdit; KLabel2: TLabel; KLabel3: TLabel; kare2: TEdit; kare3: TEdit; KButton1: TButton; GroupBox2: TGroupBox; DLabel1: TLabel; DLabel2: TLabel; dikgen1: [...]
Bu dersimizde sizlerle ColorDialog ve FontDialog Kullanımını öğreneceğiz. Formumuza 1 adet textbox, 2 adet button, 1 adet ColorDialog ve 1 adet FontDialog ekleyelim. private void button1_Click(object sender, EventArgs e) { colorDialog1.ShowDialog(); textBox1.ForeColor = colorDialog1.Color;//ColorDialog’da seçilen rengi Textbox’taki yazının rengine atadık. } private void button2_Click(object sender, EventArgs e) { fontDialog1.ShowDialog(); textBox1.Font = fontDialog1.Font;//FontDialog’da seçilen yazı tipini [...]
Delphide Programdan Windows Wallpaper Değiştirmek için aşağıdaki kodları çalıştırmak gerekir. Delphi Programdan Windows Wallpaper ‘ı Değiştirmek; procedure TForm1.ChangeWallPaper(const FileName: string); begin SystemParametersInfoA(SPI_SETDESKWALLPAPER, 0, PChar(FileName), SPIF_UPDATEINIFILE); end;