Önce yapmamız gereken şey Visual Studio'da yukarıdaki gibi bir App_Code klasörü oluşturmak. Sonra bu klasörün içinde Class1.vb ve Class2.cs adlı 2 class oluşturmak.

Class1.cs'ye şunları yazalım öylesine:

public class Class1
{
    public static string Selam()
    {
        return "Bu, selamın C# halidir";
    }
}

Class1.vb'ye ise şunları yazalım:

Imports Microsoft.VisualBasic

Public Class Class2

     Public Shared Function Selam() As String
         Return "Bu, selamın VB halidir"
     End Function

End Class

Şimdi compile ettiğimizde şu hatayı alırız:

Error 1 The files ‘/ProjeAdi/App_Code/Class2.vb’  and ‘/ProjeAdi/App_Code/Class1.cs’ use a different language, which is not allowed since they need to be compiled together.

Artık geriye yapmamız gereken son şeyler kalıyor:

App_Code'un içine 2 klasör oluşturup birine CSCode diğerine VBCode adını verin. Daha önce hazırladığımız classları ilgili dillerine göre içlerine atın.

Web.config dosyamızda ise aşağıdaki değişikliği yapın:

<compilation debug="true">
  <codeSubDirectories>
     <add directoryName="CSCode"/>
     <add directoryName="VBCode"/>
  </codeSubDirectories>
</compilation>

Herşey bundan ibaret. Uzun bir aradan sonra makale tadında oldu bu da. İşinize yarar umarım, kolay gelsin.

Bir arkadaşımın özel isteğiyle web sayfası için basit bir RssFeed uygulaması geliştireyim dedim. Karşılığında aldığım hata malumunuz. Öncelikle söyliyeyim bunun çözümü Visual Studio .Net'in ayarlarını değiştirmekle bir netice bulmuyor. O konuyu daha önce incelemiştik. Bunu söylememin sebebi, hataların isim benzerliğinden dolayı vakit kaybının olmaması. Bu sorun tamamen WebRequest & WebResponse işlemlerinden kaynaklı. Ama genel olarak işyerimdeki proxy ayarlarından dolayı böyle bir sorunla karşılaşıyorum. 2 türlü çözümü var.

1- Diyelim ki önce WebRequest tanımladık:

sonrasında tek yapmamız gereken şu:

Böylece sorun çözülüyor. Ancak %10'luk bir çözülememe ihtimali var. Onun için birazcık daha uzun yolunu yazıyorum.

2- WebRequest'i yukarıdaki gibi tanımladıktan sonra:

Bu daha kesin bir çözüm oluyor.

Böylece birkaç gündür beni "deli eden" 2 soruna çözüm bulmuş oluyor ve "delirmek üzere" olan arkadaşlara da umarım yardımda bulunuyorum.

Umarım faydasını hepberaber görürüz. İyi çalışmalar dilerim.

Visual Studio .Net 2005'te bir Asp.Net projesi yaparken, projenin halini görmek için F5'e (yada CTRL + F5'e) basarız ve ne durumda olduğumuzu görürüz. Ancak bazen "The request failed with HTTP Status 407. Proxy authentication required" şeklinde bir hata mesajı alırız browserımızda. Bu hatanın iki sebebi vardır. İlkini şimdi yazıyorum, ikincisini az sonraya bırakıyorum :)

Bu sorunun çözümü için iki ayrı yöntem var.

1- Başlat -> Çalıştır -> Drive:\Program Files\Common Files\Microsoft Shared\Help 8\Dexplore.exe.config diyerek Visual Studio .Net 2005'de karşımıza bir sayfa gelir. Bu sayfa yoluyla Visual Studio'nun Browser ayarlarını yapabiliyoruz. Sayfada

yoluyla başlayan kodlar silsilesi mevcut. Biz ise

tagleri arasında kalan tüm kodları değiştiriyoruz. Hangi kodlarla? Aşağıdakilerle :)

Bu satırların arasında öyle bir satır var ki, sorunu kökünden çözüyor. İşte o satır:

Şimdi yapmanız gereken tek şey yukarıdaki satırı editlemek. Nasıl? Örneğin;

İşte bu kadar. Bundan sonra tek yapmanız gereken dosyayı kaydetmek, Visual Studio .Net 2005'i kapatmak ve yeniden açmak.

Deneyin farkı göreceksiniz.

Biraz reklamvari bir slogan oldu ama epeydir bunun çilesini çeken ve şimdi çözümünü bulan bir yazılımcı olarak beni mazur görünüz. Efendim makale gibi oldu, dolayısıyla yazar ve editör olduğum websayfalarında bu konuyu artık görebilirsiniz.

Unutmadan, bir de bu sorunun çok enteresan bir çözümü var. Arkadaş tavsiyesiyle farklı bir pc'de denedim ve hakikaten olduğunu gördüm. Malesef ki kendi laptopumda fayda etmedi. Yinede yazayım.

2- Visual Studio .Net 2005'i açın. View -> Other Windows -> Web Browser diyin ve eğer o anda ilgili websayfasını görüyorsanız anında sorun çözülebiliyor. Real time solution hesabı :) Öncesinde de dediğim gibi, %100 çözüm değil. En sağlıklı çözüm ilk yazdığım kodları editlemekten geçiyor. 

Umarım faydası olmuştur, bir sonraki çözüm/makalemde bu sorunun proje içerisindeki (bilhassa WebRequest işlemlerinde) halini görüp, çözümleyeceğim.

İyi çalışmalar dilerim.

Yine içerisinde sürpriz konu barındıran bir makaleyle C# 3.0’a devam ediyorum.

Bu makalemde amacım PictureBox’a koyduğumuz bir resmin özelliklerini edinmek. Makalenin ilerleyen paragraflarında çok farklı ve işe yarar bir konudan daha bahsedeceğim.

Öncelikle Windows formumuza bir picturebox, 5 label ve 5 textbox ekliyorum. Görüntü aşağıdaki gibi olmalıdır:

Çok sevdiğim bir kitabın kapağını resim olarak ekledim PictureBox’ıma. Şimdi gelelim kodlara. Formumuzun load özelliği dahilinde aşağıdaki kodları yazıyorum;

private void Form1_Load(object sender, EventArgs e)

{

float genislik = pictureBox1.Image.PhysicalDimension.Width;

float yukseklik = pictureBox1.Image.PhysicalDimension.Height;

textBox1.Text = genislik.ToString();

textBox2.Text = yukseklik.ToString();

string piksel_sayi = pictureBox1.Image.PixelFormat.ToString();

textBox3.Text = piksel_sayi.ToString();

System.Drawing.Image resim;

resim = pictureBox1.Image;

textBox4.Text = resim.HorizontalResolution.ToString();

textBox5.Text = resim.VerticalResolution.ToString();

}

İlk ve ikinci textboxa, Picturebox’ın barındırdığı resmin genişliğini ve yüksekliğini yazdırdım. Sonrasında PixelFormat özelliğinden yararlanarak üçüncü textboxa resmin renk sayısını yazdırdım. Son olarak ise System.Drawing sınıfından yararlanarak resmin yatay ve dikey çözünürlüklerini yazdırdım. Böylece picturebox’a atanan bir resmin detaylarını görebileceğiniz bir form oluşturmuş olduk.

Şimdi gelelim sürpriz konuya J

Bir Windows formuna yine picturebox ve bir textbox ekliyoruz. Bu sefer sabit bir resimle değil, hareketli bir .gif resmiyle ilgileneceğiz. Bildiğiniz gibi .gif resimleri birden çok kareden oluşturuluyor. Mesela dalgalanan bir Türk bayrağını düşünün. Kaç kareden oluştuğunu bulmak için yine formun load eventine aşağıdaki kodları yazıyoruz;

System.Drawing.Image resimresim = pictureBox1.Image;

System.Guid[] Anahtar;

Anahtar = resim.FrameDimensionsList;

System.Drawing.Imaging.FrameDimension boyut;

boyut = new System.Drawing.Imaging.FrameDimension(Anahtar[0]);

textBox6.Text = resim.GetFrameCount(boyut).ToString();

Bu kodla çalışma anında PictureBox’a atanan bir .gif resminin kaç kareden oluştuğunu öğrenebiliyoruz.

Kodda öncelikle resimresim adında bir değişken oluşturdum ve pictureboxdaki resmimi bu değişkene atadım. Daha sonra System.Guid sınıfından yararlanarak benzersiz bir anahtar oluşturdum ve Image sınıfının FrameDimensionList özelliğinin içeriğini bu anahtara aktardım. Resimde kaç kare olduğunu GetFrameCount() metodu ile öğrendim. Picturebox’a eklediğiniz resmin kaç kare olduğunu formunuzu çalıştırdığınızda textboxa yazıldığında öğreneceksiniz.

Umarım farklı bir konu üzerinde durmuşumdur. Farklı makalelerde tekrar görüşmek üzere, iyi çalışmalar.

Yağız Gönüler
yagizgonuler@gmail.com

Kaynaklar:

http://msdn.microsoft.com/en-us/library/system.drawing.image.physicaldimension.aspx

http://msdn.microsoft.com/en-us/library/system.drawing.image.pixelformat.aspx

http://msdn.microsoft.com/en-us/library/system.drawing.image.horizontalresolution.aspx

http://msdn.microsoft.com/en-us/library/system.drawing.image.verticalresolution.aspx

http://msdn.microsoft.com/en-us/library/system.drawing.imaging.framedimension.aspx

Memik Yanık – Visual Studio 2008 ile Visual C# 3.0 For .Net Framework 3.5

Uzun zaman aralığından sonra makalelerime C# 3.0 ile ilgili özelliklerle kaldığım yerden devam ediyorum.

RichTextBox’ın C# 3.0 ile gelen bir özelliğinden sizlere bahsetmek istiyorum. Bu özelliğin default özelliği true olduğu için RichTextBox’ın çalışma anında yazılan internet adresleri otomatik olarak linke dönüştürülür. Bunu daha detaylı görebilmek adına Windows formuma bir RichTextBox ekliyorum ve çalışma anında web adresimi yazıyorum.

Bu esnada linke tıklanırsa herhangi bir tepki alınmaz. Çünkü RichTextBox nesnesi tarafından link olarak işaretlenen adresin Internet Explorer gibi bir browser ile ziyaret edilebilmesi için bazı işlemleri yapmamız gerekiyor.

Çalışma anında RichTextBox’taki herhangi bir link tıklandığında LinkClicked olayı meydana gelir ve bu olayı temsil eden metot eğer hazırlanmışsa browser bunu algılar. LinkClicked olayını temsil eden metot LinkClickedEventArgs tipinde bir parametreye sahiptir.

Biz de bu parametreleri ve LinkClicked özelliği kullanarak RichTextBox’ımıza yazılan bir web adresinin browserımız tarafından algılanmasını sağlayabiliriz.

Aşağıdaki kodları yazdığımızda gerekli neticeyi alacağız.

private void richTextBox1_LinkClicked_1(object sender, LinkClickedEventArgs e)

        {

            string linkmetni;

            linkmetni = e.LinkText;

            System.Diagnostics.Process.Start(linkmetni);

        }

Bu kodda gördüğünüz gibi System.Diagnostics sınıfının Process.Start özelliğinden yararlanıyoruz ve RichTextBox’ımıza yazılan web adresine tıklandığında browserımızın bunu yakalamasını sağlıyoruz. Eğer bu hazırlığı yapmazsak RichTextBox’ımıza yazılan web adresi sadece link halinde duracak ve browserımızın tarafından algılanamayacaktır.

Makalemin içinde bir de sürpriz yapıyorum. Şimdi bir web adresinin RSS dosyasının içeriğini okuyup RichTextBox’a aktaracağım. Yapacağımız tek şey yukarıda görüntüsünü verdiğim forma bir buton ve bir Textbox eklemek ve click olayına aşağıdaki kodları yazmak;

private void button1_Click(object sender, EventArgs e)

        {

            System.Net.HttpWebRequest istek;

            System.Net.HttpWebResponse karsilik;

            istek = (System.Net.HttpWebRequest)System.Net.WebRequest.Create(textBox1.Text);

            karsilik=(System.Net.HttpWebResponse)istek.GetResponse();

            System.IO.Stream akis;

            System.IO.StreamReader okuyucu;

            akis=karsilik.GetResponseStream();

            okuyucu=new System.IO.StreamReader(akis);

            string satir=okuyucu.ReadToEnd();

            richTextBox1.AppendText(satir);

            System.Xml.XmlDocument xml_belge=new System.Xml.XmlDocument();

            xml_belge.LoadXml(satir);

            richTextBox1.Text=xml_belge.InnerText;

        }

Amacımız Textbox’ımıza bir rss adresi yazıp butona tıklamak ve ilgili web adresinin bu RSS dosyasının içeriğini RichTextBox’a yazdırmak. Burada özellikle System.Net sınıfının özelliklerinden faydalandım. Öncelikle istek ve karsilik adinda 2 parametre belirledim. Bu parametreler vasıtasıyla TextBox’ımıza yazılan RSS adresine ulaşıp System.IO sınıfının Stream özelliğiyle ilgili karşılığı yakalayıp bir xml dökümanı yardımıyla RSS dosya içeriğini RichTextBox’a attık. Özellikle 2.konu için uygulamalarınızda direkt olmasa da dolaylı olarak çok güzel sonuçlar elde edebileceğiniz bir makale olduğunu düşünüyorum.

Makaleler tam gaz devam edecek. Her sorununuzu benimle paylaşabilirsiniz. Tekrar görüşmek üzere.

Yağız Gönüler
yagizgonuler@gmail.com

Kaynaklar:
http://msdn.microsoft.com/en-us/library/system.io.aspx

http://msdn.microsoft.com/en-us/library/system.net.aspx

http://msdn.microsoft.com/en-us/library/system.xml(VS.71).aspx

Memik Yanık – Visual Studio 2008 ile Visual C# 3.0 For .Net Framework 3.5

Aslında not defteri uygulamasıyla bu uygulama arasında kararsız kalmıştım ancak baktım ki not defteri uygulamasında farklı kaynaklarda bolca örnek var. Ekran koruyucusu daha çok ilgi çeker diye hemen hazırlıklara başladım.

Tasarım olarak ne kullanacağız diye merak ediyorsunuzdur mutlaka. Cevap veriyorum: Form. Ancak bu formun birkaç özelliği olacak. Bu özellikleri veremezseniz yada vermeyi unutursanız ekran koruyucusundan cevap alamazsınız.

Maddeler halinde kullanacağımız formun özelliklerini veriyorum:

-Forecolor, Backcolor: Black (Arka plan ve font rengi siyah ayarlanıyor)

-Tranceparencykey: Transparent (Transparan olacak)

-WindowState: Maximized (Form ekranı kaplayacak şekilde ayarlanıyor)

-Opacity: %20 (Şeffaflık yüzde yirmi olarak ayarlanıyor)

-FormBorderStyle: None (Border kabul etmiyoruz)

-AutoScaleMode: Inherit

Bu özellikler yoluyla formumuz simsiyah olacak ve hiçbir özelliği bulunmayacak. Zaten ekran koruyucusu da çalıştığında ekranımız simsiyah olacak. Bir anlık panikle korkmayınız bu durumdan J

Formun görünümünü buraya eklememe gerek yok zira simsiyah bir kutu düşünün aynısı. Görüntü olarak kötü duracağından eklemiyorum.

Evet artık kodlara geçiyorum ve burada yine her zaman olduğu gibi “kodların açıklamaları satır aralarında” diyorum. Tıpkı diğer tüm makalelerimde olduğu gibi.

'point; x ve y koordinatlarıyla belirlenen nokta objesidir

Dim pnt As New Point

'burada ise yazı tipimizi belirtiyoruz

Dim YaziTipi() As String = {"Times New Roman", "Tahoma", "Verdana", "Arial"}

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'formun açılışındaki daha doğrusu ekran koruyucusunun aktif hale geçtiği zamanda olacak eylemler

pnt.X = MousePosition.X

pnt.Y = MousePosition.Y 'ilk mouseun ilk standart degerlerını tutuyor

Windows.Forms.Cursor.Hide() 'kursoru gızler

End Sub

Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove

' math namespace MATEMATİK

'ABS yuvarlama ıslemını yapıyor

If Math.Abs(pnt.X - e.X) > 6 Or Math.Abs(pnt.Y - e.Y) > 6 Then

Me.Close()

End If

'böylece ekran koruyucusu aktifken mouse hareket ettirildiğinde ekran koruyucumuz kapanıyor

End Sub

Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress

'herhangi bir tuşa basıldığında da formumuz yani ekran koruyucumuz kapanıyor

Me.Close()

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Static SayacEfekt As Integer ' bir değişken oluşturarak,sayının tutulması saglanıyor

SayacEfekt += 1 'Timer her calıstıgında sayacı bır arttırıyor

If SayacEfekt = 200 Then

SayacEfekt = 50 'sayac 200 olmuşsa onu tekrar 50 yapıyor

End If

If SayacEfekt > 20 Then 'sayac 20 den buyukse

'İŞLEMLER YAPILACAK

'----------------------------

Dim grf As Graphics = Me.CreateGraphics

Dim rnd As New Random 'random değer üretmek için

Dim fnt As New Font(YaziTipi(rnd.Next(YaziTipi.Length)), rnd.Next(8, 42))

Dim brs As New SolidBrush(Color.FromArgb(rnd.Next(255), rnd.Next(255), rnd.Next(255), rnd.Next(255)))

'-----------

ElseIf SayacEfekt <= 20 Then '20 den kucukse 20 den az calısmısa

If Me.Opacity <= 100 Then 'formun goruntü yanı şeffaflık sevıyesı

Me.Opacity += 0.1 'her calıstıgında formu daha gorunur hale getırıyor

End If

End If

End Sub

End Class

Umarım 3 seriden oluşan bu makale dizisi işe yarar olmuştur. Ödev aşamasındaki ve uzmanlık yolundaki tüm yazılımcı adayları için ideal örnekler olduğuna inanıyorum. Herkese kolay gelsin, iyi ödevler ve bol şanslar.

Daha önceki örneğimizdeki gibi burada da fazla açıklama yapmıycam. Gerekli kod açıklamaları kodların satır aralarında mevcut olacak.

Yinede herhangi bir konuda takıldığınız noktalar olursa mail vasıtasıyla bana ulaşabilirsiniz. Aşağıdaki tasarımı yaptıktan sonra projemizde bir imagelist bir de timer nesnesi eklemeyi unutmuyoruz.

Görüldüğü üzere 3 picturebox, 1 button, 1 de sol üst köşede görüldüğü üzere label var.

Pictureboxlarda oyunumuzdaki para kazancı olan resimler görünecek.

Button oyunu başlatıyor. Oyun bittiğinde kazanılan yada kaybedilen para label1’de belirtiliyor.

Tabi tüm bunları sağlayacak timer ve imagelist nesnelerimizi unutmamamız gerek. Bunları da toolbox yardımıyla projemize ekliyoruz. Timer1’in interval değerini 300 olarak ayarladım. Enabled değeri ise false.

Imagelist’e istediğiniz herhangi 3 resmi ekleyebilirsiniz. Ben size olarak 100x100 belirttim.

Şimdi kodları yazmaya başlıyoruz. Tekrar belirtmemde fayda var –maillerde hep soruluyor- kodların açıklamaları satır aralarında mevcut.

Kolay gelsin diyor ve iyi eğlenceler diliyorum J

'iki değişken tanımlıyoruz

'bunlardan biri elbetteki sayaç

'diğeri ise para değerini tutacak

Dim sayac As Byte

Dim para As Integer

Private Sub BtnBasla_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBasla.Click

'basla buttonuna tıkladıktan sonra timer'ımız içinde startı veriyoruz

'sayacımızı sıfır olarak belirtiyoruz

Timer1.Start()

sayac = 0

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

'timerin tick olayına yazdığımız kodlar burada

'3 farklı elemanımız olduğu için byte tipinde 3 değişken tanımlıyoruz

Dim rnd As New Random

Dim index1, index2, index3 As Byte

'rasgele resim sıralarını buluyor , 0,1 ve 2 olabılır

index1 = rnd.Next(0, 3)

index2 = rnd.Next(0, 3)

index3 = rnd.Next(0, 3)

'gosterılecek resım olarak imagelistteki rasgele sıradakileri gösteriyor

Resim1.Image = ImageList1.Images(index1)

Resim2.Image = ImageList1.Images(index2)

Resim3.Image = ImageList1.Images(index3)

sayac += 1

'burada ise kazanıp kazanılmadığını belirtiyoruz

'eğer timer durduğunda index1, 2 ve 3 birbirine eşitse

'kazanıldığına dair bir mesaj verip labelımızdaki para değerine +1000 ekliyoruz

If sayac = 10 Then

Timer1.Stop()

If index1 = index2 And index1 = index3 Then

MsgBox("Oleyyy... Yırttın...")

para = para + 1000

Label1.Text = para & "$"

'eğer kaybedildiyse para değerinden 100 düşüyoruz

Else

MsgBox("Yattı....")

para = para - 100

Label1.Text = para & "$"

End If

End If

End Sub

Private Sub Slot_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'formumuzun açılışında gerçekleştirecek eylemler burada

'önce bir inputbox vasıtasıyla kullanıcıdan para değeri girmesini istiyoruz

'en düşük para değeri 500 olmalı, onun altındaki değerlerle bu oyun oynanmıyor :)

para = InputBox("PARANIZI GİRİNİZ")

'burada ise eğer para 500'den küçükse paranın yeterli olmadığını belirten bir uyarı ekrana getiriyoruz

've oyunu kapatıyoruz

If para < 500 Then

MsgBox("Paranız yeterli değil, Min=500")

'Application.Exit() ' butun sayfaları kapatıyor

Me.Close()

'aksi durumlarda oyunu başlatıyor ve imageliste resimleri ekliyoruz

'bu arada proje klasörümüzde bir resim klasörü oluşturup 3 resim eklemeyi unutmayalım

Else

Resim1.Image = ImageList1.Images(0)

Resim2.Image = ImageList1.Images(1)

Resim3.Image = ImageList1.Images(2)

End If

End Sub

End Class

Bundan sonraki makalem de yine bir yazılımcının ilk ödevleri arasında yer alan bir program olacak. Ancak bu makaleyi yazdığım sıralarda henüz karar veremedim ne yapacağıma. Umarım işe yarar makalaler olmuştur şimdikiler.

Yıl 2002. Visual Studio .Net, Framework ve dilleriyle tanıştığım yıl. İlk yaptığım programlardan biri. Daha doğrusu ödev demeliydim. Yeni başlayanlar için çok ideal..

Program hususunda çok açıklama yapmıycam zira kod açıklamaları zaten satırların arasında yazılı olacak. Yalnız bir windows programı olduğunu, başlıktan da anlaşıldığı gibi visual basic .net ile yazıldığını ve çalışması için .net framework’ün bilgisayarınızda yüklü olması gerektiğini belirtmek isterim.

Programın tasarımı aşağıda gördüğünüz gibi;

Textbox ve Button kontrolleri dışında hiçbirşey yok. Aşağıda kodlar yer almakta. Çok iyi takip ederseniz ilk okuyuşunuzda anlamanız mümkün. Açıklamalarıda sürekli olarak altlarında olacak. Kolay gelsin..

   
'formun load, yani açılış esnasında gerçekleştirilen eylemleri burada

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'd isminde bir değişken tanımladım

        'bu değişkenin tipi double yani tam,kesirli ve ondalık sayılarıları tanimlayabiliyor

        Dim d As Double

        'bir for döngüsü kurdum

        'bu döngü formun açılışın saydamdan belirgine olmasını sağlayacak

        For d = 0 To 1 - 0.1 Step +0.1

            'd'nin degerini 0 olarak tanimladim

            'her 0.1'lik artışta sistemi 5 salise durduruyorumki saydamlık anlaşılsın

            System.Threading.Thread.Sleep(50)

            'burada uygulama 2 iş birden yapabilir hale geliyor

            Application.DoEvents()

            'opacity yani saydamlık derecesini d değişkenine atadım

            Me.Opacity = d

            'programı yeniledim

            'böylece program açılırken en saydamdan en donuk hale geldi

            Me.Refresh()

        Next d

    End Sub

    '3 tane değişken tanımladım

    'islemsecildi değişkeni boolean(evet/hayır) olarak seçtim ve

    'varsayılan olarak "hayır" değerini verdim

    Private islemsecildi As Boolean = False

    'sayi değişkenine sayı değerlerini tutması için double değeri verdim

    Private sayi As Double

    'islem degiskenine metin degeri tutacagi icin string degeri verdim

    Private islem As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click, Button8.Click, Button9.Click, Button10.Click

        'üzerinde rakam yazan tüm buttonlardan herhangi birine tıklandığında

        'yapılacak işlemleri belirtiyoruz

        If Not islemsecildi Then

            txtsayi.Text &= sender.text

        Else

            'islemsecildinin degeri varsa

            'sayı olarak senderdaki sayıyı atıyoruz

            txtsayi.Text = sender.text

            'daha sonra tekrar islemsecildiyi false olarka belirtiyoruz

            'yani ilk haline döndürüyoruz

            islemsecildi = False

        End If

    End Sub

Private Sub btncarp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncarp.Click, btnbol.Click, btncikar.Click, btntopla.Click

        'çarp, böl, topla yada çıkar buttonlarına basıldığında

        'islem değişkeni çağrımızı yapacağımız sendera işi gönderecek

        islem = sender.text

        'bunu bir try catch kontrolüyle gerçekleştiriyoruz

        Try

            'sayımız, textboxda yazan sayı

            sayi = txtsayi.Text

            'boolean değerli işlemsecildi değişkenimize evet değeri atıyoruz

            islemsecildi = True

        Catch ex As Exception

            'işlem yapıldığında aksi bir durum oluşursa hata mesajı yayınlanacak

            MsgBox("Sayı düzgün formatta girilmedi")

        Finally

            'son olarak işlem düzgün olarak tamamlandığında

            'sayı yazan yer ve sayı hafızası temizlenecek

            txtsayi.Text = ""

            txtsayi.Focus()

        End Try

    End Sub

   

Private Sub btnesit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnesit.Click

        'üzerinde eşittir yazılı buttona basıldıktan sonra bir select case döngüsüyle

        'eşittirden önce çarpı denildiyse çarpıcak, bölü dediyse bölünecek vs..

        Select Case islem

            Case "*"

                sayi *= txtsayi.Text

            Case "/"

                sayi /= txtsayi.Text

            Case "-"

                sayi -= txtsayi.Text

            Case "+"

                sayi += txtsayi.Text

        End Select

        'döngü bittiğinde sayı, textboxa yazdırılacak

        txtsayi.Text = sayi

    End Sub

   
Private Sub btntemizle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntemizle.Click

        'üzerinde c yazan temizle butonuyla hem textboxı boşaltıyoruz

        'hemde hafızadaki sayıyı sıfırlıyoruz

        sayi = 0

        islemsecildi = False

        txtsayi.Text = ""

        txtsayi.Focus()

End Sub

Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkapa.Click

        'kapat buttonuna tıklandığında nasıl form açılırken en saydamdan

        'en donuğa geliyorsa bundada aynısı oluyor

        'dolayısıyla kod açıklamalarını tekrar yazmıyorum

        Dim d As Double

        For d = 1 To 0 + 0.2 Step -0.2

            System.Threading.Thread.Sleep(50)

            Application.DoEvents()

            Me.Opacity = d

            Me.Refresh()

        Next d

        'burada programı kapatıyoruz

        Environment.Exit(0)

    End Sub

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown

        'programın güzel özelliklerinden biri mouse kullanmadan da rakamların girilebileceği

        'ancak numpad değerlerinin sadece pclerde çalışacağını, laptoplarda olmayacağını belirteyim

        Select Case e.KeyCode

            'klavyeden 0'a basıldığında textboxa rakamı yazacak

            'diğer tuşlalarda da aynı işlem gerçekleşecek

            Case Keys.NumPad0

                txtsayi.Text = 0

            Case Keys.NumPad1

                txtsayi.Text = 1

            Case Keys.NumPad2

                txtsayi.Text = 2

            Case Keys.NumPad3

                txtsayi.Text = 3

            Case Keys.NumPad4

                txtsayi.Text = 4

            Case Keys.NumPad5

                txtsayi.Text = 5

            Case Keys.NumPad6

                txtsayi.Text = 6

            Case Keys.NumPad7

                txtsayi.Text = 7

            Case Keys.NumPad8

                txtsayi.Text = 8

            Case Keys.NumPad9

                txtsayi.Text = 9

        End Select

    End Sub

End Class

Bundan sonraki makalem yine bir yazılımcının ilk ödevleri arasında yer alan bir program olacak.

Ajax ile sunucu tarafında birden fazla XMLHttpRequest işlemi yapıldığında, tarayıcımız bazı işlemlerin sürekli aynı adreste yapılmasından ötürü önbellekleme yapabilir. Böyle bir durumda örneğin bir haber sitesini düşünelim. Her gün hatta her saat güncellenen bir sitedir neticede haber siteleri. Ancak önbellekleme sorununu yaşıyorsak biz bu güncellemelerden haberdar olamayız. Haber sitesinin ilgili sayfasını her açtığımızda aynı haberlerle karşılaşırız.

Bu ve buna benzer önbellekleme sorunlarını çözmek için çeşitli yollar var. Bunlardan birincisi, veri isteğinde bulunduğumuz web adresinin sonuna sürekli değişen bir parametre atmak. Böylece adres her seferinde farklı gözükecektir ve kullanıcı tarafındaki (web browser) önbellekleme bizleri etkilemeyecektir.

Aşağıdaki kodları ajaxbellek.htm şeklinde kaydedip inceleyebilirsiniz. Bu scripti kullanarak web adresinin sonuna parametre ekleyebilir ve önbellekleme sorununu aşabilirsiniz.

// xmlhttp adında bir değişken tanımlıyoruz. Daha sonra;

//bu değişkeni msxml2.xmlhttp active x objesi olarak tanımlamaya çalışıyoruz

//eğer başarılı değilse hatayı try catch metoduyla yakalıyoruz

//başarılı değilse Microsoft.xmlhttp active x objesini belirtip değerini alıyoruz

<script type="text/javascript" language="javascript">

function XMLHTTPObjesi()

{

var XMLHTTP = new ActiveXObject("Msxm12.XMLHTTP");

}

catch (hata)

{

try

{

XMLHTTP = new ActievXObject("Microsoft.XMLHTTP");

}

catch (hata)

{

if (typeof XMLHttpRequest != "undefined")

{

XMLHTTP = new XMLHttpRequest();

}

}

}

return XMLHTTP;

}

//bu fonksiyon xmlhttp objesinin talebinin onaylanıp onaylanmadığını
//kontrol ediyor. Onaylanırsa adrese rastgele atamasını yapıyor

{

if (Objem.readyState == 4 &&

Objem.status == 200)

{

alert(Objem.responseText);

}

}

var Objem = XMLHTTPObjesi()

Objem.open("GET", "metin.aspx?id=4&rastgele=" + Math.random());

Objem.onreadystatechange = Dinle;

Objem.send(null);

</script>

Diğer çözüme geçeyim. Bu çözüm tekniğinde karşı taraftan gelen veriyi çekerken, ne zaman önbellekten silinmesi gerektiğini belirterek yine önbellekleme sorunundan kurtulabiliriz. Geçmişteki bir zamanı, gelen veriye Header olarak atarsak, veri alındıktan sonra önbellek geçerlilik süresi geçeceği için, web browser tarafından önbelleklenmeyecektir.

Aşağıdaki kodları ajaxbellek2.htm olarak kaydederek inceleyelim:

// daha önce yaptığımzı gibi xmlhttp adında bir değişken tanımlıyoruz.
// Daha sonra;

// bu değişkeni msxml2.xmlhttp active x objesi olarak tanımlamaya çalışıyoruz

// eğer başarılı değilse hatayı try catch metoduyla yakalıyoruz

// başarılı değilse Microsoft.xmlhttp active x objesini belirtip değerini alıyoruz

<script type="text/javascript" language="javascript">

function XMLHTTPObjesi()

{

var XMLHTTP = null;

try

{

XMLHTTP = new ActiveXobject("Msxm12.XMLHTTP");

}

catch (hata)

{

try

{

XMLHTTP = new ActiveXObject("Microsoft.XMLHTTP");

}

catch (hata)

{

if (typeof XMLHttpRequest != "undefined")

{

XMLHTTP = new XMLHttpRequest();

}

}

}

return XMLHTTP;

// bu fonksiyonun diğer fonksiyondan farkları var
// readystate’in 4 yani talep onaylanması işleminden sonra
// objenin önbellekten silinmesi gereken tarihi belirtmemiz gerekiyor

function Dinle()

{

İf (Objem.readyState == 4 &&

Objem.status == 200)

{

alert(Objem.responseText);

}

}

var Objem = XMLHTTPObjesi()

Objem.open("GET", "metin.txt");

Objem.setrequestHeader("If-Modified-Since", "Sat, 3 Nov 1992 13:13:13 GMT");

Objem.onreadystatechange = Dinle;

Objem.send(null);

</script>

Yukarıdaki scriptleri projelerinize rahatlıkla entegre edebilirsiniz. Umarım önbellekleme sorununu bu şekilde giderebilirsiniz.

Kaynaklar:
# ASP.net AJAX – Daron Yöndem

# Ajax.Asp.Net