Bir Baska Visual Basic Blogu

Visual Basic.net ile Sistem Bilgilerini Öğrenmek

Fri, 07 Aug 2009 20:05:00 +0300

Vb.net ile bilgisayarınızın işletim sistemi , bios ve çeşitli bilgilerini kolay bir şekilde görüntüyebilirsiniz.

İşlemci Bilgilerini Görüntülemek :

Dim query As New SelectQuery("Win32_processor")
Dim search As New ManagementObjectSearcher(query)
Dim info As ManagementObject
For Each info In search.Get()
Textbox1.Text = "Processor: " & info("caption").ToString() & CRLF
Next

Bios Bilgilerini Görüntülemek :

Dim query As New SelectQuery("Win32_bios")
Dim search As New ManagementObjectSearcher(query)
Dim info As ManagementObject
For Each info In search.Get()
Textbox1.Text = "Bios version: " & info("version").ToString() & CRLF
Next

İşletim Sistemi Bilgilerini Görüntülemek :

Dim search As New ManagementObjectSearcher("SELECT * FROM Win32_OperatingSystem")
Dim info As ManagementObject
For Each info In search.Get()
Textbox1.Text = "Name: " & info("name").ToString() & CRLF 'sistemin Adı
Textbox1.Text += "Version: " & info("version").ToString() & CRLF ' versiyonu
Textbox1.Text += "Manufacturer: " & info("manufacturer").ToString() & CRLF
Textbox1.Text += "Computer name: " & info("csname").ToString() & CRLF ' bilgisayar adı
Textbox1.Text += "Windows Directory: " & _
info("windowsdirectory").ToString() & CRLF ' dizini
Next

Genel Bilgisayar Bilgilerini Görüntülemek :

Dim search As New ManagementObjectSearcher("SELECT * FROM
Win32_ComputerSystem")
Dim info As ManagementObject
For Each info In search.Get()
Textbox1.Text = "Manufacturer: " & info("manufacturer").ToString() & CRLF
Textbox1.Text += "Model: " & info("model").ToString() & CRLF
Textbox1.Text += "System Type: " & info("systemtype.. ( devamı )

Vb.net Ajax Kontrollerini Eklemek

Tue, 04 Aug 2009 00:53:00 +0300

Ajax nesnelerini eklemeden önce , Ajax'ın ne olduğundan bahsedecek olursak :

Ajax : En yaygın kullanım alanı sayfayı tekrardan yüklemeye gerek kalmadan sayfada görünür değişiklikler yapmaktır. XMLHttpRequest kullanarak birden fazla bağımsız işlemi yapabilir. Bazı bilişim uzmanları, AJAX'ın HTML ve XML'den sonra en yenilikçi Internet yazılımı olduğunu ve Web 2.0'ı bitirip, 3. evreye ulaştırdığını iddia etmişlerdir.

Günümüzde birçok dev firmalar (Google,Microsoft,Yahoo vs ...) ajax alt yapısını kullanmaktadır. Visual Basic blogumuzun bu yazısında bahsettiğimiz ajax kontrollerini eklemek için :

Öncelikle : Ajax Control Toolkit Download adresinden AJAXControlToolkitSource.zip dosyasını indiriyoruz.
İndirme işlemini tamamladıktan sonra Visual Stdio'yu başlatıp yeni bir web sitesi projesi oluşturuyoruz.
Daha sonra ise sol tarafta bulunan TOOLBAX'ımıza sağ tıklayarak yeni bir tab açıyoruz.Kolaylık olması için adını AJAX NESNELERİM yapabilirsiniz.
Tabımızı açtıktan sonra içerisinden sağ tıklayıp CHOOSE ITEMS diyoruz ve ardından BROWSE diyerek indirdiğimiz dosya içerisinden AjaxControlToolkit/Bin/Debug/AjaxControlToolkit.dll adlı dosyayı seçiyoruz ve ekliyoruz.Ajax nesnelerim adlı tabımıza baktığımızda birsürü ajax kontrollerinin ekledini görüyoruz.

Normal olarak Visual Studio üzerinde bağzı ajax kontrolleri gelmektedir ama tam olarak yüklü değildir.Yukarıdaki işlemleri yaparak varolan tüm kontrolleri ekleyip projelerinize katabilirsiniz.Ayrıca indirdiğiniz dosya içerisindenki örnek pro.. ( devamı )

TRY-CATCH ile programın hata vermesini önlemek

Sat, 21 Mar 2009 22:30:00 +0200

Program yazarken çeşitli hataların ortaya çıkması kaçınılmaz bir durum.Herhangi bir şartta yada döngüde hata olduğunda programınız kıralabilir ve çalışmalar boşa gidebilir.Kendi programlarımızda belki düzenleme yapabiliriz fakat programı yapıp sattığımızda yada kullanıma verdiğimizde önemli hataların ortaya çıkması kullanıcıları sıkar ve rahatsız eder.Verilerin kaybolmasına vb. gibi ciddi sorunlarada yol açabilir.Program çalışma esnasında hata kodu verip programı durdurması yerine hata kodunu ayıklayıp atlaması mantıklı olsa gerek.İşte bu durumu TRY - CATCH komutu ile düzeltebilir veya kontrol altına alabiliriz.

Çalışma mantığı if-then-else gibidir.Nasıl

If TextBox1.Text < 0 Then
            MsgBox("girdiginiz sayi negatiftir")
Else
            MsgBox("girdiginiz sayi pozitiftir")
End If

şeklinde if şartını kullanıyorsak aynı şekilde TRY ve CATCH komutunuda kullanabiliriz.Kullanım şekli ise şu şekilde :

Try
            Dim s1,s2,sonuc As Byte
            s1 = TextBox1.Text
            s2 = TextBox2.Text
            sonuc = s1 + s2
            Label4.Text = z
Catch
            MsgBox("256 dan az degerleri toplayın..")
End Try

yani koddan da anlaşıldığı gibi değişkenler byte olduğu için kullanıcı 256 değerinden fazlasını toplamaya kalktığında hatayı vericek ve program kaldığı yerden devam edecek.Visual Basic ile .. ( devamı )

Visual Basic ile Dosya Uzantılarını bulmak

Fri, 10 Oct 2008 15:23:00 +0300

Aşağıdaki fonksiyon bir dosyanın uzantısını döndürüyor.

Function GetExtension(Filename As String)

Dim PthPos, ExtPos As Integer

For i = Len(Filename) To 1 Step -1 ' Go from the Length of the filename, to the first character by 1.

If Mid(Filename, i, 1) = "." Then ' If the current position is '.' then...

ExtPos = i ' ...Change the ExtPos to the number.

For j = Len(Filename) To 1 Step -1 ' Do the Same...

If Mid(Filename, j, 1) = "" Then ' ...but for ''.

PthPos = j ' Change the PthPos to the number.

Visual Basic Dosya Kopyalamak

Fri, 10 Oct 2008 15:22:00 +0300

Aşağıdaki kod parçası da yüzde ölçüsünü kullanarak dosya kopyalamaya yarıyor. Göze güzel görünen uygulamalar yapmak için iyi bir şey.

Function CopyFile (src As String, dst As String) As Single

'L. Serflaten 1996

Static Buf$

Dim BTest!, FSize!

Dim Chunk%, F1%, F2%

Const BUFSIZE = 1024

'This routine will copy a file while providing a means

'to support a percent gauge. Ex. your display routine

Visual Basic Hızlı Form

Fri, 10 Oct 2008 15:21:00 +0300

Move methodunun, Left ve Top ayarlarından %45 daha hızlı çalıştığını biliyormuydunuz? Özellikle yavaş sistemlerde çok işe yarıyor.

Move methodu için kullanacağınız kod aşağıda:

Sub ...

Form.Move x, y

End Sub...

Bu kadar kolay.

.. ( devamı )

Visual Basic Ile 4 Işlem

Fri, 10 Oct 2008 15:13:00 +0300

Kullanmamız gereken araçlar :
5 adet CommandBtton , 5 adets Label, 3 adet TextBox'dır..

Form görünümünü istediğiniz gibi yapabilirsiniz . Ben aşağıdaki gibi yaptım.

Dikkat edilmesi gereken nokta kontrolleri yanlış yere yerleştirmemektir. Bunu önlemek için kontrollerin üzerine adlarını yazdım.

Şimdi program bize ne yapacak?

Program bize 4 işlemi yapacak, aynı zamanda yapılan işlemi "Label4"e yazdıracak, eğer "TextBox2" kutusuna 0 değeri girilirse, bilindiği gibi bir sayının sıfıra bölümü tanımsız olacağından bize hata mesajı verecek ve bir de ikinci işlemler yapabilmemiz için formu temizleyecek.

Geldik Şimdi Kodlara:

1.CommandButon::
Private Sub Command1_Click()
Label4.Caption = "+" 'Labelin ismini değiştiriyoruz'
Text3.Text = Val(

Komut Düğmesi (Command Button)

Thu, 17 Apr 2008 15:36:00 +0300

Komut Düğmesi (Command Button)

Bir uygulamanın kullanıcı ile etkileşime geçmesi için en kolay yol kliklemek için buton kullanmaktır. VB tarafından sağlanan Command Button nesnesini kullanabilirsiniz yada isterseniz bir resmi (image nesnesi) yada bir ikonu command buton olarak kullanabilirsiniz.

Komut Düğmesi Kullanımı

VB uygulamalarının çoğunda kullanıcının programı kullanması için butonları vardır. Kullanıcı bir butonu seçince istenen olay yerne gelmemiştir, kullanıcının butona basması ve bırakması gerekir, o zaman Click olayı meydana gelir. Oluşmasını istediğiniz olayın kodlarını Click yordamı içine yazmanız yeterli olacaktır.

Çalışma anında bir command butonu seçmenin birçok yolu vardır.
. Butonu fare ile kliklemek
. TAB tuşuna basarak butonun aktif nesne olmasını sağlamak ve Yürütme çubuğu yada Entere basarak butonu çalıştırmak
. Bir kısa yol tuşuna basmak. (ALT+önceden belirlenmiş bir tuş)

. Yada kod yazarak Commnd butonun Value özelliğini True yapmak ile:
Command1.Value = True gibi
. Command butonun Click olayını kod ile çalıştırmak ile:
Command_Click
. Command buton form üzerinde focus alan (aktif olan) nesne ise Entere basmak butonu çalıştırır. Ancak siz istediğiniz butonu aktif buton yapabilirsiniz: Command2.SetFocus

Tüm bu hareketlerle VB'nin bir butonun Click yordamını çalıştırmasını sağlayabilirsiniz.
Butonun Caption özelliği ile buton üzerine yazı yazarsınız.
Visible özelliği butonun görülüp görülmeyeceğine karar verir. True yada False değeri girebilirsiniz.

Örnek : Bir Form üzerine iki buton yerleştirin. Birine komut1 diğerine komut2 adını verin.
Formun load yordamına (form belleğe yüklenirken oluşacak kodlar buraya yazılır)

komut2.Visible = False

yazın. Bu kod komut2'nin görünmez olmasını sağlar. komut1 üzerine çift tıklayın açılan Click yordamı içine

k.. ( devamı )

Algoritma

Tue, 12 Feb 2008 12:51:00 +0200

ALGORİTMA

PROGRAM YAZMAK SÜRECİ

1. Problemin farkına varmak,
2. Problemi analiz etmek,
3. Çözüm yolları düşünmek,

4. İyi çözüm yolları seçip algoritma oluşturmak,
5. Akış diyagramı çizmek,
6. Uygun bir dilde kodlamak,
7. Programı test etmek,
8. Programı dağıtmak.

ALGORİTMA NEDİR?
(Adım adım işlem basamaklarının yazılmasıdır.)

Programlamaya Giriş

Program : Belirli bir problemi çözmek için bir bilgisayar dili kullanılarak yazılmış deyimler dizisi.
Önceki bölümde bir problemin çözümü ile ilgili teknikler sunmuştuk. Bir problemi bilgisayar ile çözmek için geliştireceğimiz programın yazımında izleyeceğimiz adımlar:

i) Problemin ne olduğunu kavra. Çözüm için gereksinimleri belirle.
ii) Problemin girdilerini, çıktılarını ve diğ.. ( devamı )

Access Veri Tabanına Resim Kaydetme Ve Görüntüleme

Tue, 12 Feb 2008 12:48:00 +0200

'****************************************************************************
'*Bu programın çalışabilmesi için DAO kütüphanesinin referans edilmesi
'* gerekir. Bu işlem için VB menüsünden
'* PROJECT - > REFERENCES seçtikten sonra açılan listeden
'* MICROSOFT DAO 3.51 OBJECT LIBRARY'yi seçili hale getirin.
'* Ayrıca COMMONDIALOG nesnesini projenizde kullanabilmek için
'* ToolBox üzerine sağ fare tuşu ile klik yapın açılan pop up menüden:
'* COMPONENTS'i seçtikten sonra açılan listeden
'* MICROSOFT COMMON DIALOG CONTROL 6.0'ı seçili hale getirin.
'* Ayrıca form üzerine aldığınız CommonDialog kontrol'ünün adını (Name), ekranın
'* sağ tarafında bulunan Properties penceresinde CD1 olarak değiştirin.
'* İlk yüklemede adı.. ( devamı )

Veri Tabanı Hazırlamak,Oluşturmak

Tue, 12 Feb 2008 12:43:00 +0200

Öncelikle standar exe formunu açın.
Add-Ins / Visual Data Manager i çalıştırın.

Önünüze VisData ekranı gelicek.
Buradan File / New / Microsoft Access / Versiyon 7.0 MDB.. yi seçin

Bu veritabanını kaydetmek istediğiniz konumu ve adı verip KAYDET 'e basın.

İki ekran açılacak, bunlar Database Window ve SQL Statement.

Database Window penceresindeki Properties 'e sağ kulak ile tıklayıp , Menuden New Table yi şeçin. Sonra ekrana Table Structure isminde bir form gelicek.

Table Name ' e bir isim verin. Sonra Add Field ' e basarak Add-Field formunun ekrana gelmesini sağlayın.
Eklemek istediğiniz alanları buralara yazın. Ör : Name : kısmına "isim" yazıp OK ' a basıyoruz , ikinci alana Name : kısmına tekrar "soyisim" yazıyoruz. Bu şekilde istediğimiz kadar alan tanımı yapıyoruz. En son Close 'ye basıp formu kapıyoruz.

Bu işlemler bittikten sonra Build the table ' ye basılır.

Database Window penceresine bizim table nameye verdiğimiz isimde bir anahtar açılır. Bu anahtar işaretlenir.

Utility / Data Form Designer ' e basılıp bu ekranın çıkması sağlanır.

Buradaki Form Name (w/o Extension): kısmına bir form adı yazılır.

RecordSource kısmından bizim database seçilir.

Kullanmak istediğimiz alanlar sağ tarafa taşınır ve Build the Form ' a basılır. sonra bu bütün pencereler kapatılır.

Projemize yeni bir formun eklendiğini görürüz. Bu formda yarattığımız database 'e ulaşmamız için gerekli olayların otomatik bir şekilde yerleştiğini görürüz.

Bu form yetersiz gelirse kendimizde buna benzer bir form yapabiliriz.

Kendimiz Bu forma benzer bir form yaratmak istersek;

Veri Tabanı Yönetimi

Tue, 12 Feb 2008 12:34:00 +0200

Veritabanı Yönetimi nedir? Veritabanı yöneticisinin görevleri Veritabanı Yaziliminin Kurulmasi ve upgradeler (yeni versiyonlar)Veritabani olusturulmasi Veritabani baslatma/durdurma Kullanicilari ekleme ve yetkilendirme Veritabani yedekleme ve yedekten geri dönme backup&recovery) Veritabani performans ayarlari (performance tuning) veritabani tablo-/indekslerin büyüme kontrolu (fragmentation control)

Veritabani Yönetimi nedir?

Veritabani yönetiminin ne oldugunu ögrenmek icin öncelikle veritabaninin ne oldugunu bilmek gerekir.Veritabani basit olarak bilgi depolayan bir yazilimdir.Bircok yazilim bilgi depolayabilir ama aradaki fark, veritabanin bu bilgiyi verimli ve hizli bir sekilde yönetip degistire.. ( devamı )

Next Döngüsü

Tue, 12 Feb 2008 12:31:00 +0200

For..Next döngüsünde olay for ve next arasında istenilen miktarda tekrar edilerek döner.Kullanımı:

For x=a to b step Y

Komutlar

Next x

Burada sayacımız x oluyor. Bu x, a dan b ye kadar Y kadar atlayarak sayıyor. Mesela For x=1 to 10 step 1 gibi bir ifadeyle döngü 1 den 10 a kadar 10 kez donecektir. Yani yukarıdaki ifadede x=1 görecek next e kadar olan komutları yerine getirecek,x=2 görecek next e kadar olan komutları yerine getirecek, x=5 görecek next e kadar olan komutları yerine getirecek,dikkat! x=10 görecek next e kadar olan komutları yerine getirecekve döngüden çıkıp artık next in altındaki komutları yerine getirmeye başlıyacak. Eğer step 2 deseydik x 1,3,5,7,9 değerlerini olacaktı, eğer for x=0 to 10 step 2 deseydik x 0,2,4,6,8,10. Mesela 0 den 10 a kadar olan çift sayıların toplamını bu şekilde döngü içerisinde yapabiliriz.

Örnek: Sıfır ile 10 arasındaki çift sayıları toplayan çok küçük bir program yazacağız. Standart.exe olarak açtığınız programa bir tane command buton koyarak çifr tıklayın. Çift tıklayınca project penceresinden command penceresine geçecektir. Bu pencerede şu kodu yazın ve F5 e basarak progamı çalıştırıp command butonunu tıklayın. içinde 30 yazan bir Mesaj kutusu elde edeceksiniz.

Private Sub Command1_Click()
For x = 0 To 10 Step 2
a = a + x
Next x
MsgBox a
End Sub

.. ( devamı )

Do...Loop Döngüsü

Tue, 12 Feb 2008 12:30:00 +0200

1)Do While ... Loop Yapısı

Bu yapıda önce koşul kontrol edilir.Kontrol doğruysa programın akışı döngünün içine girer.Değilse döngüye 1 kez bile girilmeden program işleyişine devam edecektir. Şunu da unutmamk gerek, döngü while koşulu sağlandığı sürece işlevine devam edecektir. Yapısı;

Do While Koşul

Komutlar

Loop

Örnek: Standart.exe olarak açtığınız bir forma bir buton yerleştirin.Butonu çift tıklayın Private Sub Command1.click ile başlayan paragrafi yazın. Sonra tekrar project penceresine geçin ve formun herhangi bir yerine çift tıklayın Private Sub Form Load ile başlayan paragrafı Yazın. Sonra F5 e basarak çalıştırın. Project penceresinden çift tıklatmamın sebebi,ilgili kısma ait private sub... end sub metinlerini vb nin otomatik yazması sebebiyledir.

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
a = MsgBox("Devam için evet,bitirmek için hayırı tıkla",
vbOKCancel, "DoWhile-Loop Yapısı incelemesi")
Do While a = vbOK
a = MsgBox("Devam için evet,bitirmek için hayırı tıkla",
vbOKCancel, "DoWhile-Loop Yapısı incelemesi")
Loop
End Sub

Benim yazdığım örneği bilgisayarınıza indirmek için buraya tıklayınız..

2)Do Until ... Loop

Bu yapıda da önce koşul kontrol edilir ancak while..loop yapısının tersine burada koşul doğru olmadığı sürece programın akışı döngünün içine girer,doğru olduğunda döngünün dışına çıkar.Yada koşul zaten doğruysa hiç döngünün içine girmez. Yapısı;

Do Until Koşul

Komutlar

Loop

Örnek: Yukarıda While..Loop Yapısındaki yaptığımız programla aynı işe yarıyan programı until..loop ile yapacağız. Anlaşılması açısından daha yararlı olacağını düşündüm.Yapmanız.. ( devamı )

Visual Basic InputBox ile MsgBox Kullanımları

Tue, 12 Feb 2008 12:29:00 +0200

InputBox

Visual Basic programının icrası esnasından klavyeden bilgi girmek amacıyla kullanılır.Buradan gelecek değer string türü bir değerdir,eğer girilecek bu değeri sayısal bir hesapta kullanmak istiyorsak Val(String) komutuyla sayısal değere çevirmeliyiz.Kullanımı Değişken=Inputbox("Başlık") şeklindedir.

Örnek: Standart.exe olarak açtığınız formunuza 1 adet text.box koyun ve textbox koyduğunuz projenin üzerinde herhangi biryere çift tıklayarak (Private Sub Form_Load() ve End Sub ifadelerini otomatikman elde edebilmek için forma çift tıkladık) aşağıdaki ifadeleri yazın.

Private Sub Form_Load()
a = InputBox("İsminizi Giriniz...")
Text1.Text = a
End Sub
Yani inputbox,programa dışarıdan bir veri girmek istediğimizde imdadımıza koşuyor.MsgBox ı da anlatınca ikisini de kapsayan bir örnek daha yapacağız.

MsgBox

Visual Basic programının çalışması sırasında elde edilen bazı sonuçları ve kullanıcıyı uyaracak gerekli bazı mesajları ekrana taşımamıza yardımcı olur. Kullanımı: A=MsgBox("Mesaj",Görünüm,"başlık") şeklindedir.Görünüm ve başlık kısımları kullanılmasada olur.Bu kısımlar kullanılmazsa sadece MsgBox "mesjimiz" şeklinde kullanımımız doğru olanıdır.Görünüm kısmında tanımlayacağımız komutlarla ok,cancel,yes,no gibi kontrol butonları koyabileceğiz.Mesela bazen Kullanıcıya ....... yapmak istermisiniz diye sorarsınız,evet mi hayır mı deyip demediğini bu gürünümün değişkene yollayacağı ifadeyle anlarız.Ama görünüm kısmına Hiçbirşey yazmazsak sadece ok butonu olacaktır mesaj kutumuzda.Görünümde; VbOkOnly,VbOkCancel,VbYesNo,VbYesNoCancel..... ( devamı )

İf , Then , Else - Select,Case

Tue, 12 Feb 2008 12:28:00 +0200

if-then-else

if koşul then KOMUTU

Belirtilen koşulun olması hainde programa yaptırmak istediğimiz şeyleri yaptırmaya yardımcı koddur. kullanımı;

if koşul then

KOMUTLAR

end if

Şeklindedir.Yani belirttiğimiz koşul sağlanırsa program, if ile end if arasında belirttiğimiz komutları uyguluyacaktır.Eğer belirttiğimiz koşul sağlanmamışsa program direk -end if- komutunun 1 alt satırına atlayacaktır.Yani if ve end if komutları arasındaki hiç bir işlemi yapmayacaktır.

Örnek:

Standart.exe olarak açmış olduğunuz formunuza bir textbox (text1) ve bir commandbutton (command1) ekleyiniz.Sonra tasarım penceresindeyken command buttona çift tıklayarak açılan kod penceresine aşağıdaki kodlarıyazınız.Daha sonra F-5'e basarak programı çalıştırınız.Program sayınızın tek mi çift mi olduğunu kontrol ediyor ve ona göre mesaj veriyor.

Private Sub Command1_Click()
a = Text1.Text
a = Val(a)
If a Mod (2) = 0 Then
MsgBox "girdiğiniz sayı çifttir"
End If
If a Mod (2) <> 0 Then
MsgBox "girdiğiniz sayı tektir"
End If
End Sub

if koşul then.... else...KOMUTU

If ... end if 'ten tek farki vardır,koşulun sağlanmadığı durumda da programa mudahale edebilirsiniz.Örneğin belirttiğiniz koşulun olup olmadığını if ile kontrol ediyordunuz,şimdi burada da else diyerek,programa; koşulun olmadığı durumda da şunu yap diye emir veriyorsunuz.Kullanımı şu şekildedir:

Visual Basic'de Fonksiyonlar

Tue, 12 Feb 2008 12:27:00 +0200

Asc:Klavyeden girilen herhangi bir ifadenin,nümerik ascii karşılığını verir.Eğer tek harfli ifade yerine sözcük girerseniz, sözcüğün ilk karakterini baz alacaktır. Mesela asc(bilgisayar)denirse b'nin nümerik ascii karşılığı olan 98 elde edilir.

Chr$:0-255 arasında girilen bir nümerik ascii koduna karşılık gelen karakteri verir.

Örnek:

Bu programda text1'e gireceğniz karakterin karşılığı text2'de,text3'de girdiğiniz karakterin karşılığı text4'de görünecektir.

Private Sub Command1_Click()
a = Text1.Text
a = Asc(a)
Text2.Text = Str(a)
End Sub

Private Sub Command2_Click()
b = Text3.Text
b = Val(b)
If b > 255 Then GoTo son
b = Chr(b)
Text4.Text = b
son:
End Sub

Space$(n):Belirtilen text'e veya herhangi bir yere n kadar boşluk koyar. Text1.text=space$(4)gibi

Right$:Belirtilen stringin en sağından başlayarak belirtilen sayıda stringi kopyalamak için kullanılır. A=Right$("mutasyon",5) derseniz A="asyon" olacaktır.

Left$:Belirtilen stringin en solundan başlayarak belirtilen sayıda stringi kopyalamak için kullanılır. A=Leftt$("mutasyon",4) derseniz A="muta" olacaktır.

Mid$:Belirtilen stringin belirtilen karakterinden başlayarak,soldan sağa doğru belirtilen kadar karakter kopyalamaya yarar. A=Mid$("mutasyon",2,4) derseniz A="utas" olacaktır.Yani 2.karakterde.. ( devamı )

Visual Basic Veri Yapıları

Tue, 12 Feb 2008 12:26:00 +0200

1-)Sabitler(Constants)

Programın içinde değeri değişmeyen sabitlerdir.VB'de hazır bu tip değilşkenler olduğu gibi programı yazarken kendi ellerimizle de tanımlayabiliriz.

<>02021013 seklindeki bir sabit bir tamsayı sabittir."MUTASYON" şeklindeki bir sabit ise string türü bir sabittir.String türü ifadeler sayisal işlemlere sokulmazlar.Değişkenleri elimizle tanımlarken,code(yazilimi yazdigimiz pencere)penceresinin general(pencerenin sol köşesindeki listbox'a bak)kisminda olmalıyız.

Bu programı yazdığınızda,command1 butonuna tıkladığınızda text kutusunda bilgisayarak yazacaktır. Gördüğünüz gibi sabit değerleri general kısmında tanımladık.Sabit tanımlamak için mutlaka ihtiyacımız olan şeyler "const" ve sabitin ismi.Hemen aklınıza "o baştaki private ne oluyor?"diye soru gelecektir hemen cevaplıyay&yım Private ifadesini silin programın gene de çalıştığını göreceksiniz,private ve public, değişkenlerin etkili olacağı alanları belirlememizde işe yarar.Çoğu zaman private'yi kullanın çünkü standart.exe olarak açtığınız formlarda public işe yaramaz, hata verir.Ya da hiç birini kullanmayın,simdi ayrıntıyla anlatırsam işin başında kafalar karışır.

2-)Değişkenler

Program içerisinde değerleri sürekli olarak degişebilen veri yapısıdır. x=23 y=12 iken x=x+3 y=x+x dersek x ve y'nin değerlerini 26 ve 38 yaparak degiştirmiş oluruz.Yani bir değişkene yeni bir değer atanırsa eski değeri silinecektir.

a-)Degişkenlere isim verme

Visual Basic Formlarına Neler Uygulayabiliriz?

Tue, 12 Feb 2008 12:24:00 +0200

Load() : Formun ilk defa hafızaya yüklendiği zaman meydana gelen olaydır.Bu olay kullanılarak ,kullanıcıya formu göstermeden önce yapılması gereken işler yapılabilir. Örneğin ,kullanıcı programı başlattığında ilk önce kullanıcıdan,kullanıcı adı ve şifresini alarak daha sonra yüklenecek ana formda bu bilgileri kullanarak bir veritabanına bağlantı sağlayabiliriz.

Activate() : Formun ,programda aktif olması sırasında meydana gelir. Eğer programımızda bir tane form varsa bu form her zaman aktiftir. Bu olaya ,formun aktif olması sırasında yapılmasını istediğimiz olayları yazabiliriz.

Deactivate() : Formun , programda aktivitesini kaybetmesi sırasında meydana gelen olaydır. Bu olaya ,formun aktivitesini kaybetmesi sırasında yapılmasını istediğimiz olayları yazabiliriz.

Unload(Cancel As Integer) : Formun kapatılması sırasında meydana gelen olaydır. Ayrıca bu olayda tanımlanmış Cancel değişkenini kullanarak sadece bizim istediğimiz durumda formun kapanmasını sağlayabiliriz. Bunu gerçekleştirmek için ,yani formun kullanıcı tarafından hiçbir şekilde kapatılmaması için Cancel değişkenine True değerini atamalıyız. Aşağıdaki örnekte kullanıcı formu kapatmak istediği zaman bir pencereyle(inputbox) karşılaşıyor ve bir değer girmesi isteniyor. Eğer girdiği değer 2 ve 2'den büyükse form kapanmıyor.

Private Sub Form_Unload(Cancel As Integer)
Dim c
c = InputBox("Formu kapatmak için bir sayi giriniz", "Çikis")
If c > 2 Then
Cancel = True
Else
Cancel = False
End If
End Sub

Not : Bu olay formun End komutuyla sonlandırılması sırasında meydana gelmez. Yani bu olayın meydana gelebilmesi için formun program tarafınd.. ( devamı )

Visual Basic Formları

Tue, 12 Feb 2008 12:23:00 +0200

Visual Basic' te iki çeşit form vardır. Bunlardan bir tanesi tek başına çalışan form türü olan Visual Basic ilk çalıştığı zaman ekrana gelen form ve projeye her eklenen yeni formun türü olan SDI (Single Document Interface) formlarıdır. Bu tür formların içinde başka formlar çalışamazlar. İkinci tür form çeşidi ise içerisinde başka formların çalışmasına izin veren ve MDI (Multi Document Interface) olarak bilinen form türüdür.Bu tür formların içinde Child form olarak adlandırılan ve normal SDI formların Child özelliğinin true yapılmasıyla oluşan formlar çalıştırılabilir. Aşağıdaki birince resimde örnek bir SDI form , ikinci resimde ise örnek bir MDI form ve bu formun içindeki Child formları görebilirsiniz.

SDI form örneği

MDI form örneği

Şimdi sıra geldi formların özelliklerine. Bu özellikleri sırasıyla ele alalım.

Caption: Formun başlığına yazılacak yazıyı belirtir.Bu özelliğe formun properties penceresinden ulaşılabileceği gibi kod kullanarak da formun başlığı değiştirilebilir.

Icon : Formda kullanılacak iconu belirtir. Bu icon programınıza ait bir kısayol oluşturduğunuzda gözükecek icondur aynı zamanda.

BorderStyle : Formun sınırlarının belirlendiği bu özellik aşağıda belir.. ( devamı )