Hilfe bei der Hauptschleife

Übersicht BlitzMax, BlitzMax NG Allgemein

Neue Antwort erstellen

Pebender

Betreff: Hilfe bei der Hauptschleife

BeitragMo, Okt 02, 2017 13:09
Antworten mit Zitat
Benutzer-Profile anzeigen
Hallo, ich weiß nicht mehr weiter...

irgendwie bekomme ich immer die Fehlermeldung "Case without matching Select"

hier mal der Code der Schleife

Code: [AUSKLAPPEN]
Repeat
   WaitEvent()
   Select EventID()
      Case EVENT_WINDOWCLOSE
         Select EventSource()
            Case Window1            'wenn der schließen Button gedrückt wurde
             Programm_ende()         'Funktion aufrufen
         End Select
         
         '--------------
         Case EVENT_GADGETACTION
                Select EventSource()
              Case hslider                  'Wenn der horizontale Slider geschoben wird
               x=EventData()               'um x verschieben
              Case vslider                  'wenn der verticale Slider geschoben wird
               y=EventData()               'um y verschieben
               End Select
                  RedrawGadget(Bild_test)         'nach dem verschieben Canvas neu zeichnen
            
            Case EVENT_GADGETPAINT
               SetGraphics CanvasGraphics (Bild_test)
                   Cls
                   If Datei=Null Then
                   DrawImage Datei,0,0
                    Local Pix:TImage=TImage(Datei) '
                  Cls
                       DrawImage Pix,-x,-y
                       Flip
            '---------------
         
            Case EVENT_MENUACTION            'Menuleiste aktivieren
         Select EventData()
            Case MENU_EXIT            'wenn beenden gedrückt wurde
               Programm_ende()         'Funktion aufrufen
            Case MENU_ABOUT            'wenn Menüpunkt über... gedrückt wurde
                AppTitle="Über..."
               Notify "........Peter  Bender........~n~n(C)2017 Visual Terrazzo"
            Case MENU_MUSTER
                Muster_laden()         'Funktion Muster_Laden aufrufen
                 
            Case MENU_HINTERGRUND
                Hintergrundfarbe()
            End Select

            
 End Select

Forever


wenn ich allerdings das EVENT_GAGDETPAINT heraus nehme funktioniert das ganze, kann mir jemand erklären, warum das so ist.??

mfg Peter
BMax & MaxGUI

Xeres

Moderator

BeitragMo, Okt 02, 2017 13:16
Antworten mit Zitat
Benutzer-Profile anzeigen
- Deine Einrückungen sind grauenhaft gemischt.
- Was bei einem Case passiert, gehört in eine Funktion, dann sieht man auch mehr durch
- In welchem Block soll "RedrawGadget(Bild_test)" ausgeführt werden?
- Wo wird "If Datei=Null Then" wieder geschlossen?
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
T
HERE IS NO FAIR. THERE IS NO JUSTICE. THERE IS JUST ME. (Death, Discworld)

Pebender

BeitragMo, Okt 02, 2017 13:44
Antworten mit Zitat
Benutzer-Profile anzeigen
also die if datei=null ist sowieso rausgenommen.

Meine Einrückungen....sorry...gelobe Besserung.

das mit dem Redrawgadget... habe das von einem Tutorial von Assari umgebastelt, dieser nimmt TPixmap,
ich nehme TIMAGE.

Ich teste das ganze mal in dem ich das in Funktionen packe...
danke erstmal

mfg
BMax & MaxGUI

Lobby

BeitragMo, Okt 02, 2017 14:07
Antworten mit Zitat
Benutzer-Profile anzeigen
Für wo genau löst er denn die Fehlermeldung aus?
Würde Sinn machen, wenn es an der von Xeres genannten, nicht geschlossenen If-Bedingung liegt.
TheoTown - Eine Stadtaufbausimulation für Android, iOS, Windows, Mac OS und Linux

Pebender

BeitragMo, Okt 02, 2017 14:50
Antworten mit Zitat
Benutzer-Profile anzeigen
Problem hat sich erledigt, nachdem ich das was im EVENT_GADGETPAINT war, in eine Function gepackt habe

mfg
BMax & MaxGUI

Neue Antwort erstellen


Übersicht BlitzMax, BlitzMax NG Allgemein

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group