VB'de Fonksiyonlar

Celebrian · #1 24-12-2007, 11:28

VB'de Fonksiyonlar 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.

Kod:

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.karakterden başlayarak sağa doğru 4 karakter kopyalayacaktir.

Örnek:

Standart.exe olarak açtığınız form'a 1 tane text kutusu(text1.text),3tane command butonu yerleştirin,command butonlarının adını ister değiştirin ister değiştirmeyin program yinede çalışır... Butonların üzerlerine sıra ile çift tıklayarak sıra ile aşağıdaki kodları yazın.Programı çalıştırdıktan sonra "sağdan" butonuna tıklarsanız, text1 kutusuna ,"mutasyon" stringinin içindeki "asyon" u alıp yazacaktır,"soldan" butonuna tıkladığınızda ise "muta",ortadan butonuna tıkladığınızda ise "utas" yazacaktır...

Kod:

Private Sub Command1_Click()
Dim a As String
a = Right$("mutasyon", 5)
Text1.Text = a
End Sub

Private Sub Command2_Click()
Dim b As String
b = Left$("mutasyon", 5)
Text1.Text = b
End Sub

Private Sub Command3_Click()
Dim c As String
c = Mid$("mutasyon", 2, 4)
Text1.Text = c
End Sub

Private Sub Form_Load()
Text1.Text = "mutasyon"
End Sub

Len(String):Girilen stringin kaç karakter uzunluğunda olduğunu öğrenmemize yardımcı olur.Sayısal bir değer alır.A=Len("mutasyon") derseniz A=8 olur.

Val(String):Girilen stringi sayısal ifadeye çevirir ve bize,onu toplama,çıkarma... gibi işlemlerde kullanma imkanı sağlar. A=val("15") ifadesi text kutusundan veya herhangi bir yolla girilmiş 15 yazısını rakamsallaştırmaya yarar.

Str(Rakam):Val'ın yaptığını tam tersini yapar.Örneğin text kutusunda rakamsal ifadeleri kullanamayız,anca onları str ile string haline getirip kullanabiliriz. A=Str(15) derseniz A="15" olacaktır.

Lcase(String):İçine girilen küçüklü büyüklü yazıyı tamamen küçük harfe çevirir. A=Lcase("MutASYon") derseniz A="mutasyon" olacaktır.

Ucase(String):İçine girilen küçüklü büyüklü yazıyı tamamen büyük harfe çevirir. Ucase("MutASYon") derseniz A="mutasyon" olacaktır.

Instr(Rakam,String1,String2):Birinci string içinde ikinci stringi arar.Eğer aradığını bulursa değeri bulduğu karakterin sıra numarası olur.Örneğin birinci stringimiz "mutasyon" ikinci stringimiz "a" yani birinci string içinde a'yı arıyacağız.Programı yazıp çalıştırdığımızda değer 4 olacaktır,yani "a" 4.sırada.İsterseniz aramayı istediğiniz sıradan başlatabilirsiniz.Örneğin A=Instr(5,"mutasyonla","a") derseniz A=10 olacaktir.Çünkü direk 5.karakterden aramaya başlattığımız için 10. sıradaki "a" yı gördü.

Trim(String):Parantez içine girilen stringin sağındaki ve solundaki boşluk karakterini siler.

Ltrim(String):Parantez içine girilen stringin solundaki boşluk karakterini siler.

Rtrim(String):Parantez içine girilen stringin sağındaki boşluk karakterini siler.

Date:Bu komut sayesinde sistemin tarihini öğrenebilir yada onu yeniden set edebiliriz.A=Date dersek A o günün tariki olacaktır.Yanlız atlanılmaması gereken önemli bir ayrıntı ise A yı dim ile tanımlarken dim A as date demeliyiz.Eğer bilgisayarın tarihini set etmek istiyorsak Date="aa-gg-yyyy".Bir de date olarak tanımladığımız bir değişkene tarih atayabiliriz.Mesela dim t as date olarak tanımladığımız değişkene tarih atamak istersek t=#aa-gg-yyyy# şeklinde bir ibare kullanmalıyız.Eğer ay kısmına 13 ve daha büyük yada gün kısmına 32 ve daha büyük rakamlar girerseniz programın çalışması esnasında hata verecektir.

Time:

Hem zamanı öğrenmede hem de zamanı set etmede kullanılır. Time="SaSa:dkdk:snsn" şeklinde set edilebilir. Ayrıca...

Private Sub Command1_Click()
Text1.Text = Time
End Sub
ile zamanı bir değişken olarak elimizde tutabiliriz

Now:O anki tarih ve zamanı bize verir.

Private Sub Command1_Click()
Text1.Text = Now
End Sub
Datevalue(string):İçine girilen string türü bir ifadeyi date türü bir değişkende tutmamıza yarar.Örneğin programda kullanıcıdan textboxa doğum tarihini girmesini istediniz,textbox bunu tabi ki string türü bir ifade olarak saklayacaktır.Bunu date türü bir ifadeye çevirmede datevalue komutu devreye giriyor...

Dim t as date
Text1.text="25-10-1983"
t= Datevalue("text1.text")
Date++++++(Yıl,Ay,Gün):Girilen integer türü değişkenleri date türü değişkenlere çevirmeye yarar.Ayrıca Date++++++(1996,10,28)-Dateseria(1954,3,5) gibi bir kullanımla 2 tarih arasındaki gün sayısını bulabiliriz.

Time++++++(saat,dakika,saniye):Parantez içine girilen ifadeyi zaman türünde değişkene çevirir.A=Time++++++(22,11,08) komutu ile A; 10:11:08 PM değerine eşit olacaktır.

Day(Tarih):Verilen tarih türü bilginin içinden gün kısmını alır.A=Day("10/25/1983") ifedesinde A=25 olacaktır.

Month(Tarih):Verilen tarih türü bilginin içinden ay kısmını alır.

Year(Tarih):Verilen tarih türü bilginin içinden yıl kısmını alır.

Hour(Zaman):Zaman türü bilginin içinden saati alır.

Minute(Zaman):Zaman türü bilginin içinden dakikayı alır.

Second(Zaman):Zaman türü bilginin içinden saniyeyi alır.

Benzer Konular
Konu	Konu Açanlar	Forum	Cevaplar	Güncel Mesajlar
VB'de Tool Box	Celebrian	Visual Basic & Action script	0	24-12-2007 11:27
ASP-Hazır Fonksiyonlar ASP-REQUEST Nesnesi	egitimbilgisi	ASP	0	23-11-2007 11:26
PHP ' nin Yapı Taşları : Fonksiyonlar	Professionel	Programlama Makaleleri	0	19-11-2007 08:42
Asp hazır fonksiyonlar	Professionel	Programlama Makaleleri	2	19-11-2007 07:52
fonksiyonlar ve açıklama:	kadınca	.NET programcılığı	0	04-11-2007 12:43

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder