|
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.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...
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")
Dateserial(Yıl,Ay,Gün):Girilen
integer türü değişkenleri date türü değişkenlere çevirmeye
yarar.Ayrıca Dateserial(1996,10,28)-Dateseria(1954,3,5) gibi bir
kullanımla 2 tarih arasındaki gün sayısını bulabiliriz.
Timeserial(saat,dakika,saniye):Parantez
içine girilen ifadeyi zaman türünde değişkene çevirir.A=Timeserial(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.
|