Visual Basic

Math.Atan()

public mustinherit class Hello
  'What you had
  public MustOverride Function hi() as string
  'What i added because you were trying to override this without having it
  public MustOverride Function hi(byVal name as String) as string
end class

public class NorthEasterner
  inherits Hello

  'this HAS to be overriden because its declared as 'MustInherit'
  public Overrides Function hi() as String
    'No name was passed in so just welcome the stranger
    return "Hello Stranger"
  end function

  'this HAS to be overriden because its declared as 'MustInherit' 
  public Overrides Function hi(ByVal name as String) as String
    return "How ya doin," & name
  end function

end class

public Class DragRacer
  Inherits Hello
  
  'this HAS to be overriden because its declared as 'MustInherit' 
  Overrides Function Hi() As String
    Return "Start your engines!"
  End Function 

  'this HAS to be overriden because its declared as 'MustInherit' 
  public Overrides Function hi(ByVal name as String) as String
    return "Start your engines " & name & "!"
  end function

End Class

public Class Euro
  Inherits Hello

  'this HAS to be overriden because its declared as 'MustInherit' 
  Overrides Function Hi() As String
    Return "Caio"
  End Function

  'this HAS to be overriden because its declared as 'MustInherit' 
  public Overrides Function hi(ByVal name as String) as String
    return "Caio " & name
  end function

End Class

Celina69 wrote:

I have an assignment

Dim buff As UInteger
buff = &H33388911

Dim Red As UInt32 = (buff And &H3FF)
Dim Green As UInt32 = (buff And &HFFC00) >> 10
Dim Blue As UInt32 = (buff And &H3FF00000) >> 20

Private Function MakeRGBArray(ByVal PicFile As FileInfo) As Array
    Dim ft As FileStream = New FileStream(PicFile.FullName, FileMode.Open)
    Dim brh As BinaryReader = New BinaryReader(ft)
    ft.Position = 8192          ' start with first pixel after the header

    ' change array dimensions from 4 bytes per pixel to 3 (RGB)
    Dim RGBArray(CInt(PicFile.Length - ft.Position) / 4 * 3 - 1) As UInt32

    For i = 0 To (RGBArray.Length - 1) Step 3
        Dim buff As UInt32 = SwapDWORD(brh.ReadUInt32)
        RGBArray(i) = (buff And &H3FF)
        RGBArray(i + 1) = (buff And &HFFC00) >> 10
        RGBArray(i + 2) = (buff And &H3FF00000) >> 20
    Next i
    ft.Close()
    brh = Nothing
    ft = Nothing

    Return RGBArray
End Function