Thema Datum  Von Nutzer Rating
Antwort
Rot VBA - Satz von Legendre
 05.01.2011 12:38:31 kizZle
NotSolved
06.01.2011 10:46:06 Holger
NotSolved

Ansicht des Beitrags:
Von:
kizZle		 Datum:
05.01.2011 12:38:31		 Views:
1679		 Rating:
     
Antwort:
  Ja
Thema:
VBA - Satz von Legendre
Hallo liebe User,

für mein Studienprojekt, soll mit Hilfe des Satzes von Legendre, die Quersumme einer zuvor berechneten Binärzahl berechnet werden. Leider ist dieser Weg vorgeschrieben, weshalb es sich für mich nicht einfach gestaltet, herauszufinden, weshalb mir ab einem gewissen Wert nur noch falsche Zahlen ausgerechnet werden. Aus diesem Grund wende ich mich an euch.

Die Formel lautet wie folgt:

QuerSummeBin := n - (k - 1) * [IMG]http://img145.imageshack.us/img145/2426/unbenannt2ae.jpg[/IMG]


Es handelt sich um folgenden Code:


Public Function QuerSummeBin(DezZuBin As String) As Variant
Dim i As Integer
Dim n As Variant
Dim k As Integer
Dim Summe As Variant
Dim Schleife As Variant


n = Val(DezZuBin)
Summe = 0
i = 1
k = 10

Do

Summe = Fix(n / k ^ i)
Schleife = Schleife + Summe

i = i + 1

Loop Until Summe = 0



QuerSummeBin = n - (k - 1) * Schleife
End Function


Zur Erklärung: DezZuBin ist hier der Binärcode, welcher in einer vorherigen Function bereits berechnet und als String übergeben wurde. Hierbei handelt es sich also ausschließlich um 0 und 1.
Der Rest müsste eigentlich aus dem Code schon ersichtlich sein.

Wie schon kurz angedeutet, ist der Ausgabewert bei 17 Stellen des Binärwertes richtig. Alles darüber ergibt wirre Werte.
Hat jemand vielleicht eine Idee woran das liegen könnte? In Excel kann man ja Variablen in die Überwachung hinzufügen. Meiner Meinung nach, werden alle Rechnungen in der Schleife korrekt ausgeführt. Erst am Schluss entsteht dieser seltsame Wert.

Mit freundlichem Gruß!

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA - Satz von Legendre
 05.01.2011 12:38:31 kizZle
NotSolved
06.01.2011 10:46:06 Holger
NotSolved