[VBA] Hilfe

12/31/2011 12:49 yihaaa#1
Hey, ich brauche Hilfe in VBA.

Code:
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
12/31/2011 13:35 MoepMeep#2
Totaler schwachsinn.

Es sei denn, dass ganze soll einen Bitweisen vergleich dastellen. Wann nehmt ihr endlich Sprachen mit einer vernünftigen Syntax? :<
12/31/2011 14:02 yihaaa#3
Wieso sollte das totaler Schwachsinn sein? Hier ist der ganze Code.
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
12/31/2011 14:54 MoepMeep#4
Quote:
Originally Posted by yihaaa View Post
Wieso sollte das totaler Schwachsinn sein? Hier ist der ganze Code.
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.

Code:
        return (zahl == 0)
                ? zahl
                : (zahl % zielBasis) + startBasis*konvertiere(zahl / zielBasis, 
                                                        startBasis, zielBasis);
Geht problemlos bis Basis 10 ;o
12/31/2011 15:49 yihaaa#5
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?
12/31/2011 17:08 MoepMeep#6
Quote:
Originally Posted by yihaaa View Post
Ja genau weil das auch so geht. Gibt es jemanden anders hier der mir mit meiner Frage helfen kann?
Hier [Only registered and activated users can see links. Click Here To Register...] und nun geh Grundlagen lernen.

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

Quote:
Warum macht man das nicht so?
Ernstgemeinte Frage? Das ist absolut hässlich.
12/31/2011 17:42 yihaaa#7
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 :D
Gelöst, kann wer closen.