Absturz bei ExamineKeyboard()

[Ground0]

Hallo

Habe das Problem bei mir sobald ich ExamineKeyboard() benutze das Programm einfach Abstürzt und der schöne Asistent von WXP kommt ob man den fehler an M$ senden möchte...

Der Problem Teil (ist das ExamineKeyboard() weg machts keinen Fehler mer aber die ESC funktion geht dan auch nicht mer )

Code: Alles auswählen

Gosub Bild_Refresh 

Repeat
  
  ExamineKeyboard()
  
  Delay(10)
Until KeyboardPushed(#PB_Key_Escape)

Weis dazu jemand rat?[/code]

[captain third]

komüscher schnipsel

ich würde sagen es liegt an InitKeyboard() des muss noch vor ExamineKeyboard() irgendwo erscheinen(aber nicht in der hauptschleife)

Ps.: des ist meine erste sinnvolle antwort

[Edit]
achja und das Gosub muss weg...des ist sowiso böse

[Ynnus]

Die Tastatur wurde auch korrekt mit InitKeyboard initialisiert? Und es ist auch ein Screen geöffnet? Ansonsten wäre das sicherlich das erste Mal, dass ExamineKeyboard() zum direkten Absturz führt. Schau mal ob's nicht vielleicht was mit dem Gosub zu tun hat. Solche Unterpunkte per Goto anzuspringen würde ich sowieso ganz vermeiden und lieber Prozeduren nehmen. Oder poste mal den ganzen Code, damit wir's selber ausführen können (wenn's nicht zu groß ist).

//EDIT: Zu spät... -__-

BTW.: Wo sind die Postingzahlen hin? Sieht so leer aus bei meinem Vorposter.^^

[Ground0]

Hehe wolte mir den Hon erspahren für diesen Anfang aber was sols hier der Komplette Code....

Code: Alles auswählen

;3D-Engine

;Grund Initialisierung
If InitEngine3D()=0
  MessageRequester("Fehler","3D Engine konte nicht Initialisiert werden", #PB_MessageRequester_Ok)
  End
EndIf
If InitSprite()=0
  MessageRequester("Fehler","Sprite Engine konte nicht Initialisiert werden", #PB_MessageRequester_Ok)
  End
EndIf
InitMouse()
InitKeyboard()
;FrontColor(255,255,255)

;Font Initialisierung
LoadFont (0, "Courier", 12)          ;Courier 12 Pixel

;Fullscreen Fenster öffnen.
If OpenScreen(1024,768,32,"3D-Engine Test")=0
  MessageRequester("Fehler","Fullscreen Modus konte nicht Initialisiert werden bei 1024*768*32", #PB_MessageRequester_Ok)
  End
EndIf


;Hauptroutine für die Engine

Gosub Bild_Refresh 

Repeat
  
  ExamineKeyboard()
  
  Delay(10)
Until KeyboardPushed(#PB_Key_Escape)

End


;Bild Refresch Routine.
Bild_Refresh:
 If StartDrawing(1)            
  DrawingMode(1)                          
  DrawingFont(UseFont(0))                 
  Locate(10, 10)                          
  DrawText("3D-Engine Test")    

  StopDrawing()                           
 EndIf                                    
Return 

Ehm ja will eine 3D-Engine für mein 3D-Spiel Programmieren nachdem ich das in DarkBASIC aufgegeben habe wegen der Riesen Programmgröse........

Gruss

[captain third]

ich glaube es liegt an gosub

weil beim gosub geht der doch runter zu der sprungmarke,und durch das return wieder zu gosub,der kommt die in die hauptschleife an,ich würde es anderst schreiben,und zwar ohne gosub ( gosub und goto sind die zwei böööösesten befehle überhaupt (hab ich in meinen 10 jahren gelernt))

[Ground0]

Hmmm....

Das kapier ich jetzt net.... der Gosub ist Tatsächlich schuld an allem....
Nur noch sone Intressens Frage weshalb geht das in PureBasic nicht so?

Das mit Goto und Gosub ist noch so eine C64 Eigenart von mir und BASICA von IBM


Gruss Ground0

[captain third]

programmabstürze hatte ich auch schon oft mit gosub oder goto...seit mir das richtig erklärt wordn ist benutze ich Select - Endselect also cases...

ne ziemlich dolle sache

BasicA habe ich auch gelernt,und da gabs nu nich wirklich viele befehle,da konnte man nur mit goto rumspringen wie man will,anderst ging es damit nicht

[Ground0]

Ich kapier das jetzt aber wircklich net....

Code: Alles auswählen

;3D-Engine

;Grund Initialisierung
If InitEngine3D()=0
  MessageRequester("Fehler","3D Engine konte nicht Initialisiert werden", #PB_MessageRequester_Ok)
  End
EndIf
If InitSprite()=0
  MessageRequester("Fehler","Sprite Engine konte nicht Initialisiert werden", #PB_MessageRequester_Ok)
  End
EndIf
InitMouse()
InitKeyboard()
Declare Bild_Refresh()
;FrontColor(255,255,255)

;Font Initialisierung
LoadFont (0, "Courier", 12)          ;Courier 12 Pixel

;Fullscreen Fenster öffnen.
If OpenScreen(1024,768,32,"3D-Engine Test")=0
  MessageRequester("Fehler","Fullscreen Modus konte nicht Initialisiert werden bei 1024*768*32", #PB_MessageRequester_Ok)
  End
EndIf


;Hauptroutine für die Engine

Bild_Refresh() 

Repeat
  
  ExamineKeyboard()
  
  Delay(10)
Until KeyboardPushed(#PB_Key_Escape)

End


;Bild Refresch Routine.
Procedure  Bild_Refresh()
 If StartDrawing(1)            
  DrawingMode(1)                          
  DrawingFont(UseFont(0))                 
  Locate(10, 10)                          
  DrawText("3D-Engine Test")    

  StopDrawing()                           
 EndIf                                    
EndProcedure

Was ist hier so Falsch das das wieder mit einem Absturz endet Debuger findet nichts mit oder ohne ExamineKeyboard() .....

Gruss Ground0

[edit] PS:Zum Testen obs der Gosub war oder nicht habe ich den Gosub befehl einfach geremarkt.... [/Edit]

[Andre]

So geht's:

Code: Alles auswählen

;3D-Engine 

;Grund Initialisierung 
If InitEngine3D()=0 
  MessageRequester("Fehler","3D Engine konte nicht Initialisiert werden", #PB_MessageRequester_Ok) 
  End 
EndIf 
If InitSprite()=0 
  MessageRequester("Fehler","Sprite Engine konte nicht Initialisiert werden", #PB_MessageRequester_Ok) 
  End 
EndIf 
InitMouse() 
InitKeyboard() 
;FrontColor(255,255,255) 

;Font Initialisierung 
LoadFont (0, "Courier", 12)          ;Courier 12 Pixel 

;Fullscreen Fenster öffnen. 
If OpenScreen(1024,768,32,"3D-Engine Test")=0 
  MessageRequester("Fehler","Fullscreen Modus konte nicht Initialisiert werden bei 1024*768*32", #PB_MessageRequester_Ok) 
  End 
EndIf 


;Hauptroutine für die Engine 

Repeat 
  FlipBuffers()            ; ******
  ClearScreen(0,0,0)          ; ******
  Gosub Bild_Refresh            ; ******

  
  ExamineKeyboard() 
  
  Delay(1)        ; ******
Until KeyboardPushed(#PB_Key_Escape) 

End 


;Bild Refresch Routine. 
Bild_Refresh: 
If StartDrawing(ScreenOutput())        ; ******
  DrawingMode(1)                          
  DrawingFont(UseFont(0))                  
  Locate(10, 10)  
  FrontColor(255,20,20)            ; ******
  DrawText("3D-Engine Test")    

  StopDrawing()                            
 EndIf                                    
Return 

Änderungen sind mit ; ****** markiert.

Einfach durch Abgleich des richtigen Einsatzes der Befehle mit der Anleitung...
(StartDrawing z.B., da steht drin dass der Ausgabekanal z.B. mit ScreenOutput() erstmal festgelegt werden muss.)

[Ground0]

Danke Andre

mit deinen Enderungen funktionierts jetzt.... Puh.... aber habe es in die Procedure dings übernommen....

Gruss Ground0