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:

Ton mit Tastatur eingeben

 
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
oldzorro



Anmeldungsdatum: 09.03.2018
Beiträge: 20
Wohnort: Erkelenz

BeitragVerfasst am: 25.03.2018, 11:22    Titel: Ton mit Tastatur eingeben Antworten mit Zitat

Hi,habe mit dem code

#Include "windows.bi"
#Define a _beep(440,800)
a
sleep

den Kammerton a erzeugt.Wie kann ich ihn durch die Taste a erzeugen?
Mit inkey habe ich nichts gefunden
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden
Jojo
alter Rang


Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte

BeitragVerfasst am: 25.03.2018, 12:17    Titel: Antworten mit Zitat

Vielleicht so?
Code:

#Include "windows.bi"

dim as string taste
do
  taste = inkey
  if taste = "a" then
    _beep(440,800)
  elseif taste = "c" then
    _beep(...)
  endif
  ...
  Sleep 1
loop until taste = chr(27) 'Escape

INKEY wartet nicht bis tatsächlich eine Taste gedrückt wurde, vermutlich war das dein Problem. GETKEY wartet auf einen Tastendruck, das wäre auch eine Alternative.
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
oldzorro



Anmeldungsdatum: 09.03.2018
Beiträge: 20
Wohnort: Erkelenz

BeitragVerfasst am: 25.03.2018, 14:41    Titel: Antworten mit Zitat

Danke,verstanden,Es funktioniert.Damit kann ich die Tonleiter mit den entsrechenden Tasten belegen
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden
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