fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Tastaturtöne

Uploader:	Sebastian
Datum/Zeit:	20.07.2013 17:37:01

'Code von Sebastian, 20.07.2013, getestet unter W7 x64 Pro



#include "windows.bi"



dim as String   keyboard              = "QWERTZUIOPASDFGHJKLYXCVBNM"

dim as UByte    numKeys               = Len(keyboard)

dim As UInteger freqs(0 To numKeys-1)

dim as uinteger startFreq             = 150

dim as uinteger delta                 = 75



for i as integer = 0 To numKeys-1

    freqs(keyboard[i]-65) = startFreq + i*delta

next i



Dim as String   keybInput

Dim As Ubyte    keyCode

Dim As UInteger freq



Print "Buchstaben-Tasten ergeben Toene. Mit ESC wird das Programm beendet."



Do

    keybInput = Inkey

    If (keybInput <> "") Then

        keyCode = ASC(UCASE(keybInput))

        If ((keyCode >= 65) and (keyCode <= 90)) Then

            freq = freqs(keyCode-65)

            Beep_ (freq, 250)

        End If

    End If

    Sleep 1

Loop Until keybInput = chr(27)



sleep

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.