Hallo Reinhard,
gehen wir mal kurz davon aus, das es eigentlich nur 8bit
integer datentypen gibt.
Dann hätten wir ein Problem, das die Zahl 1000 nicht
dargestellt werden könnte, da es zum Überlauf kommt.
Nun war es in der Vergangenheit so und trotzdem gab
es Programme welche 250+250+250+250=1000 rechnen
konnte.
Frage: Wie wird sowas gemacht?
Du schreibst Dir einfach eine Funktion, die genauso
rechnet, wie Du es beim Rechnen auf einem Stück
Papier machst.
Hier ein Beispiel für die Addition zweier beliebig grosser
Zahlen (30555 + 987654):
Public Class Form1
Private Sub Form1_Click _
(ByVal sender As Object, _
ByVal e As System.EventArgs _
) Handles Me.Click
Dim Len As Integer
Dim Result As String
Dim Num1 As String = "30555"
Dim Num2 As String = "987654"
Result = AddNumbers(Num1, Num2)
Len = Result.Length
MsgBox _
(Num1.PadLeft(Len, "0"c) & ControlChars.CrLf & _
Num2.PadLeft(Len, "0"c) & ControlChars.CrLf & _
New String("_"c, Len) & ControlChars.CrLf & _
Result.PadLeft(Len, "0"c))
End Sub
Private Function AddNumbers _
(ByVal Num1 As String, _
ByVal Num2 As String) As String
Dim i As Integer
Dim j As Integer
Dim Z As Byte = 10
Dim Len As Integer = Num1.Length
If Num2.Length > Len Then
Len = Num2.Length
End If
Dim Buffer1 As String = Num1.PadLeft(Len, "0"c)
Dim Buffer2 As String = Num2.PadLeft(Len, "0"c)
Dim RBuffer As String = "" ' Ergebnispuffer
Dim OV As Byte ' Überlaufpuffer
Dim X As Byte
For i = 1 To Len
j = Len - i
X = _
CByte(Buffer1.Substring(j, 1)) + _
CByte(Buffer2.Substring(j, 1)) + _
OV
OV = X \ Z
X = X Mod Z
RBuffer = X.ToString & RBuffer
Next
If OV > 0 Then
RBuffer = "1" & RBuffer
End If
Return RBuffer
End Function
End Class
Obwohl Zahlen beliebiger Grösse addiert werden, wird in
der Function AddNumbers immer nur mit Werten vom
Typ Byte gerechnet. Die zu addierenden Werte werden
als Strings übergeben und das Resultat wird ebenfalls
wieder als String zurückgegeben, womit auch hier eine
Grössenbegrenzung durch einen numerischen Datentyp
ausgeschlossen ist.
Als Fleissaufgabe darfst Du nun mal eine Funktion zum
Multiplizieren zweier Zahlen schreiben. ;-)
Gruß aus St.Georgen
Peter Götz
www.gssg.de (mit VB-Tipps u. Beispielprogrammen)
