STRING FONKSİYONLARI

1. STRING FONKSİYONLARI Dim ders As String ders=“Bil1002 Bilgisayar Programlama” Len (ders)  30 (Karekter Sayısı boşluklar dahil) Left(ders,7)  “Bil1002” Right(ders,11)  “Programlama” Mid (ders,9,10)  “Bilgisayar” Mid(ders,9)  “Bilgisayar Programlama” UCase(ders)  “BIL1002 BILGISAYAR PROGRAMLAMA” (Büyük harfe çevirir) LCase(ders)  “bil1002 bilgisayar programlama” (Küçük harfe çevirir) Asc(“A”)  65 Asc(“a”)  97 Chr(66)  “B” Instr(ders,”Prog”)  20 (ders stringi içerisinde “Prog”’un başlangıç yerini döndürür). Instr(5,ders,”Bil”)  9 (ders stringi içerisinde 5 karakterden başlamak üzere “Bil”’in başlangıç yerini döndürür).

2. RANDOM SAYI ÜRETECİ 0 ila 10 arasında random tamsayı üretme Visual Basic’de 0 ila 1 arasında Random sayı üretmek için Rnd komutu kullanılır. Rnd komutu her sefereninde aynı sayıyı üretir. Bunu önlemek ve Rnd komutu ile farklı sayılar üretebilmek için Form_Load prosedüründe veya Rnd komutu kullanılmadan önce Randomize Timer komutu kullanılmalıdır.

3. DOSYA İŞLEMLERİ Programlama dillerinde bilgisayar programına veri girişi yapmak veya programda üretilen verileri (sayısal veya alfanümerik) kalıcı bir ortama (dosya) aktarabilmek için dosya işlemlerini kullanmak gereklidir. • Visual Basic programlama dilinde Dosya Erişimleri iki farklı şekilde gerçekleştirilebilir: • Sıralı Erişimli Dosyalar (Sequential Files) • Rastgele Erişimli Dosyalar (Random Access Files) Sıralı erişimli dosya kullanımında, mevcut bir veri dosyasındaki bir veriye ulaşabilmek ve o veriyi programa aktarabilmek için, bu veriden önceki tüm verilerin okunması gerekmektedir. Rastgele erişimli dosyalarda ise herbir veri için bir kayıt numarası kullanılmakta olup, istenilen veriye kayıt numarası ile ulaşmak ve bu veriyi programa aktarmak mümkün olmaktadır.

4. DOSYA İŞLEMLERİ Open "c:\saha\veri.txt" For Output As #1 Çıktı için Dosya numarası Dosya yolu ve adı C:\saha\veri.txt dosyası içeriği Veri yazdırma uygulaması 1 1 2 4 3 9 4 16 5 25 6 36 Dosyaya Veri Yazdırma: Bir Visual Basic programında, program içerisinde üretilen bilgileri (çıktıları) herhangi bir diskde saklamak için aşağıdaki format kullanılır. Open "c:\saha\veri.txt" For Output As #1 Print #1, "Veri yazdırma uygulaması" For i = 1 To 6 Print #1, i; i ^ 2 Next i Close 1 DOSYA İŞLEM BİTİMİNDE CLOSE DEYİMİ İLE KAPATILMALIDIR.

5. DOSYA İŞLEMLERİ Diyez kullanılmayabilir Open "c:\saha\veri.txt" For Output As 1 Write #1, "Veri yazdırma uygulaması" For i = 1 To 6 Write #1, i; i ^ 2 Next i Close 1 C:\saha\veri.txt dosyası içeriği "Veri yazdırma uygulaması" 1,1 2,4 3,9 4,16 5,25 6,36 DOSYA İŞLEM BİTİMİNDE CLOSE DEYİMİ İLE KAPATILMALIDIR.

6. DOSYA İŞLEMLERİ Open "c:\saha\oku.txt" For Input As #1 Giriş için Dosya numarası Dosya yolu ve adı Dosyadan Veri Okuma: Bir Visual Basic programında, bilgisayardaki bir veri dosyasından bilgileri okumak ve hafızaya aktarmak için aşağıdaki format kullanılır. Dim ders As String Dim n As Integer Dim isim As String Dim dnot As Integer Open "c:\saha\oku.txt" For Input As 1 Input #1, ders Input #1, n Print ders Print n For i = 1 To n Input #1, isim, dnot Print isim; dnot Next i Close 1 C:\saha\oku.txt dosyası içeriği Bilgisayar Programlama Dersi 5 Ahmet,87 Veli,90 Hilmi,100 Mehmet,70 Damla,80 DOSYA İŞLEM BİTİMİNDE CLOSE DEYİMİ İLE KAPATILMALIDIR.

7. DOSYA İŞLEMLERİ Open "c:\saha\ekle.txt" For Append As #1 Ekleme için Dosya numarası Dosya yolu ve adı Dosyaya Veri Ekleme: Bir Visual Basic programında, bilgisayardaki mevcut bir veri dosyasındaki verilere program içerisinde üretilen farklı verileri eklemek için aşağıdaki format kullanılır. ekle.txt dosyası son hali 12 14 56 23 54 90 100 50 ekle.txt dosyası ilk hali 12 14 56 23 54 Open "c:\saha\ekle.txt" For Append As 1 Print #1, 90 Print #1, 100 Print #1, 50 Close 1 DOSYA İŞLEM BİTİMİNDE CLOSE DEYİMİ İLE KAPATILMALIDIR.

8. DOSYA İŞLEMLERİ EOF (END OF FILE) DEYİMİ: Bir veri dosyasında dosya sonuna gelidiğini EOF(dosya numarası) deyimi ile denetleyebiliriz. Bu şekilde bir dosya içerisindeki veri adedini belirlemek, dosya okuma işlemini sonlandırmak gibi işlemler gerçekleştirilebilir. Dim sayi As Integer Open "c:\saha\ekle.txt" For Input As 1 Do Until EOF(1) Input #1, sayi Print sayi Loop Close 1 Dim sayi As Integer Open "c:\saha\ekle.txt" For Input As 1 Do Input #1, sayi Print sayi If EOF(1) Then Exit Do Loop Close 1 DOSYA İŞLEM BİTİMİNDE CLOSE DEYİMİ İLE KAPATILMALIDIR.

9. DOSYA İŞLEMLERİ Dim sayi As Integer Open "c:\saha\ekle.txt" For Input As 1 Do While Not EOF(1) Input #1, sayi Print sayi Loop Close 1 Dim sayi As Integer Open "c:\saha\ekle.txt" For Input As 1 Do Input #1, sayi Print sayi Loop Until EOF(1) Close 1 Dim sayi As Integer Open "c:\saha\ekle.txt" For Input As 1 Do Input #1, sayi Print sayi Loop While Not EOF(1) Close 1 DOSYA İŞLEM BİTİMİNDE CLOSE DEYİMİ İLE KAPATILMALIDIR.

10. DOSYA İŞLEMLERİ RASTGELE (RANDOM) ERİŞİMLİ DOSYALAR: Visual Basic ile dosyaya veri yazdırma işlemlerinde, verilere kayıt numarası verilebilir ve daha sonra dosyadaki verilere kayıt numarasını belirterek, diğer verileri okumadan ulaşabiliriz. Dim isim As String Open "c:\saha\veri1.dat" For Random Access Write As 1 Put #1, 1, "Ahmet" Put #1, 2, "Ayşe" Put #1, 3, "Burak" Close 1 Open "c:\saha\veri1.dat" For Random Access Read As 1 Get #1, 2, isim Print "Dosyadan 2 kayıt nosu ile okunan bilgi="; isim Close 1 Çıktı: Dosyadan 2 kayıt nosu ile okunan bilgi=Ayşe

11. Drive List Box, Directory List Box ve File List Box İmage Box Stretch=True Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub File1_DblClick() Image1.Picture = LoadPicture(Dir1.Path + “\" + File1.FileName) End Sub Private Sub Form_Load() Form1.Caption = "Dosya Erisimi" End Sub Sürücü değiştiğinde Klasör Listesinde bu sürücü altındaki klasörler görüntülenir. Klasör değiştiğinde Dosya Listesinde bu klasör altındaki dosyalar görüntülenir. Klasörün Path’i Dosya adı ve uzantısı