| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen   | 
	
	
	
		| Autor | 
		Nachricht | 
	
	
		Spongebob Schwamm
 
 
  Anmeldungsdatum: 31.10.2004 Beiträge: 40
 
  | 
		
			
				 Verfasst am: 26.02.2005, 18:39    Titel: Tastaturspeicher | 
				     | 
			 
			
				
  | 
			 
			
				Hi!
 
Wie kann ich den Tastaturspeicher leren?
 
 
mfg
 
Spongebob Schwamm | 
			 
		  | 
	
	
		| Nach oben | 
		 | 
	
	
		  | 
	
	
		Sebastian Administrator
  
  Anmeldungsdatum: 10.09.2004 Beiträge: 5969 Wohnort: Deutschland
  | 
		 | 
	
	
		| Nach oben | 
		 | 
	
	
		  | 
	
	
		Mecki Igel
  
  Anmeldungsdatum: 10.09.2004 Beiträge: 985 Wohnort: Niederbayern
  | 
		 | 
	
	
		| Nach oben | 
		 | 
	
	
		  | 
	
	
		jb
 
  
  Anmeldungsdatum: 14.01.2005 Beiträge: 2010
 
  | 
		
			
				 Verfasst am: 26.02.2005, 19:55    Titel:  | 
				     | 
			 
			
				
  | 
			 
			
				Wurde 5 Topics vorher schon erklärt...
 
 
siehe "Hat QB einen Bug"
 
 
jb | 
			 
		  | 
	
	
		| Nach oben | 
		 | 
	
	
		  | 
	
	
		Paul aka ICC, HV-Freak
 
  Anmeldungsdatum: 11.09.2004 Beiträge: 588 Wohnort: Uelzen
  | 
		
			
				 Verfasst am: 26.02.2005, 23:09    Titel:  | 
				     | 
			 
			
				
  | 
			 
			
				 	  | Code: | 	 		  
 
FOR a = 1 TO 15
 
doof$ = INKEY$
 
NEXT a
 
 | 	  
 
 
[   ] _________________
   | 
			 
		  | 
	
	
		| Nach oben | 
		 | 
	
	
		  | 
	
	
		Spongebob Schwamm
 
 
  Anmeldungsdatum: 31.10.2004 Beiträge: 40
 
  | 
		
			
				 Verfasst am: 27.02.2005, 12:31    Titel: Das war ein Fehler | 
				     | 
			 
			
				
  | 
			 
			
				Hi!
 
 
Da hab ich glaub ich was falsches beschrieben. Ich habe 30 Line Input Behfele hintereinander so und weil ich 25 davon nicht beantworten kann leg ich sozusagen ein Stein auf die Enter Taste dass heist dass die ganzen Input hintereinander mit einem "Enter" beantwortet werden aber der 31 Input ist der wichtigste und damit ich den nicht auch überspringe soll die Tastatur sozusagen "Gestoppt" werden.
 
 
mfg 
 
Spongebob Schwamm | 
			 
		  | 
	
	
		| Nach oben | 
		 | 
	
	
		  | 
	
	
		Jojo alter Rang
  
  Anmeldungsdatum: 12.02.2005 Beiträge: 9736 Wohnort: Neben der Festplatte
  | 
		
			
				 Verfasst am: 27.02.2005, 18:06    Titel:  | 
				     | 
			 
			
				
  | 
			 
			
				Hm.,.das erninnert mich an die Cheatbox CT.EXE   Da konnte man 1 odr so drücken,dann wurde ein cheat aktivier.-aber ich schweife ab...
 
Man müsste von einem externen programm den tastaurpuffer modifizieren! _________________ » Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
 
  | 
			 
		  | 
	
	
		| Nach oben | 
		 | 
	
	
		  | 
	
	
		Dusky_Joe
 
  
  Anmeldungsdatum: 07.01.2005 Beiträge: 1007 Wohnort: Regensburg/Oberpfalz
  | 
		
			
				 Verfasst am: 27.02.2005, 18:40    Titel:  | 
				     | 
			 
			
				
  | 
			 
			
				hmm.... mir fällt zu dem problem auch nix anderes ein, als eine alternative routine zu schreiben. die könnte dann prüfen, ob die länge der eingabe 0 ist. und wenn, dann soll eine meldung ausgegeben werden, dass du etwas eigeben musst, oder so...
 
 
 	  | Code: | 	 		  
 
SUB AltInput (Prompt$, row, col, Ant$)
 
LOCATE row, col
 
PRINT Prompt$;
 
 
GetKey:
 
k$ = INKEY$
 
SELECT CASE k$
 
 CASE CHR$(8) 'Backspace
 
   ....
 
 CASE CHR$(13) 'Enter
 
  GOTO EndOfSub
 
 
 CASE CHR$(0) 'Keine Taste gedrückt
 
 
 CASE ELSE
 
  Ant$ = Ant$ + k$
 
END SELECT
 
GOTO GetKey
 
 
EndOfSub:
 
END SUB
 
 | 	  
 
 
 
für Backspace musst du dir was einfallen lassen. Geht ganz einfach, hab ich auch schon gemacht, bin nur zu faul, meine codes zu durchsuchen....  
 
 
Das wäre dann mal das Grundgerüst dazu.
 
Jetzt müsstest du nur an EndOfSub So was einbauen, wie:
 
 
 	  | Code: | 	 		  
 
IF LEN(Ant$) = 0 THEN ...
 
 | 	  
 
 
praktisch wäre natürlich, wenn du angeben könntest, ob die eingabe wichtig ist:
 
 
 	  | Code: | 	 		  
 
SUB AltInput (Prompt$, row, col, Ant$, wichtig)
 
 
...
 
 
EndOfSub:
 
IF wichtig THEN
 
...
 
END SUB
 
 | 	  
 
 
 
Ich hoffe bloß, dir ist das nicht zu umständlich *g*
 
Viel spaß damit! _________________ fully biological degradable
 
 
Once, the big wave arrives, you've got two ways, you can go:
 
Either, you ride it, or you don't do.
 
But, if you don't ride, you'll never know wether you'd have gone wet. | 
			 
		  | 
	
	
		| Nach oben | 
		 | 
	
	
		  | 
	
	
		 |