Blitzbasic Programm Frage Problem mit einer funktion

Übersicht

BlitzBasic

Beginners-Corner

	US-Blitz ehemals "SimssmiS" Betreff: Blitzbasic Programm Frage Problem mit einer funktion	Mi, März 24, 2010 19:38 Antworten mit Zitat
Wie kann ich das zum laufen bringen ich will das es wenn p_art_setzen einmal auf 1 ist dies wieder zurück gesetzt wird und dann auch p_art und px und py nicht mehr weiter rechnen sie sollen erstmal fest bleiben Die bilder sind bereits geladen und so das programm insgesamt ist größer doch hier ist das Problem Repeat If ptime=0 Then Power=Power+1 If Power=PowerUp Then p_art_setzen=1 ptime=1 While p_art_setzen=1 p_art_setzen=0 p_art=Rnd(1,2) px=Rnd(1,800) py=Rnd(1,600) Wend If p_art=1 Then px=px py=py DrawImage speed,px,py ElseIf p_art=2 Then px=px py=py DrawImage jump,px,py EndIf Until Keyhit(1)

US-Blitz

ehemals "SimssmiS"

Betreff: Blitzbasic Programm Frage Problem mit einer funktion

Mi, März 24, 2010 19:38
Antworten mit Zitat

Wie kann ich das zum laufen bringen ich will das es wenn p_art_setzen einmal auf 1 ist dies wieder zurück gesetzt wird und dann auch p_art und px und py nicht mehr weiter rechnen sie sollen erstmal fest bleiben
Die bilder sind bereits geladen und so das programm insgesamt ist größer doch hier ist das Problem

Repeat
If ptime=0 Then Power=Power+1
If Power=PowerUp Then p_art_setzen=1 ptime=1
While p_art_setzen=1
p_art_setzen=0 p_art=Rnd(1,2) px=Rnd(1,800) py=Rnd(1,600)
Wend
If p_art=1 Then
px=px py=py DrawImage speed,px,py
ElseIf p_art=2 Then
px=px py=py DrawImage jump,px,py
EndIf
Until Keyhit(1)

	Xeres Moderator	Mi, März 24, 2010 19:51 Antworten mit Zitat
Ich empfehle Satzzeichen, Tutorials und Codeboxen.
Win10 Prof.(x64)/Ubuntu 16.04\|CPU 4x3Ghz (Intel i5-4590S)\|RAM 8 GB\|GeForce GTX 960 Wie man Fragen richtig stellt \|\| "Es geht nicht" \|\| Video-Tutorial: Sinus & Cosinus THERE IS NO FAIR. THERE IS NO JUSTICE. THERE IS JUST ME. (Death, Discworld)

Xeres

Moderator

Mi, März 24, 2010 19:51
Antworten mit Zitat

Ich empfehle Satzzeichen, Tutorials und Codeboxen.

Win10 Prof.(x64)/Ubuntu 16.04|CPU 4x3Ghz (Intel i5-4590S)|RAM 8 GB|GeForce GTX 960
Wie man Fragen richtig stellt || "Es geht nicht" || Video-Tutorial: Sinus & Cosinus
THERE IS NO FAIR. THERE IS NO JUSTICE. THERE IS JUST ME. (Death, Discworld)

	TimBo	Do, März 25, 2010 15:06 Antworten mit Zitat
verstehe nicht genau was du haben möchtest , kannst du das mahe beschreiben ?
mfg Tim Borowski // CPU: Ryzen 2700x GPU: Nvidia RTX 2070 OC (Gigabyte) Ram: 16GB DDR4 @ 3000MHz OS: Windows 10 Stolzer Gewinner des BCC 25 & BCC 31 hat einen ersten Preis in der 1. Runde beim BWInf 2010/2011 & 2011/12 mit BlitzBasic erreicht.

TimBo

Do, März 25, 2010 15:06
Antworten mit Zitat

verstehe nicht genau was du haben möchtest , kannst du das mahe beschreiben ? Very Happy

mfg Tim Borowski // CPU: Ryzen 2700x GPU: Nvidia RTX 2070 OC (Gigabyte) Ram: 16GB DDR4 @ 3000MHz OS: Windows 10
Stolzer Gewinner des BCC 25 & BCC 31
hat einen ersten Preis in der 1. Runde beim BWInf 2010/2011 & 2011/12 mit BlitzBasic erreicht.

	Jo0oker	Do, März 25, 2010 16:29 Antworten mit Zitat
Gewöhn dir mal an, den Code wie folgt ein zu rücken und in code-boxen zu packen. Code: [AUSKLAPPEN] [EINKLAPPEN] Repeat If ptime = 0 Then Power = Power + 1 If Power = PowerUp Then p_art_setzen = 1 ptime = 1 While p_art_setzen = 1 p_art_setzen = 0 p_art = Rnd(1, 2) px = Rnd(1, 800) py = Rnd(1, 600) Wend If p_art = 1 Then px = px py = py DrawImage speed, px, py ElseIf p_art = 2 Then px = px py = py DrawImage jump, px, py EndIf Until Keyhit(1) Und nu sag doch bitte noch, was der Code genau machen soll. lg Jo0oker
Tehadon, das kostenlose 3D RPG www.tehadon.de http://www.blitzforum.de/worklogs/14/ Das Abenteuer wird beginnen!

Jo0oker

Do, März 25, 2010 16:29
Antworten mit Zitat

Gewöhn dir mal an, den Code wie folgt ein zu rücken und in code-boxen zu packen.

Code: [AUSKLAPPEN]

Repeat

If ptime = 0 Then Power = Power + 1

If Power = PowerUp Then p_art_setzen = 1 ptime = 1

While p_art_setzen = 1

p_art_setzen = 0
p_art = Rnd(1, 2)
px = Rnd(1, 800)
py = Rnd(1, 600)

Wend

If p_art = 1 Then

px = px
py = py
DrawImage speed, px, py

ElseIf p_art = 2 Then

px = px
py = py
DrawImage jump, px, py

EndIf

Until Keyhit(1)

Und nu sag doch bitte noch, was der Code genau machen soll.

lg Jo0oker

Tehadon, das kostenlose 3D RPG
www.tehadon.de
http://www.blitzforum.de/worklogs/14/
Das Abenteuer wird beginnen!

	das wurgel	Sa, März 27, 2010 15:20 Antworten mit Zitat
So wie ich dich vertstanden habe willst du, dass das was sich innerhalb der while-schleife befindet (welche nicht besonders sinnvoll ist, da man genausogut ein if nehmen könnte) nur einmalig ausgeführt wird. Sobald aber power=powerUp ist, ist p_art_setzen = 1 und ptime = 1. Wenn ptime aber 1 ist wird Power = Power + 1 nicht mehr ausgeführt, bleibt also gleich. Deshalb wird auch jede darauffolgende Schleifenrunde power=powerUp sein und p_art_setzen wird jede Schleifenrunde von neuen wieder auf 1 gesetzt. Das ist was dein Programm macht, was es machen soll weis hier keiner, es wäre also besser, wenn du das mal erklärst.
1 ist ungefähr 3

das wurgel

Sa, März 27, 2010 15:20
Antworten mit Zitat

So wie ich dich vertstanden habe willst du, dass das was sich innerhalb der while-schleife befindet (welche nicht besonders sinnvoll ist, da man genausogut ein if nehmen könnte) nur einmalig ausgeführt wird. Sobald aber power=powerUp ist, ist p_art_setzen = 1 und ptime = 1. Wenn ptime aber 1 ist wird Power = Power + 1 nicht mehr ausgeführt, bleibt also gleich. Deshalb wird auch jede darauffolgende Schleifenrunde power=powerUp sein und p_art_setzen wird jede Schleifenrunde von neuen wieder auf 1 gesetzt.
Das ist was dein Programm macht, was es machen soll weis hier keiner, es wäre also besser, wenn du das mal erklärst.

1 ist ungefähr 3