VB.NET

VB.NET RSS

help with windows form applications

Please support our VB.NET advertiser: Intel Parallel Studio Home

•

Join Date: Nov 2009

Posts: 2

Reputation: pinkladyxo is an unknown quantity at this point

Solved Threads: 0

pinkladyxo pinkladyxo is offline

Offline

Newbie Poster

help with windows form applications

25 Days Ago

I need to assign code to a button, that when clicked on, validates an ISBN code, and displays a message that it is either Valid or Invalid. I basically need help transforming code used in a console application that will now be used in a windows form application, so no more writeline stuff, now message boxes.
Here is the code I need help with:

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Select Case ISBN.Length
                Case 10
                    Dim x As Integer = 0
                    noCheck = ISBN.Substring(0, ISBN.Length - 1)
                    x = checkISBN10(ISBN, noCheck)
                    If x = 11 Then
                        noCheck += "0"
                    ElseIf x = 10 Then
                        noCheck += "X"
                    Else
                        noCheck += x.ToString
                    End If
                    If (ISBN <> noCheck) Then
                        System.Console.WriteLine("Invalid ISBN - Check digit is " & x)
                    End If
                Case Else
                    System.Console.WriteLine("Invalid ISBN length")
            End Select
 
Private Function checkISBN10( _
ByVal ISBN As String, ByVal noCheck As String) As Integer
        Dim x As Integer = 0
        If ISBN.Length = 10 Then
            x = 10 * Integer.Parse(noCheck.Chars(0))
            x += 9 * Integer.Parse(noCheck.Chars(1))
            x += 8 * Integer.Parse(noCheck.Chars(2))
            x += 7 * Integer.Parse(noCheck.Chars(3))
            x += 6 * Integer.Parse(noCheck.Chars(4))
            x += 5 * Integer.Parse(noCheck.Chars(5))
            x += 4 * Integer.Parse(noCheck.Chars(6))
            x += 3 * Integer.Parse(noCheck.Chars(7))
            x += 2 * Integer.Parse(noCheck.Chars(8))
            x = 11 - (x Mod 11)
        End If
        Return x
    End Function
Select Case ISBN.Length
                Case 10
                    Dim x As Integer = 0
                    noCheck = ISBN.Substring(0, ISBN.Length - 1)
                    x = checkISBN10(ISBN, noCheck)
                    If x = 11 Then
                        noCheck += "0"
                    ElseIf x = 10 Then
                        noCheck += "X"
                    Else
                        noCheck += x.ToString
                    End If
                    If (ISBN <> noCheck) Then
                        System.Console.WriteLine("Invalid ISBN - Check digit is " & x)
                    End If
                Case Else
                    System.Console.WriteLine("Invalid ISBN length")
            End Select

Private Function checkISBN10( _
ByVal ISBN As String, ByVal noCheck As String) As Integer
        Dim x As Integer = 0
        If ISBN.Length = 10 Then
            x = 10 * Integer.Parse(noCheck.Chars(0))
            x += 9 * Integer.Parse(noCheck.Chars(1))
            x += 8 * Integer.Parse(noCheck.Chars(2))
            x += 7 * Integer.Parse(noCheck.Chars(3))
            x += 6 * Integer.Parse(noCheck.Chars(4))
            x += 5 * Integer.Parse(noCheck.Chars(5))
            x += 4 * Integer.Parse(noCheck.Chars(6))
            x += 3 * Integer.Parse(noCheck.Chars(7))
            x += 2 * Integer.Parse(noCheck.Chars(8))
            x = 11 - (x Mod 11)
        End If
        Return x
    End Function

Also, how do I make a connection between a button and textbox. In other words, if a button is clicked on, how do I assign it to read that certain textbox where the information was entered?