[VBA] Hilfe

[yihaaa]

Hey, ich brauche Hilfe in VBA.

If (dec And 2 ^ x) Then

dec ist ein Interger und x ist ein Counter, der von NULL immer eins erhöht wird.

Kann mir jemand diese Abfrage erklären?

MfG

[MoepMeep]

Totaler schwachsinn.

Es sei denn, dass ganze soll einen Bitweisen vergleich dastellen. Wann nehmt ihr endlich Sprachen mit einer vernünftigen Syntax? :<

[yihaaa]

Wieso sollte das totaler Schwachsinn sein? Hier ist der ganze Code.

Function Dec2Bin(dec As Integer) As String
    Dim x As Integer
    x = 0

   If dec >= 2 ^ 32 Then
        Call MsgBox("Zahl ist größer als 32 Bit")
        Exit Function
   End If

   Do
        If (dec And 2 ^ x) Then     '!!!
            Dec2Bin = "1" & Dec2Bin
            'MsgBox Dec2Bin & "/" & dec & "/" & 2 ^ x
        Else
            Dec2Bin = "0" & Dec2Bin
            'MsgBox Dec2Bin & "/" & dec & "/" & 2 ^ x
        End If
        
        x = x + 1
    Loop Until 2 ^ x > dec 'True
End Function

[MoepMeep]

Originally Posted by yihaaa

Wieso sollte das totaler Schwachsinn sein? Hier ist der ganze Code.

Function Dec2Bin(dec As Integer) As String
    Dim x As Integer
    x = 0

   If dec >= 2 ^ 32 Then
        Call MsgBox("Zahl ist größer als 32 Bit")
        Exit Function
   End If

   Do
        If (dec And 2 ^ x) Then     '!!!
            Dec2Bin = "1" & Dec2Bin
            'MsgBox Dec2Bin & "/" & dec & "/" & 2 ^ x
        Else
            Dec2Bin = "0" & Dec2Bin
            'MsgBox Dec2Bin & "/" & dec & "/" & 2 ^ x
        End If
        
        x = x + 1
    Loop Until 2 ^ x > dec 'True
End Function

Lies den ganzen Post.
Übrigens ist VBA kein .net.
Und von Basis 10 zu Basis 2 macht man ganz sicher nicht so.

        return (zahl == 0)
                ? zahl
                : (zahl % zielBasis) + startBasis*konvertiere(zahl / zielBasis, 
                                                        startBasis, zielBasis);

Geht problemlos bis Basis 10 ;o

[yihaaa]

Ja genau weil das auch so geht. Gibt es jemanden anders hier der mir mit meiner Frage helfen kann?
@MoepMeep: Wenn du schon 9x klug bist, in welche Sectoin hätte ich es sonst posten sollen?
Warum macht man das nicht so?

[MoepMeep]

Originally Posted by yihaaa

Ja genau weil das auch so geht. Gibt es jemanden anders hier der mir mit meiner Frage helfen kann?

Hier und nun geh Grundlagen lernen.

@MoepMeep: Wenn du schon 9x klug bist, in welche Sectoin hätte ich es sonst posten sollen?

General coding? ;o

Warum macht man das nicht so?

Ernstgemeinte Frage? Das ist absolut hässlich.

[yihaaa]

Sag mal willst du mich verarschen? Wenn du alles weißt dann sag mir wieso eine null in den String eingetragen wird, obwohl beide Werte ungleich Null sind?
Btw: Klasse Link
Gelöst, kann wer closen.