BIT

Mener du ikke byte?
1 byte er 8 bit.
Et ASCII tegn fylder 1 byte, hvilket giver 256 forskellige slags.

1101110100010110000101000001

[Redigeret d. 28/01-05 15:42:56 af Nicolai Lyster Fersner]

Hovsa, trykkede 2 gange..

1101110100010110000101000001

[Redigeret d. 28/01-05 15:21:56 af Nicolai Lyster Fersner]

nej jeg mener bit, fordi jeg skal flytte bit'sne rundt til andre pladser, altså nullerne og ettallerne skal jeg flytte og ikke en række nuller og ettaller.
det er derfor jeg har et problem.

ps. jeg ved godt hvor lang en byte er, eftersom jeg lige har læst en masse bøger der bruger bits og ikke bytes om det.

[Redigeret d. 28/01-05 15:26:21 af Andreas]

OK, min fejl... lød bare som en almindelig forveksling... desværre kan jeg ikke lige hjælpe dig i dette sprog.

1101110100010110000101000001

hvordan laver man en tekst om til bit, som hører til en array, dvs. at første bit ligger i test(0) og anden i test(1) osv.? og tilbage igen?
desuden vil jeg høre om der findes der en funktion til at få fat på f.eks. de 3 sidste bit i en array udover at bruge FOR?

Hej jeg har lavet noget kode.
Og jeg tror at du kan bruge den.
Den laver dem ikke i et array men i en string.

Function BIT(CHAR As Byte) As String
Debug.Print CHAR
Dim NOTE As Integer
NOTE = 128
BIT = ""
For I = 0 To 7
    If CHAR - NOTE < 0 Then
    BIT = "0" & BIT
    Else
    CHAR = CHAR - NOTE
    BIT = "1" & BIT
    End If
    NOTE = NOTE / 2
Next I
End Function

Function BITS(CHARS As String) As String
BITS = ""
For I = 1 To Len(CHARS)
BITS = BITS & BIT(Asc(Mid(CHARS, I, 1))) & "-"
Next I
End Function

Så du kan bare kalde den sådan.

Dim MineTal as string
MineTal=BITS("Her kan du skrive hvad du giver...")
msgbox minetal

Håber du kan bruge den.
---
En hånd på armen er bedre end to i skraldespanden!... ehh.. :/?