Fehler bei berechnung; warum?

[Toxic]

Hi,
habe n kleines Problem!

dieser Code Funtzt:

' Define´s
'Variablen
Define Vi       Byte
Define VRemote3 Byte

Define VLgt1Bt  Bit[185]
Define VLgt2Bt  Bit[186]
Define VLgt3Bt  Bit[187]
Define VAirBt   Bit[188]
Define VHydBt   Bit[189]
Define VDeHydBt Bit[190]
Define VHeatBt  Bit[191]
Define VCoolBt  Bit[192]
Define y        byte

' Prog
gosub Initialization

Print "Start"
Print
Print "+--------------------+"
Print "| Byte->Binärtabelle |"
Print "+-------+------------|"
Print "| Byte: | Binärzahl: |"
Print "+-------+------------+"

#Main
  for Vi = 0 to 255
    VRemote3 = Vi
    gosub DeCodeRcRelaisData
    Print Vi; " = "; VLgt1Bt; VLgt2Bt; VLgt3Bt; VAirBt; VHydBt; VDeHydBt; VHeatBt; VCoolBt
    Print "+-------+------------+"
  next
  Print "End"
end


#DeCodeRcRelaisData
  y = ((VRemote3 SHR 7) MOD 2)
  VLgt1Bt  = y

  y = ((VRemote3 SHR 6) MOD 2)
  VLgt2Bt  = y

  y = ((VRemote3 SHR 5) MOD 2)
  VLgt3Bt  = y

  y = ((VRemote3 SHR 4) MOD 2)
  VAirBt   = y

  y = ((VRemote3 SHR 3) MOD 2)
  VHydBt   = y

  y = ((VRemote3 SHR 2) MOD 2)
  VDeHydBt = y

  y = ((VRemote3 SHR 1) MOD 2)
  VHeatBt  = y

  y = (VRemote3 MOD 2)
  VCoolBt  = y

return

#Initialization
Print "Initialization"

' Alle Vars (Vxxxxxxx) = 0
Vi       = 0
VRemote3 = 0
VLgt1Bt  = 0
VLgt2Bt  = 0
VLgt3Bt  = 0
VAirBt   = 0
VHydBt   = 0
VDeHydBt = 0
VHeatBt  = 0
VCoolBt  = 0
y        = 0
return

dieser nicht:

' Define´s
'Variablen
Define Vi       Byte
Define VRemote3 Byte

Define VLgt1Bt  Bit[185]
Define VLgt2Bt  Bit[186]
Define VLgt3Bt  Bit[187]
Define VAirBt   Bit[188]
Define VHydBt   Bit[189]
Define VDeHydBt Bit[190]
Define VHeatBt  Bit[191]
Define VCoolBt  Bit[192]
Define y        byte

' Prog
gosub Initialization

Print "Start"
Print
Print "+--------------------+"
Print "| Byte->Binärtabelle |"
Print "+-------+------------|"
Print "| Byte: | Binärzahl: |"
Print "+-------+------------+"

#Main
  for Vi = 0 to 255
    VRemote3 = Vi
    gosub DeCodeRcRelaisData
    Print Vi; " = "; VLgt1Bt; VLgt2Bt; VLgt3Bt; VAirBt; VHydBt; VDeHydBt; VHeatBt; VCoolBt
    Print "+-------+------------+"
  next
  Print "End"
end


#DeCodeRcRelaisData
  VRemote3 = ((VRemote3 SHR 7) MOD 2)
  VLgt1Bt  = VRemote3

  VRemote3 = ((VRemote3 SHR 6) MOD 2)
  VLgt2Bt  = VRemote3

  VRemote3 = ((VRemote3 SHR 5) MOD 2)
  VLgt3Bt  = VRemote3

  VRemote3 = ((VRemote3 SHR 4) MOD 2)
  VAirBt   = VRemote3

  VRemote3 = ((VRemote3 SHR 3) MOD 2)
  VHydBt   = VRemote3

  VRemote3 = ((VRemote3 SHR 2) MOD 2)
  VDeHydBt = VRemote3

  VRemote3 = ((VRemote3 SHR 1) MOD 2)
  VHeatBt  = VRemote3

  VRemote3 = (VRemote3 MOD 2)
  VCoolBt  = VRemote3

return

#Initialization
Print "Initialization"

' Alle Vars (Vxxxxxxx) = 0
Vi       = 0
VRemote3 = 0
VLgt1Bt  = 0
VLgt2Bt  = 0
VLgt3Bt  = 0
VAirBt   = 0
VHydBt   = 0
VDeHydBt = 0
VHeatBt  = 0
VCoolBt  = 0
y        = 0
return

Kann mir wer sagen Warum?
Will mir unbedingt die "y"-Variable sparen; Ist das möglich?
Is Dringend und echt wichtig!

Toxic

[matlxxx]

hallo toxic!
bin spät dran, aber besser spät als nie!

schau dir das mal an:

#DeCodeRcRelaisData
  VRemote3 = ((VRemote3 SHR 7) MOD 2)
  VLgt1Bt  = VRemote3

  VRemote3 = ((VRemote3 SHR 6) MOD 2)
  VLgt2Bt  = VRemote3

  VRemote3 = ((VRemote3 SHR 5) MOD 2)
  VLgt3Bt  = VRemote3

  VRemote3 = ((VRemote3 SHR 4) MOD 2)
  VAirBt   = VRemote3

  VRemote3 = ((VRemote3 SHR 3) MOD 2)
  VHydBt   = VRemote3

  VRemote3 = ((VRemote3 SHR 2) MOD 2)
  VDeHydBt = VRemote3

  VRemote3 = ((VRemote3 SHR 1) MOD 2)
  VHeatBt  = VRemote3

  VRemote3 = (VRemote3 MOD 2)
  VCoolBt  = VRemote3

return

du machst hier folgendes:
Vremote3 7 stellen nach rechts schieben.==>das ergebnis dann in die Variable Vremote3 Schreiben
du hast jetzt Vremote3 verändert! bei der zweiten berechnung rechnest du dann wieder mit der veränderten variable Vremote3!

probier es mal so:

#DeCodeRcRelaisData
 VLgt1Bt  = ((VRemote3 SHR 7) MOD 2)

 VLgt2Bt  = ((VRemote3 SHR 6) MOD 2)

 VLgt3Bt  =((VRemote3 SHR 5) MOD 2)

 VAirBt   = ((VRemote3 SHR 4) MOD 2)

 VHydBt   =(VRemote3 SHR 3) MOD 2)

 VDeHydBt = ((VRemote3 SHR 2) MOD 2)

 VHeatBt  = ((VRemote3 SHR 1) MOD 2)

 VCoolBt  =  (VRemote3 MOD 2)
return

hoffe ich liege richtig,
gruß martin