Seite 1 von 3
Macro "Syntax Error"(?)
Verfasst: 15.08.2007 12:42
von Rubiko
Hi,
folgender Code gibt mir einen Syntax Error im Macro in der Zeile "Next" aus.. warum auch immer
Code: Alles auswählen
Dim Map(64,64)
Macro MAP_Draw()
For SY=0 To 24
For SX = 0 To 32
DisplaySprite(1000+Map(MapX+SX,MapY+SY), 32*SX - FineX , 32*SY - FineY )
Next
Next
EndMacro
Map_Draw()
ich weiß, ist nur ein kleiner Ausschnitt... aber auch hier kommt "Syntax Error" als Fehlermeldung.
Selber Code läuft mit PB4.02 problemlos
Verfasst: 15.08.2007 12:50
von Fluid Byte
Du postest das nicht ernshaft im Bug Forum oder?
DisplaySprite() ...
Verfasst: 15.08.2007 13:00
von Rubiko
Ich hab extra gesagt, dass der Code nicht vollständig ist.. kann ihn auch komplett posten (mit OpenScreen, falls du darauf hinaus willst)
Auch da meckert er
EDIT: ähm.. wichtig wäre noch, ohne Macro gehts, mit nicht... allein deswegen liegts doch nicht am DisplaySprite
Verfasst: 15.08.2007 13:09
von Fluid Byte
Ich hab extra gesagt, dass der Code nicht vollständig ist..
Wie solln wirs dann nachvollziehen?
kann ihn auch komplett posten (mit OpenScreen, falls du darauf hinaus willst)
Dann poste mal.
Verfasst: 15.08.2007 13:20
von ts-soft
@Rubiko
oder ist es Dir lieber, wenn die anderen Boarduser das machen. Erstens
müßten es viele machen, statt einer, zweitens Tritt der Fehler dann evtl.
garnicht auf.
Postings mit nicht testbaren Code sehe ich mir nur flüchtig an, mehr nicht.
Verfasst: 15.08.2007 13:21
von Rubiko
Müsst ihr eigentlich nicht, es ist doch schon völlig falsch, dass hier in der Zeile mit NEXT gejammert wird, und da soll ein Syntax Fehler sein?
Aber gut, hab ihn noch etwas sauberer gemacht...
Code: Alles auswählen
If InitSprite() And InitKeyboard() = 0
MessageRequester("Error", "DirectX could not be initialized.")
End
EndIf
Dim Map(64,64)
Macro MAP_Draw()
For SY=0 To 24
For SX = 0 To 32
DisplaySprite(1000+Map(MapX+SX,MapY+SY), 32*SX - FineX , 32*SY - FineY )
Next
Next
EndMacro
If OpenScreen(1024, 768, 16, "Bug")
CreateSprite(1000, 32, 32)
StartDrawing(SpriteOutput(1000))
Box(0, 0, 32, 32, RGB(0, 200, 0))
StopDrawing()
For n=0 To 32
For t=0 To 32
Map(n, t) = 0
Next
Next
Repeat
ExamineKeyboard()
MAP_Draw()
; ^ funktioniert nicht (Syntax Error)
; v funktioniert
; For SY=0 To 24
; For SX = 0 To 32
; DisplaySprite(1000+Map(MapX+SX,MapY+SY), 32*SX - FineX , 32*SY - FineY )
; Next
; Next
;
FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape)
EndIf
End
Verfasst: 15.08.2007 13:28
von Fluid Byte
Läuft wie ich es erwartet habe...
Fehlerfrei!
Verfasst: 15.08.2007 13:29
von ts-soft
Fluid Byte hat geschrieben:Läuft wie ich es erwartet habe...
Fehlerfrei!
Bei mir nicht, zeigt Next als Fehler an
Verfasst: 15.08.2007 13:39
von Fluid Byte
Bei mir nicht. Läuft fehlerfrei. Wobei ich erwähnen sollte das ich grad auf Arbeit bin und hier noch PB 4.00 habe.
Verfasst: 15.08.2007 13:40
von Rubiko
Fluid Byte hat geschrieben:Bei mir nicht. Läuft fehlerfrei. Wobei ich erwähnen sollte das ich grad auf Arbeit bin und hier noch PB 4.00 habe.
Eumel
