Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

Tastenanschläge zählen

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC.
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
General



Anmeldungsdatum: 26.11.2006
Beiträge: 149

BeitragVerfasst am: 28.02.2007, 17:44    Titel: Tastenanschläge zählen Antworten mit Zitat

Ja moin nochma ich wollte ma fragen ob einer weiß wie man die Tastenanscläge zählen kann, weil ich habe jetzt schon soviel versucht is aber nix dabei rausgekommen, vielei kann mir jemand helfen.

GRuss General
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Stormy



Anmeldungsdatum: 10.09.2004
Beiträge: 567
Wohnort: Sachsen - wo die schönen Frauen wachsen ;)

BeitragVerfasst am: 28.02.2007, 17:51    Titel: Antworten mit Zitat

Code:
dim as string taste
dim as integer anzahl

DO

  DO
    taste = INKEY$
  LOOP UNTIL taste <> "" ' Warte solange bis ein Tastendruck kommt

  anzahl = anzahl + 1 ' Zähle einen Anschlag hinzu...

  CLS
  LOCATE 1,1: PRINT "Tastenanschläge:"; anzahl

LOOP UNTIL taste = CHR$(27) ' ESCAPE führt zum Abbruch

_________________
+++ QB-City +++ Die virtuelle Stadt für jeden Freelancer - Join the community!
Projekte: QB-City,MysticWorld (RPG), 2D-OpenGL-Tutorial
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
General



Anmeldungsdatum: 26.11.2006
Beiträge: 149

BeitragVerfasst am: 28.02.2007, 17:55    Titel: Antworten mit Zitat

hey coool mega danke schön an dich
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Flo
aka kleiner_hacker


Anmeldungsdatum: 23.06.2006
Beiträge: 1210

BeitragVerfasst am: 28.02.2007, 17:56    Titel: Antworten mit Zitat

Code:

dim start as long
dim testzeit as integer 'in sekunden
dim x$ as string
dim tipp as integer
testzeit=10
start=timer
?"Tippen Sie folgenden text"
?"Blablabla..."
do while timer-start<testzeit
 x=inkey
if len(x) then ?x;:tipp=tipp+1
loop

?Tipp;" Tastenanschläge in ";testzeit;" Sekunden"
end

_________________
MFG
Flo

Satoru Iwata: Wer Spaß am Spielen hat, fragt nicht nach Grafik.

zum korrekten Verstaendnis meiner Beitraege ist die regelmaessige Wartung des Ironiedetektors unerlaesslich.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC. Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.

 Impressum :: Datenschutz