Autor Wiadomość
kamil_skutery
PostWysłany: Pią 17:56, 30 Gru 2005    Temat postu: Macie tu skrypt na tłumacza Alabetu Morss'a

<script>
function clearing()
{
window.document.morse.output.value = " ";
}


function transform()
{
var zeichen = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ", i, d, f;
var eingabe = window.document.morse.input;
var ausgabe = window.document.morse.output;
var laenge = eingabe.value.length;

for(i=0; i<laenge; i++)
{
i=eingabe.value.charAt(i);
if(zeichen.indexOf (i) ==-1)
{
alert("Bitte nur Buchstaben eingeben.");
break;
}
else
{
for(f=0; f<laenge; f++)
{
switch (eingabe.value.charAt(f))
{
case 'a':{ausgabe.value = ausgabe.value + " .- "; break;}
case 'b':{ausgabe.value = ausgabe.value + " -... "; break;}
case 'c':{ausgabe.value = ausgabe.value + " -.-. "; break;}
case 'd':{ausgabe.value = ausgabe.value + " -.. "; break;}
case 'e':{ausgabe.value = ausgabe.value + " . "; break;}
case 'f':{ausgabe.value = ausgabe.value + " ..-. "; break;}
case 'g':{ausgabe.value = ausgabe.value + " --. "; break;}
case 'h':{ausgabe.value = ausgabe.value + " .... "; break;}
case 'i':{ausgabe.value = ausgabe.value + " .. "; break;}
case 'j':{ausgabe.value = ausgabe.value + " .--- "; break;}
case 'k':{ausgabe.value = ausgabe.value + " -.- "; break;}
case 'l':{ausgabe.value = ausgabe.value + " .-.. "; break;}
case 'm':{ausgabe.value = ausgabe.value + " -- "; break;}
case 'n':{ausgabe.value = ausgabe.value + " -. "; break;}
case 'o':{ausgabe.value = ausgabe.value + " --- "; break;}
case 'p':{ausgabe.value = ausgabe.value + " .--. "; break;}
case 'q':{ausgabe.value = ausgabe.value + " --.- "; break;}
case 'r':{ausgabe.value = ausgabe.value + " .-. "; break;}
case 's':{ausgabe.value = ausgabe.value + " ... "; break;}
case 't':{ausgabe.value = ausgabe.value + " - "; break;}
case 'u':{ausgabe.value = ausgabe.value + " ..- "; break;}
case 'v':{ausgabe.value = ausgabe.value + " ...- "; break;}
case 'w':{ausgabe.value = ausgabe.value + " .-- "; break;}
case 'x':{ausgabe.value = ausgabe.value + " -..- "; break;}
case 'y':{ausgabe.value = ausgabe.value + " -.-- "; break;}
case 'z':{ausgabe.value = ausgabe.value + " --.. "; break;}
}
}
}
}
}
-->
</script><form name="morse">
<input type="Text" name="input" value="" size="40" maxlength="1000" onKeyDown="clearing(); transform();"><br>
<textarea name="output" cols="30" rows="5"></textarea><br>
<input type="button" value="przetłumacz" onClick="clearing(); transform();">
<input type="reset" value="wyczyść">
</form>


<table>

<tr><td>a</td><td>.-</td></tr>
<tr><td>b</td><td>-...</td></tr>
<tr><td>c</td><td>-.-.</td></tr>
<tr><td>d</td><td>-..</td></tr>
<tr><td>e</td><td>.</td></tr>
<tr><td>f</td><td>..-.</td></tr>
<tr><td>g</td><td>--.</td></tr>
<tr><td>h</td><td>....</td></tr>
<tr><td>i</td><td>..</td></tr>
<tr><td>j</td><td>.---</td></tr>
<tr><td>k</td><td>-.-</td></tr>
<tr><td>l</td><td>.-..</td></tr>
<tr><td>m</td><td>--</td></tr>
<tr><td>n</td><td>-.</td></tr>
<tr><td>o</td><td>---</td></tr>
<tr><td>p</td><td>.--.</td></tr>
<tr><td>q</td><td>--.-</td></tr>
<tr><td>r</td><td>.-.</td></tr>
<tr><td>s</td><td>...</td></tr>
<tr><td>t</td><td>-</td></tr>
<tr><td>u</td><td>..-</td></tr>
<tr><td>v</td><td>...-</td></tr>
<tr><td>w</td><td>.--</td></tr>
<tr><td>x</td><td>-..-</td></tr>
<tr><td>y</td><td>-.--</td></tr>
<tr><td>z</td><td>--..</td></tr>
</table>

Powered by phpBB © 2001, 2005 phpBB Group