Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
Spongebob Schwamm
Anmeldungsdatum: 31.10.2004 Beiträge: 40
|
Verfasst am: 26.02.2005, 19: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, 20: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: 27.02.2005, 00: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, 13: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, 19: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, 19: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 |
|
 |
|