For mit Types funtzt net?!

Übersicht

BlitzBasic

Blitz3D

	Marek Betreff: For mit Types funtzt net?!	Mo, Jun 04, 2007 15:19 Antworten mit Zitat
Bei dem folgendem Code sollte die For-Schleife 255 mal abgelaufen werden und jedesmal die Variable in eine Datei schreiben. Allerdings schreibt er mir nur die erste Variable(255) in die Datei?! Ergo läuft das Programm die Schleife nur einmal ab, warum? Bin langsam echt am Verzweifeln Danke schon jetzt vür eure Hilfe! Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics3D 1280,1024 SetBuffer BackBuffer() camera=CreateCamera() light=CreateLight() RotateEntity light,90,0,0 Type klinge Field mesh Field tex Field x_scale# Field y_scale# Field z_scale# Field r Field g Field b Field a# Field posx# Field posy# Field posz# Field rotx# Field roty# Field rotz# End Type black=LoadMesh("lbr.3ds") file=WriteFile("bla.txt") For var=-255 To 0 var=Abs(var) WriteLine(file,var) sbr.klinge=New klinge sbr\mesh=LoadMesh("lbr_blade.3ds") sbr\tex=CreateTexture(1,1) sbr\r=var sbr\x_scale#=var/10 sbr\z_scale#=var/10 sbr\y_scale#=1 ScaleEntity (sbr\mesh,sbr\x_scale#,sbr\y_scale#,sbr\z_scale#) sbr\posz#=100 PositionEntity (sbr\mesh,0,0,sbr\posz#) sbr\r=255 - var EntityColor sbr\mesh,sbr\r,0,0 var2#=var If Not var2#=0 sbr\a#=1/255*255 Else sbr\a#=0 EndIf Print sbr\r EntityAlpha sbr\mesh, sbr\a# Next CloseFile file MfG Marek
Wer lesen kann ist klar im Vorteil...

Marek

Betreff: For mit Types funtzt net?!

Mo, Jun 04, 2007 15:19
Antworten mit Zitat

Bei dem folgendem Code sollte die For-Schleife 255 mal abgelaufen werden und jedesmal die Variable in eine Datei schreiben. Allerdings schreibt er mir nur die erste Variable(255) in die Datei?! Ergo läuft das Programm die Schleife nur einmal ab, warum? Bin langsam echt am Verzweifeln Confused

Danke schon jetzt vür eure Hilfe!
Code: [AUSKLAPPEN]

Graphics3D 1280,1024
SetBuffer BackBuffer()

camera=CreateCamera()

light=CreateLight()
RotateEntity light,90,0,0

Type klinge
Field mesh
Field tex
Field x_scale#
Field y_scale#
Field z_scale#
Field r
Field g
Field b
Field a#
Field posx#
Field posy#
Field posz#
Field rotx#
Field roty#
Field rotz#
End Type

black=LoadMesh("lbr.3ds")
file=WriteFile("bla.txt")
For var=-255 To 0
var=Abs(var)
WriteLine(file,var)
sbr.klinge=New klinge
sbr\mesh=LoadMesh("lbr_blade.3ds")
sbr\tex=CreateTexture(1,1)
sbr\r=var
sbr\x_scale#=var/10
sbr\z_scale#=var/10
sbr\y_scale#=1
ScaleEntity (sbr\mesh,sbr\x_scale#,sbr\y_scale#,sbr\z_scale#)
sbr\posz#=100
PositionEntity (sbr\mesh,0,0,sbr\posz#)
sbr\r=255 - var
EntityColor sbr\mesh,sbr\r,0,0
var2#=var
If Not var2#=0
sbr\a#=1/255*255

Else
sbr\a#=0
EndIf
Print sbr\r
EntityAlpha sbr\mesh, sbr\a#
Next
CloseFile file

MfG Marek

Wer lesen kann ist klar im Vorteil...

	Xeres Moderator	Mo, Jun 04, 2007 16:02 Antworten mit Zitat
Ich würd den Debugger anschmeißen und den Code Zeile für Zeile durchgehen, so findet man schnell kleine Logikfehler...
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

Mo, Jun 04, 2007 16:02
Antworten mit Zitat

Ich würd den Debugger anschmeißen und den Code Zeile für Zeile durchgehen, so findet man schnell kleine Logikfehler...

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)

	Tankbuster	Mo, Jun 04, 2007 16:08 Antworten mit Zitat
Zitat: var=Abs(var) Damit wird -255 in 255 umgewandelt, und somit beendet sich die Schleife, weil sie schon größer als 0 ist mach mal das -.- Zitat: For i=-255 To 0 var=Abs(var) ... ...
Twitter Download Jewel Snake! Windows\|Android