Kleines Variablenproblem

[berger_84]

Moin Leute.

Bin gerade daran eine Wetterstation zu machen. Gewisse dinge werden Analog ausgelesen gewisse dinge Digital.

Bei den Digitalen eingängen muss ich das ganze Ja bit für Bit auswerten.

Hier mein kleiner VB-Code

Private Sub Command1_Click()
'Umwandlung in Binär
Label10.Caption = DezBin(Text1.Text)

'Statusmonitor
Dim lsText As String
Dim liLaenge As Long
Dim x As Integer
Dim Status As String


lsText = Label10.Caption

liLaenge = Len(lsText)

For x = 1 To liLaenge
    
    Status = "Shape" & x
    If CStr(Mid$(lsText, x, 1)) > 0 Then
    Form1.Status.FillColor = &HFF00&
    End If
Next


End Sub

'Funktion Binärumwandlung
Private Function DezBin(Dez) As String
    Dim x As Integer

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

   Do
        If (Dez And 2 ^ x) Then
            DezBin = "1" & DezBin
        Else
            DezBin = "0" & DezBin
        End If
        
        x = x + 1
    Loop Until 2 ^ x > Dez
End Function

Zuerst wird die Funktion aufgegrufen um meine Zahl in das Binäre system umzuwandeln - und danach wird sie zerlegt.

Funktioniert soweit so gut alles - nur bei dem Teil hier komm ich nicht weiter.

    Status = "Shape" & x
    If CStr(Mid$(lsText, x, 1)) > 0 Then
    Form1.Status.FillColor = &HFF00&
    End If

Er gibt mir das "Status" bei Form1.Status als falsch aus. Was muss ich machen damit ich bei dem Form1......Fillcolor eine Variable benutzen kann? Oder muss ich das ganz anderst angehen?

Das ganze sollte bewirken das wenn

ich 1 = True bekomme in meinem Programm mein Shape grün gefärbt wird und bei 0 = Rot ( Dies ist nicht das Progi für die Wetterstation - just für den Statusmonitor )

 

[Alex F.]

in Form 1 musst du nur die Property hinzufügen

BSP:

Public Property Let MyFillColor(value As OLE_COLOR)
    Me.BackColor = value
    
End Property

und natürlich auch die lesen Eigenschaft

Public Property Get MyFillColor() As OLE_COLOR
    Me.BackColor = value
    
End Property

Grüsse bb