Visual Basic

'Build the connectionstring
Dim conBuilder As New OleDbConnectionStringBuilder
conBuilder.Provider = "Microsoft.Jet.OLEDB.4.0"
conBuilder.DataSource = "C:\Users\Dave Auld\Desktop\Student.xlsx"
conBuilder.PersistSecurityInfo = False
conBuilder.Add("Extended Properties", "Excel 8.0;HDR=YES;")

'Create the connection
Dim con As New OleDbConnection
con.ConnectionString = conBuilder.ConnectionString

'create the data command
Dim com As New OleDbCommand("Select * from [Sheet1$]")
com.Connection = con

'create the data adapter
Dim da As New OleDbDataAdapter(com)

'Create the data set
Dim ds As New DataSet

Dim rowcount As Integer = da.Fill(ds)

'Attach to the data grid view
DataGridView1.DataSource = ds
DataGridView1.DataMember = ds.Tables(0).TableName

Dave Kreskowiak wrote:

You have to account for the fact that no two scans of the exact same card will result in a pixel-by-pixel equality. Every pixel is going to be a slightly different color than the same pixel in the previous scan.

Private Function CheckPixel(ByVal source_color As Color, ByVal search_color As Color, ByVal tolerancy As Integer) As Boolean
        Dim sense As Long
        sense = 255 - tolerancy * 5

        CheckPixel = (System.Math.Sqrt((Val(source_color.R.ToString) - Val(search_color.R.ToString)) * (Val(source_color.R.ToString) - Val(search_color.R.ToString)) + (Val(source_color.G.ToString) - Val(search_color.G.ToString)) * (Val(source_color.G.ToString) - Val(search_color.G.ToString)) + (Val(source_color.B.ToString) - Val(search_color.B.ToString)) * (Val(source_color.B.ToString) - Val(search_color.B.ToString))) > sense)
    End Function

Dave Kreskowiak wrote:

If all you're doing is OCR'ing the business cards, why even bother comparing two images of the cards and just compare the data that's coming off them?

Dave Kreskowiak wrote:

If you have to compare the images, then you'll have to implement a filter (in C#, not VB.NET!) to process the image to equalize the colors. For example, if you look at the white part of a business card, you'll see a scattering of pixels of different colors, not an even white acrossed all of them. You have to implement a filter to remove all those color variations to generate the nice flat color acrossed all pixels.

Dave Kreskowiak wrote:

Search the articles for "image processing for dummies" and you'll find some good examples by Christian Graus.

CheckPixel = (System.Math.Sqrt((Val(source_color.R.ToString) - Val(search_color.R.ToString)) * (Val(source_color.R.ToString) - Val(search_color.R.ToString)) + (Val(source_color.G.ToString) - Val(search_color.G.ToString)) * (Val(source_color.G.ToString) - Val(search_color.G.ToString)) + (Val(source_color.B.ToString) - Val(search_color.B.ToString)) * (Val(source_color.B.ToString) - Val(search_color.B.ToString))) > sense)

Dave Kreskowiak wrote:

Visual Developer - Visual Basic
2006, 2007, 2008
But no longer in 2009...

Dave Kreskowiak wrote:

Search the articles for "image processing for dummies" and you'll find a very good series of articles by Christian Graus explaining just how this is done.

FeRtoll wrote:

I concluded from this only one thing, you dont like vb.net annymore and force to the c#!

FeRtoll wrote:

Dave Kreskowiak wrote:
Visual Developer - Visual Basic
2006, 2007, 2008
But no longer in 2009...

FeRtoll wrote:

in c# yes, but i am here asking for vb.net!

FeRtoll wrote:

I would prefer to learn assembler rather than c#,

FeRtoll wrote:

and how people say it... i am joking!

mciSendStringA("set CDAudio door open", "", 0, 0)