Witam. Mam problem ponieważ nie wiem jak zrobić takiej opcji że jak wcisnę Q to zacznie "piszczeć" ten głośniczek w komputerze.
Chciałem taką opcje mieć w prostym programie w Pascalu.
Z czym konkretnie masz problem?
Przechwycenie wciśniętego klawisza: znak := ReadKey;
i sprawdzenie czy równa się Q if znak = 'Q' then...
i piszczenie ...sound(czestotliwosc);
. Powinno działać z Pascal'em dawno nie miałem do czynienia.
Mam teraz taki problem, że jak wcisnę Q to jakoś nie ma nic dźwięku ;/
program domek;
uses crt;
var Q : String;
begin
clrscr;
...
Q := Readkey;
If Q = 'Q' then
sound(3000);
repeat until keypressed;
end..
Program przycięty bo bez sensu pokazywać obrazki z kresek. Jeżeli jest dobrze napisany program to wydaje dźwięki czy czegoś tu jeszcze brakuje?
A ta pętla to do czego jest do if'a? Może zmień ze string'a na char?
Na Char dalej nie ma dźwięku.
Nie wiem jak się robi pętle jeszcze ale chyba w tym będzie trzeba użyć.
A spróbuj zamiast sound dać MessageBeep(-1);
MesageBeep nie pomogło ;/
Mój błąd polegał na tym że w komendzie if miałem:
If Q = 'Q' then
a powinno być:
If Q = 'q' then
A może w Twoim komputerze nie ma w ogóle głośniczka na płycie głównej? Pamiętaj też, że w kodzie masz dużą literę "Q", co dla procedury Readkey ma znaczenie.
Taki prosty program na pewno wyda dźwięk z systemowego głośniczka:
program Bzyczek;
uses Crt;
var Znak: Char;
begin
Znak:= Readkey;
if Znak = 'Q' then Sound(2000);
repeat until Keypressed;
Nosound;
end.
Edit: Zdaje się, że się spóźniłem