Expecting Variable Assignment

Übersicht

BlitzBasic

Allgemein

	MCocktail Betreff: Expecting Variable Assignment	Do, Jun 04, 2015 0:59 Antworten mit Zitat
Nun, nachdem ich nach langer Zeit wieder vor BB (bzw. BP ) gesetzt habe, habe ich ein klitzekleines Problem das ich nicht lösen kann. Wenn ich das hier Test-runnen will, dann gibt es obigen Fehler bei jeder "For Each Next" Schleife. Nun, Ich finde keinen Fehler, nach mehrmaligen Nachschlagen fällt mir kein Unterschied auf :O kann jemand mir helfen? BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600 Global TIME=MilliSecs() Type TCell Field x,y,m Field r,g,b End Type Type TFood Field x,y End Type Type TMovement Field t,s,a End Type Function CellControl(cellhdl) cell.TCell=Object.TCell(cellhdl) End Function Function CellAI(cellhdl) cell.TCell=Object.TCell(cellhdl) For ncell.TCell Each TCell If ncell\m>=cell\m Then ElseIf ncell\m<cell\m Then Else Notify "Wut" EndIf Next End Function Function DrawCells() For cell.TCell Each TCell Color cell\r,cell\g,cell\b cell_rad=Sqr(cell\m)*2+10 Oval cell\x-cell_rad/2,cell\y-cell_rad/2,cell_rad,cell_rad Next End Function Function ApplyMovement() For mvmnt.TSpeed Each TSpeed Next End Function
Gruß von: MCocktail

MCocktail

Betreff: Expecting Variable Assignment

Do, Jun 04, 2015 0:59
Antworten mit Zitat

Nun, nachdem ich nach langer Zeit wieder vor BB (bzw. BP Wink

) gesetzt habe, habe ich ein klitzekleines Problem das ich nicht lösen kann. Wenn ich das hier Test-runnen will, dann gibt es obigen Fehler bei jeder "For Each Next" Schleife. Nun, Ich finde keinen Fehler, nach mehrmaligen Nachschlagen fällt mir kein Unterschied auf :O kann jemand mir helfen?
BlitzBasic:

Graphics 800,600

Global TIME=MilliSecs()

Type TCell
	Field x,y,m
	Field r,g,b
End Type

Type TFood
	Field x,y
End Type

Type TMovement
	Field t,s,a
End Type

Function CellControl(cellhdl)
	cell.TCell=Object.TCell(cellhdl)
	
End Function

Function CellAI(cellhdl)
	cell.TCell=Object.TCell(cellhdl)
	For ncell.TCell Each TCell
		If ncell\m>=cell\m Then
		
		ElseIf ncell\m<cell\m Then
		
		Else
			Notify "Wut"
		EndIf
	Next
End Function

Function DrawCells()
	For cell.TCell Each TCell
		Color cell\r,cell\g,cell\b
		cell_rad=Sqr(cell\m)*2+10
		Oval cell\x-cell_rad/2,cell\y-cell_rad/2,cell_rad,cell_rad
	Next
End Function



Function ApplyMovement()
	For mvmnt.TSpeed Each TSpeed
		
	Next
End Function