ci sono pure i menù e la grafichetta 
appena lo fai partire non sentirai lo speaker perchè la variabile n vale 0 e la devi aggiustare 
codice:
program codice_morse;
uses crt;
var i,j,n:integer;
scelta:char;
parola:string[30];
stringa,conv,uscita:string;
procedure linea;
begin
for j:=1 to 11 do
begin
sound(800);
delay(n+n);
end;
nosound;
delay(n);
end;
procedure punto;
begin
for j:=1 to 5 do
begin
sound(800);
delay(n+n);
end;
nosound;
delay(n);
end; {ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»}
begin {º IMPOSTA IL VALORE DELLA VARIABILE 'N' A PIACIMENTO IN RELAZIONE º}
n:=0; {º ALLA VELOCITA' DI SCORRIMENTO DELLE SCRITTE NEI MENU' GRAFICI º}
repeat {º E DELLE PAUSE PRESENTI TRA I SUONI NELLA CONVERSIONE IN MORSE. º}
clrscr; {ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ}
textcolor(15);
for i:=1 to 30 do write(chr(32));
write(chr(201));
for i:=1 to 17 do write(chr(205));
write(chr(187));
for i:=1 to 31 do write(chr(32));
write(chr(201));
for i:=1 to 29 do write(chr(205));
write(chr(185));
for i:=1 to 17 do write(chr(32));
write(chr(204));
for i:=1 to 30 do write(chr(205));
write(chr(187));
write(chr(186));
for i:=1 to 29 do write(chr(32));
write(chr(200));
for i:=1 to 17 do write(chr(205));
write(chr(188));
for i:=1 to 30 do write(chr(32));
for i:=1 to 2 do write(chr(186));
for i:=1 to 78 do write(chr(32));
for i:=1 to 2 do write(chr(186));
textcolor(2);
write(' 1- ');
textcolor(9);
write('VISUALIZZA IL CODICE MORSE');
textcolor(15);
for i:=1 to 47 do write(chr(32));
for i:=1 to 2 do write(chr(186));
for i:=1 to 78 do write(chr(32));
for i:=1 to 2 do write(chr(186));
Avrei un problemino con un programma in Pascal.Io uso win xp e i compilatori del pascal sotto dos non funzionano perchè ogni volta che provo a compilare un programma.pas sotto dos mi dà un errore di run time, precisamente il 200 (division by zero).Mica mi sapreste dire se esiste un modo per far funzionare i compilatori anche sotto dos (versione 5.0 credo) con os xp???Inoltre ho un altro problema: devo riprodurre dei suoni per simulare l'alfabeto morse. Questi suoni devono essere prodotti dallo speaker della mother board che in pascal può essere comandato con l'utilizzo del modulo CRT dichiarandolo nella sezione uses...Purtroppo però per il problema che ho già evidenziato precedentemente non mi è possibile dichiarare il modulo CRT che è usato in dos ma sono costretto a dichiarare il modulo WINCRRT utilizzato in windows.Il problema però è che questo modulo a differenza del precedente non implementa ne il controllo dello speaker ne quello della grafica...Posso dichiarare il modulo CRT in pascal utilizzando una determinata procedura o un modulo che abbia le stesse funzioni???Oppure come posso fare per sfruttare i suoni e la grafica sotto window???
Rispondi quotando
VVoVe:
