Visual Basic

Private Sub MinXY(ByVal arrXVal() As Integer, ByVal arrYVal() As Integer)
    '
    ' MinXY will determine the minimum and maximum X and Y values from the
    ' arrXVal and arrYVal arrays.
    '
    ' The mimimum values must be greater than zero.  The default mimimum and
    ' maximum values are determined by the constants at the start of this
    ' procedure.
    '
    Const MinXValue = 1     ' this is the minimum permitted value for X
    Const MaxXValue = 9999        ' this is the maximum permitted value for X

    Const MinYValue = 1
    Const MaxYValue = 9999

    Dim maxX As Integer = MinXValue
    Dim minX As Integer = MaxXValue

    Dim maxY As Integer = MinYValue
    Dim minY As Integer = MaxYValue

    For i As Integer = 0 To arrxval.GetUpperBound(0)

        Select Case arrXVal(i)

            Case MinXValue To MaxXValue
                '
                ' If the value of arrXVal(i) is LESS than
                ' the currently stored mimimum X value in minX, then
                ' set minX to the value of arrXVal(i).
                '
                If arrXVal(i) < minX Then
                    minX = arrXVal(i)
                End If

                '
                ' If the value of arrXVal(i) is GREATER than
                ' the currently stored maximum X value in maxX, then
                ' set maxX to the value of arrXVal(i).
                '
                If arrXVal(i) > maxX Then
                    maxX = arrXVal(i)
                End If

            Case Else
                '
                ' All other values of arrXVal() are ignored.
                '
        End Select

        '
        ' Same process for maxY and minY values...
        '
        Select Case arrYVal(i)

            Case MinYValue To MaxYValue
                '
                ' If the value of arrYVal(i) is LESS than
                ' the currently stored mimimum X value in minX, then
                ' set minX to the value of arrYVal(i).
                '
                If arrYVal(i) < minY Then
                    minY = arrYVal(i)
                End If

                '
                ' If the value of arrYVal(i) is GREATER than
                ' the currently stored maximum X value in maxX, then
                ' set maxX to the value of arrYVal(i).
                '
                If arrYVal(i) > maxY Then
                    maxY = arrYVal(i)
                End If

            Case Else
                '
                ' All other values of arrYVal() are ignored.
                '
        End Select

    Next

    '
    ' The variables minX, minY, maxX and maxY now contain the non-zero
    ' minimum and maximum values.  You'll need to pass these back to the
    ' caller or via global variables (not recommended).
    '
End Sub

alien viper wrote:

Which is better and show me the best and explain why

Try<br />
  'Do Something<br />
Catch ex As Exception<br />
  Utilities.HandleError(ex)<br />
End Try

Try<br />
'Do Something<br />
Catch ex As Exception<br />
Throw New Exception("Error opening your file", ex)<br />
End Try

<br />
Bitmap newone = new Bitmap(100,100);<br />
Graphics g4 = Graphics.FromImage(newone);<br />
System.Drawing.Rectangle dstRect = new System.Drawing.Rectangle(0, 0 ,100, 100);<br />
g4.DrawImage(screenGrab, dstRect, 30,40,100,100,System.Drawing.GraphicsUnit.Pixel);<br />
newone.Save("C:/thenewone.bmp");<br />

M Javed Khan wrote:

U

M Javed Khan wrote:

u r

M Javed Khan wrote:

y

delphidab wrote:

Will this develop Pocket PC apps?