vba:cast:bitandbyte
Differences
This shows you the differences between two versions of the page.
| Both sides previous revision Previous revision Next revision | Previous revision Last revision Both sides next revision | ||
|
vba:cast:bitandbyte [30.04.2014 11:25:58] yaslaw [Definition] |
vba:cast:bitandbyte [30.04.2014 12:02:26] yaslaw [[VBA] bitArray(), char2byte() und byte2char()] |
||
|---|---|---|---|
| Line 1: | Line 1: | ||
| - | ====== [VBA] bitArray() char2byte() und byte2char()====== | + | ====== [VBA] bitArray(), char2byte() und byte2char()====== |
| + | {{:vba:cast:bitandbyte.bas|Download bitAndBytes.bas Version 1.0}} | ||
| Drei Funktionen im Umgang mit Bits. | Drei Funktionen im Umgang mit Bits. | ||
| - bitArray() zerlegt ein Zahl in ihre Bit-Teile. Ist also das Rekusive zu 1+2+4+8+... | - bitArray() zerlegt ein Zahl in ihre Bit-Teile. Ist also das Rekusive zu 1+2+4+8+... | ||
| Line 62: | Line 64: | ||
| ) | ) | ||
| </code> | </code> | ||
| - | ====Code==== | + | |
| + | =====char2byte()===== | ||
| + | |||
| + | ====Definition==== | ||
| + | <code vb> | ||
| + | Public Function char2byte( | ||
| + | ByVal iChar As Variant, | ||
| + | Optional iBitCode As baBitCode = baDefault | ||
| + | ) As String | ||
| + | </code> | ||
| + | ***iChar** Charakter, der gewandelt werden soll. Null wird als 0 gewertet | ||
| + | ***iBitCode** Die Codierung. baAscii oder ba BCD | ||
| + | |||
| + | ====Beispiele==== | ||
| + | <code vb> | ||
| + | 'example 1) Byte einer Zahl. Zahlen sind tandart nach BCD-Codierung | ||
| + | print_r getByte(9) | ||
| + | <String> '1001' | ||
| + | |||
| + | 'example 2) Dito, aber nach ASCII-Codierung | ||
| + | print_r getByte(9, baASCII) | ||
| + | <String> '10011100' | ||
| + | |||
| + | 'example 3) String, Standart nach Ascii | ||
| + | print_r getByte("A") | ||
| + | <String> '10000010' | ||
| + | |||
| + | 'example 4) Null, Standart nach Ascii | ||
| + | print_r getByte(Null, baBCD) | ||
| + | <String> '00000000' | ||
| + | |||
| + | 'example 5) Null nach BCD | ||
| + | print_r getByte(Null) | ||
| + | <String> '0000' | ||
| + | </code> | ||
| + | |||
| + | =====byte2char()===== | ||
| + | |||
| + | ====Definition==== | ||
| + | <code>Public Function byte2char(ByVal iByte As String) As Variant</code> | ||
| + | ***iByte** Byte, das in ein Charakter gewandelt werden soll | ||
| + | |||
| + | ====Beispiele==== | ||
| + | <code vb> | ||
| + | 'example 1) Byte einer Zahl. Zahlen sind tandart nach BCD-Codierung | ||
| + | print_r getChar("1001") | ||
| + | <Integer> 9 | ||
| + | |||
| + | 'example 2) Dito, aber nach ASCII-Codierung | ||
| + | print_r getChar("10011100") | ||
| + | <String> '9' | ||
| + | |||
| + | 'example 3) String, Standart nach Ascii | ||
| + | print_r getChar("10000010") | ||
| + | <String> 'A' | ||
| + | |||
| + | 'example 4) Null, Standart nach Ascii. Es kommt die Rückgabe von chr(NULL) zurück | ||
| + | print_r getChar("00000000") | ||
| + | <String> '\u0000' | ||
| + | |||
| + | 'example 5) Null nach BCD. Ist nciht mehr von 0 unterscheidbar | ||
| + | print_r getChar("0000") | ||
| + | <Integer> 0 | ||
| + | </code> | ||
| + | |||
| + | =====Codes===== | ||
| + | ====Code bitArray()==== | ||
| <code vb> | <code vb> | ||
| '/** | '/** | ||
| Line 103: | Line 171: | ||
| bitArray = retArray | bitArray = retArray | ||
| End Function | End Function | ||
| - | <code> | ||
| - | |||
| - | =====char2byte()===== | ||
| - | |||
| - | ====Definition==== | ||
| - | <code vb> | ||
| - | Public Function char2byte( | ||
| - | ByVal iChar As Variant, | ||
| - | Optional iBitCode As baBitCode = baDefault | ||
| - | ) As String | ||
| </code> | </code> | ||
| - | ***iChar** Charakter, der gewandelt werden soll. Null wird als 0 gewertet | ||
| - | ***iBitCode** Die Codierung. baAscii oder ba BCD | ||
| - | ====Beispiele==== | + | ====Code char2byte==== |
| - | <code vb> | + | |
| - | 'example 1) Byte einer Zahl. Zahlen sind tandart nach BCD-Codierung | + | |
| - | print_r getByte(9) | + | |
| - | <String> '1001' | + | |
| - | + | ||
| - | 'example 2) Dito, aber nach ASCII-Codierung | + | |
| - | print_r getByte(9, baASCII) | + | |
| - | <String> '10011100' | + | |
| - | + | ||
| - | 'example 3) String, Standart nach Ascii | + | |
| - | print_r getByte("A") | + | |
| - | <String> '10000010' | + | |
| - | + | ||
| - | 'example 4) Null, Standart nach Ascii | + | |
| - | print_r getByte(Null, baBCD) | + | |
| - | <String> '00000000' | + | |
| - | + | ||
| - | 'example 5) Null nach BCD | + | |
| - | print_r getByte(Null) | + | |
| - | <String> '0000' | + | |
| - | </code> | + | |
| - | + | ||
| - | ====Code==== | + | |
| <code vb> | <code vb> | ||
| '/** | '/** | ||
| Line 175: | Line 208: | ||
| </code> | </code> | ||
| - | =====byte2char()===== | + | ====Code byte2char== |
| - | + | ||
| - | ====Definition==== | + | |
| - | <code>Public Function byte2char(ByVal iByte As String) As Variant</code> | + | |
| - | ***iByte** Byte, das in ein Charakter gewandelt werden soll | + | |
| - | + | ||
| - | ====Beispiele==== | + | |
| - | <code> | + | |
| - | 'example 1) Byte einer Zahl. Zahlen sind tandart nach BCD-Codierung | + | |
| - | print_r getChar("1001") | + | |
| - | <Integer> 9 | + | |
| - | + | ||
| - | 'example 2) Dito, aber nach ASCII-Codierung | + | |
| - | print_r getChar("10011100") | + | |
| - | <String> '9' | + | |
| - | + | ||
| - | 'example 3) String, Standart nach Ascii | + | |
| - | print_r getChar("10000010") | + | |
| - | <String> 'A' | + | |
| - | + | ||
| - | 'example 4) Null, Standart nach Ascii. Es kommt die Rückgabe von chr(NULL) zurück | + | |
| - | print_r getChar("00000000") | + | |
| - | <String> '\u0000' | + | |
| - | + | ||
| - | 'example 5) Null nach BCD. Ist nciht mehr von 0 unterscheidbar | + | |
| - | print_r getChar("0000") | + | |
| - | <Integer> 0 | + | |
| - | </code> | + | |
| - | + | ||
| - | ====Code==== | + | |
| <code vb> | <code vb> | ||
| '/** | '/** | ||
vba/cast/bitandbyte.txt · Last modified: 29.04.2015 11:15:38 by yaslaw
Page Tools
Except where otherwise noted, content on this wiki is licensed under the following license: GNU Free Documentation License 1.3
