Buchempfehlung
Windows System Programming
Windows System Programming
Das Kompendium liefert viele interessante Informationen zur Windows-Programmierung auf Englisch. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Beenden OHNE Beep XD

Uploader:Redakteurytwinky
Datum/Zeit:13.01.2008 20:43:02

' Immer gibt es beim Beenden das BEEP!
' Nicht immer: Bei Ctrl-C nicht, Schlaumeier ROFL

Dim As String t
Do
  Locate 1
  t = Inkey
  If  t[0] = 255 And t[1] = 107 Then Beep
  Sleep 1
Loop