vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Blitzschnelles Erstellen von grafischen Diagrammen!  
 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

Suche Visual-Basic Code
Re: an CyberLord 
Autor: unbekannt
Datum: 11.10.01 18:52

Hi Claus,

Funktiönchen gibt exakt 49 als Dezimal aus - prima Das ist der Ascii-Wert von 1.
Ich denke, für Deine Zwecke machen wir eine kleine Änderung in der Funktion:

' Function Byte2BinHex(Byte, Modus)
' Byte = ein Byte aus einer Datei oder Teil eines Strings
' Modus 0 = Rückgabewert String Binär
' Modus 1 = Rückgabewert String Hexadezimal
Private Function Byte2BinHex(ByVal sDatByte As String, _
  ByVal nModus As Byte) As String
 
  Dim i As Integer
  Dim n As Byte
  Dim b As Boolean
  Dim BinString As String
 
  ' Prüfen, ob der übergebene String aus exakt einem
  ' Zeichen besteht
  If sDatByte = "" Then Exit Function
  If Len(sDatByte) > 1 Then Exit Function
 
  ' Ascii-Wert des Zeichens
  n = Asc(sDatByte)
 
  Select Case nModus
    ' Umwandeln in binäre Darstellung
    Case 0
      For i = 7 To 0 Step -1
        If (n - 2 ^ i) >= 0 Then
          BinString = BinString + "1"
          n = n - 2 ^ i
          b = True
        ElseIf b Then
          BinString = BinString + "0"
        End If
      Next
 
 'Die vorherige Funktion hat die Nullen am Binärstring entfernt, für Deine 
 ' Zwecke
        'fügen wir fehlende Nullen hinzu, so dass der Binärstring ausgeglichen 
        ' wird:
      If Len(BinString)<8 Then BinString = String(8-(Len(BinString),"0") & _
        BinString       
      Byte2BinHex = BinString
 
    ' Umwandeln in hexadezimale Darstellung
    Case 1
      Byte2BinHex = Hex(n)
 
    Case Else
      Byte2BinHex = "0"
  End Select
End Function
so, aber jetzt.

cu
Lordchen
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
an CyberLord60Claus10.10.01 12:47
Umrechnen51kally11.10.01 11:05
Re: an CyberLord281unbekannt11.10.01 18:52
Re: an CyberLord33Claus11.10.01 19:39

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