Erste Schwirichkeiten

Übersicht

BlitzBasic

Allgemein

	DeathReaper Betreff: Erste Schwirichkeiten	Do, Jun 30, 2005 13:02 Antworten mit Zitat
Tag auch ich habe hir ein problem, den wen ich dies ausfüre und die person drehe fänkt der Computer nach der halben runde an ewig zu laden was kan ich verbessern Hir mein Queltext: Graphics 640, 480 SetBuffer BackBuffer() bild = LoadImage ("c:\mann1.bmp") feuer =LoadImage ("c:\feuer.bmp") Cls HandleImage feuer, 12, 23 HandleImage bild, 12, 14 Repeat Cls DrawImage bild ,300 ,220 If KeyDown (203)= 1 Then RotateImage bild, 45 RotateImage feuer, 45 EndIf If KeyDown (205)= 1 Then RotateImage bild, -45 RotateImage feuer,-45 EndIf If KeyDown (1) = 1 Then Exit Flip Forever Fielen dank schon mahl.BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN]

DeathReaper

Betreff: Erste Schwirichkeiten

Do, Jun 30, 2005 13:02
Antworten mit Zitat

Tag auch

ich habe hir ein problem, den wen ich dies ausfüre und
die person drehe fänkt der Computer nach der halben runde
an ewig zu laden was kan ich verbessern Question

Hir mein Queltext:

Graphics 640, 480
SetBuffer BackBuffer()
bild = LoadImage ("c:\mann1.bmp")
feuer =LoadImage ("c:\feuer.bmp")
Cls
HandleImage feuer, 12, 23
HandleImage bild, 12, 14

Repeat
Cls
DrawImage bild ,300 ,220
If KeyDown (203)= 1 Then
RotateImage bild, 45
RotateImage feuer, 45
EndIf

If KeyDown (205)= 1 Then
RotateImage bild, -45
RotateImage feuer,-45
EndIf

If KeyDown (1) = 1 Then Exit
Flip
Forever

Fielen dank schon mahl.BlitzBasic: [AUSKLAPPEN]

	simi	Do, Jun 30, 2005 13:06 Antworten mit Zitat
Hi, RotateImage kannst du nicht in Echtzeit benutzen, du musst die Bilder am Anfang der Schleife schon drehen, und (am Besten in ein Array) abspeichern.....

simi

Do, Jun 30, 2005 13:06
Antworten mit Zitat

Hi,

RotateImage kannst du nicht in Echtzeit benutzen, du musst die Bilder am Anfang der Schleife schon drehen, und (am Besten in ein Array) abspeichern.....

	Jan_ Ehemaliger Admin	Do, Jun 30, 2005 14:08 Antworten mit Zitat
Hier wird keinen Raper geholfen BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640, 480 SetBuffer BackBuffer() Dim BIld(359) bild(0) = LoadImage (\"c:\mann1.bmp\") HandleImage bild(0), 12, 14 For i=1 To 359 bild(i)=CopyImage(bild(0)) RotateImage bild(i),i Next feuer =LoadImage (\"c:\feuer.bmp\") Cls HandleImage feuer, 12, 23 Repeat Cls DrawImage bild(grad) ,300 ,220 If KeyDown (203)= 1 Then grad=grad+5 EndIf If KeyDown (205)= 1 Then grad=grad-5 EndIf If KeyDown (1) = 1 Then Exit Flip Forever
between angels and insects

Jan_

Ehemaliger Admin

Do, Jun 30, 2005 14:08
Antworten mit Zitat

Hier wird keinen Raper geholfen Smile

BlitzBasic: [AUSKLAPPEN]


Graphics 640, 480
SetBuffer BackBuffer()
Dim BIld(359)
bild(0) = LoadImage (\"c:\mann1.bmp\")
HandleImage bild(0), 12, 14
For i=1 To  359
 bild(i)=CopyImage(bild(0))
 RotateImage bild(i),i
Next
feuer =LoadImage (\"c:\feuer.bmp\")
Cls
HandleImage feuer, 12, 23


Repeat
Cls
DrawImage bild(grad) ,300 ,220
If KeyDown (203)= 1 Then
 grad=grad+5
EndIf

If KeyDown (205)= 1 Then
 grad=grad-5
EndIf

If KeyDown (1) = 1 Then Exit
Flip
Forever

between angels and insects

	BladeRunner Moderator	Do, Jun 30, 2005 14:12 Antworten mit Zitat
Nächstes mal bitte nen aussagekräftigen Titel. Gruss BladeRunner
Zu Diensten, Bürger. Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3 Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64 B3D BMax MaxGUI Stolzer Gewinner des BAC#48, #52 & #92

BladeRunner

Moderator

Do, Jun 30, 2005 14:12
Antworten mit Zitat

Nächstes mal bitte nen aussagekräftigen Titel.
Gruss BladeRunner

Zu Diensten, Bürger.
Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3
Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64
B3D BMax MaxGUI
Stolzer Gewinner des BAC#48, #52 & #92

	Lunatix	Fr, Jul 01, 2005 8:10 Antworten mit Zitat
geht das auch mit AnimImage?
[size=9]Pro\|gram\|mier\|er: Ein Organismus, der Koffein in Software umwandelt. Geben Sie eine beliebige 11-stellige Primzahl ein, um fortzusetzen...

Lunatix

Fr, Jul 01, 2005 8:10
Antworten mit Zitat

geht das auch mit AnimImage?

[size=9]Pro|gram|mier|er: Ein Organismus, der Koffein in Software umwandelt.
Geben Sie eine beliebige 11-stellige Primzahl ein, um fortzusetzen...

	Jan_ Ehemaliger Admin	Fr, Jul 01, 2005 8:44 Antworten mit Zitat
ja, so ähnlich. Du weißt doch probieren geht über Studieren. Kleiner Tip, frames.
between angels and insects

Jan_

Ehemaliger Admin

Fr, Jul 01, 2005 8:44
Antworten mit Zitat

ja, so ähnlich.

Du weißt doch probieren geht über Studieren.
Kleiner Tip, frames.

between angels and insects

	Ass(i)-evil	Mi, Jul 06, 2005 20:54 Antworten mit Zitat
Ok, bin auch neu, und hab n WAHNSINNSproblem (sorry, n bizzl langer text, aber ich hoff mal, des isch egal...): BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] If MouseHit(2) Then menu = 0 : rammer = 0 If ImagesCollide(punkt,pointerx,pointery,0,kbeschwoerenf, 148,635,0) And MouseHit(1) Then menu = 1 [b];===========> BIS HIER FUNZT DES GANZE JA NOCH[/b] [u][i]If ImagesCollide(punkt,pointerx,pointery,0,krammerf, 148,635,0) And MouseHit(1) Then rammer = 1 If rammer = 1 Then xizy1 = xbeweg1[/i][/u] [b];===============> ABER HIER IST SCHLUSS, DER BEFEHL WIRD EINFACH NICHT BZW FALSCH ABGEARBEITET, ;WAS SOLL ICH MACHN?! ;MEIN PROBLEM: DIE VARIABLE \"RAMMER\" WIRD EINFACH NICHT 1, WARUM?![/b] ;If ImagesCollide(Iris, 145,635,3,punkt, pointerx, pointery,0) And MouseHit(1) Then DrawImage pointereis,0,0 Wär echt nett, wenn sich des mal jemand ansehen könnte... Thx im Vorraus Is nimma mehr komplett, denn der text, den ich gschrieben hab is doch ziemlich lang gewesen, hab ihn also gekürzt, problem sollte aber trotzdem nachvollziehbar sein, UND auch schon gelöst, wurde also um ein Erkenntnis schlauer... [/syntax]
Don't worry, be happy!!!

Ass(i)-evil

Mi, Jul 06, 2005 20:54
Antworten mit Zitat

Ok, bin auch neu, und hab n WAHNSINNSproblem (sorry, n bizzl langer text, aber ich hoff mal, des isch egal...):

BlitzBasic: [AUSKLAPPEN]

If MouseHit(2) Then menu = 0 : rammer = 0

If ImagesCollide(punkt,pointerx,pointery,0,kbeschwoerenf, 148,635,0) And MouseHit(1) Then menu = 1 



[b];===========> BIS HIER FUNZT DES GANZE JA NOCH[/b]

[u][i]If ImagesCollide(punkt,pointerx,pointery,0,krammerf, 148,635,0) And MouseHit(1) Then rammer = 1
If rammer = 1 Then xizy1 = xbeweg1[/i][/u]

[b];===============> ABER HIER IST SCHLUSS, DER BEFEHL WIRD EINFACH NICHT BZW FALSCH ABGEARBEITET,
;WAS SOLL ICH MACHN?!
;MEIN PROBLEM: DIE VARIABLE \"RAMMER\" WIRD EINFACH NICHT 1, WARUM?![/b]




;If ImagesCollide(Iris, 145,635,3,punkt, pointerx, pointery,0) And MouseHit(1) Then DrawImage pointereis,0,0

Wär echt nett, wenn sich des mal jemand ansehen könnte...
Thx im Vorraus

Is nimma mehr komplett, denn der text, den ich gschrieben hab is doch ziemlich lang gewesen, hab ihn also gekürzt, problem sollte aber trotzdem nachvollziehbar sein, UND auch schon gelöst, wurde also um ein Erkenntnis schlauer... Smile

[/syntax]

Don't worry, be happy!!!

Zuletzt bearbeitet von Ass(i)-evil am Mo, Jul 11, 2005 15:25, insgesamt einmal bearbeitet

	simi	Mi, Jul 06, 2005 20:57 Antworten mit Zitat
Du darfst nicht 2mal im Mainloop Mousehit verwenden..... Deshalb speichert man am Anfang der Schleife MousHit in einer Variabel, und fragt dann mit dieser ab.....

simi

Mi, Jul 06, 2005 20:57
Antworten mit Zitat

Du darfst nicht 2mal im Mainloop Mousehit verwenden..... Deshalb speichert man am Anfang der Schleife MousHit in einer Variabel, und fragt dann mit dieser ab.....

	Ass(i)-evil	Do, Jul 07, 2005 20:18 Antworten mit Zitat
achso... dankeschön, aber mir ist auch zufällig eine lösung gekommen, die vll n bizzl leichter is: If menu = 0 Then If ImagesCollide(...) Then If MouseHit(1) Then menu = 1 If menu = 1 Then If ImagesCollide(...) Then If MouseHit(1) Then menu = 2 If menu = 2 Then If ImagesCollide(...) Then If MouseHit(1) Then ...
Don't worry, be happy!!!

Ass(i)-evil

Do, Jul 07, 2005 20:18
Antworten mit Zitat

achso... dankeschön, aber mir ist auch zufällig eine lösung gekommen, die vll n bizzl leichter is:
If menu = 0 Then If ImagesCollide(...) Then If MouseHit(1) Then menu = 1
If menu = 1 Then If ImagesCollide(...) Then If MouseHit(1) Then menu = 2
If menu = 2 Then If ImagesCollide(...) Then If MouseHit(1) Then ...

Don't worry, be happy!!!

	BladeRunner Moderator	Do, Jul 07, 2005 20:22 Antworten mit Zitat
lies was er dir schrieb: mehr als einmal Mousehit funktioniert nicht Und bitte nutze in Zukunft die Code-Tags, das erleichtert uns das lesen der Codes wesentlich.
Zu Diensten, Bürger. Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3 Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64 B3D BMax MaxGUI Stolzer Gewinner des BAC#48, #52 & #92

BladeRunner

Moderator

Do, Jul 07, 2005 20:22
Antworten mit Zitat

lies was er dir schrieb: mehr als einmal Mousehit funktioniert nicht Wink

Und bitte nutze in Zukunft die Code-Tags, das erleichtert uns das lesen der Codes wesentlich.

Zu Diensten, Bürger.
Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3
Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64
B3D BMax MaxGUI
Stolzer Gewinner des BAC#48, #52 & #92

	Ass(i)-evil	Fr, Jul 08, 2005 20:46 Antworten mit Zitat
ok, mach ich, thx nochmal...
Don't worry, be happy!!!

Ass(i)-evil

Fr, Jul 08, 2005 20:46
Antworten mit Zitat

ok, mach ich, thx nochmal... Very Happy

Don't worry, be happy!!!

Übersicht

BlitzBasic

Allgemein

Nach Oben

BlitzBasic Portal

Erste Schwirichkeiten

Betreff: Erste Schwirichkeiten