Español
Fuente/ Codesnippets

Aufgefüllt Gruppiert Hexadezimalzahlen Konverter Myhex

 

Michael
Wodrich
siehe Erklärung en el Code-Zona...
KompilierenMarcaSeparación
MyHex$
by Michael Wodrich
Funktioniert "ähnlich" wie @Hex$.
Die Unterschiede:
Die Funktion arbeitet die Halbbytes mit einer Bitmaske ab und kann
so auch führende Nullen zurückgeben.
ABER: Es wird nicht geprüft, ob auch alle relevanten Stellen
abgearbeitet wurden! Gibt man also MyHex$($FEDC,3) an, dann
wird nur $EDC verarbeitet.
Das ist aber gewollt: es wird dann nur der untere Bereich ausgegeben
(ließe sich mit Angabe eines Startwertes noch ausbauen).
Der Programmierer sollte den Zahlenbereich also vorher abtesten.
Der 3. Parameter ist optional und kann die Ausgabe mit Leerzeichen gruppieren.

Proc MyHex$

    If %PCount > 2

        Parameters Wert&,Laenge%,Grp%

    Else

        Parameters Wert&,Laenge%
        Declare Grp%
        Grp% = 64

    EndIf

    Declare Ergebnis$,Maske&,GrpCnt%,HexStr$,Hexa%,ShiftCnt%
    Clear Ergebnis$,ShiftCnt%
    Maske& = $F
    GrpCnt% = Grp%
    HexStr$ = "0123456789ABCDEF"

    While Laenge%

        Dec Laenge%
        Dec GrpCnt%
        Hexa% = If(ShiftCnt%,((Wert& & Maske&) >> (ShiftCnt% * 4)) + 1,(Wert& & Maske&) + 1)
        Ergebnis$ = Mid$(HexStr$,Hexa%,1) + Ergebnis$

        If (GrpCnt% = 0) and (Laenge% > 0)

            Ergebnis$ = Chr$(32) + Ergebnis$
            GrpCnt% = Grp%

        EndIf

        Maske& = Maske& << 4
        Inc ShiftCnt%

    EndWhile

    Return Ergebnis$

EndProc

Cls
Print "1111.0000.1010.0101 - F0A5:",MyHex$(%1111000010100101,1)
Print "1111.0000.1010.0101 - F0A5:",MyHex$(%1111000010100101,2)
Print "1111.0000.1010.0101 - F0A5:",MyHex$(%1111000010100101,4)
Print "1111.0000.1010.0101 - F0A5:",MyHex$(%1111000010100101,4,2);"
"
Print "$FDFD:",MyHex$($FDFD,8)
Print "$FDFD:",MyHex$($FDFD,8,2)
Print "$FDFD:",MyHex$($FDFD,8,4)
WaitKey
ss=s4 href='./../../references-fonction/XProfan/end/'>End
 
Programmieren, das spannendste Detektivspiel der Welt.
14.12.2005  
 



Zum Quelltext


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

4.018 Views

Untitledvor 0 min.
E.T.14.01.2024
Jupp Fitten22.11.2012
Julian Schmidt13.10.2011

Themeninformationen

Dieses Thema ha 1 subscriber:

Michael Wodrich (1x)


Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie