Braintester oder Gedächtnisprüfung

Übersicht

BlitzBasic

Codearchiv

	Spikespine Betreff: Braintester oder Gedächtnisprüfung	Do, Jul 01, 2004 18:21 Antworten mit Zitat
Nachdem ich gemerkt hatte, dass mein Kurzzeitgedächtnis nur wenig Speicher hat, hab ich mal eben dieses Pröglein geproggt ( ), es eine Nacht durch gespielt - und mich von Level 4 bis auf Level 9 gesteigert. stolz Ihr könnt es ja auch mal ausprobieren: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640,480,0,2 SeedRnd MilliSecs() Global Schrift = LoadFont("Arial",20,0,0,0) Global Schriftklein = LoadFont("Arial",15,0,0,0) Global Level = 1 SetBuffer BackBuffer() While Not KeyHit(1) Cls Dim Zahlenkette(Level+2) Dim Zahleneingabe(Level+2) SetFont Schriftklein Text 10,10, "Level " + Level Text 320,10, "Merke dir die Zahlen!",1,0 Flip FlushKeys WaitKey SetFont Schrift For I = 1 To Level+2 Zahlenkette(I) = Rand(0,9) Text 320, I25, Zahlenkette(I) Flip Delay 1000 Next Cls SetFont Schriftklein Text 320,10, "Gib die Zahlen ein!",1,0 SetFont Schrift For I= 1 To Level+2 Locate 320, I25 Zahleneingabe(I) = Input("") If Zahleneingabe(I) <> Zahlenkette(I) Then verloren Next Level = Level+1 Cls SetFont Schrift FlushKeys Text 320, 240, "GUT GEMACHT!!!", 1, 1 WaitKey Flip Wend Function verloren() SetFont Schriftklein SetBuffer BackBuffer() Cls If Level < 5 Then Ergebnis$ = "Schlecht" If Level = 5 Or Level = 6 Then Ergebnis$ = "Durchschnittlich" If Level >= 7 Then Ergebnis$ = "Mitschreibeverdächtig " Text 320, 240, "Das war leider falsch! Du hast es bis ins " + Level + ". Level geschafft - " + Ergebnis + "!!!", 1,1 Flip WaitKey End End Function

Spikespine

Betreff: Braintester oder Gedächtnisprüfung

Do, Jul 01, 2004 18:21
Antworten mit Zitat

Nachdem ich gemerkt hatte, dass mein Kurzzeitgedächtnis nur wenig Speicher hat, hab ich mal eben dieses Pröglein geproggt ( Wink

), es eine Nacht durch gespielt - und mich von Level 4 bis auf Level 9 gesteigert. *stolz* Very Happy

Ihr könnt es ja auch mal ausprobieren:

BlitzBasic: [AUSKLAPPEN]

Graphics 640,480,0,2	
SeedRnd MilliSecs()		
Global Schrift = LoadFont("Arial",20,0,0,0)			
Global Schriftklein = LoadFont("Arial",15,0,0,0) 
Global Level = 1 		
						

SetBuffer BackBuffer()  
While Not KeyHit(1)		
						
	Cls					
	Dim Zahlenkette(Level+2) 	
	Dim Zahleneingabe(Level+2)	
	SetFont Schriftklein		
	Text 10,10, "Level " + Level 			
	Text 320,10, "Merke dir die Zahlen!",1,0	
	Flip									
	
	FlushKeys							
	WaitKey													
	SetFont Schrift							
											
	For I = 1 To Level+2					
		Zahlenkette(I) = Rand(0,9)
		Text 320, I*25, Zahlenkette(I)			
		Flip								
		Delay 1000							
	Next									
	Cls	
	SetFont Schriftklein
	Text 320,10, "Gib die Zahlen ein!",1,0	
	SetFont Schrift							
	For I= 1 To Level+2						
		Locate 320, I*25	
		Zahleneingabe(I) = Input("")
		If Zahleneingabe(I) <> Zahlenkette(I) Then verloren 
															
															
	Next
	Level = Level+1		
	 					
														
	Cls													
	SetFont Schrift										
	FlushKeys 
	Text 320, 240, "GUT  GEMACHT!!!", 1, 1 
	WaitKey 
	Flip												
Wend	

Function verloren() 
					
	SetFont Schriftklein
	SetBuffer BackBuffer() 
	Cls
	If Level < 5 Then Ergebnis$ = "Schlecht" 
	If Level = 5 Or Level = 6 Then Ergebnis$ = "Durchschnittlich" 
	If Level >= 7 Then Ergebnis$ = "Mitschreibeverdächtig "
	Text 320, 240, "Das war leider falsch! Du hast es bis ins " + Level + ". Level geschafft - " + Ergebnis + "!!!", 1,1 
	Flip
	WaitKey
	End
End Function

Zuletzt bearbeitet von Spikespine am Do, Jul 01, 2004 19:12, insgesamt einmal bearbeitet

	cavebird	Do, Jul 01, 2004 18:44 Antworten mit Zitat
Bin beim ersten mal bis Level 6 gekommen! Dann nach einigen Versuchen auch bis 9!
MegaUpload.de -- Uploade bis zu 2MB pro Bild !!DEIN PARTNER IN SACHEN UPLOAD --bitte weiterempfehlen, nur so können wir bekannt werden...

cavebird

Do, Jul 01, 2004 18:44
Antworten mit Zitat

Bin beim ersten mal bis Level 6 gekommen!
Dann nach einigen Versuchen auch bis 9!

MegaUpload.de -- Uploade bis zu 2MB pro Bild !!DEIN PARTNER IN SACHEN UPLOAD --bitte weiterempfehlen, nur so können wir bekannt werden...

	Markus2	Do, Jul 01, 2004 19:10 Antworten mit Zitat
Hat das auch ne lang anhaltende Wirkung ?

Markus2

Do, Jul 01, 2004 19:10
Antworten mit Zitat

Hat das auch ne lang anhaltende Wirkung ? Smile

	Spikespine	Do, Jul 01, 2004 19:11 Antworten mit Zitat
Ich denke schon...

Spikespine

Do, Jul 01, 2004 19:11
Antworten mit Zitat

Ich denke schon...

	Blatolo	Do, Jul 01, 2004 20:23 Antworten mit Zitat
Hab jetzt einmal gespielt und bin bis level 6 gekommen

Blatolo

Do, Jul 01, 2004 20:23
Antworten mit Zitat

Hab jetzt einmal gespielt und bin bis level 6 gekommen

	Suco-X Betreff: ......	Do, Jul 01, 2004 21:39 Antworten mit Zitat
Die Idee ist garnicht mal so übel. bye EDIT: Noch eine kleinigkeit. So ist das Spielprinzip noch zu einfach. Man kann sich ja ganz einfach Zahlenpaare merken und damit wird das auch in höheren Levels zu einfach. Vllt wäre einbindung von Buchstaben nicht verkehrt ! bye
Intel Core 2 Quad Q8300, 4× 2500 MHz, 4096 MB DDR2-Ram, GeForce 9600GT 512 MB

Suco-X

Betreff: ......

Do, Jul 01, 2004 21:39
Antworten mit Zitat

Die Idee ist garnicht mal so übel.
bye
EDIT:
Noch eine kleinigkeit. So ist das Spielprinzip noch zu einfach. Man kann sich ja ganz einfach Zahlenpaare merken und damit wird das auch in höheren Levels zu einfach. Vllt wäre einbindung von Buchstaben nicht verkehrt !
bye

Intel Core 2 Quad Q8300, 4× 2500 MHz, 4096 MB DDR2-Ram, GeForce 9600GT 512 MB

	Spikespine	Fr, Jul 02, 2004 14:00 Antworten mit Zitat
du hast recht, ich habs jetzt einfach mal mit buchstaben gemacht. BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640,480,0,2 SeedRnd MilliSecs() Global Schrift = LoadFont("Arial",20,0,0,0) Global Schriftklein = LoadFont("Arial",15,0,0,0) Global Level = 1 SetBuffer BackBuffer() While Not KeyHit(1) Cls Dim Zahlenkette$(Level+2) Dim Zahleneingabe$(Level+2) SetFont Schriftklein Text 10,10, "Level " + Level Text 320,10, "Merke dir die Zeichen!",1,0 Flip FlushKeys WaitKey SetFont Schrift For I = 1 To Level+2 Zufallsbuchstabe$ = Chr$(Rand(97,122)) Zahlenkette(I) = Zufallsbuchstabe Text 320, I25, Zahlenkette(I) Flip Delay 1000 Next Cls SetFont Schriftklein Text 320,10, "Gib die Zeichen ein!",1,0 SetFont Schrift For I= 1 To Level+2 Locate 320, I25 Zahleneingabe(I) = Input("") If Zahleneingabe(I) <> Zahlenkette(I) Then verloren Next Level = Level+1 Cls SetFont Schrift FlushKeys Text 320, 240, "GUT GEMACHT!!!", 1, 1 WaitKey Flip Wend Function verloren() SetFont Schriftklein SetBuffer BackBuffer() Cls If Level < 5 Then Ergebnis$ = "Schlecht" If Level = 5 Or Level = 6 Then Ergebnis$ = "Durchschnittlich" If Level >= 7 Then Ergebnis$ = "Mitschreibeverdächtig " Text 320, 240, "Das war leider falsch! Du hast es bis ins " + Level + ". Level geschafft - " + Ergebnis + "!!!", 1,1 Flip WaitKey End End Function Edit: oder so, hier hab ich es noch nicht übers erste Level geschafft! BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640,480,0,2 SeedRnd MilliSecs() Global Schrift = LoadFont("Arial",20,0,0,0) Global Schriftklein = LoadFont("Arial",15,0,0,0) Global Level = 1 SetBuffer BackBuffer() While Not KeyHit(1) Cls Dim Zahlenkette$(Level+2) Dim Zahleneingabe$(Level+2) SetFont Schriftklein Text 10,10, "Level " + Level Text 320,10, "Merke dir die Zeichen!",1,0 Flip FlushKeys WaitKey SetFont Schrift For I = 1 To Level+2 Zufallsbuchstabe$ = Chr$(Rand(128,255)) Zahlenkette(I) = Zufallsbuchstabe Text 320, I25, Zahlenkette(I) Flip Delay 1000 Next Cls SetFont Schriftklein Text 320,10, "Gib die Zeichen ein!",1,0 SetFont Schrift For I= 1 To Level+2 Locate 320, I25 Zahleneingabe(I) = Input("") If Zahleneingabe(I) <> Zahlenkette(I) Then verloren Next Level = Level+1 Cls SetFont Schrift FlushKeys Text 320, 240, "GUT GEMACHT!!!", 1, 1 WaitKey Flip Wend Function verloren() SetFont Schriftklein SetBuffer BackBuffer() Cls If Level < 5 Then Ergebnis$ = "Schlecht" If Level = 5 Or Level = 6 Then Ergebnis$ = "Durchschnittlich" If Level >= 7 Then Ergebnis$ = "Mitschreibeverdächtig " Text 320, 240, "Das war leider falsch! Du hast es bis ins " + Level + ". Level geschafft - " + Ergebnis + "!!!", 1,1 Flip WaitKey End End Function Das ist nur spaß...

Spikespine

Fr, Jul 02, 2004 14:00
Antworten mit Zitat

du hast recht, ich habs jetzt einfach mal mit buchstaben gemacht.
BlitzBasic: [AUSKLAPPEN]

Graphics 640,480,0,2    
SeedRnd MilliSecs()       
Global Schrift = LoadFont("Arial",20,0,0,0)          
Global Schriftklein = LoadFont("Arial",15,0,0,0) 
Global Level = 1        
                  

SetBuffer BackBuffer()  
While Not KeyHit(1)       
                   
   Cls                
   Dim Zahlenkette$(Level+2)     
   Dim Zahleneingabe$(Level+2)    
   SetFont Schriftklein       
   Text 10,10, "Level " + Level           
   Text 320,10, "Merke dir die Zeichen!",1,0    
   Flip                            
    
   FlushKeys                      
   WaitKey                                        
   SetFont Schrift                      
                                  
   For I = 1 To Level+2
      Zufallsbuchstabe$ = Chr$(Rand(97,122))              
      Zahlenkette(I) = Zufallsbuchstabe
      Text 320, I*25, Zahlenkette(I)          
      Flip                         
      Delay 1000                      
   Next                            
   Cls    
   SetFont Schriftklein 
   Text 320,10, "Gib die Zeichen ein!",1,0    
   SetFont Schrift                      
   For I= 1 To Level+2                   
      Locate 320, I*25    
      Zahleneingabe(I) = Input("") 
      If Zahleneingabe(I) <> Zahlenkette(I) Then verloren 
                                              
   Next 
   Level = Level+1       
                    
                                           
   Cls                                        
   SetFont Schrift                               
   FlushKeys 
   Text 320, 240, "GUT  GEMACHT!!!", 1, 1 
   WaitKey 
   Flip                                     
Wend    

Function verloren() 
                
   SetFont Schriftklein 
   SetBuffer BackBuffer() 
   Cls 
   If Level < 5 Then Ergebnis$ = "Schlecht" 
   If Level = 5 Or Level = 6 Then Ergebnis$ = "Durchschnittlich" 
   If Level >= 7 Then Ergebnis$ = "Mitschreibeverdächtig " 
   Text 320, 240, "Das war leider falsch! Du hast es bis ins " + Level + ". Level geschafft - " + Ergebnis + "!!!", 1,1 
   Flip 
   WaitKey 
   End 
End Function

Edit: oder so, hier hab ich es noch nicht übers erste Level geschafft!
BlitzBasic: [AUSKLAPPEN]

Graphics 640,480,0,2    
SeedRnd MilliSecs()       
Global Schrift = LoadFont("Arial",20,0,0,0)          
Global Schriftklein = LoadFont("Arial",15,0,0,0) 
Global Level = 1        
                  

SetBuffer BackBuffer()  
While Not KeyHit(1)       
                   
   Cls                
   Dim Zahlenkette$(Level+2)     
   Dim Zahleneingabe$(Level+2)    
   SetFont Schriftklein       
   Text 10,10, "Level " + Level           
   Text 320,10, "Merke dir die Zeichen!",1,0    
   Flip                            
    
   FlushKeys                      
   WaitKey                                        
   SetFont Schrift                      
                                  
   For I = 1 To Level+2
      Zufallsbuchstabe$ = Chr$(Rand(128,255))              
      Zahlenkette(I) = Zufallsbuchstabe
      Text 320, I*25, Zahlenkette(I)          
      Flip                         
      Delay 1000                      
   Next                            
   Cls    
   SetFont Schriftklein 
   Text 320,10, "Gib die Zeichen ein!",1,0    
   SetFont Schrift                      
   For I= 1 To Level+2                   
      Locate 320, I*25    
      Zahleneingabe(I) = Input("") 
      If Zahleneingabe(I) <> Zahlenkette(I) Then verloren 
                                              
   Next 
   Level = Level+1       
                    
                                           
   Cls                                        
   SetFont Schrift                               
   FlushKeys 
   Text 320, 240, "GUT  GEMACHT!!!", 1, 1 
   WaitKey 
   Flip                                     
Wend    

Function verloren() 
                
   SetFont Schriftklein 
   SetBuffer BackBuffer() 
   Cls 
   If Level < 5 Then Ergebnis$ = "Schlecht" 
   If Level = 5 Or Level = 6 Then Ergebnis$ = "Durchschnittlich" 
   If Level >= 7 Then Ergebnis$ = "Mitschreibeverdächtig " 
   Text 320, 240, "Das war leider falsch! Du hast es bis ins " + Level + ". Level geschafft - " + Ergebnis + "!!!", 1,1 
   Flip 
   WaitKey 
   End 
End Function

Das ist nur spaß...

	Wild-Storm	Fr, Jul 02, 2004 14:22 Antworten mit Zitat
naja, da kommen ja auch so sachen wie: Â etc. drin vor, die kannste in bb garnet eingeben (zumindest nicht über input)
Visit http://www.next-dimension.org ------------------------------------------------- Freeware Modelle, Texturen & Sounds: http://www.blitzforum.de/forum...hp?t=12875

Wild-Storm

Fr, Jul 02, 2004 14:22
Antworten mit Zitat

naja, da kommen ja auch so sachen wie: Â etc. drin vor, die kannste in bb garnet eingeben (zumindest nicht über input)

Visit http://www.next-dimension.org
-------------------------------------------------
Freeware Modelle, Texturen & Sounds:
http://www.blitzforum.de/forum...hp?t=12875

	Spikespine	Fr, Jul 02, 2004 15:15 Antworten mit Zitat
Ja, der letzte Code war wie gesagt nur zum Spaß, du musst den oberen ausprobieren.

Spikespine

Fr, Jul 02, 2004 15:15
Antworten mit Zitat

Ja, der letzte Code war wie gesagt nur zum Spaß, du musst den oberen ausprobieren.

	Wild-Storm	Fr, Jul 02, 2004 15:17 Antworten mit Zitat
meine antwort war auch eigentlich auf das bezogen: Edit: oder so, hier hab ich es noch nicht übers erste Level geschafft! ansonsten sehr schön^^
Visit http://www.next-dimension.org ------------------------------------------------- Freeware Modelle, Texturen & Sounds: http://www.blitzforum.de/forum...hp?t=12875

Wild-Storm

Fr, Jul 02, 2004 15:17
Antworten mit Zitat

meine antwort war auch eigentlich auf das bezogen:
Edit: oder so, hier hab ich es noch nicht übers erste Level geschafft!
Wink

ansonsten sehr schön^^

Visit http://www.next-dimension.org
-------------------------------------------------
Freeware Modelle, Texturen & Sounds:
http://www.blitzforum.de/forum...hp?t=12875

	rambo256	Fr, Jul 02, 2004 16:33 Antworten mit Zitat
Häh?! ALso bei dem ersten "Programm" da gebe ich exakt diesselben zahlen ein,hab sie mir sogar mal aufgeschrieben,und dann kommt,das die immer noch flasch sind! Wie ist das denn zu erklären?!
Asus F53z Das Leben ist eine reine Konkatenation...

rambo256

Fr, Jul 02, 2004 16:33
Antworten mit Zitat

Häh?!
ALso bei dem ersten "Programm" da gebe ich exakt diesselben zahlen ein,hab sie mir sogar mal aufgeschrieben,und dann kommt,das die immer noch flasch sind! Wie ist das denn zu erklären?! Mad

Asus F53z

Das Leben ist eine reine Konkatenation...

	Wild-Storm	Fr, Jul 02, 2004 16:36 Antworten mit Zitat
du musst jede zahl einzenl eingeben, warscheinlich drückst du zu lange enter, versuch mal nur ganz kruz zu drücken, bei mir ist manchmal das selbe problem^^
Visit http://www.next-dimension.org ------------------------------------------------- Freeware Modelle, Texturen & Sounds: http://www.blitzforum.de/forum...hp?t=12875

Wild-Storm

Fr, Jul 02, 2004 16:36
Antworten mit Zitat

du musst jede zahl einzenl eingeben, warscheinlich drückst du zu lange enter, versuch mal nur ganz kruz zu drücken, bei mir ist manchmal das selbe problem^^

Visit http://www.next-dimension.org
-------------------------------------------------
Freeware Modelle, Texturen & Sounds:
http://www.blitzforum.de/forum...hp?t=12875

	rambo256	Fr, Jul 02, 2004 16:38 Antworten mit Zitat
Immer noch nicht Egal,wäre sowieso ins allerletzte level gekommen
Asus F53z Das Leben ist eine reine Konkatenation...

rambo256

Fr, Jul 02, 2004 16:38
Antworten mit Zitat

Immer noch nicht Mad

Egal,wäre sowieso ins allerletzte level gekommen Wink

Asus F53z

Das Leben ist eine reine Konkatenation...

	Bfox	Fr, Jul 02, 2004 16:42 Antworten mit Zitat
Du musst immer die erste Zahl schreiben, Enter! Zweite Zahl, dann Enter! usw. Grips anstrengen!
Glauben ist Mangel an Wissen!

Bfox

Fr, Jul 02, 2004 16:42
Antworten mit Zitat

Du musst immer die erste Zahl schreiben, Enter!
Zweite Zahl, dann Enter!
usw.

Grips anstrengen! Rolling Eyes

Glauben ist Mangel an Wissen!

	rambo256	Fr, Jul 02, 2004 17:16 Antworten mit Zitat
ja wieso steht dann da oben: Bitte ZAHLEN eingeben? Naja jetzt weiß ich ja wie es geht,mal schaun wie weit ich komm.... Edit: Nö so klapps auch nicht,is ja egal...
Asus F53z Das Leben ist eine reine Konkatenation...

rambo256

Fr, Jul 02, 2004 17:16
Antworten mit Zitat

ja wieso steht dann da oben: Bitte ZAHLEN eingeben?
Naja jetzt weiß ich ja wie es geht,mal schaun wie weit ich komm.... Very Happy

Edit: Nö so klapps auch nicht,is ja egal...

Asus F53z

Das Leben ist eine reine Konkatenation...

	Bfox	Fr, Jul 02, 2004 18:24 Antworten mit Zitat
warum gehts dann bei mir?
Glauben ist Mangel an Wissen!

Bfox

Fr, Jul 02, 2004 18:24
Antworten mit Zitat

warum gehts dann bei mir? Rolling Eyes

Glauben ist Mangel an Wissen!

Übersicht

BlitzBasic

Codearchiv

Nach Oben

BlitzBasic Portal

Braintester oder Gedächtnisprüfung

Betreff: Braintester oder Gedächtnisprüfung

Betreff: ......