Structure, Enum va Module

Public Structure Nuqta
    Public Property X As Integer
    Public Property Y As Integer

    Public Sub New(x As Integer, y As Integer)
        Me.X = x
        Me.Y = y
    End Sub

    Public Function Masofa() As Double
        Return Math.Sqrt(X * X + Y * Y)
    End Function

    Public Overrides Function ToString() As String
        Return $"({X}, {Y})"
    End Function
End Structure

Module Dastur
    Sub Main()
        Dim n As New Nuqta(3, 4)
        Console.WriteLine(n)
        Console.WriteLine(n.Masofa())
    End Sub
End Module

Public Structure NuqtaS
    Public Property X As Integer
End Structure

Public Class NuqtaC
    Public Property X As Integer
End Class

Module Dastur
    Sub Main()
        Dim s1 As New NuqtaS()
        s1.X = 10
        Dim s2 As NuqtaS = s1
        s2.X = 99

        Dim c1 As New NuqtaC()
        c1.X = 10
        Dim c2 As NuqtaC = c1
        c2.X = 99

        Console.WriteLine($"Structure: s1.X = {s1.X}, s2.X = {s2.X}")
        Console.WriteLine($"Class:     c1.X = {c1.X}, c2.X = {c2.X}")
    End Sub
End Module

Public Enum Holat
    Yangi
    Korilmoqda
    Bajarildi
    BekorQilindi
End Enum

Module Dastur
    Sub Main()
        Dim h As Holat = Holat.Korilmoqda

        Console.WriteLine(h.ToString())
        Console.WriteLine(CInt(h))
        Console.WriteLine(h = Holat.Yangi)

        Select Case h
            Case Holat.Yangi
                Console.WriteLine("Hali boshlanmagan")
            Case Holat.Korilmoqda
                Console.WriteLine("Ish ketmoqda")
            Case Else
                Console.WriteLine("Tugagan")
        End Select
    End Sub
End Module

Public Enum HttpKod
    OK = 200
    TopilmadiXato = 404
    ServerXatosi = 500
End Enum

Module Dastur
    Sub Main()
        Dim k As HttpKod = HttpKod.TopilmadiXato

        Console.WriteLine(k.ToString())
        Console.WriteLine(CInt(k))
        Console.WriteLine([Enum].IsDefined(GetType(HttpKod), 403))
        Console.WriteLine([Enum].IsDefined(GetType(HttpKod), 404))
    End Sub
End Module

<Flags>
Public Enum Ruxsat
    Yoq = 0
    Oqish = 1
    Yozish = 2
    Ochirish = 4
End Enum

Module Dastur
    Sub Main()
        Dim r As Ruxsat = Ruxsat.Oqish Or Ruxsat.Yozish

        Console.WriteLine(r.ToString())
        Console.WriteLine(CInt(r))
        Console.WriteLine(r.HasFlag(Ruxsat.Yozish))
        Console.WriteLine(r.HasFlag(Ruxsat.Ochirish))
    End Sub
End Module

Module Matematika
    Public Const Pi As Double = 3.14159

    Public Function AylanaYuzasi(radius As Double) As Double
        Return Pi * radius * radius
    End Function

    Public Function OrtachaQiymat(ParamArray sonlar() As Double) As Double
        If sonlar.Length = 0 Then
            Return 0
        End If
        Return sonlar.Sum() / sonlar.Length
    End Function
End Module

Module Dastur
    Sub Main()
        Console.WriteLine(Math.Round(AylanaYuzasi(2), 4))
        Console.WriteLine(OrtachaQiymat(10, 20, 30))
        Console.WriteLine(Matematika.Pi)
    End Sub
End Module

Public Enum Daraja
    Boshlangich
    Orta
    Yuqori
End Enum

Public Structure Baho
    Public Property Ball As Integer
    Public Property Daraja As Daraja

    Public Sub New(ball As Integer)
        Me.Ball = ball
        If ball >= 85 Then
            Me.Daraja = Daraja.Yuqori
        ElseIf ball >= 60 Then
            Me.Daraja = Daraja.Orta
        Else
            Me.Daraja = Daraja.Boshlangich
        End If
    End Sub
End Structure

Module Yordamchi
    Public Function Tavsif(b As Baho) As String
        Return $"{b.Ball} ball - {b.Daraja}"
    End Function
End Module

Module Dastur
    Sub Main()
        For Each ball As Integer In New Integer() {45, 72, 91}
            Console.WriteLine(Tavsif(New Baho(ball)))
        Next
    End Sub
End Module