Fehler bei berechnung; warum?
Hi,
habe n kleines Problem!
dieser Code Funtzt:
Code:
' 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:
Code:
' 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
