vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Allgemeine Diskussionen
Re: bits aus byte-Wert auslesen 
Autor: Zardoz
Datum: 16.01.04 18:28
Hallo Hightower,
das sollte schneller sein: 
S = 0
Do While Wert > 0
  S = S + (Wert And 1)
  Wert = Wert \ 2
Loop
MsgBox "Bitanzahl = " & S
benutzerdefinierte Variablen würde ich, aus Geschwindigkeitsgründen,
in der Schleife nicht verwenden. Wenn es noch schneller gehen soll, beim
Programmstart eine Liste mit sämtlichen Varianten erstellen: 
Option Explicit
Private Summe%(255)
 
Private Sub Form_Load()
 
Dim i%, S%, Wert%
 
For i = 0 To 255
  Wert = i
  S = 0
  Do While Wert > 0
    S = S + (Wert And 1)
    Wert = Wert \ 2
  Loop
  Summe(i) = S
Next i
 
End Sub
Dann kann man die Bitanzahl so abrufen: 
MsgBox Summe(uRLE.Muster)

Gruss,

Zardoz

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
bits aus byte-Wert auslesen775hightower_20216.01.04 12:20
Re: bits aus byte-Wert auslesen550Zardoz16.01.04 18:28
Re: bits aus byte-Wert auslesen422hightower_20219.01.04 07:57

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übersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel