Xatoliklarni boshqarish

Module Dastur
    Sub Main()
        Try
            Dim matn As String = "salom"
            Dim son As Integer = CInt(matn)
            Console.WriteLine(son)
        Catch ex As InvalidCastException
            Console.WriteLine("Bu matnni songa aylantirib bo'lmadi")
        End Try

        Console.WriteLine("Dastur davom etmoqda")
    End Sub
End Module

Module Dastur
    Sub Sinov(bolovchi As Integer, sonlar() As Integer, indeks As Integer)
        Try
            Console.WriteLine(sonlar(indeks) \ bolovchi)
        Catch ex As DivideByZeroException
            Console.WriteLine("Nolga bo'lib bo'lmaydi")
        Catch ex As IndexOutOfRangeException
            Console.WriteLine("Bunday indeks yo'q")
        Catch ex As Exception
            Console.WriteLine($"Boshqa xato: {ex.GetType().Name}")
        End Try
    End Sub

    Sub Main()
        Dim sonlar() As Integer = {10, 20, 30}
        Sinov(2, sonlar, 0)
        Sinov(0, sonlar, 1)
        Sinov(2, sonlar, 99)
    End Sub
End Module

Module Dastur
    Sub Main()
        Try
            Dim sonlar() As Integer = {1, 2, 3}
            Console.WriteLine(sonlar(10))
        Catch ex As Exception
            Console.WriteLine($"Turi: {ex.GetType().Name}")
            Dim bormi As Boolean = Not String.IsNullOrEmpty(ex.Message)
            Console.WriteLine($"Xabar bormi: {bormi}")
        End Try
    End Sub
End Module

Module Dastur
    Function Bol(a As Integer, b As Integer) As String
        Try
            Return (a \ b).ToString()
        Catch ex As DivideByZeroException
            Return "xato"
        Finally
            Console.WriteLine("  Finally bajarildi")
        End Try
    End Function

    Sub Main()
        Console.WriteLine(Bol(10, 2))
        Console.WriteLine(Bol(10, 0))
    End Sub
End Module

Module Dastur
    Sub YoshTekshir(yosh As Integer)
        If yosh < 0 Then
            Throw New ArgumentException("Yosh manfiy bo'lishi mumkin emas")
        End If
        If yosh > 150 Then
            Throw New ArgumentOutOfRangeException("yosh")
        End If
        Console.WriteLine($"Yosh qabul qilindi: {yosh}")
    End Sub

    Sub Main()
        YoshTekshir(25)

        Try
            YoshTekshir(-5)
        Catch ex As ArgumentException
            Console.WriteLine($"Ushlandi: {ex.GetType().Name}")
        End Try
    End Sub
End Module

Public Class QoldiqYetarliEmasException
    Inherits Exception

    Public Property Yetishmayotgan As Decimal

    Public Sub New(yetishmayotgan As Decimal)
        MyBase.New($"Hisobda {yetishmayotgan} so'm yetishmayapti")
        Me.Yetishmayotgan = yetishmayotgan
    End Sub
End Class

Public Class Hisob
    Private _qoldiq As Decimal

    Public Sub New(boshlangich As Decimal)
        _qoldiq = boshlangich
    End Sub

    Public Sub Yechish(summa As Decimal)
        If summa > _qoldiq Then
            Throw New QoldiqYetarliEmasException(summa - _qoldiq)
        End If
        _qoldiq -= summa
        Console.WriteLine($"Yechildi. Qoldiq: {_qoldiq}")
    End Sub
End Class

Module Dastur
    Sub Main()
        Dim h As New Hisob(500000D)

        Try
            h.Yechish(200000D)
            h.Yechish(900000D)
        Catch ex As QoldiqYetarliEmasException
            Console.WriteLine(ex.Message)
            Console.WriteLine($"Yetishmayotgan summa: {ex.Yetishmayotgan}")
        End Try
    End Sub
End Module

Imports System.IO

Module Dastur
    Sub Main()
        Dim yol As String = "sinov.txt"

        Using yozuvchi As New StreamWriter(yol)
            yozuvchi.WriteLine("Birinchi qator")
            yozuvchi.WriteLine("Ikkinchi qator")
        End Using

        Console.WriteLine(File.ReadAllText(yol).Trim())
        File.Delete(yol)
    End Sub
End Module

Module Dastur
    Sub Ichki()
        Throw New InvalidOperationException("ichki xato")
    End Sub

    Sub Ortadagi()
        Try
            Ichki()
        Catch ex As Exception
            Console.WriteLine("Jurnalga yozildi")
            Throw
        End Try
    End Sub

    Sub Main()
        Try
            Ortadagi()
        Catch ex As Exception
            Console.WriteLine($"Yuqorida ushlandi: {ex.Message}")
        End Try
    End Sub
End Module

' VB6 uslubi - yangi kodda ishlatmang
On Error Resume Next
Dim son As Integer = CInt("salom")
On Error Goto 0