Was steht denn in BITFOLGE am Anfang? Ist das ein 8stelliger String mit 1 und 0? In dem Fall kann es so nicht gehen.
Ersetze die Zeile mal durch folgende:
EINBYTE = Mid(BITFOLGE, 7-n, 1) * (2^n)

Und baue ein paar debug.print ein, um zu sehen, dass auch die Zwischenschritte richtig rechnen. Bei deiner jetzigen Formel halte ich korrekte Ergebnisse ehr für Zufall

_________________
Reboot oder be root, das ist hier die Frage.

Hallo.

danke für die schnelle Hilfe!!!

@clembra

EINBYTE = Mid(BITFOLGE, 7-n, 1) * (2^n)
...wenn ich die 7 in der obrigen Zeile gegen eine 8 tausche funktioniert es!!!!

Kann ich Bytes genausoleicht in Bits umrechern?

Gruß

Moment mal.

Warum der Aufwand? Woher kommen die Daten als 0-1-String?? Welches Programm gibt denn sowas aus??

Die laufenden Zweierpotenzen sind zwar mathematisch völlig korrekt, ergeben aber in diesem Zusammenhang kaum Sinn. Dazu nimmt man besser reine Multiplikationen mit 2 (Schiebeoperation).
Das 2^n ist mathematisch ja völlig richtig, bemüht aber intern Gleitpunktrechnung, was hier völlig überflüssig ist.

Die "Umwandlung" von Byte in einen 1-0-String erfolgt analog. Mit UND kann herausgefunden werden, ob an einer bestimmten Stelle ein Bit gesetzt ist, im String wird dies mit einer "1" oder "0" bewertet und dann schiebt man alle Bits im Byte eine Stelle nach links oder rechts, je nach dem, welches Bit man abfragt.

Beispiel:

Byte input_byte
String Bits
Char(Bits, "0", 8 )
Byte i

For i = 0 To 7 Step 1

If(input_byte And &H80) Then
Mid(Bits, i, 1) = "1" ' *
End If

input_byte = input_byte * 2

End For


Immer noch ein Wahnsinn an Ressourcenverbrauch, wenn man sich den erzeugten Maschinenkode anschauen würde.
Mit Mid(Bits, i, 1) wird glaube ich das entsprechende Zeichen an der i-ten Stelle in den String geschrieben. Ich kenne mich mit BASIC aber nicht mehr gut aus, ist Jaaahre her.
Char(Bits, "0", 8 ) müsste es auch geben, füllt den String mit Nullen auf, und zwar die ersten 8 Stellen.


Edit:
(*) gilt so nur, wenn der String beim Index 0 beginnt. Ansonsten von i=1 bis 8 laufen.

Nochmal: hier werden keine Bits in Bytes umgerechnet! Hier wird eine Zeichenkette, die nur 1 oder 0 enthält in eine gewichtete Binärzahl umgerechnet.


Schildere doch mal, wo die 1-0-Strings herkommen? Vielleicht kann man sich das alles sparen, wenn man an einer anderen Stelle ordentlicher arbeitet.

_________________


[ Diese Nachricht wurde geändert von: DonComi am 23 Jan 2010 18:24 ]

Dem Kommentar von Endhülse oben zufolge fängt VB bei 1 an, dass das auch überall anders ist
Also eine allgemeine Funktion hatte ich mal (zu Windows-Zeiten, lange her), die sah etwa wie folgt aus (Syntaxfehler inbegriffen). Diese Methoden haben den Vorteil, dass sie auch funktionieren, wenn der Bitstring mal nicht genau 8 Zeichen lang ist. Hauptsächlich verwendet hatte ich die aber nur für irgendwelche Ein/Ausgabefunktionen.

Code :

Public Function BinToDec(BinString As String) As Integer 's.u. Dim Return as Byte ' bzw. Int. bei bis zu 15 Bits und Long bei 16 und mehr Bits Dim I As Byte Return = 0 For I = Len(Bitstring) To 1 Step -1 If Mid(BinString, I, 1) = "1" Then Return = Return + 1 End If Return = Return * 2 Next BinToDec = Return End Function Public Function DecToBin(DecNumber As Integer) As String 's.u. Dim Return as String Dim I As Byte Dim Test as Integer Return = "" Test = 1 While (DecNumber) If DecNumber And Test Then Return = "1" & Return DecNumber = DecNumber - Test Else Return = "0" & Return End If Test = Test * 2 Wend DecToBin = Return End Function

Aber das sind auch nur Funktionen für "Notfälle", normalerweise ist es klüger direkt mit Zahlwerten, also den Typen Byte, Integer, Long, etc. zu rechnen.

_________________
Reboot oder be root, das ist hier die Frage.

Ich habe hier das Gefühl, dass z.B. Checkbox-Zustände übertragen werden sollen und die Zustände durch Einsen und Nullen in einer Zeichenkette repräsentiert werden.

Sollte dem so sein, ließe sich das auch wesentlich einfacher machen, wenn man, wie Clembra andeutete, direkt Ganzzahlen dafür verwendet, indem man gezielt Bits setzt oder löscht.
Bits löscht man mit UND, setzen mit ODER.
Jeder Prozessor kann das i.d.R. mit einer Instruktion ausführen.

_________________

Hallo.

Was ich grundsätzlich möchte:
Ich möchte Daten von der C-Control lesen bzw vom Pc senden.
Das bedeutet das ich in VB acht Schalter habe die ich halt Ein bzw Aus schalten kann.
Außerdem möchte ich Analogwerte senden/empfangen (0-255).
Also sind die acht Schalter meine acht Bits.
(Das/die Analogsignal/e werden danach gesendet (auch als Byte).)

Da nun die Analogwerte eh als Byte gesendet werden, dachte ich das ich die 8 Bits der Schalterstellung auch als Byte sende.

...
eure Meinung?

Moin Endhülse!


Genau das hatte ich mir gedacht.
Der Umweg über eine Zeichenkette ist überflüssig, du kannst doch Bits direkt in einer Variablen des Types BYTE setzen oder zurücksetzen, wie du willst.

Gehe wie folgt vor:

1. lege eine globale Variable des Typs BYTE an, setzte sie und alle Schalter auf 0.

2. in den Events, die ausgeführt werden, wenn der korrespondierende Schalter gedrückt wird, setzt du in dieser Variablen das entsprechende Bit. Wird Schalter 4 gedrückt, dann setzt du in der Variablen das Bit 3 mit

Var = Var OR &H8
.

Soll nun der Status der acht Schalter übertragen werden, brauchst du bloß diese globale Variable zu übertragen.
Entsprechend gehst du vor, wenn der Schalter ausgeschaltet wird. Mit einem UND kann man gezielt Bits löschen, z.B. in diesem Fall:

Var = Var AND (&HFF - &H8)
.

Schaue dir zum besseren Verständnis an, wie die gewichtete Binärkodierung funktioniert. Man beginnt in diesem Bereich eigentlich immer bei 0 an zu zählen, das unterscheidet Informatiker von Mathematikern (wobei die Informatik ja aus der Mathematik hervorging).

Meine Meinung?
Visual BASIC abstrahiert soo stark, dass der Programmierer offensichtlich keine große Ahnung mehr haben muss. Leider.


_________________


[ Diese Nachricht wurde geändert von: DonComi am 24 Jan 2010 14:19 ]

Danke für eure Hilfe!!!

@DonComi

Das hört und sieht interessant aus... damit werde ich mich mal beschäftigen.

bis demnächst...