Thema Datum  Von Nutzer Rating
Antwort
21.07.2023 07:50:38 Gast75905
Solved
21.07.2023 10:38:15 Mase
NotSolved
21.07.2023 11:21:26 Gast27906
*****
NotSolved
21.07.2023 11:35:34 Mase
NotSolved
21.07.2023 11:42:08 Gast27906
NotSolved
21.07.2023 14:05:16 Gast27905
NotSolved
Rot Status-Byte zerlegen
 21.07.2023 12:17:39 Gast75905
NotSolved
21.07.2023 12:46:22 Mase
NotSolved
21.07.2023 12:33:41 Gast75905
NotSolved
21.07.2023 13:14:40 Gast01
NotSolved
21.07.2023 14:37:27 Gast75905
NotSolved
21.07.2023 18:43:05 xlKing
NotSolved
21.07.2023 20:34:58 Gast75905
NotSolved
21.07.2023 21:28:10 Gast75905
NotSolved

Ansicht des Beitrags:
Von:
Gast75905		 Datum:
21.07.2023 12:17:39		 Views:
209		 Rating:
     
Antwort:
  Ja
Thema:
Status-Byte zerlegen

Hallo Mase,

wurde genau wie "Meine_Farbe"im Modul1 "bekanntgegeben"

Man kann beide überall abfragen - bei dem anderen Beispiel frage ich aber, 
ob das Byte z.B. gleich 8 ist um eine Farbe zu setzen. (für den Anfang ) -> geht.

'im Modul1
    Global Meine_Farbe As Byte

'in 'UserForm1 

Private Sub Label1_Click()
    Meine_Farbe = 9
End Sub

Private Sub Farbe_abfragen()
    if Meine_Farbe = 9 then
        TextBox1.value = "rot"
    else 
        TextBox1.value = "nicht rot"
    end if
End Sub
'-------------------

Bei der anderen Variable will ich aber die "Bits" einzeln wissen ( und setzen können).
Ist das bit 3 eine "1" (00001100)?
(später auch) setze Bit 1 auf "1" z.B.

Danke!

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
21.07.2023 07:50:38 Gast75905
Solved
21.07.2023 10:38:15 Mase
NotSolved
21.07.2023 11:21:26 Gast27906
*****
NotSolved
21.07.2023 11:35:34 Mase
NotSolved
21.07.2023 11:42:08 Gast27906
NotSolved
21.07.2023 14:05:16 Gast27905
NotSolved
Rot Status-Byte zerlegen
 21.07.2023 12:17:39 Gast75905
NotSolved
21.07.2023 12:46:22 Mase
NotSolved
21.07.2023 12:33:41 Gast75905
NotSolved
21.07.2023 13:14:40 Gast01
NotSolved
21.07.2023 14:37:27 Gast75905
NotSolved
21.07.2023 18:43:05 xlKing
NotSolved
21.07.2023 20:34:58 Gast75905
NotSolved
21.07.2023 21:28:10 Gast75905
NotSolved