copyright 1999 - 2014 by heinz prelle - hannover  - lenbachstraße 42 - www.visual-basic5.de | impressum
Beispiel: VB .Net Quersumme berechnen 2
'
Option Explicit On
Option Strict On

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
            Handles Button1.Click
        Try
            Dim Result As Integer = SumOfDigits.CheckSum(CType(Me.TextBox1.Text, Integer))
            MessageBox.Show(Result.ToString(), "CheckSum")
        Catch ex As OverflowException
            MessageBox.Show(ex.Message(), "Info - OverflowException")
        Catch ex As Exception
            MessageBox.Show(ex.Message(), "Info - Exception")
        End Try
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
            Handles MyBase.Load
        With Me
            .Text = "Quersumme berechnen - 2"
            .Button1.Text = "Berechnen"
            .TextBox1.ContextMenuStrip = .ContextMenuStrip1
            .TextBox1.Text = "123"
            .CenterToScreen()
        End With
    End Sub

    Public Class SumOfDigits

        Public Shared Function CheckSum(ByVal Sum As Integer) As Integer
            Dim Result As Integer
            Try
                Dim Amount As String = CType(Sum, String)
                Dim Split As New List(Of Integer)
                Sum = 0
                For Each Chars As Char In Amount
                    Split.Add(Convert.ToInt32(Chars.ToString()))
                Next
                For Each n As Integer In Split
                    Sum += n
                Next
                Result = Sum
            Catch ex As Exception
                MessageBox.Show(ex.Message(), "Info - CheckSum")
            End Try
            Return Result
        End Function
    End Class

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) _
            Handles TextBox1.KeyPress
        Select Case e.KeyChar
            Case "0"c To "9"c, Chr(8)
                e.Handled = False
            Case Else
                e.Handled = True
        End Select
    End Sub

End Class
Sourcecode Visual Basic