Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: 2 und 4 und 8 und 16
Autor: unbekannt
Datum: 10.08.02 19:18
Hi Seb, wozu hast Du VBEx32.DLL? Lasse Dir doch die Zahl binär ausgeben. Dann beginnst Du von links nach rechts die Sache auszuwerten und zwar so: .... Binärwert der Zahl ist in sBin$ enthalten. ' Temporäres Feld für max 32 Bits Dim sByte(32) As Long ' Achtung! Wir können ja bis 32 Bit!!!   For i = 32 To 1 Step -1 If Mid(sBin$,i,1) = "1" Then sByte(i) = i ^ 2: Else sByte(i)=0 Next jetzt brauchst Du nur noch das Feld nach Werten durchlaufen, die größer als 0 sind. Diese kannst Du wie belieben Variablen zuweisen. cu Lordchen

2 und 4 und 8 und 16	79	seb	10.08.02 19:05
Re: 2 und 4 und 8 und 16	339	unbekannt	10.08.02 19:18
Re: 2 und 4 und 8 und 16	47	seb	10.08.02 19:48

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