Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Doch nicht die Korrektur übernommen *grmmml*
Autor: unbekannt
Datum: 03.08.02 16:13
' Function Decimal - > Binär Private Function Dec2Bin(ByVal nVal As Long) As String Dim sErg As String Dim i As Long ' <--- sonst Überlauffehler Dim n As Long n = nVal For i = 31 To 0 Step -1 If (n - 2 ^ i) >= 0 Then sErg = sErg + "1" n = n - 2 ^ i Else sErg = sErg + "0" End If Next Dec2Bin = sErg End Function

Dezimalzahlen umwandeln in das Dualzahlensystem	60	Inmate1212	03.08.02 10:47
Re: Dezimalzahlen umwandeln in das Dualzahlensystem	382	unbekannt	03.08.02 16:09
Doch nicht die Korrektur übernommen *grmmml*	289	unbekannt	03.08.02 16:13

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen