fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Countdown für Quizfrage Minibeispiel

Uploader:	Sebastian
Datum/Zeit:	15.06.2011 01:07:58

Dim As Single Zeitpunkt

Dim As String Eingabe

Dim As Integer Restzeit, RestzeitAlt=-1



Print "*** Quiz ***"

Print



Print "Frage:"

Print



Print "Programmieren macht am meisten Spass mit ..."

Print " [A] COBOL"

Print " [B] x86 Assembler"

Print " [C] FreeBASIC"

Print " [D] Haskell"

Print

Print "Bitte druecken Sie den jeweiligen Antwortbuchstaben."

Print



'Startzeitpunkt merken

Zeitpunkt = Timer



Do



  Eingabe = Inkey



  'Wurde etwas eingegeben?

  If Eingabe <> "" Then

      'In Grossbuchstaben umgewandelte Eingabe (->UCASE) auswerten:

      Select Case UCASE(Eingabe)

      Case "A", "B", "D"

          CLS: Print "Das war leider falsch.": Exit Do

      Case "C"

          CLS: Print "Richtig!!!": Exit Do

      Case Else

          Beep

      End Select

  End If



  'Restzeit bestimmen.

  Restzeit = Int(10 - Abs(Timer - Zeitpunkt))



  'Damit das Bild nicht flimmert und unnoetig Rechenleistung "verbraten"

  'wird, wird die Information nur neu ausgegeben, wenn sich die Restzeit

  'verringert hat.

  If Restzeit <> RestzeitAlt Then

    'Cursor in Zeile 13, Spalte 1 setzen

    Locate 13, 1

    Print "Ihnen verbleiben noch " & Restzeit & " Sekunden zum Antworten.  "

    RestzeitAlt = Restzeit

  End If



  'Zeitueberschreitung?

  If Abs(Timer - Zeitpunkt) > 10 Then

      CLS

      Print "Leider haben Sie nicht rechtzeitig gedrueckt."

      Sleep: End

  End If



  'CPU entlasten

  Sleep 100



Loop



Sleep

End

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.