Hab ein Problem

Übersicht

BlitzBasic

Beginners-Corner

	petecoolbelab Betreff: Hab ein Problem	Mi, März 26, 2008 21:17 Antworten mit Zitat
Hi hab mal ne Frage. Ich brauche diesmal keinen genauen code. Habe übrigens schon mit google und hier gesucht und nix gefunden Mein Code lautet so: Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640, 480, 16, 3 SetBuffer BackBuffer() Bild1 = LoadAnimImage("C:\Dokumente und Einstellungen\Peter\Eigene Dateien\Eigene Bilder\AL_HEroes2.png", 100, 180, 0, 11) ;animation laden MaskImage Bild1, 255, 255, 255 ;transparenz Local frame ;variable deklarieren Repeat For Bild1 = 0 To 640 Step 20 Cls If zeit + 120 < MilliSecs() And pause = 0Then zeit = MilliSecs() frame = frame + 1 EndIf If frame =10 Then frame = 1 EndIf If KeyHit(25) Then pause = pause Xor 1;schaltet zwischen 0 und 1 EndIf If pause = 0 Then frame = frame ElseIf pause = 1 Then frame = frame = 1 EndIf Flip Next Until KeyHit(25) WaitKey End Ich will das der Held durchs Bild wandert. Klappt aber nicht. Bin mir ziemlich sicher dass es an dem For Bild1= 0 to640 Step 20 liegt. Ihr müsst mir diesmal aber keinen genauen Code geben. (Es wäre jedoch nett). Ein Tipp würde aber auch schon reichen (wenn es den Moderatoren so recht ist) Help Me! Edit von BladeRunner: codetags eingefügt.

petecoolbelab

Betreff: Hab ein Problem

Mi, März 26, 2008 21:17
Antworten mit Zitat

Hi hab mal ne Frage.
Ich brauche diesmal keinen genauen code.
Habe übrigens schon mit google und hier gesucht und nix gefunden

Mein Code lautet so:
Code: [AUSKLAPPEN]

Graphics 640, 480, 16, 3
SetBuffer BackBuffer()

Bild1 = LoadAnimImage("C:\Dokumente und Einstellungen\Peter\Eigene Dateien\Eigene Bilder\AL_HEroes2.png", 100, 180, 0, 11) ;animation laden

MaskImage Bild1, 255, 255, 255 ;transparenz

Local frame ;variable deklarieren
Repeat

For Bild1 = 0 To 640 Step 20 Cls

If zeit + 120 < MilliSecs() And pause = 0Then
zeit = MilliSecs()
frame = frame + 1
EndIf
If frame =10 Then
frame = 1
EndIf

If KeyHit(25) Then
pause = pause Xor 1;schaltet zwischen 0 und 1
EndIf

If pause = 0 Then
frame = frame

ElseIf pause = 1 Then
frame = frame = 1
EndIf
Flip

Next
Until KeyHit(25)
WaitKey
End

Ich will das der Held durchs Bild wandert. Klappt aber nicht.
Bin mir ziemlich sicher dass es an dem For Bild1= 0 to640 Step 20
liegt. Ihr müsst mir diesmal aber keinen genauen Code geben. (Es wäre jedoch nett). Ein Tipp würde aber auch schon reichen (wenn es den Moderatoren so recht ist)

Help Me!

Edit von BladeRunner: codetags eingefügt.

	BladeRunner Moderator	Mi, März 26, 2008 21:23 Antworten mit Zitat
Hi petecoolbelab, bitte benutz für deine Codes die CodeTags, nicht colortags, das ist übersichtlicher. Danke.
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

Mi, März 26, 2008 21:23
Antworten mit Zitat

Hi petecoolbelab,
bitte benutz für deine Codes die CodeTags, nicht colortags, das ist übersichtlicher. Danke.

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

	hectic Sieger des IS Talentwettbewerb 2006	Mi, März 26, 2008 21:26 Antworten mit Zitat
Ich hab deine Frage hier eventuell schon beantwortet.
Download der Draw3D2 V.1.1 für schnelle Echtzeiteffekte über Blitz3D

hectic

Sieger des IS Talentwettbewerb 2006

Mi, März 26, 2008 21:26
Antworten mit Zitat

Ich hab deine Frage hier eventuell schon beantwortet.

Download der Draw3D2 V.1.1 für schnelle Echtzeiteffekte über Blitz3D