Visual Basic

Imports System.Collections.Generic
 
...
 
Public Class BoundingRectangle
    Inherits List(Of Point)
 
    Private _lowX As Single
    Private _lowY As Single
    Private _highX As Single
    Private _highY As Single
 
    Public Shadows Sub Clear()
        _lowX = 0 : _lowY = 0 : _highX = 0 : _highY = 0
        MyBase.Clear()
    End Sub
 
    Public ReadOnly Property Rectangle() As Rectangle
        Get
            UpdateBounds()
            Return New Rectangle(_lowX, _lowY, _highX - _lowX, _highY - _lowY)
        End Get
    End Property
 
    Public Sub New()
        MyBase.New()
        Me.Clear()
    End Sub
 
    Public Shadows Sub Add(ByVal p As Point)
        MyBase.Add(p)
    End Sub
 
    Private Sub UpdateBounds()
        ' If we have no points in our list, the bounding rectangle is (0,0)-(0,0)
        If MyBase.Count = 0 Then
            Me.Clear()
            Exit Sub
        Else
            ' If this is the first point we have, it defines the starting bounding rectangle
            With MyBase.Item(0)
                _lowX = .X : _highX = .X
                _lowY = .Y : _highY = .Y
            End With
        End If
 
        If MyBase.Count > 1 Then
            ' We have more than one point, find the new bounding rectangle.
            For i As Integer = 1 To MyBase.Count - 1
                With MyBase.Item(i)
                    _lowX = Math.Min(_lowX, .X)
                    _lowY = Math.Min(_lowY, .Y)
                    _highX = Math.Max(_highX, .X)
                    _highY = Math.Max(_highY, .Y)
                End With
            Next
        End If
    End Sub
End Class

The Osmosian Order wrote:

Perhaps. But why, then, is your entire reply (shown above) written in English?

The Osmosian Order wrote:

But our machine does, in a real sense, understand English.

The Osmosian Order wrote:

Not yet. But it's a first step.

The Osmosian Order wrote:

So ask again if you really care, and I'll explain our idea.

'Declare the Structure
Public Structure myTestStructure
    Dim val1 As Integer
    Dim val2 As String
End Structure

'Pass the structure
Public Function myFunction() As myTestStructure
    Dim StructureInstance As myTestStructure
    StructureInstance.val1 = 3
    StructureInstance.val2 = "Hi"
    Return StructureInstance
End Function

Public Class MyClassName
    'Declare the Structure    
    Public Structure myTestStructure        
        Dim val1 As Integer        
        Dim val2 As String    
    End Structure    

    'Pass the structure    
    Public Function myFunction() As myTestStructure        
        Dim StructureInstance As myTestStructure        
        StructureInstance.val1 = 3        
        StructureInstance.val2 = "Hi"        
        Return StructureInstance    
    End Function
End Class

Dim objClassInstance as New MyClassName
Dim objTestStructure as New objClassInstance.myTestStructure
objTestStructure = objClassInstance.myFunction