- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
Visual Basıc'de Dosya Açmak
--------------------------------------------------------------------------------
Open Deyimi
Visual Basıc'de dosya açma komutu olarak open komutu kullanılır. Eğer dosya varsa dosyayı açar. Eğer dosya yoksa dosyayı yeniden oluşturur ve açar. Open Deyimiyle dosya Açılımı şu şekildedir;
Private Sub Form_Load()
Open "Kayıt.dat" For Random As #1 Len = Len(Textler)
Kayıt_numarası = LOF(1) / Len(Textler)
Kayıt_numarası = Kayıt_numarası+1
End Sub
Open deyiminin bulunduğu satırı Form_Load() yazmamızın nedeni Form yüklendiğinde dosyayı açtığından. Açılacak dosyanın adı "Kayıt.dat" olarak atandı.
Open deyimine parametre olarak verilen For Random ile dosyanın random yani rastegele erişimli olduğunu belirtir. Random dosyalarında dosyaların adları sayısal değer olarak atanır . Bu sayısal değer 1-255 arasında değer alır. Ayrıca dosya numarasının önüne # işareti konur. Bu dosyadaki dosya numarası 1 olarak alınmıştır.
Len(Textler) ise kaydın byte olarak büyüklüğünü belirler. LOF(1) fonksiyonuylada 1 dosyasının byte olarak uzunluğunu belirler.
Kayıt_numarası nın ilk değerini ... LOF(1) / Len(Textler) fonksiyonu ile ( Dosyanın uzunlugunun kaydın uzunluğuna bölünmesiyle) elde edilir. Kayıt yapıldıktan sonra kayıt numarası 1 artırılır
--------------------------------------------------------------------------------
Open Deyimi
Visual Basıc'de dosya açma komutu olarak open komutu kullanılır. Eğer dosya varsa dosyayı açar. Eğer dosya yoksa dosyayı yeniden oluşturur ve açar. Open Deyimiyle dosya Açılımı şu şekildedir;
Private Sub Form_Load()
Open "Kayıt.dat" For Random As #1 Len = Len(Textler)
Kayıt_numarası = LOF(1) / Len(Textler)
Kayıt_numarası = Kayıt_numarası+1
End Sub
Open deyiminin bulunduğu satırı Form_Load() yazmamızın nedeni Form yüklendiğinde dosyayı açtığından. Açılacak dosyanın adı "Kayıt.dat" olarak atandı.
Open deyimine parametre olarak verilen For Random ile dosyanın random yani rastegele erişimli olduğunu belirtir. Random dosyalarında dosyaların adları sayısal değer olarak atanır . Bu sayısal değer 1-255 arasında değer alır. Ayrıca dosya numarasının önüne # işareti konur. Bu dosyadaki dosya numarası 1 olarak alınmıştır.
Len(Textler) ise kaydın byte olarak büyüklüğünü belirler. LOF(1) fonksiyonuylada 1 dosyasının byte olarak uzunluğunu belirler.
Kayıt_numarası nın ilk değerini ... LOF(1) / Len(Textler) fonksiyonu ile ( Dosyanın uzunlugunun kaydın uzunluğuna bölünmesiyle) elde edilir. Kayıt yapıldıktan sonra kayıt numarası 1 artırılır