1- Let 2- Line Input # 3- Load 4- Lock, Unlock 5- Lset 6- Mid 7- MkDir 8- Name 9- On

***winnerS*** · 05-19-2008, 07:09 PM

İnput İfadesi

Bir açık sıralı dosyadan tek bir sıra okur ve onu Sıralı dosya değişkenine atar.

Genel İşlev LineInput(Tamsayı olarak ByVal Dosya Numarası ) Dizi Olarak

Parametreler
Dosya Numarası

Gerekli.Herhangi bir geçerli dosya numarası.

İstisnalar

İstisna Tipi Hata Sayısı Durum
Akış istisnasının sonu 62 Erişilen Dosyanın Sonu
IO istisnası 52 Dosya Numarası Yok

Uygulama
İçerik
Line input ile data okuma genellikle “yazdır” komutu ile bir dosyaya yazılır.
Örnek:
Bu örnek bir sıralı dosyadan satır okumak için ve onu değişkene atamak için line input işlevini kullanır.Bu örnek Deneme Dosyasının birkaç örnek bilgi satırı ile bir metin dosyası olduğunu varsayar.
Visual Basic
Dim TextLine As String' Dosya Aç.File Open(1, "DenemeDOSYASI", OpenMode.Input)' Dosyanın sonuna kadar yuvarla.While Not EOF(1) ' Değişken içine satırı oku. TextLine = LineInput(1) ' Konsola Yazdır. WriteLine(1, TextLine)End WhieFileClose(1)
LSET İfadesi
Belirtilen uzunluğa ayarlanmış belirli sıralanmış dosyayı sol hizalı dizi olarak iade eder.
Public Shared Function LSet( _ ByVal Source As String, _ ByVal Length As Integer _) As StringParametreler
Source
Gerekli String . Ayarlanacak dizi değişkeni.
Length
Gerekli Interger Dönen stringin uzunluğu.
Örnek:
Bu örnek LSET işlevinin çalışmasını gösterir.
Dim TestString As String = "Sol"Dim lString As String' Returns "Sol "lString = LSet(TestString, 10

Open İfadesi
“Open özelliği size I/O dosyaları işlemlerinde Kilitle ve Aç tan daha çok verimlilik ve performans sağlar.
Public Overloads Sub Lock(ByVal FileNumber As Integer)' -or-Public Overloads Sub Unlock(ByVal FileNumber As Integer)' -or-Public Overloads Sub Lock(_ ByVal FileNumber As Integer, _ ByVal Record As Long _)' -or-Public Overloads Sub Unlock( _ ByVal FileNumber As Integer, _ ByVal Record As Long _PrintLine(1, "Zone 1", TAB(), "Zone 2") 'İki. Yazdırma Bölgesinde Yazdır.PrintLine(1, "Merhaba", "Dünya") “'Bir “Tab” tuşuyla Ayrı Diziler Yazdır.PrintLine(1, SPC(5), "5 Öncü Boşluk ") ' Beş Öncü boşluk Yazdır.PrintLine(1, TAB(10), "Merhaba") 10 Sütununda Kelime Yazdır.' Boolean, Tarih, ve Hata Değerlerini Ata.Dim aBool As BooleanDim aDate As DateTimeaBool = FalseaDate = DateTime.Parse("Şubat 12, 1969")' Sisteminizin lokal ayarlarını kullanarak Tarihlerin Booleans işleviyle çevirme işlemi yapılır.PrintLine(1, aBool, " is a Boolean value")[ÜYE OLMADAN L?NKLER? GÖREMEZS?N?Z. BURAYI TIKLAYARAK BEDAVA ÜYE OLUNUZ...] ile Dosya Erişimi
)' -or-Public Overloads Sub Lock( _ ByVal FileNumber As Integer, _ ByVal FromRecord As Long, _ ByVal ToRecord As Long _)' -or-Public Overloads Sub Unlock( _ ByVal FileNumber As Integer, _ ByVal FromRecord As Long, _ ByVal ToRecord As Long _)
Parametreler
Dosya numarası
Gerekli.herhangi bir geçerli dosya numarası.
Kayıt
Tercihen.kilitlemek yada açmak için sadece kayıt veya “byte”ın numarası.
Istisnalar
Istisna tipi hata numarası durum
Io istisnası 52 dosya numarası yok
Io istisnası 54 dosya modu geçersiz

Mkdir İfadesi
Yeni bir Dizin yaratır.

Public Sub MkDir(ByVal Path As String)
PARAMETRELER
Yöntem
Gerekli. Oluşturalacak dizini belirten string.Istisna
Istisna tipi hata numarası durum
Tez İstisnası 52 yöntem belirtilmemiş yada boş
Güvenlik İstisnası 70 izin reddedildi.
IO İstisnası 75 dizin zaten mevcut

Içerik
Eğer bu dizinler zaten mevcut değilse yada Yöntem’in bazı bölümleri geçersizse bu işlev yöntemde belirtilen herhangi yeni dizinler yaratır. Yöntem parametresinin, bir dosya yöntemi değil, bir dizin yöntemi belirtmesi gerekir.
Örnek
Bu örnek MkDir işlevini bir dizin oluşturmak için kullanır.Eğer belirtilmemişlerse güncel sürümde yeni dizin oluşturulur.
Visual Basic
' Yeni Dizin Yarat.MkDir("C:\TESTDIR")
LOCK (KİLİTLEME), UNLOCK (KİLİT AÇMA) İFADELERİ
‘Aç’ işlemi kullanılarak açılan dosyanın bir bölümüne ya da tamamına control eder ve diğer süreçlerle erişim sağlar.
Public Overloads Sub Lock(ByVal FileNumber As Integer)' -or-Public Overloads Sub Unlock(ByVal FileNumber As Integer)' -or-Public Overloads Sub Lock(_ ByVal FileNumber As Integer, _ ByVal Record As Long _)' -or-Public Overloads Sub Unlock( _ ByVal FileNumber As Integer, _ ByVal Record As Long _)' -or-Public Overloads Sub Lock( _ ByVal FileNumber As Integer, _ ByVal FromRecord As Long, _ ByVal ToRecord As Long _)' -or-Public Overloads Sub Unlock( _ ByVal FileNumber As Integer, _ ByVal FromRecord As Long, _ ByVal ToRecord As Long _)
Parametreler
Dosya numarası
Gerekli.herhangi bir geçerli dosya numarası.
Kayıt
Tercihen.kilitlemek yada açmak için sadece kayıt veya ‘byte’ın numarası.
Kayıttan
Tercihen.kilitlemek yada açmak için ilk kayıt veya ‘byte’ın numarası.
Istisnalar
Istisna tipi hata numarası durum
Io istisnası 52 dosya numarası yok
Io istisnası 54 dosya modu geçersiz

Örnek:

Visual Basic
FileOpen(1, "TESTFILE", OpenMode.Input)' Başka bir modta tekrar açmadan önce kapat.FileClose(1)This example opens the file in Binary mode for writing operations only.
Visual Basic
FileOpen(1, "TESTFILE", OpenMode.Binary,OpenAccess.Write)'. tekrar Başka bir modta açmadan önce kapat.FileClose(1)The following example opens the file in Random mode. The file contains records of the structure Person.
Visual Basic
Structure Person <VBFixedString(30)> Dim Name As String Dim ID As IntegerEnd StructurePublic Sub ExampleMethod() 'Dizi için 30’a kadar say, tam sayı için artı 4 sn say. FileOpen(1, "TESTFILE", OpenMode.Random, , , 34) ' Başka bir modta tekrar açmadan önce kapat. FileClose(1)End SubThis code example opens the file in Output mode; any process can read or write to file.
Visual Basic
FileOpen(1, "TESTFILE", OpenMode.Output, OpenAccess.Default, OpenShare.Shared)' Başka bir modta tekrar açmadan önce kapat.FileClose(1)This code example opens the file in Binary mode for reading; other processes cannot read file.
Visual Basic
FileOpen(1, "TESTFILE", OpenMode.Binary, OpenAccess.Read, _ OpenShare.LockRead)

Write, WriteLine İfadeleri

Bilgiyi sıralı bir dosyaya yazar.’Yaz’ la yazılan bilgi genellikle ‘bilgi girişi’ ile bir dosyadan okunur.
Public Sub Write( _ ByVal FileNumber As Integer, _ ByVal ParamArray Output As Object _)' -or-Public Sub WriteLine( _ ByVal FileNumber As Integer, _ ByVal ParamArray Output() As Object _)Parametreler
Dosya Numarası
Gerekli.Geçerli bir dosya numarası içeren bir Tam Sayı ifadesi .
Çıkış
Tercihen.Bir dosyaya yazmak için bir yada daha fazla virgülle sınırlandırılmış ifadeler.

İçerik
‘Çıkış’ işlevini atarsanız dosyaya bir boş satır yazılır.Fazla ifadeler bir virgulle ayrılabilir.’Yazdır’ işlevinin aksine ‘Yaz’ işlevi diziler dosyaya yazıldıkça bunların çevresine virgüller ve tırnak işaretleri ekler.
Listeye belirgin sınırlayıcılar koymak zorunda değilsiniz.’Yaz’ bir dosyaya bilgi yazmak için kullanıldığında,yalnızca sayısal,Boolean,tarih,”sıfır” ve hata bilgi işlevleri desteklenir.Yeri önemsenmeyerek,bilginin her zaman doğru şekilde okunması ve yorumlanması için aşağıdaki evrensel ifadeler takip edilir:

* sayısal bilgi her zaman periyodu ondalık ayırıcı olarak kullanıp yazılır. .*Boolen bilgisi için ya # Yanlış # ya da # Doğru # yazılır.Yeri önemsenmeyerek, ‘Doğru’ ve ‘Yanlış’ kelimeleri tercüme edilmez.
*Tarih bilgisi evrensel tarih formatı kullanılarak dosyaya yazılır.Tarih ya da zaman öğelerinden biri kayıp ya da sıfır olduğunda , yalnızca sağlanan bölüm dosyaya yazılır.
*Eğer ‘Çıkış’ bilgisi boşsa dosyaya hiçbir şey yazılmaz.Bununla birlikte,sıfır bilgisi için # Sıfır(Null) # yazılır.
*Hata bilgisi için, üretilen bilgi # HATA hata kodu# olarak gözükür.Yeri önemsenmeyerek Hata kelimesi çevrilmez..
“Çıkış” taki son karakteri yazdıktan sonra Satır Yazmacı bir Yeni Satır karakteri(yani bir taşıyıcı iade/tedarik, ya da Chr(13) + Chr(10)) dosyaya ekler.
Çift tırnak işaretleri kullanarak bir diziye tırnak işaretleri koyabilirsiniz ya da ‘’ ‘’.örneğin;

Dim x As String = "Çift Tırnak işaretlerinin çözümlenmesi ““zor”” değildir”.İfadesi “çift tırnak işaretlerinin çözümlenmesi “”zor”” değildir”.İfadesi değeri ile bir dizi geri gönderir.
Örnek
Bir sıralı dosyaya işlenmemiş bilgi yazmak için bu örnek “Yaz” işlevini kullanır.
Visual Basic
FileOpen(1, "TESTFILE", OpenMode.Output) ' Çıkış için dosya aç.Write(1, "Bu bir test.") ' Dosyaya metin yazdır.
WriteLine(1) ' Dosyaya boşluk satırı yazdır.WriteLine(1, "Bölge 1", TAB(), "Bölge 2") ' İki yazdır bölgesinde yazdır.WriteLine(1, "Merhaba", " ", "Dünya") 'Boşluklu ayrı diziler.WriteLine(1, SPC(5), "5 Öncü boşluk ") 'Beş öncü boşluk yazdır.WriteLine(1, TAB(10), "Merhaba") '10 sütununda kelime yazdır.'Boolean, Tarih, ve Hata Değerleri AtaDim aBool As BooleanDim aDate As Tarih ZamanıaBool = FalseaDate = Tarih Zamanı.Parse("Şubat 12, 1969")'Sisteminizin local ayarları kullanılarak tarihler ve Boolean ler çevrilirWriteLine(1, aBool, " is a Boolean value")WriteLine(1, aDate, " is a date")FileClose(1) Dosyayı Kapat.
var ExpCollDivStr=ExpCollDivStr;ExpCollDivStr = ExpCollDivStr + "ctl00_LibFrame_ctl16920a055,";var ExpCollImgStr = ExpCollImgStr; ExpCollImgStr = ExpCollImgStr + "ctl00_LibFrame_ctl16img,";

Akıllı cihaz geliştirici notlar
Bu işlev desteklenmemektedir.
Bu örnek diskten bir dosya silmek için Kill işlevini kullanır.
Visual Basic
” Assume TESTFILE” (bazı bilgi içeren bir dosya olduğunu varsayar). Kill("TestFile") ' Dosya Sil' Hepsini Sil *.TXT güncel dizindeki metin dosyaları.

FİLECLOSE İFADESİ
Fileopen işlevini kullanırken açılan bir dosyaya “Giriş” ve Çıkış” ı ifadesini kullanarak sonlandırır.

Parametreler

Tercihen.0’ın parametre düzeni veya kapanacak daha fazla kanallar.

var ExpCollDivStr=ExpCollDivStr;ExpCollDivStr = ExpCollDivStr + "ctl00_LibFrame_ctl044966fec,";var ExpCollImgStr = ExpCollImgStr; ExpCollImgStr = ExpCollImgStr + "ctl00_LibFrame_ctl04img,";

İstisnalar
İstisna Tipi
Hata Sayısı
Durum
I/O istisnası
[ÜYE OLMADAN L?NKLER? GÖREMEZS?N?Z. BURAYI TIKLAYARAK BEDAVA ÜYE OLUNUZ...]
Dosya numarası yok.

İcerik

Eğer Dosya numarasın ı atlarsanız “Dosya Aç” işlevi tarafından açılan tüm aktif dosyalar kapanır.
“Ekle” ya da “Çıkış” için açılan dosyaları kapadığınızda,çıkışın son bellek noktası bu dosya için çalışan sistem bellek noktasına yazılır.Kapalı dosya ile bağlantılı tüm bellek noktası boşlukları serbest bırakılır.
“Dosya Kapat” işlevi yerine getirildiğinde, bir dosyanın dosya numarası ile ilgili bağlantısı sona erer.

Örnek

Bu örnek “Giriş” için açılan bir dosyayı kapatmak için” Dosya Kapat” işlevini kullanır.

Dim TextLine As StringFileOpen(1, "TESTFILE", OpenMode.Input) ' Dosyayı Aç.Do While Not EOF(1) 'Dosyanın sonuna kadar yuvarla. TextLine = LineInput(1) ' Değişken İçine satır oku. MsgBox(TextLine) ' Satırı Göster.yuvarlaFileClose(1) ' Dosya Kapat.
LET İFADESİ
Bu söz dizimi değişikliği yüzünden Let ve Set ifadelerine, neyin atanacağını belirtmek için ihtiyaç duyulmaz, ve görev ifadelerinde kullanılmaz.Metin özelliği Etiket kontrolündeki Açıklama özelliğinin yerini alır, ve önceki örnek takip ettiği gibi tekrar yazılabilir.

Dim TextLine As StringFileOpen(1, "TESTFILE", OpenMode.Input) ' Dosya Aç.Do While Not EOF(1) ' Dosyanın sonuna kadar yuvarla. TextLine = LineInput(1) 'Değişken içine Satır Oku. MsgBox(TextLine) ' Satır Göster.YuvarlaFileClose(1) ' Dosya Kapat.
Hiçbir söz dizimsel kullanımı olamamasına rağmen,Let hala Visual Basic te saklı bir sözcüktür.Bu onun önceki anlamlarıyla ilgili karışıklıklardan uzak durmasına yardım eder.Visual Basic , bir özelliğin değerini oluşturan özellik işlemleri için « Kur » ifadesini kullanır.

Parametrelenmiş Özellikler

Tez kaydeden varsayılan özellikleri belirsiz değildir, ve Visual Basic’te desteklenirler.Varsayılan özellikleri daha çok koleksiyon sınıflarında görünür.

Kontrol Özelliği (Bu form için bir Kontol Koleksiyonu nesnesi iade eder.)
Kontrol Özelliği nesnesi(Varsayılan özelliği madde)
Madde özelliği (toplamalardaki bir madde için bir Kontrol nesnesi iade eder.)
Kontrol nesnesi
Aşağıdaki örnek Visual Basic “teki varsayılan ayar özelliklerinin hem geçerli hem geçersiz kullanımlarını gösterir ;
Visual Basic
Dim F As New Form ' F nin oluşturulduğunu ve başlatıldığını varsay.Visual Basic
F.Controls.Item(0).Text = "Stop" ' Geçerli – Kullanılan varsayılan ayar özelliği yokF.Controls(0).Text = "Stop" 'Geçerli –Madde parametrelenir. Visual Basic
'F(0).Text = "Stop" ' Geçersiz – Formun varsayılan ayar özelliği yok.'F.Controls(0) = "Dur" ' Geçersiz – Kontrolde varsayılan özelliği Yok.
Visual Basic „te ,En Varsayılan anahtar sözcüğüyle başlayarak varsayılan özelliği olarak bir özellik belirtin.Özellik ismini aşırı yüklerseniz, her aşırı yükleme ilanında Varsayılanı belirtmelisiniz.Bir varsayılan özelliğinin Paylaşımlı ya da Özel olmasını belirtemezsiniz.
MID İFADESİ
Bir Dizi değişkeni içerisindeki belirtilmiş karakterlerin sayısını başka bir diziden karakterlerle değiştirir.
Mid( _ ByRef Target As String, _ ByVal Start As Integer, _ Optional ByVal Length As Integer _) = StringExpression
Bölümler
Hedef Gerekli. Modifiye etmek için Dizi değişkeninin ismi.
Başlangıç Gerekli. Tamsayı ifadesi.Metin in yer değiştirmesinin başladığı Hedef içerisindeki karakterin konumu.Başlangıç tek bazlı bir indeks kullanır.
karakterlerin sayısı.eğer atılırsa Dizin’in tamamı kullanılır.
Uzunluk Tercihen.Tam sayı ifadesi.Yerine yenisi konulacak karakterlerin sayısı.eğer atılırsa Dizinin tamamı kullanılır.
Dizi İfadesi Gerekli.Hedefin parçasının yerine geçen Dizi ifadesi.
var ExpCollDivStr=ExpCollDivStr;ExpCollDivStr = ExpCollDivStr + "ctl00_LibFrame_ctl04f461110,";var ExpCollImgStr = ExpCollImgStr; ExpCollImgStr = ExpCollImgStr + "ctl00_LibFrame_ctl04img,";

İstisnalar
İstisna Tipi
Hata Sayısı
Durum
Tez istisnası
[ÜYE OLMADAN L?NKLER? GÖREMEZS?N?Z. BURAYI TIKLAYARAK BEDAVA ÜYE OLUNUZ...]
Başlangıç <= 0 ya da Uzunluk < 0.

İÇERİK
Yerine yenisi konulan karakterlerin sayısı her zaman Hedef’teki karakterlerin sayısından daha az veya eşittir.Visual Basic bir Mid İşlevi(Visual Basic) ve bir Mid ifadesine sahiptir.Bu elementlerin ikisi de bir dizide belirtilmiş karakterlerin sayısı üzerinde çalışır, ama Mid işlevi , Mid ifadesi karakterlerin yerini alırken, karakterleri iade eder.
ÖRNEK
Bu örnek , bir dizi değişkeni içinde belirtilmiş karakterlerin sayısını bir başka diziden karakterlerle değiştirmek için Mid ifadesini kullanır.
Visual Basic
Dim TestString As String' Dizi Başlatır.TestString = "alp"' Returns "alt".Mid(TestString, 5, 3) = "üst"' Returns "bin".Mid(TestString, 5) = "bin"' Returns "bin".Mid(TestString, 5) = "bin"' Returns "bir".Mid(TestString, 5, 3) = "bir"

05-19-2008, 07:09 PM	#1 (permalink)
*winnerS* *MeLeKLeRiN SöZü Var* *winnerS* Şuan Çevrimdışı Kayıt Tarihi: May 2008 Mesajlar: 2.054 Rep Gücü: 503 Rep Puanı: 503 Rep Derecesi:	1- Let 2- Line Input # 3- Load 4- Lock, Unlock 5- Lset 6- Mid 7- MkDir 8- Name 9- On İnput İfadesi Bir açık sıralı dosyadan tek bir sıra okur ve onu Sıralı dosya değişkenine atar. Genel İşlev LineInput(Tamsayı olarak ByVal Dosya Numarası ) Dizi Olarak Parametreler Dosya Numarası Gerekli.Herhangi bir geçerli dosya numarası. İstisnalar İstisna Tipi Hata Sayısı Durum Akış istisnasının sonu 62 Erişilen Dosyanın Sonu IO istisnası 52 Dosya Numarası Yok Uygulama İçerik Line input ile data okuma genellikle “yazdır” komutu ile bir dosyaya yazılır. Örnek: Bu örnek bir sıralı dosyadan satır okumak için ve onu değişkene atamak için line input işlevini kullanır.Bu örnek Deneme Dosyasının birkaç örnek bilgi satırı ile bir metin dosyası olduğunu varsayar. Visual Basic Dim TextLine As String' Dosya Aç.File Open(1, "DenemeDOSYASI", OpenMode.Input)' Dosyanın sonuna kadar yuvarla.While Not EOF(1) ' Değişken içine satırı oku. TextLine = LineInput(1) ' Konsola Yazdır. WriteLine(1, TextLine)End WhieFileClose(1) LSET İfadesi Belirtilen uzunluğa ayarlanmış belirli sıralanmış dosyayı sol hizalı dizi olarak iade eder. Public Shared Function LSet( _ ByVal Source As String, _ ByVal Length As Integer _) As StringParametreler Source Gerekli String . Ayarlanacak dizi değişkeni. Length Gerekli Interger Dönen stringin uzunluğu. Örnek: Bu örnek LSET işlevinin çalışmasını gösterir. Dim TestString As String = "Sol"Dim lString As String' Returns "Sol "lString = LSet(TestString, 10 Open İfadesi “Open özelliği size I/O dosyaları işlemlerinde Kilitle ve Aç tan daha çok verimlilik ve performans sağlar. Public Overloads Sub Lock(ByVal FileNumber As Integer)' -or-Public Overloads Sub Unlock(ByVal FileNumber As Integer)' -or-Public Overloads Sub Lock(_ ByVal FileNumber As Integer, _ ByVal Record As Long _)' -or-Public Overloads Sub Unlock( _ ByVal FileNumber As Integer, _ ByVal Record As Long _PrintLine(1, "Zone 1", TAB(), "Zone 2") 'İki. Yazdırma Bölgesinde Yazdır.PrintLine(1, "Merhaba", "Dünya") “'Bir “Tab” tuşuyla Ayrı Diziler Yazdır.PrintLine(1, SPC(5), "5 Öncü Boşluk ") ' Beş Öncü boşluk Yazdır.PrintLine(1, TAB(10), "Merhaba") 10 Sütununda Kelime Yazdır.' Boolean, Tarih, ve Hata Değerlerini Ata.Dim aBool As BooleanDim aDate As DateTimeaBool = FalseaDate = DateTime.Parse("Şubat 12, 1969")' Sisteminizin lokal ayarlarını kullanarak Tarihlerin Booleans işleviyle çevirme işlemi yapılır.PrintLine(1, aBool, " is a Boolean value")[ÜYE OLMADAN L?NKLER? GÖREMEZS?N?Z. BURAYI TIKLAYARAK BEDAVA ÜYE OLUNUZ...] ile Dosya Erişimi )' -or-Public Overloads Sub Lock( _ ByVal FileNumber As Integer, _ ByVal FromRecord As Long, _ ByVal ToRecord As Long _)' -or-Public Overloads Sub Unlock( _ ByVal FileNumber As Integer, _ ByVal FromRecord As Long, _ ByVal ToRecord As Long _) Parametreler Dosya numarası Gerekli.herhangi bir geçerli dosya numarası. Kayıt Tercihen.kilitlemek yada açmak için sadece kayıt veya “byte”ın numarası. Istisnalar Istisna tipi hata numarası durum Io istisnası 52 dosya numarası yok Io istisnası 54 dosya modu geçersiz Mkdir İfadesi Yeni bir Dizin yaratır. Public Sub MkDir(ByVal Path As String) PARAMETRELER Yöntem Gerekli. Oluşturalacak dizini belirten string.Istisna Istisna tipi hata numarası durum Tez İstisnası 52 yöntem belirtilmemiş yada boş Güvenlik İstisnası 70 izin reddedildi. IO İstisnası 75 dizin zaten mevcut Içerik Eğer bu dizinler zaten mevcut değilse yada Yöntem’in bazı bölümleri geçersizse bu işlev yöntemde belirtilen herhangi yeni dizinler yaratır. Yöntem parametresinin, bir dosya yöntemi değil, bir dizin yöntemi belirtmesi gerekir. Örnek Bu örnek MkDir işlevini bir dizin oluşturmak için kullanır.Eğer belirtilmemişlerse güncel sürümde yeni dizin oluşturulur. Visual Basic ' Yeni Dizin Yarat.MkDir("C:\TESTDIR") LOCK (KİLİTLEME), UNLOCK (KİLİT AÇMA) İFADELERİ ‘Aç’ işlemi kullanılarak açılan dosyanın bir bölümüne ya da tamamına control eder ve diğer süreçlerle erişim sağlar. Public Overloads Sub Lock(ByVal FileNumber As Integer)' -or-Public Overloads Sub Unlock(ByVal FileNumber As Integer)' -or-Public Overloads Sub Lock(_ ByVal FileNumber As Integer, _ ByVal Record As Long _)' -or-Public Overloads Sub Unlock( _ ByVal FileNumber As Integer, _ ByVal Record As Long _)' -or-Public Overloads Sub Lock( _ ByVal FileNumber As Integer, _ ByVal FromRecord As Long, _ ByVal ToRecord As Long _)' -or-Public Overloads Sub Unlock( _ ByVal FileNumber As Integer, _ ByVal FromRecord As Long, _ ByVal ToRecord As Long _) Parametreler Dosya numarası Gerekli.herhangi bir geçerli dosya numarası. Kayıt Tercihen.kilitlemek yada açmak için sadece kayıt veya ‘byte’ın numarası. Kayıttan Tercihen.kilitlemek yada açmak için ilk kayıt veya ‘byte’ın numarası. Istisnalar Istisna tipi hata numarası durum Io istisnası 52 dosya numarası yok Io istisnası 54 dosya modu geçersiz Örnek: Visual Basic FileOpen(1, "TESTFILE", OpenMode.Input)' Başka bir modta tekrar açmadan önce kapat.FileClose(1)This example opens the file in Binary mode for writing operations only. Visual Basic FileOpen(1, "TESTFILE", OpenMode.Binary,OpenAccess.Write)'. tekrar Başka bir modta açmadan önce kapat.FileClose(1)The following example opens the file in Random mode. The file contains records of the structure Person. Visual Basic Structure Person <VBFixedString(30)> Dim Name As String Dim ID As IntegerEnd StructurePublic Sub ExampleMethod() 'Dizi için 30’a kadar say, tam sayı için artı 4 sn say. FileOpen(1, "TESTFILE", OpenMode.Random, , , 34) ' Başka bir modta tekrar açmadan önce kapat. FileClose(1)End SubThis code example opens the file in Output mode; any process can read or write to file. Visual Basic FileOpen(1, "TESTFILE", OpenMode.Output, OpenAccess.Default, OpenShare.Shared)' Başka bir modta tekrar açmadan önce kapat.FileClose(1)This code example opens the file in Binary mode for reading; other processes cannot read file. Visual Basic FileOpen(1, "TESTFILE", OpenMode.Binary, OpenAccess.Read, _ OpenShare.LockRead) Write, WriteLine İfadeleri Bilgiyi sıralı bir dosyaya yazar.’Yaz’ la yazılan bilgi genellikle ‘bilgi girişi’ ile bir dosyadan okunur. Public Sub Write( _ ByVal FileNumber As Integer, _ ByVal ParamArray Output As Object _)' -or-Public Sub WriteLine( _ ByVal FileNumber As Integer, _ ByVal ParamArray Output() As Object _)Parametreler Dosya Numarası Gerekli.Geçerli bir dosya numarası içeren bir Tam Sayı ifadesi . Çıkış Tercihen.Bir dosyaya yazmak için bir yada daha fazla virgülle sınırlandırılmış ifadeler. İçerik ‘Çıkış’ işlevini atarsanız dosyaya bir boş satır yazılır.Fazla ifadeler bir virgulle ayrılabilir.’Yazdır’ işlevinin aksine ‘Yaz’ işlevi diziler dosyaya yazıldıkça bunların çevresine virgüller ve tırnak işaretleri ekler. Listeye belirgin sınırlayıcılar koymak zorunda değilsiniz.’Yaz’ bir dosyaya bilgi yazmak için kullanıldığında,yalnızca sayısal,Boolean,tarih,”sıfır” ve hata bilgi işlevleri desteklenir.Yeri önemsenmeyerek,bilginin her zaman doğru şekilde okunması ve yorumlanması için aşağıdaki evrensel ifadeler takip edilir: * sayısal bilgi her zaman periyodu ondalık ayırıcı olarak kullanıp yazılır. .Boolen bilgisi için ya # Yanlış # ya da # Doğru # yazılır.Yeri önemsenmeyerek, ‘Doğru’ ve ‘Yanlış’ kelimeleri tercüme edilmez. Tarih bilgisi evrensel tarih formatı kullanılarak dosyaya yazılır.Tarih ya da zaman öğelerinden biri kayıp ya da sıfır olduğunda , yalnızca sağlanan bölüm dosyaya yazılır. Eğer ‘Çıkış’ bilgisi boşsa dosyaya hiçbir şey yazılmaz.Bununla birlikte,sıfır bilgisi için # Sıfır(Null) # yazılır. Hata bilgisi için, üretilen bilgi # HATA hata kodu# olarak gözükür.Yeri önemsenmeyerek Hata kelimesi çevrilmez.. “Çıkış” taki son karakteri yazdıktan sonra Satır Yazmacı bir Yeni Satır karakteri(yani bir taşıyıcı iade/tedarik, ya da Chr(13) + Chr(10)) dosyaya ekler. Çift tırnak işaretleri kullanarak bir diziye tırnak işaretleri koyabilirsiniz ya da ‘’ ‘’.örneğin; Dim x As String = "Çift Tırnak işaretlerinin çözümlenmesi ““zor”” değildir”.İfadesi “çift tırnak işaretlerinin çözümlenmesi “”zor”” değildir”.İfadesi değeri ile bir dizi geri gönderir. Örnek Bir sıralı dosyaya işlenmemiş bilgi yazmak için bu örnek “Yaz” işlevini kullanır. Visual Basic FileOpen(1, "TESTFILE", OpenMode.Output) ' Çıkış için dosya aç.Write(1, "Bu bir test.") ' Dosyaya metin yazdır. WriteLine(1) ' Dosyaya boşluk satırı yazdır.WriteLine(1, "Bölge 1", TAB(), "Bölge 2") ' İki yazdır bölgesinde yazdır.WriteLine(1, "Merhaba", " ", "Dünya") 'Boşluklu ayrı diziler.WriteLine(1, SPC(5), "5 Öncü boşluk ") 'Beş öncü boşluk yazdır.WriteLine(1, TAB(10), "Merhaba") '10 sütununda kelime yazdır.'Boolean, Tarih, ve Hata Değerleri AtaDim aBool As BooleanDim aDate As Tarih ZamanıaBool = FalseaDate = Tarih Zamanı.Parse("Şubat 12, 1969")'Sisteminizin local ayarları kullanılarak tarihler ve Boolean ler çevrilirWriteLine(1, aBool, " is a Boolean value")WriteLine(1, aDate, " is a date")FileClose(1) Dosyayı Kapat. var ExpCollDivStr=ExpCollDivStr;ExpCollDivStr = ExpCollDivStr + "ctl00_LibFrame_ctl16920a055,";var ExpCollImgStr = ExpCollImgStr; ExpCollImgStr = ExpCollImgStr + "ctl00_LibFrame_ctl16img,";Akıllı cihaz geliştirici notlar Bu işlev desteklenmemektedir. Bu örnek diskten bir dosya silmek için Kill işlevini kullanır. Visual Basic ” Assume TESTFILE” (bazı bilgi içeren bir dosya olduğunu varsayar). Kill("TestFile") ' Dosya Sil' Hepsini Sil .TXT güncel dizindeki metin dosyaları. FİLECLOSE İFADESİ Fileopen işlevini kullanırken açılan bir dosyaya “Giriş” ve Çıkış” ı ifadesini kullanarak sonlandırır. Parametreler Tercihen.0’ın parametre düzeni veya kapanacak daha fazla kanallar. var ExpCollDivStr=ExpCollDivStr;ExpCollDivStr = ExpCollDivStr + "ctl00_LibFrame_ctl044966fec,";var ExpCollImgStr = ExpCollImgStr; ExpCollImgStr = ExpCollImgStr + "ctl00_LibFrame_ctl04img,";İstisnalar İstisna Tipi* Hata Sayısı Durum I/O istisnası [ÜYE OLMADAN L?NKLER? GÖREMEZS?N?Z. BURAYI TIKLAYARAK BEDAVA ÜYE OLUNUZ...] Dosya numarası yok. İcerik Eğer Dosya numarasın ı atlarsanız “Dosya Aç” işlevi tarafından açılan tüm aktif dosyalar kapanır. “Ekle” ya da “Çıkış” için açılan dosyaları kapadığınızda,çıkışın son bellek noktası bu dosya için çalışan sistem bellek noktasına yazılır.Kapalı dosya ile bağlantılı tüm bellek noktası boşlukları serbest bırakılır. “Dosya Kapat” işlevi yerine getirildiğinde, bir dosyanın dosya numarası ile ilgili bağlantısı sona erer. Örnek Bu örnek “Giriş” için açılan bir dosyayı kapatmak için” Dosya Kapat” işlevini kullanır. Dim TextLine As StringFileOpen(1, "TESTFILE", OpenMode.Input) ' Dosyayı Aç.Do While Not EOF(1) 'Dosyanın sonuna kadar yuvarla. TextLine = LineInput(1) ' Değişken İçine satır oku. MsgBox(TextLine) ' Satırı Göster.yuvarlaFileClose(1) ' Dosya Kapat. LET İFADESİ Bu söz dizimi değişikliği yüzünden Let ve Set ifadelerine, neyin atanacağını belirtmek için ihtiyaç duyulmaz, ve görev ifadelerinde kullanılmaz.Metin özelliği Etiket kontrolündeki Açıklama özelliğinin yerini alır, ve önceki örnek takip ettiği gibi tekrar yazılabilir. Dim TextLine As StringFileOpen(1, "TESTFILE", OpenMode.Input) ' Dosya Aç.Do While Not EOF(1) ' Dosyanın sonuna kadar yuvarla. TextLine = LineInput(1) 'Değişken içine Satır Oku. MsgBox(TextLine) ' Satır Göster.YuvarlaFileClose(1) ' Dosya Kapat. Hiçbir söz dizimsel kullanımı olamamasına rağmen,Let hala Visual Basic te saklı bir sözcüktür.Bu onun önceki anlamlarıyla ilgili karışıklıklardan uzak durmasına yardım eder.Visual Basic , bir özelliğin değerini oluşturan özellik işlemleri için « Kur » ifadesini kullanır. Parametrelenmiş Özellikler Tez kaydeden varsayılan özellikleri belirsiz değildir, ve Visual Basic’te desteklenirler.Varsayılan özellikleri daha çok koleksiyon sınıflarında görünür. Kontrol Özelliği (Bu form için bir Kontol Koleksiyonu nesnesi iade eder.) Kontrol Özelliği nesnesi(Varsayılan özelliği madde) Madde özelliği (toplamalardaki bir madde için bir Kontrol nesnesi iade eder.) Kontrol nesnesi Aşağıdaki örnek Visual Basic “teki varsayılan ayar özelliklerinin hem geçerli hem geçersiz kullanımlarını gösterir ; Visual Basic Dim F As New Form ' F nin oluşturulduğunu ve başlatıldığını varsay.Visual Basic F.Controls.Item(0).Text = "Stop" ' Geçerli – Kullanılan varsayılan ayar özelliği yokF.Controls(0).Text = "Stop" 'Geçerli –Madde parametrelenir. Visual Basic 'F(0).Text = "Stop" ' Geçersiz – Formun varsayılan ayar özelliği yok.'F.Controls(0) = "Dur" ' Geçersiz – Kontrolde varsayılan özelliği Yok. Visual Basic „te ,En Varsayılan anahtar sözcüğüyle başlayarak varsayılan özelliği olarak bir özellik belirtin.Özellik ismini aşırı yüklerseniz, her aşırı yükleme ilanında Varsayılanı belirtmelisiniz.Bir varsayılan özelliğinin Paylaşımlı ya da Özel olmasını belirtemezsiniz. MID İFADESİ Bir Dizi değişkeni içerisindeki belirtilmiş karakterlerin sayısını başka bir diziden karakterlerle değiştirir. Mid( _ ByRef Target As String, _ ByVal Start As Integer, _ Optional ByVal Length As Integer _) = StringExpression Bölümler Hedef Gerekli. Modifiye etmek için Dizi değişkeninin ismi. Başlangıç Gerekli. Tamsayı ifadesi.Metin in yer değiştirmesinin başladığı Hedef içerisindeki karakterin konumu.Başlangıç tek bazlı bir indeks kullanır. karakterlerin sayısı.eğer atılırsa Dizin’in tamamı kullanılır. Uzunluk Tercihen.Tam sayı ifadesi.Yerine yenisi konulacak karakterlerin sayısı.eğer atılırsa Dizinin tamamı kullanılır. Dizi İfadesi Gerekli.Hedefin parçasının yerine geçen Dizi ifadesi. var ExpCollDivStr=ExpCollDivStr;ExpCollDivStr = ExpCollDivStr + "ctl00_LibFrame_ctl04f461110,";var ExpCollImgStr = ExpCollImgStr; ExpCollImgStr = ExpCollImgStr + "ctl00_LibFrame_ctl04img,";İstisnalar İstisna Tipi Hata Sayısı Durum Tez istisnası [ÜYE OLMADAN L?NKLER? GÖREMEZS?N?Z. BURAYI TIKLAYARAK BEDAVA ÜYE OLUNUZ...] Başlangıç <= 0 ya da Uzunluk < 0. İÇERİK Yerine yenisi konulan karakterlerin sayısı her zaman Hedef’teki karakterlerin sayısından daha az veya eşittir.Visual Basic bir Mid İşlevi(Visual Basic) ve bir Mid ifadesine sahiptir.Bu elementlerin ikisi de bir dizide belirtilmiş karakterlerin sayısı üzerinde çalışır, ama Mid işlevi , Mid ifadesi karakterlerin yerini alırken, karakterleri iade eder. ÖRNEK Bu örnek , bir dizi değişkeni içinde belirtilmiş karakterlerin sayısını bir başka diziden karakterlerle değiştirmek için Mid ifadesini kullanır. Visual Basic Dim TestString As String' Dizi Başlatır.TestString = "alp"' Returns "alt".Mid(TestString, 5, 3) = "üst"' Returns "bin".Mid(TestString, 5) = "bin"' Returns "bin".Mid(TestString, 5) = "bin"' Returns "bir".Mid(TestString, 5, 3) = "bir" Konu winnerS tarafından (05-19-2008 Saat 07:11 PM ) değiştirilmiştir..

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal gösterime geğ Hybrid-Şeklinde gösterime geç Ağaç şeklinde

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

1- Let 2- Line Input # 3- Load 4- Lock, Unlock 5- Lset 6- Mid 7- MkDir 8- Name 9- On

1- Let 2- Line Input # 3- Load 4- Lock, Unlock 5- Lset 6- Mid 7- MkDir 8- Name 9- On

visual basic