Kommentar: Einfügen von HTML im Kommentar: Link einfügen: <a href="LINKURL" target="_blank">LINKTITEL</a> Bild einfügen: <img src="BILDURL"> Text formatieren: <b>fetter Text</b> <i>kursiver Text</i> <u>unterstrichener Text</u> Kombinationen sind auch möglich z.B.: <b><i>fetter & kursiver Text</i></b> C Quellcode formatieren: <code>Quellcode</code> BASIC Quellcode formatieren: <basic>Quellcode</basic> (Innerhalb eines Quellcodeabschnitts ist kein html möglich.) Wichtig: Bitte mache Zeilenumbrüche, bevor Du am rechten Rand des Eingabefeldes ankommst ! -> I > > > eine simple Rechnung mit Word Variablen führt bei mir > > > jedesmal ab 2^15 zu Overflow: > > > > > > #define Cons 4464 > > > > > > Sub Test() > > > Dim W As Word > > > Dim I As Integer > > > For I = 0 To 11 > > > W = I * Cons > > > W = W / Cons > > > > > > Print_Zahl(W) : Put(Tab) : Print_Zahl(W < 20) : NEWLINE() > > > Next > > > End Sub > > > > > > mit dem Ergebnis: > > > > > > 0 1 > > > 1 1 > > > 2 1 > > > 3 1 > > > 4 1 > > > 5 1 > > > 6 1 > > > 7 1 > > > 65530 0 ab hier scheint intern ein Integer Overflow einzutreten. Die Word Grenze > > > 65531 0 ist noch lange nicht erreicht. Das Flag wird ausgegeben, um auszuschliessen > > > 65532 0 dass der Fehler bei der Zahlendarstellung eintritt. > > > 65533 0 > > > > > > Was machen? > > > > Beim Versuch eine Umgehungslösung zu finden, fiel mir ein weitere > > Ungereimtheit auf: > > > > #define Cons 4464 > > #define Grenze 31248 > > Sub Test() > > Dim W As Word > > Dim B As Byte > > Dim I As Integer > > For I = 0 To 11 > > W = I * Cons > > Print_Zahl(W) : Put(Tab) > > B = 0 > > If W > Grenze Then > > B = 1 : W = W - Grenze > > End If > > W = W / Cons > > W = W + 7 * B > > > > Print_Zahl(W) : Put(Tab) : Print_Zahl(B) : NEWLINE() > > Next > > End Sub > > > > ergibt: > > 0 0 0 > > 4464 1 0 > > 8928 2 0 > > 13392 3 0 > > 17856 4 0 > > 22320 5 0 > > 26784 6 0 > > 31248 7 0 > > 35712 65530 0 Ab hier wieder falsch, "W > Grenze" wird nicht erkannt > > 40176 65531 0 > > 44640 65532 0 > > 49104 65533 0 > > > > Anscheinend verwaltet der Compiler das Word Format intern wie Integer > > > > Weiterer Test: > > #define Cons 4464 > > #define Grenze 31248 > > Sub Test() > > Dim W As Integer > > Dim B As Byte > > Dim I As Integer > > For I = 0 To 11 > > W = I * Cons > > Print_Zahl(W) : Put(Tab) > > B = 0 > > If W < 0 Then > > B = 1 : W = W - Grenze > > End If > > W = W / Cons > > W = W + 7 * B > > > > Print_Zahl(W) : Put(Tab) : Print_Zahl(B) : NEWLINE() > > Next > > End Sub > > > > Hier ist W vom Format Integer und es wird bewusst auf Overflow (W < 0) abgefragt. > > Das Ergebnis in diesem Fall ist richtig. > > 0 0 0 > > 4464 1 0 > > 8928 2 0 > > 13392 3 0 > > 17856 4 0 > > 22320 5 0 > > 26784 6 0 > > 31248 7 0 > > 35712 8 1 > > 40176 9 1 > > 44640 10 1 > > 49104 11 1 > > > > Frage: Wie kann ich mit Word Variablen bei Werten > 2^15 richtig rechnen, vergleichen? > > Fehler: Natürlich sind es die Werte > 2^14 und < 2^15 mit denen ich rechnen will.
