Bilgisayar Bölümü

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 Console'datam bir üçgen çıkmasıdr.
            {
                Console.WriteLine(a += "*");//Burada ise Console'a a değişkenini ve * işaretini her dönüşte yazdık.İkk başta 1 yıldız sınra 2 yıldız,3 yıldız şeklinde gidecektir.
            }
            Console.ReadLine();//Console'nin kapanmaması için ReadLine özelliğini kullandık.
        }

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: TEdit;
dikgen2: TEdit;
DButton1: TButton;
dikgen3: TEdit;
dikgen4: TEdit;
DLabel3: TLabel;
DLabel4: TLabel;
Derr1: TLabel;
GroupBox3: TGroupBox;
ULabel1: TLabel;
ULabel2: TLabel;
ucgen1: TEdit;
ucgen2: TEdit;
UButton1: TButton;
ULabel3: TLabel;
ucgen3: TEdit;
GroupBox4: TGroupBox;
CLabel1: TLabel;
CLabel2: TLabel;
CLabel3: TLabel;
cember2: TEdit;
cember3: TEdit;
cember1: TEdit;
Button1: TButton;
GroupBox5: TGroupBox;
SLabel1: TLabel;
SLabel2: TLabel;
SLabel3: TLabel;
SLabel4: TLabel;
sil1: TEdit;
sil2: TEdit;
sil4: TEdit;
sil3: TEdit;
SButton2: TButton;
procedure KButton1Click(Sender: TObject);
procedure DButton1Click(Sender: TObject);
procedure UButton1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure SButton2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
a,b,cevre,alan:integer;
ralan,rcevre:real; { Değişkenler tanımlanıyor.}
const
pi:real=3.14;
implementation

{$R *.dfm}

procedure TForm1.KButton1Click(Sender: TObject);

begin

//?Kare?
a:=strtoint(kare1.text); //Karenin bir kenar uzunluğu alınıyor.
cevre:=a*4; //Çevresi hesaplanıyor.
alan:=sqr(a); //?sqr()? fonksiyonu ile karenin bir kenarının karesiyle karenin alanı hesaplanıyor.
kare2.text:=inttostr(alan); // kare2 adlı edit?e karenin alanı yazdırılıyor.
kare3.text:=inttostr(cevre); //kare3 adlı edit?e karenin çevresi yazdırılıyor.
end;

procedure TForm1.DButton1Click(Sender: TObject);
begin

//?Dikdörtgen?
derr1.caption:=?;
a:=strtoint(dikgen1.text); //Uzun kenar uzunluğu alınıyor.
b:=strtoint(dikgen2.text); //Kısa kenar uzunluğu alınıyor.
If (b>a) Then begin //Bir dikdörtgende kısa kenar uzun kenardan uzun olamayacağı için bunu engellemek amacıyla kontrol ediliyor.
derr1.Font.Color:=clred; //Uyarımızın rengini kırmızı olarak ayarladık.
derr1.caption:=?*Kısa kenar uzun kenardan büyük olmamalı!..?; //Uyarı..
end
else begin
alan:=a*b; //Kısa kenar uzun kenardan uzun değilse alanı hesaplanıyor.
cevre:=(a+b)*2; //Çevresi hesaplanıyor.
dikgen3.text:=inttostr(alan); // dikgen3 adlı edit?e dikdörtgenin alanı yazdırılıyor.
dikgen4.text:=inttostr(cevre); // dikgen4 adlı edit?e dikdörtgenin çevresi yazdırılıyor.
end;end;

procedure TForm1.UButton1Click(Sender: TObject);
begin

//?Üçgen?
a:=strtoint(ucgen1.text); //Dikkenar uzunluğu alınıyor.
b:=strtoint(ucgen2.text); //Taban uzunluğu alınıyor.
ralan:=(a*b)/2; //Üçgenin alanı hesaplanıyor.
ucgen3.text:=floattostr(ralan); //Üçgenin alanı ucgen3 adlı edite yazdırılıyor.
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

//?Çember?
a:=strtoint(cember1.text); //Yarıçap alınıyor.
ralan:=2*pi*sqr(a); //Alan hesaplanıyor.
rcevre:=2*pi*a; // Çevresi hesaplanıyor.
cember2.text:=floattostr(ralan); // cember2 adlı edit?e çemberin alanı yazdırılıyor.
cember3.text:=floattostr(rcevre); // cember3 adlı edit?e çemberin çevresi yazdırılıyor.
end;

procedure TForm1.SButton2Click(Sender: TObject);

begin

//?Silindir?
a:=strtoint(sil1.text); //Yarıçap alınıyor.
b:=strtoint(sil2.text); //Yükseklik alınıyor.
ralan:=pi*sqr(a)*b; //Alan hesaplanıyor.
rcevre:=2*pi*a*b; //Çevre hesaplanıyor.
sil3.text:=floattostr(ralan); // sil3 adlı edit?e silindirin alanı yazdırılıyor.
sil4.text:=floattostr(rcevre); // sil4 adlı edit?e silindirin çevresi yazdırılıyor.
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
form1.Scaled:=false;
end;

end.

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
Textbox'taki yazıya atadık.
        }

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;

Delphi Adresi Yeni Pencerede, İstenilern Özelliklerde Açma işlemini öğreneceğiz.  Delphi Adresi Yeni Pencerede, İstenilern Özelliklerde Açmak için gereken kodlar;

procedure TFmMain.GotoUrl(SUrl: string; Width, Height: Integer; ToolBar: Boolean);
const
  csOLEObjName = 'InternetExplorer.Application';
var
  IE        : Variant;
  WinHanlde : HWnd;
begin
  if( VarIsEmpty( IE ) )then
  begin
    IE := CreateOleObject( csOLEObjName );
    IE.Visible := true;
    IE.Toolbar := Toolbar;
    if Width > 0 then IE.Width := Width;
    if Height > 0 then IE.Height := Height;
    IE.Navigate( sURL );
  end else
  begin
    WinHanlde := FindWIndow( 'IEFrame', nil );
    if( 0 <> WinHanlde )then
    begin
      IE.Navigate( sURL );
      SetForegroundWindow( WinHanlde );
    end else
    begin
      ShowMessage('Internet Explorer acilamadi');
    end;
  end;
end;

// kullanimi:
{adresi yukseklik ve genislik belirtmeden acar }
GotoUrl('http://www.sanalkurs.net', 0, 0, True);
{adresi yukseklik ve genislik belirterek toolbar
olmayan bir pencerede acar }
GotoUrl('http://www.sanalkurs.net', 400, 400, False);

Bu dersimizde sizlerle Dizilerde Boyutlandırma ve Arama işlemlerini öğrenmeye çalışacağız. Hemen bunu bir örnek ile anlamaya çalışalım.

public Form1()
        {
            InitializeComponent();
        }
        int sayac=0;
        string[] dizi = new string[0];
        private void button1_Click(object sender, EventArgs e)
        {
            sayac += 1;
            Array.Resize(ref dizi, sayac);
            dizi[sayac - 1] = textBox1.Text;
        }

        private void button2_Click(object sender, EventArgs e)
        {
            if(dizi.Contains(textBox2.Text))
            {
            MessageBox.Show("Aradığınız şey mevcut: " + textBox2.Text,"Bilgilendirme");
            }
            else
            {
            MessageBox.Show("Aradığınız şey mevcut değil : " + textBox2.Text,"Hata");
            }
        }
    }
}

string[] dizi = new string[0] = Burada dizimizin boyutunu 0 yapmamızın sebebi dizimizi kendimizin belirleyeceğinden dolayıdır.

Devamını oku

Bu dersimizde sizlerle Visual Basic.NET Karekök Hesabının nasıl yapıldığını öğreneceğiz. Visual Basic.NET Karekök Hesabı;

Bu dersimizde sizlerle SQL Veri Tabanı İşlemleri öğrenmeye çalışacağız. Bunun için kod kısmına using System.Data.SqlClient; kütüphanesini ekleyin. Şimdi de SQL’den bir veri nasıl çekilir,onu görelim:

 private void button1_Click(object sender, EventArgs e)
        {
            if (textBox1.Text == "")// Eğer textbox1.Text boş ise;
            {
                MessageBox.Show("Lütfen boş alanı doldurunuz.", "Hata");// Bu mesajı yazdır.

            }
            else// Aksi taktirde aşağıdaki işlemler gerçekleşir.
            {
                SqlConnection conn = new SqlConnection(@"integrated security=true; server=PCNK; database=Uyeler");// Bu SQL'e bağlanmak için gerekli kodumuz.
                conn.Open();//Bağlantıyı açtık.
                SqlCommand cmd = new SqlCommand("SELECT * FROM uyeler WHERE uye_id='" + textBox1.Text + "'", conn);//Burada uyeler Tablosundan bilgileri çekiyoruz ama neye göre Textbox1.Text'e göre.Burada WHERE şart belirtir.SLEECT komutu bilgi çekmeye yarayan komuttur.
                SqlDataReader dr = cmd.ExecuteReader();//Verilerin okunması için Reader tanımlıyoruz.
                while (dr.Read())//Tablodaki bilgiler okunduğu sürece bilgileri textbox'lara atıyoruz.
                {
                    textBox2.Text = dr["uye_adi"].ToString();
                    textBox3.Text = dr["uye_soyadi"].ToString();
                    textBox4.Text = dr["ili"].ToString();
                    textBox5.Text = dr["ilcesi"].ToString();
                    textBox6.Text = dr["dtarihi"].ToString();
                }
                conn.Close();//Bağlantıyı kapattık.
                dr.Close();//Readeri kapattık.
                conn.Dispose();//Bağlantının kapanmasının güvenilir olması için bağlantıyı boşalttık.
            }

        }

Devamını oku

Bu dersimizde Html giriş konusunu işleyeceğiz. İnternette bulduğum bu video sizler için uygun olabilir. HTML dosyaları oluşturmayı ve HTML’e giriş ile ilgili bilinmesi gerekenleri göstermekte.

Bu dersimizde sizlerle MAth sınıfının nasıl kullanıldığını ve ne işe yaradığını öğrenmeye çalışacağız. İlk önce formumuza 1 adet Button ve 1 adet Listbox ekleyelim ve Button_Click eventine şunları yazalım.

private void button1_Click(object sender, EventArgs e)
        {
            listBox1.Items.Add(Math.Abs(-8.2)); //Sayının mutlak değerini döndürür
            listBox1.Items.Add(Math.Ceiling(5.5)); //Sayıyı 5'ten büyük en küçük tamsayıya yuvarlar.
            listBox1.Items.Add(Math.Cos(20)); //Sayının cosinüsünü döndürür.
            listBox1.Items.Add(Math.Exp(5)); //Sayıyı e sayısı ile çarpar. e=2,71
            listBox1.Items.Add(Math.Floor(8.7)); //Sayıyı 8'ten küçük en büyük tamsayıya yuvarlar.
            listBox1.Items.Add(Math.IEEERemainder(10.7, 2)); // İkinci parametre 1 ise ilk para
            //metredeki ondalık sayının tam kısmını, 2 ise ondalık kısmını alır.
            listBox1.Items.Add(Math.Log10(100)); //Sayının 10 tabanında logunu alır.
            listBox1.Items.Add(Math.Max(15, 25)); //İki sayı arasındaki max sayıyı döndürür.
            listBox1.Items.Add(Math.Min(20, 35)); //İki sayı arasındaki min sayıyı döndürür.
            listBox1.Items.Add(Math.Pow(2, 3)); //İkinci parametredeki sayı ilk parametrenin
                                               //üssü olur. 2^3=8
            listBox1.Items.Add(Math.Sin(15)); //Sayının sinüsünü döndürür.
            listBox1.Items.Add(Math.Sqrt(25)); //Sayının karekökünü alır.
            listBox1.Items.Add(Math.Tan(10)); //Sayının tanjantını döndürür.
            listBox1.Items.Add(Math.Round(10.7));// 10.6 ya kadar sayıyı 10'a
                                                 //10.6'dan sonra sayıyı 11'e yuvarlar.
            listBox1.Items.Add(Math.Log(100,10)); //İkinci parametre ilk parametrenin
                                                  //hangi log tabanında alınacağını belirler.
        }