Günlerdir bunu düşünüyorum. Sessiz kalmak, duyarsız kalmak en azından insani değerlerimize yakışmaz. Bu noktada bir blog sahibi olarak ilk yapmamız gerekenin deniz feneri, ihh, kimse yokmu dernekleri gibi yardım derneklerine bloglarımızdan destek vermek olmalı diye düşünüyorum.

Bu derneklerin bannerlarını bloglarımızda yayınlayabiliriz.

Kimse yokmu derneği için:

http://www.kimseyokmu.org.tr/Pages.aspx?pagesID=472

adresinden aşağıdaki gibi bir banner'ı ekleyebilirsiniz.

Kodu:

Deniz feneri derneği için ise

aşağıdaki gibi bir banner'ı

Kodu:

İnsani yardım vakfı için:

http://ihh.org.tr/Bannerlarimiz.165.0.html?&L=0

adresinden aşağıdaki gibi bir banner'ı

Kodu:

Kodlar deneri derneği hariç diğer sitelerde zaten verdiğim linklerde mevcut. Ben kodlar görünsün diye resim dosyası şeklinde ekledim.

Bunlar bir blog sahibi olarak yapabileceklerimiz arkadaşlar. Bunun dışında ise yukarıdaki derneklere bağış yapma yolu ile filistin halkına destek olabiliriz.

Örneğimizde combobox içerisine değer ekleme ve silme olaylarını yapacağım.

Combobox içerisine değer eklemek için :

ComboBox1.Items.Add(değer)

Public Class

Form1  

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

MsgBox(ComboBox1.SelectedItem) 

End Sub 

Combobox içerisinden değer silmek için :

ComboBox1.Items.Remove(değer)

Combobox içerisindeki tüm değerleri silmek için  ise:

ComboBox1.Items.Clear()

metodları kullanılır.

Örneğimiz için form üzerine cmdekle, cmdsil, cmdTumunuSil, cmdYavasEkle, cmdYavasSil adlı 5 adet buton, bir adet combobox, tmrekle ve tmrsil adlı 2 adet timer ekliyoruz. Kodumuz aşağıdaki gibi olacak:

Private Sub cmdekle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdekle.Click  

Dim i As Byte 

For i = 0 To 100  

If i Mod 2 = 0 Then

ComboBox1.Items.Add(i) 

End If 

Next i

ComboBox1.SelectedIndex = 0 

End Sub 

Private Sub cmdsil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsil.Click

ComboBox1.Items.Remove(ComboBox1.SelectedItem) 

End Sub 

Private Sub cmdTumunuSil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdTumunuSil.Click

ComboBox1.Items.Clear()

ComboBox1.Text =""

End Sub 

Private Sub cmdYavasEkle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdYavasEkle.Click

tmrekle.Enabled =True

tmrsil.Enabled =False 

End Sub 

Private Sub cmdYavasSil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdYavasSil.Click

tmrsil.Enabled =True

tmrekle.Enabled =False 

End Sub 

Private Sub tmrekle_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrekle.Tick  

Static i As Byte

i = i + 1

ComboBox1.Items.Add(i) 

If i = 100 Then

tmrekle.Enabled =False 

End If 

End Sub 

Private Sub tmrsil_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrsil.Tick  

Static i As Byte

i = i + 1

ComboBox1.Items.Remove(i) 

If i = 100 Then

tmrsil.Enabled =False 

End If

End Sub

End Class 

Proje dosyamızın linki :

http://www.volkanaktas.com/PrgDosya/vbnet/combobox_olaylari.rar

Bir WPF Uygulaması oluşturabilmek için Proje tipi olarak Visual Basic /Windows/WPF Application proje şablonunu seçiyoruz.

Örneğimiz için form üzerine toolbox’dan bir buton nesnesi ekliyoruz. Eklediğimiz butonun ismini “cmdyenipencere”, üzerindeki yazıyı da “Yeni pencere” olarak değiştiriyoruz. Bu işlemi kod yazmadan değiştirmek için properties penceresinden name ve text özelliklerini kullanabileceğimiz gibi XAML kod penceresinden kod yazarak da değiştirebiliriz. Butonumuzun XAML kodu şu şekilde:

<Button Height="23" Margin="88,0,115,62" Name="cmdyenipencere" VerticalAlignment="Bottom">Yeni Pencere</Button>

VB.NET kodu da şu şekilde olacak:

Class Window1

    Private Sub cmdyenipencere_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles cmdyenipencere.Click

        Dim pencere As New Window

        pencere.Width = 300

        pencere.Height = 200

        pencere.Title = "Yeni Pencere"

        pencere.Show()

    End Sub

End Class

Project menüsünden Add Window diyerek yeni pencere eklemek de mümkündür. Ana penceremiz içerisine bir buton ekleyerek şu kodu yazalım:

Class Window1

    Private Sub cmdyenipencere_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles cmdyenipencere.Click

        Dim yenipencere As New Window2

        yenipencere.Show()

    End Sub

End Class

Form üzerine aşağıdaki resimde görülen kontrolleri ekleyelim:

Bu kontroller 2 adet picturebox, bir adet command button, bir adet HScrollBar nesnesi, bir adet LineShape nesnesi ve iki adet de timer nesnesidir.

Ancak LineShape nesnesi normalde toolbox içerisinde mevcut olmadığından kullanamazsınız. Bunu kullanabilmek için Visual Basic Power Packs paketini yüklemeniz gerekiyor. Bunu

http://www.microsoft.com/downloads/details.aspx?FamilyId=371368A8-7FDC-441F-8E7D-FE78D96D4063&displaylang=en

adresinden indirebilirsiniz.

Kodumuz aşağıdaki gibi olacak:

Public

Dim f, g As Int32

Private Sub cmdbasla_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdbasla.Click

PictureBox1.Top = 29

PictureBox1.Left = 12

PictureBox2.Top = 135

PictureBox2.Left = 12

Timer1.Enabled = True

Timer2.Enabled = True

Timer1.Interval = HScrollBar1.Value

Timer2.Interval = HScrollBar1.Value

End Sub

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

Randomize()

g = Rnd(10) * 10

PictureBox1.Left = PictureBox1.Left + g

If PictureBox1.Left >= 800 Then

Timer1.Enabled = False

Timer2.Enabled = False

MsgBox("kazanan sar araba")

Exit Sub

End If

End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

Randomize()

f = Rnd(10) * 10

PictureBox2.Left = PictureBox2.Left + f

If PictureBox2.Left >= 800 Then

Timer1.Enabled = False

Timer2.Enabled = False

MsgBox("kazanan mavi araba")

Exit Sub

End If

End Sub

Private Sub HScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll

Timer1.Interval = HScrollBar1.Value * 10

Timer2.Interval = HScrollBar1.Value * 10

End Sub

End Class

Proje dosyasının linki:

http://www.volkanaktas.com/PrgDosya/vbnet/rastgeleyarisoyunu.rar

Bugünlerde biraz blogumu ihmal ettim maalesef. Bu arada uzun süren bir kitap projem vardı. "VB.NET ve Ofis Uygulamaları" adlı bu kitabımı yazmayı nihayet bitirdim. Şimdi ise bunu bastırabilme uğraşısı içerisindeyim.

Öncelikle yazlılım kulubündeki öğrencilerimizle yaptığımız kodları ekleyerek başlayalım işe:

Örneğimiz form kapatılmaya çalışıldığında bir mesaj penceresi döngüsü içerisinde çıkışı engellemektedir. Kapanma olayı için form closing olayı, çıkışı iptal etmek için ise e.cancel=true, mesaj döngüsünden çıkıp forma geri dönüş için ise exit sub fonksiyonu kullanılır.

Kodumuz aşağıdaki gibi olacak:

Public Class Form1  

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing 

 Dim i As Byte 

Dim mesaj

For i = 1 To 5  

If i = 1 Then 

mesaj = MsgBox("Çıkmak istediğinize Emin misiniz?" , MsgBoxStyle.YesNo)

If mesaj = vbNo Then

MsgBox("Aferin. İşte Böyle yola gel" )  

e.Cancel =True

Exit Sub 

 End If

 ElseIf i = 2 Then

mesaj = MsgBox("Gerçekten Çıkmak istiyor musunuz?" , MsgBoxStyle.YesNo)  

If mesaj = vbNo Then 

MsgBox("Aferin. İşte Böyle yola gel" )  

e.Cancel =True

Exit Sub 

End If

 ElseIf i = 3 Then

MsgBox("Emin misiniz?", MsgBoxStyle.YesNo)    

If mesaj = vbNo Then 

MsgBox("Aferin. İşte Böyle yola gel" )

e.Cancel =True

Exit Sub 

End If 

ElseIf i = 4 Then

MsgBox("Hımm. Düşünmem lazım", MsgBoxStyle.YesNo)

 If mesaj = vbNo Then

MsgBox("Aferin. İşte Böyle yola gel")

e.Cancel =True

Exit Sub 

End If 

ElseIf i = 5 Then

MsgBox("Müsait bir zamanımda düşünürüm", MsgBoxStyle.YesNo)

If mesaj = vbNo Then

MsgBox(

Exit Sub 

End If

i = 0 

End If 

Next 

If e.CloseReason = CloseReason.WindowsShutDown Then

Örneğimizde bir adet textbox içerisinde girilen 2 adet sayıdan büyüğünden küçüğünü çıkartarak sonucu yine aynı textbox içerisine yazacağız. 1. sayı girilip enter'a basılacak text kutusu içeriği temizlenip 2. sayı girilecek enter'a basılacak ve text kutusu içeriği yine temizlenerek sonuç yazılacak.

Kodumuz aşağıdaki gibi olacak:     

Class Form1  

Public

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress Static sayi, s1, s2 As Integer 

 Dim sonuc As Integer 

If e.KeyChar = Chr(13)  Then

 sayi = sayi + 1

If sayi = 1  Then

 s1 = Val(TextBox1.Text)

 TextBox1.Text =""

 ElseIf sayi = 2 Then

s2 = Val(TextBox1.Text) 

TextBox1.Text =""

 If Val(s1) > Val(s2) Then

 sonuc = s1 - s2

Else 

sonuc = s2 - s1

End If

 TextBox1.Text = sonuc

sayi = 0

s1 = 0

s2 = 0

End If 

End If 

End If 

End Sub

End Class

Değerli arkadaşlarım Selçuk ERMAYA ve Erdem TÜZEN'in öncülüğünde gerçekleşen ve benim de kıyısından köşesinden katıldığım bir proje olan Blogsa.NET projesi yayına başladı.

Blogsa ücretsiz, açık kaynaklı Tamamen Asp.NET ve C# kodlama dili ile yazılmış bir Blog sistemidir.

Aynı zamanda bir blog sistemi üzerinde içerisinde bir çok eklentiyi barındıran sayfanın her alanında size düzenleme imkanı sunan, zengin ve düzenlenebilir tema seçenekleri ile sizlere geniş bir  site özelliği sağlayabilen bir sistemdir. Ayrıca Blogsa diğer blog sistemlerine karşın çok hızlıdır.

Blogsa da işlem yapmak çok kolaydır. Kurulumu çok basittir. Güncel birçok Veritabanını destekler yapıdadır. Günden güne ise desteklediği veritabanı yapılarını artırmaktadır.

Blogsa aynı zamanda dil seçeneğine sahip bir sistemdir. Kolay düzenlenebilir dil dosyaları sayesinde(XML) blog sisteminizi istediğiniz dilde yayınlayabilirsiniz. Sayfaların heryerinde tek tek oynama yapmanıza gerek kalmaz. Sadece dil dosyasını değiştirmeniz sayfanızın tamamen farklı bir dilde olması için yeterli. Sayfanızın dilediğiniz yerinde dil değiştirmek için eklenti ekleyebilirsiniz.

Blogsa'yı indirmek ve hakkında ayrıntılı bilgi almak için resme tıklayın.

Okulumuzda 04.11.2008 Salı günü konferans salonunda "Bilişim Güvenliği" konulu seminer düzenlenecektir. Konuşmacı olarak Bilişim Suçlarına Karşı Mücadele Derneği genel sekreteri sayın Onur Yılmaz seminer verecektir. Kendisine ricalarımı kırmayarak İstanbul'dan gelip de bu seminere vereceği için teşekkür ediyorum. Semineri okulumuz yazılım kulubü bünyesinde düzenlemekteyiz. Seminere okulumuz 11 ve 12. sınıflar Veri Tabanı Programlama ve Web Tasarım dalları öğrencileri davetlidir.

Aşağıda ise etkinliğimizin afişi görülüyor.

Bizler programlama öğrenmeye QBasic dili ile başladık. Programlamanın temellerini bu dil ile öğrendik diyebilirim. Microsoft'da çocukların ve programlamaya yeni başlıyanların ilk adımda kullanabilecekleri bir programlama dili üretmiş.

İçerisinde şimdilik 15 adet komut var.  Hatta bir de Turtle yani kaplumbağa sınıfı ve buna ait komutlar var ki evlere şenlik :) Bu sınıf ile ekranda bir kaplumbağa gezdirebilirsiniz.

Programı aşağıdaki linkten indirebilirsiniz:

http://msdn.microsoft.com/tr-tr/devlabs/cc950524(en-us).aspx

Uzun bir aradan sonra sitenin yapısı ile de biraz ilgilendim ve siteye yorum eklentisini de kodladım. Artık makalelere yorumlar yazıp konular ile ilgili yorumlarınızı ya da anlaşılmayan noktaları yazabileceksiniz. Hayırlı olsun İnşaAllah.