a<(b-25) - [gelöst]

Übersicht

BlitzBasic

Beginners-Corner

	darth Betreff: a<(b-25) - [gelöst]	Mo, Okt 31, 2005 16:11 Antworten mit Zitat
hi... für heiltränke hab ich das ganze so geregelt: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] a=100 ;leben des mannes b=100 ;maximales leben While Not KeyHit(1) Cls If KeyHit(35) ;heiltrank If a<(b-25) ;wenn a kleiner als b minus die heilwirkung a=a+25 ;wird a um heilwirkung erhöht EndIf If a>=(b-25) ;wenn a grösser oder gleich b minus heilwirkung a=b ;dann ist a=b, also das leben = dem maximum EndIf EndIf If KeyHit(203) Then a=a-1 ;leben minimieren Text 100,100,a :Text 125,100,a+25 ;sollte es geben Text 100,110,b-25 ;kontroll wert Flip Wend End ... das problem ist: wenn a auf 74 ist, gibt es 100, wenn a auf 60 ist, gibt es 100, sogar bei a=50 gibt es noch 100... erst bei a=49 stimmt es... => ich habs auch schon umgekehrt also if b>(a+25) then a=a+25 if b<=(a+25) then a=b aber auch das geht nicht... wo ist da der fehler?!?
Diese Signatur ist leer.

darth

Betreff: a<(b-25) - [gelöst]

Mo, Okt 31, 2005 16:11
Antworten mit Zitat

hi...
für heiltränke hab ich das ganze so geregelt:
BlitzBasic: [AUSKLAPPEN]

a=100 ;leben des mannes
b=100 ;maximales leben

While Not KeyHit(1)
Cls
If KeyHit(35) ;heiltrank
If a<(b-25) ;wenn a kleiner als b minus die heilwirkung
 a=a+25 ;wird a um heilwirkung erhöht
EndIf
If a>=(b-25) ;wenn a grösser oder gleich b minus heilwirkung
 a=b ;dann ist a=b, also das leben = dem maximum
EndIf
EndIf

If KeyHit(203) Then a=a-1 ;leben minimieren

Text 100,100,a :Text 125,100,a+25 ;sollte es geben
Text 100,110,b-25 ;kontroll wert
Flip
Wend
End

... das problem ist: wenn a auf 74 ist, gibt es 100, wenn a auf 60 ist, gibt es 100, sogar bei a=50 gibt es noch 100... erst bei a=49 stimmt es...
=> ich habs auch schon umgekehrt
also if b>(a+25) then a=a+25
if b<=(a+25) then a=b
aber auch das geht nicht...

wo ist da der fehler?!?

Diese Signatur ist leer.

Zuletzt bearbeitet von darth am Mo, Okt 31, 2005 17:33, insgesamt einmal bearbeitet

	Klaas	Mo, Okt 31, 2005 16:31 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] a=100 ;leben des mannes b=100 ;maximales leben While Not KeyHit(1) Cls If KeyHit(35) ;heiltrank If a<(b-25) ;wenn a kleiner als b minus die heilwirkung a=a+25 ;wird a um heilwirkung erhöht ElseIf a>=(b-25) ;wenn a grösser oder gleich b minus heilwirkung a=b ;dann ist a=b, also das leben = dem maximum EndIf EndIf If KeyHit(203) Then a=a-1 ;leben minimieren Text 100,100,a :Text 125,100,a+25 ;sollte es geben Text 100,110,b-25 ;kontroll wert Flip Wend End die 2. Bedingungen wird immer geprüft, auch wenn die erste wahr ist. "Elseif" schafft abhilfe. Code: [AUSKLAPPEN] [EINKLAPPEN] a = a + 25 if a > b then a = b macht aber das selbe und ist deutlich einfacher

Klaas

Mo, Okt 31, 2005 16:31
Antworten mit Zitat

Code: [AUSKLAPPEN]

a=100 ;leben des mannes
b=100 ;maximales leben

While Not KeyHit(1)
Cls
If KeyHit(35) ;heiltrank
If a<(b-25) ;wenn a kleiner als b minus die heilwirkung
a=a+25 ;wird a um heilwirkung erhöht
ElseIf a>=(b-25) ;wenn a grösser oder gleich b minus heilwirkung
a=b ;dann ist a=b, also das leben = dem maximum
EndIf
EndIf

If KeyHit(203) Then a=a-1 ;leben minimieren

Text 100,100,a :Text 125,100,a+25 ;sollte es geben
Text 100,110,b-25 ;kontroll wert
Flip
Wend
End

die 2. Bedingungen wird immer geprüft, auch wenn die erste wahr ist. "Elseif" schafft abhilfe.

Code: [AUSKLAPPEN]

a = a + 25
if a > b then a = b

macht aber das selbe und ist deutlich einfacher