• On Error GoTo Label: Bir hata oluştuğunda, programın akışını belirtilen etikete yönlendirir. Bu, belirli bir hata işleme rutinine atlamak için kullanılır. Bu yaklaşım, hatanın detaylı incelenmesine ve kontrollü bir şekilde ele alınmasına olanak tanır.
• On Error Resume Next: Bir hata oluştuğunda, hataya neden olan satırı atlar ve bir sonraki satırdan yürütmeye devam eder. Bu, genellikle belirli hataları bilerek göz ardı etmek veya hata durumunu manuel olarak kontrol etmek için kullanılır. Ancak, aşırıya kaçan kullanımı gizli hatalara ve uygulamanın beklenmedik davranışlarına yol açabilir.
• On Error GoTo 0: Mevcut hata işleyicisini devre dışı bırakır. Bu, genellikle bir hata işleme rutininin sonunda veya belirli bir kod bloğunda varsayılan davranışa geri dönmek için kullanılır. Her bir prosedürün başında bir hata işleyici tanımlanmışsa, prosedürün bitiminde bu komutla hata işleyiciyi sıfırlamak önemlidir.

Unutmayın: On Error Resume Next kullanırken, hatanın gerçekten beklendiğinden ve etkilerinin anlaşıldığından emin olun. Aksi takdirde, sorunların tespiti zorlaşabilir ve uygulamanızın davranışı öngörülemez hale gelebilir. Yalnızca belirli, kontrol edilebilir durumlar için kullanılması tavsiye edilir.

Genişletmek için tıkla ...

• Err.Number: Hatayı benzersiz şekilde tanımlayan bir sayısal kod. Örneğin, 52 (Bad file name or number - Kötü dosya adı veya numarası), 76 (Path not found - Yol bulunamadı). Bu numara, hata türünü hızlıca ayırt etmenizi sağlar.
• Err.Description: Hatanın kısa, metinsel açıklaması. Bu, kullanıcıya gösterilebilecek veya günlüğe kaydedilebilecek insan tarafından okunabilir bir mesajdır. Genellikle ilk bakışta sorunun ne olduğunu anlamak için kullanılır.
• Err.Source: Hatayı oluşturan nesnenin veya uygulamanın adı. Özellikle bileşenler veya dış kütüphanelerle çalışırken, hatanın kaynağını belirlemede faydalıdır.
• Err.LastDllError: Bir DLL işlevi çağrısı sırasında oluşan en son Windows API hata kodu (yalnızca Windows API çağrılarında geçerlidir). Düşük seviyeli sistem hatalarını tespit etmek için kullanılır.
• Err.HelpFile & Err.HelpContext: Hatayla ilgili yardım içeriğine işaret eden bilgiler. Geliştiricilerin daha fazla bilgi edinmesi veya kullanıcıların sorun giderme dokümanlarına yönlendirilmesi için kullanılabilir.
• Err.Clear: Err nesnesindeki hata bilgilerini temizler. Her hata işleme rutininin sonunda bu yöntemi çağırmak, bir sonraki hata için nesnenin temizlenmiş olmasını sağlar ve hatalı bilgi kullanımını önler.
• Err.Raise method: Belirli bir hata numarasını ve açıklamasını belirterek manuel olarak bir hata tetikler. Bu, uygulamanızın kendi özel hatalarını oluşturmak veya bir hatayı üst çağırana iletmek için kullanışlıdır.

Sub DosyaOku()
    On Error GoTo HataYakala ' Hata durumunda HataYakala etiketine git
    Dim DosyaYolu As String
    DosyaYolu = "C:\GereksizBirDosya.txt" ' Var olmayan bir dosya yolu
    
    ' Dosya açma işlemi (hata oluşabilecek kısım)
    Open DosyaYolu For Input As #1
    
    ' Eğer hata oluşmazsa, dosya işlemleri burada yapılır
    ' Örneğin: Line Input #1, sData
    Close #1 ' Dosyayı kapat
    
    MsgBox "Dosya başarıyla okundu."
    Exit Sub ' Hata oluşmazsa hata işleyiciye atlamadan prosedürden çık

HataYakala: ' Hata işleme rutini başlangıcı
    Select Case Err.Number ' Hata numarasına göre farklı durumları ele al
        Case 53 ' Dosya bulunamadı hatası
            MsgBox "Hata: '" & DosyaYolu & "' dosyası bulunamadı. Lütfen yolu kontrol edin.", vbCritical, "Dosya Hatası"
        Case 76 ' Yol bulunamadı hatası
            MsgBox "Hata: Belirtilen dizin bulunamadı. Lütfen yolu kontrol edin.", vbCritical, "Dizin Hatası"
        Case 75 ' Erişim hatası
            MsgBox "Hata: '" & DosyaYolu & "' dosyasına erişim izniniz yok. Lütfen yetkilerinizi kontrol edin.", vbCritical, "Erişim Hatası"
        Case Else ' Beklenmeyen diğer hatalar
            MsgBox "Beklenmeyen bir hata oluştu: " & Err.Number & " - " & Err.Description, vbCritical, "Genel Hata"
    End Select
    Err.Clear ' Err nesnesini temizle
End Sub

Sub HataKaydedici(ByVal HataNumarasi As Long, ByVal HataAciklamasi As String, ByVal HataKaynagi As String, Optional ByVal ProsedurAdi As String = "Bilinmiyor")
    ' Hata bilgilerini bir dosyaya veya veritabanına kaydet
    Dim FSO As Object ' FileSystemObject
    Dim ts As Object  ' TextStream
    Dim LogDosyasi As String
    
    ' Geçici dizinde bir günlük dosyası oluştur
    LogDosyasi = Environ("TEMP") & "\UygulamaHatalari.log"

    Set FSO = CreateObject("Scripting.FileSystemObject")

    On Error Resume Next ' Dosya yoksa oluşturmak için
    ' Dosyayı aç, yoksa oluştur. 8=ForAppending (sonuna ekle), True=CreateIfNotExist
    Set ts = FSO.OpenTextFile(LogDosyasi, 8, True)
    On Error GoTo 0 ' Hata işleyiciyi geri al

    If Not ts Is Nothing Then
        ' Günlük dosyasına zaman damgası, hata numarası, açıklama, kaynak ve prosedür adını yaz
        ts.WriteLine Now() & " - Num: " & HataNumarasi & ", Desc: " & HataAciklamasi & _
                     ", Source: " & HataKaynagi & ", Proc: " & ProsedurAdi
        ts.Close
    Else
        MsgBox "Hata günlüğü dosyası oluşturulamadı veya yazılamadı! Lütfen sistem yöneticinize başvurun.", vbCritical
    End If

    Set ts = Nothing
    Set FSO = Nothing
End Sub

' Merkezi hata işleyicisinin örnek kullanımı:
Sub VeriIsle()
    Const CurrentProc As String = "VeriIsle"
    On Error GoTo HataRutini ' Hata oluşursa HataRutini'ne git
    
    ' ... Veri işleme kodları ...
    ' Örneğin, 1'i 0'a bölerek bilerek bir hata oluşturabiliriz:
    Dim a As Integer
    a = 1 / 0 ' Hata: Sıfıra bölme (Error 11)
    
    MsgBox "Veri başarıyla işlendi."
    Exit Sub

HataRutini:
    ' Merkezi hata kaydediciyi çağır
    Call HataKaydedici(Err.Number, Err.Description, Err.Source, CurrentProc)
    MsgBox "Veri işleme sırasında beklenmeyen bir hata oluştu. Lütfen sistem yöneticinizle iletişime geçin. (Hata kodu: " & Err.Number & ")", vbCritical
    Err.Clear ' Err nesnesini temizle
End Sub

Imports System.IO

Public Module Module1
    Public Sub ReadFileDotNet(filePath As String)
        Console.WriteLine("Dosya Okuma İşlemi Başladı: " & filePath)
        Try
            ' Hataya neden olabilecek kod bloğu
            Dim content As String = File.ReadAllText(filePath)
            Console.WriteLine("Dosya içeriği:" & Environment.NewLine & content)
        Catch ex As FileNotFoundException ' Belirli bir hata türünü yakala
            Console.WriteLine("Hata (Dosya Bulunamadı): Dosya '" & filePath & "' bulunamadı. Lütfen yolu kontrol edin. Detay: " & ex.Message)
        Catch ex As UnauthorizedAccessException ' Başka bir belirli hata türünü yakala
            Console.WriteLine("Hata (Erişim Reddedildi): '" & filePath & "' dosyasına erişim izniniz yok. Detay: " & ex.Message)
        Catch ex As IOException ' Giriş/Çıkış ile ilgili genel hatalar
            Console.WriteLine("Hata (G/Ç Hatası): Bir disk veya G/Ç hatası oluştu. Detay: " & ex.Message)
        Catch ex As Exception ' Yukarıdaki türlere uymayan tüm diğer hataları yakala
            Console.WriteLine("Beklenmeyen bir genel hata oluştu: " & ex.Message & "\nStack Trace: " & ex.StackTrace)
        Finally
            ' Hata oluşsun veya oluşmasın her zaman çalışan kod bloğu
            Console.WriteLine("Dosya okuma işlemi tamamlandı (hata olsun ya da olmasın, kaynaklar serbest bırakıldı).")
        End Try
    End Sub
    
    ' Ana metot (örnek çağrı için)
    Public Sub Main()
        ' Başarılı senaryo
        'Dim existingFilePath As String = "C:\path\to\your\existingfile.txt" ' Geçerli bir dosya yolu girin
        'If System.IO.File.Exists(existingFilePath) Then
        '    ReadFileDotNet(existingFilePath)
        'Else
        '    Console.WriteLine("Test için geçerli bir dosya oluşturun: " & existingFilePath)
        'End If
        
        Console.WriteLine(Environment.NewLine & "-- Hatalı Senaryo (Dosya Yok) --")
        ReadFileDotNet("C:\BuDosyaYok.txt")
        
        Console.WriteLine(Environment.NewLine & "-- Hatalı Senaryo (Erişim Reddedildi - Windows'ta sistem klasörüne erişim denemesi) --")
        ReadFileDotNet("C:\Windows\System32\drivers\etc\hosts") ' Erişim izni olmayan bir dosya
    End Sub
End Module

• Her Kritik Prosedüre Hata İşleyici Ekleyin: Özellikle dış kaynaklarla etkileşime giren (dosya, veritabanı, ağ, UI) her prosedürde veya kod bloğunda bir hata işleyici bulundurun. Bu, hataların kontrolsüzce yayılmasını ve uygulamanın çökmesini engeller.
• Hataları Yakalayın ve Kaydedin: Yakaladığınız hataları kullanıcıya anlaşılır bir şekilde sunmanın yanı sıra, bir günlük dosyasına, veritabanına veya merkezi bir izleme sistemine kaydedin. Bu, daha sonra sorun giderme, uygulamanın zayıf noktalarını belirleme ve performans analizi açısından çok önemlidir.
• Kullanıcıya Anlaşılır Mesajlar Sunun: Teknik hata kodları veya sistem mesajları yerine, son kullanıcıların anlayabileceği ve ne yapmaları gerektiğini belirten (örn: "İnternet bağlantınızda sorun var, lütfen bağlantınızı kontrol edin.") mesajlar gösterin. Detaylı teknik bilgiyi loglara bırakın.
• Gerekirse Kullanıcının Düzeltmesine İzin Verin: Eğer bir hata kullanıcı girdisiyle ilgiliyse (örn: geçersiz sayı girişi, eksik alan), kullanıcıya hatayı düzeltme şansı verin veya doğrudan düzeltici eylemlere yönlendirin.
• Kritik Kaynakları Serbest Bırakın: Dosya kolları, veritabanı bağlantıları, ağ soketleri veya bellek nesneleri gibi kaynakların hata durumunda dahi düzgünce kapatıldığından ve serbest bırakıldığından emin olun. Finally bloğu (VB.NET) veya On Error GoTo sonrası temizlik kodları bunun için idealdir.
• Hata Yükseltme (Error Propagation): Bazı durumlarda, bir hata yerel olarak ele alınamaz ve üst seviyelerdeki arayan prosedüre bildirilmesi gerekir. Bu durumlarda Err.Raise yöntemini (klasik VB) veya Throw New Exception (VB.NET) kullanarak hatayı tekrar tetikleyebilirsiniz, böylece hatanın daha yüksek bir seviyede ele alınmasını sağlarsınız.
• Test Etme ve Hata Ayıklama: Uygulamanızı geliştirirken, potansiyel hata senaryolarını düşünerek kapsamlı testler yapın ve hata ayıklayıcıyı (debugger) aktif olarak kullanın. Geliştirme ortamında On Error GoTo 0 veya On Error Resume Next kullanmaktan kaçınarak hataların anında görünmesini sağlayın.
• Modüler Hata Yönetimi: Tek bir büyük hata işleyicisi yerine, farklı hata türleri için (örneğin dosya hataları, veritabanı hataları, ağ hataları) modüler, özelleşmiş hata işleyiciler oluşturmayı düşünün. Bu, bakım kolaylığı sağlar.
• Hata Kodu Dönüştürme: Harici kütüphanelerden veya sistem bileşenlerinden gelen jenerik, anlaşılması zor hata kodlarını, kendi uygulamanızın daha spesifik, anlaşılır ve dahili hata kodlarına dönüştürebilirsiniz. Bu, hata loglarını ve kullanıcı mesajlarını standartlaştırmanıza yardımcı olur.
• Performansı Dikkate Alın: Aşırıya kaçan, her operasyon için karmaşık hata denetimleri uygulamanın performansını olumsuz etkileyebilir. Önemli ve kritik bölgelere odaklanın; her satırda hata denetimi yapmak yerine, mantıksal blokların başına ve sonuna yerleştirin.
• Güvenlik Faktörünü Unutmayın: Hata mesajları aracılığıyla saldırganlara hassas sistem bilgileri (dosya yolları, veritabanı şemaları vb.) sızdırmaktan kaçının. Kullanıcıya gösterilen mesajlar genel olmalı, detaylar sadece log dosyalarında bulunmalıdır.