Hello World

' translated in VB:NET from c#

' by Giuseppe Di Santo - Studio IT

Module HelloWorld2

    Sub Main()

        'Create an image of 400x200 of Blue color

        Dim img As New Emgu.CV.Image(Of Emgu.CV.Structure.Bgr, Byte)(400, 200, New Emgu.CV.Structure.Bgr(255, 0, 0))

        'Create the font

        Dim f As New Emgu.CV.Structure.MCvFont(Emgu.CV.CvEnum.FONT.CV_FONT_HERSHEY_COMPLEX, 1.0, 1.0)

        'Draw "Hello, world." on the image using the specific font

        img.Draw("Hello, world", f, New Point(10, 80), New Emgu.CV.Structure.Bgr(0, 255, 0))

        'Show the image using ImageViewer from Emgu.CV.UI

        Emgu.CV.UI.ImageViewer.Show(img, "Test Window")

        ' Dispose the image

        img.Dispose()

    End Sub

End Module

<< back to index