Dosyalama İşlemleri ve MsgBox Fonksiyonları

Yazar jawscod2

Dosya Açmak

Visual Basic’de bir dosya 5 farklı biçimde açılabilir.

* Input
* Random
* Output
* Append
* Binary

Şimdi bu modları nasıl kullanacağımızı görelim.

Input Erişim Modu
Input modunda dosya, üzerinde değişiklik yapılmadan sadece okunmak için açılır.

Örnek olarak:

Private Sub Form_Load()
Open “c:\deneme.txt” For Input As #1
Input #1, a
MsgBox a
Close #1
End Sub

Burada “deneme.txt” dosyası sadece okunmak için 1 numaralı dosya olarak açıldı. Input komutuyla 1 numaralı dosyanın 1. satırı okundu. Birinci satırı “a” harfi ile simgeledik. Ve Msgbox’ta 1. satır görüntülendi. Close komutu ile de 1 numaralı dosya kapatıldı.

Random Erişim Modu
Bu modda her kayıta belirli bir uzunluk verilerek sadece bu uzunluktaki alana yazılması sağlanır. Yani bir kaydın uzunluğunu 10 karakter olarak belirlediysek, 9 karakter bile yazar isek bu kayda 10 karakter olarak geçer. Eksik olan her bir karakter için boşluk atanacaktır.

Mesela; Her kayıtın uzunluğu 10 karakter olsun. Şöyle bir örnek verebiliriz.

Private Sub Form_Load()
Dim ad As String * 10, isim ‘Her bir kayıt 10 karakter olacak
isim = “c:\deneme.txt”
Open isim For Random As #1 Len = 10 ‘Dosyamızı açıyoruz
ad = “PcMagazine”
Put #1, 1, ad ‘”PcMagazine” kelimesini 1 nolu kayda yazıyoruz
ad = “Online”
Put #1, 2, ad ‘”Online” kelimesini 2 nolu kayda yazıyoruz.
Close #1 ‘Dosyamızı kapatıyoruz.
End Sub

Bu kodu çalıştırdığımızda “deneme.txt” dosyasına şu şekilde yazılacaktır.

PcMagazineOnline****

Görüldüğü gibi “Online” kelimesi 10 karakteri tamamlamadığı için kelimeden sonra 10′a kadar olanlar yerine boşluk vuruldu. Ayrıca bu modda her kayda bir kayıt numarası verildiği için daha sonra okunmak istendiğinde kayıt numarası verilerek okunma işlemi gerçekleştirilebilir. Random modda Dosyadan okuma yapılırken “Get”, dosyaya yazılırken “Put” komutları kullanılır.

Output Modu
Bir dosyaya yazılmak için dosya sıralı erişim modunda açılır.

Örnek olarak:

Private Sub Form_Load()
Dim no1, no2, no3
Open “c:\deneme.txt” For Output As #1
no1 = “PC”
no2 = “Magazine”
no3 = “Online”
Print #1, no1, no2, no3
Close #1
End Sub

Bu kodu çalıştırdığımızda “c:\deneme.txt” dosyasına şu şekilde yazma işlemi yapılır.

‘PC Magazine Online’

Bu kodda dosyaya yazma için “Print” komutunu kullandık. “Write” komutuda aynı “Print” komutu gibidir ancak her kaydı tırnak içine alır ve kayıtlar arasına virgül koyulmasını sağlar.

“PC”,”Magazine”,”Online”

Bu modun bir dezanavtajı ise her yeni kayıtta eski kaydın üzerine yazılmasıdır.

Append Modu
Aynı Output modu gibi çalışır fakat Output modundaki gibi eski kaydın üzerine yazmak yerine yeni kaydı eski kaydın altına ekleyerek çalışır.

Örnek olarak yukarıdaki örneği Append modunda açalım.

Private Sub Form_Load()
Dim no1, no2, no3
Open “c:\deneme.txt” For Append As #1
no1 = “PC”
Print #1, no1
no2 = “Magazine”
Print #1, no2
no3 = “Online”
Print #1, no3
Close #1
End Sub

Bu kodu çalıştırdığımızda dosyaya şu şekilde yazılacaktır:

‘PC
Magazine
Online’

Binary Modu
Binary modunda dosya içerisindeki her karaktere, karakter numarası verilerek ulaşılabilir. Hatırlarsanız Random modda her bir kayda bütün olarak ulaşabilirken, Binary modda her bir karaktere ulaşmamız mümkündür. Aynı şekilde bu modda da okuma ve yazma için “Put” ve “Get” komutları kullanılır.

Visual Basic MsgBox Fonksiyonları
——————————————————————————–

Yaptığınız uygulamalarda kullanıcıya ne olup ne bittiğini ifade etmek için msgbox fonksiyonu kullanılır.Örneğin uygulamadaki command1 tuşuna basıldığında formun arkaplanı siyah renkte oluyorsa bunu kullanıcıya msgbox fonksiyonu ile ifade edebiliriz…

Nasıl Kullanılır?
MSGBOX Fonksiyonu aşağıdaki şekilde kullanılır:

Msgbox “Bilgi”,Düğmeler ve Şekiller,”Başlık”

Bilgi:Bilgi kısmına kullanıcıya vermek istediğiniz bilgiyi yazarsınız…
Düğmeler ve Şekiller:Düğmeler ve şekiller kısmına msgbox üzerinde yer alacak düğmeler ve şekiller seçilir.Örneğin msgbox üzerinde Yes ve No düğmelerinin bulunmasını istiyorsanız vbYesNo komutunu kullanmalısınız.Şekiller ise soru işareti, bilgi işareti, ünlem ve çarpı işaretlerinden oluşur.

Örneğin msgbox üzerinde soru işaretinin çıkmasını istiyorsanız vbQuestion komutunu kullanmalısınız.

KOMUTLAR

Düğmeler
vbYesNo:Evet Hayır
vbOkCancel:Tamam İptal
vbOKOnly:Tamam
vbAbortRetryIgnore:Durdur Yeniden Dene Yoksay
vbRetryCancel:Yeniden Dene Yoksay
vbYesNoCancel:Evet hayır İptal

İşaretler
vbInformation:Bilgi İşareti
vbQuestion:Soru İşareti
vbExclamation:Ünlem İşareti
vbCritical:Çarpı İşareti

Başlık
Başlık kısmına msgbox ın başlığı yazılır

If ile MsgBox
kullanıcı evete bastığında programdan çıkması hayıra bastığında çıkmaması için If ifadesini kullanırız.

İlk önce msgbox ı bir değişkene atayalım. Bu durumda
Msgbox “Bilgi”,Düğmeler ve Şekiller,”Başlık”

değil

Msgbox (”Bilgi”,Düğmeler ve Şekiller,”Başlık”) olarak kullanırız.

mesela x değişkenine atayalım.

şöyle olur:

x = Msgbox (”Bilgi”,Düğmeler ve Şekiller,”Başlık”)

Örneği uygulayalım:
İlk olarak forma bir adet command buton ekleyelim.caption’ını ise Çıkış olarak değiştirelim.Command1 nesnesine çift tıklayarak kod bölümünü açalım.ve oraya aşağıdaki kodları yazalım:

Private Sub Command1_Click ( )
x=msgbox(”Çıkmak istiyor musunuz?”,vbYesNo + vbInformation,”Çıkış Onayı”)
If x = vbYes Then
Unload Me
End If
End Sub

Bu kodu yazıp uygulamamızı açtığımızda ve Çıkış düğmesine bastığımızda bize şöyle bir soru soracak: Çıkmak istiyor musunuz?

Ayrıca Evet ve Hayır düğmeleri ve de Bilgi düğmesi msgbox ımızda yer almış olacak.

Evete tıkladığımızda çıkacak hayıra tıkladığımızda ise çıkmayacak

Bu yazı toplamda 49, bugün ise 0 kez görüntülenmiş