Habe Problem mit For ... Next und DrawBlock

Übersicht BlitzBasic Allgemein

Neue Antwort erstellen

 

Ensign Joe

Betreff: Habe Problem mit For ... Next und DrawBlock

BeitragDo, März 11, 2004 15:54
Antworten mit Zitat
Benutzer-Profile anzeigen
Naja, der Titel sagt eigentlich schon alles:

Folgender Code (ein "wenig" abgekürzt...)

Am Anfang:
Code: [AUSKLAPPEN]
Flip


Global Progressbar = LoadImage("progressbar.PNG")
MaskImage Progressbar, 255,0,255

Global ProgressbarTileLeft = LoadImage("progressloaderleft.PNG")

Global Hintergrund = LoadImage("background.JPG")   ;Laden des Hintergrundbilds
ResizeImage Hintergrund, GraphicsWidth(), GraphicsHeight()

Global ProgessBarTile = LoadImage("progressloader.PNG")

Global SchliessenNormal = Loadimage("closebtn_normal.PNG")


Da wo die Function aufgerufen werden soll:
Code: [AUSKLAPPEN]
CreateControl("progressbar", True, ((GraphicsWidth() / 2) - (300 / 2)) + 20, ((GraphicsHeight() / 2) -(200 / 2)) + 80, 999,999,"beende programm", 50, "")

FreeFont Schrift


Anfang der Function:
Code: [AUSKLAPPEN]
Function CreateControl(Typ$, EnabledDDD, ObjPosX#, ObjPosY#, ObjWidth#, ObjHeight#, Titel$, SonstigesInt, SonstigesStr$)
   If Typ$ = "calendar" Then
      ;Kalender


Da wo das Problem eigentlich liegt:
Code: [AUSKLAPPEN]
   ElseIf Typ$ = "progressbar" Then
      ;Prozessleiste
      DrawImage ProgressBar, ObjPosX#, ObjPosY#
      DrawBlock ProgressBarTileLeft, ObjPosX#, ObjPosY#
      
      If SonstigesInt > 0 Then
         For bbb = ObjPosX# + 7 To ObjPosX# + SonstigesInt Step 2
            DrawBlock ProgressBarTile,   bbb, ObjPosY# <<<<<<<< Da ist das Problem!!!
         Next
      End If
      
      Schrift = LoadFont("wintitle.fon", 14)
      SetFont Schrift
         Text ObjPosX# + 20, ObjPosY# + 10, Upper(Titel$) + "...  " + SonstigesInt + "%"
   End If
End Function



Bei der 1. Ausführung:
Wurde die For... Next-Schleife übergangen.

Jetzt:
Kommt folgender Fehler: Illegal memory access (oder so ähnlich)
Der kommt bei mir immer wenn irgendwas fehlt... Blos was???
 

Ensign Joe

BeitragDo, März 11, 2004 16:50
Antworten mit Zitat
Benutzer-Profile anzeigen
OK! hat sich erledigt!

Irgendwas hat mit dem Filename nicht gestimmt (obwohl der richtig war!)
Ich habe die Zeile einfach neu geschrieben und tada!!!

@Triton oder sonst einen Moderator:
Bitte trashen! Laughing

Neue Antwort erstellen


Übersicht BlitzBasic Allgemein

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group