Trik Cepat Hafal Morse

[markosprawira]

Kadang kita kesulitan menghapal atau mengingat kembali isyarat morse, padahal besok mau ikut lomba Galang apalagi jarang berlatih secara periodic. Berikut ini tips menghapal morse dengan cepat. Lihat gambar di bawah ini :



Petunjuk Penggunaan :
1. Gambar di atas terbagi menjadi dua bagian, kanan, dan kiri.
2. Cara membacanya dari atas ke bawah.
3. Blok putih menunjukkan kode titik ( . ) dan blok hitam kode strip ( - ).
4. Contoh sebelah kiri: Jika isyarat menunjukan satu kali putih sama dengan satu kali titik artinya huruf E.
Contoh lain : ( dibaca dari atas, ya ) putih-putih-putih-putih artinya 4 titik ( .... )
Berarti huruf H.
Contoh lagi : hitam-hitam-putih artinya 2 strip 1 titik ( - - . ) berarti huruf G
5. Ingat blok sebelah kiri selalu diawali dengan blok Titik ( Putih ) dan blok kanan selalu diawali dengan blok strip ( Hitam ).

Selamat mencoba, beritahukan teman-temanmu dan ajaklah belajar morse bersama.

[N1AR]

sangat berguna
thanks bangetttttttttttttttttt

[Sumedho]

-
....
.-
-.
-.-
...

[N1AR]

thanks

[F.T]

--.
.-.
.--.

...
.
-.
-

[hatRed]

hmm.. tar tak upload programmnya ah... kebetulan baru bikin

[pendekar kuning]

nice info

[FZ]

FoxPro time.......

Code (visual foxpro) Select Expand


FUNCTION morse
PARAMETERS source as String ,tipe as String

IF PCOUNT()<>2
MESSAGEBOX( "Penggunaan Fungsi : Morse(source,tipe)"+CHR(13)+;
"Tipe = 'M' => Morse  to Normal"+CHR(13)+;
"Tipe = 'N' => Normal to Morse"+CHR(13),64,"Informasi")
RETURN .f.
ENDIF

source = UPPER(source)
keyword = ".- -... -.-. -.. . ..-. --. .... .. .--- -.- .-.. -- -. --- .--. --.- .-. ... - ..- ...- .-- -..- -.-- --.."
nsource = LEN(source)
i=1
result = ""
splitresult = ""

IF tipe = "N"
DO WHILE i <= nsource
split = SUBSTR(source,i,1)
IF SUBSTR(source,i,2)="KH"
splitresult = " ----"
i=i+2
ELSE
ascsplit = ASC(split)
IF ascsplit >= 65 AND ascsplit <= 90
splitresult = " "+GETWORDNUM(keyword,(ascsplit - 64)," ")
ELSE
IF split = " "
splitresult = " "
ELSE
splitresult = ""
ENDIF
ENDIF
i=i+1
ENDIF
result = result + splitresult
splitresult = ""
ENDDO
ENDIF

IF tipe = "M"
keyword=" "+keyword+" "
DO WHILE i <= OCCURS(" ",source)
split = GETWORDNUM(source,i," ")
poskey = AT((" "+split+" "),keyword)
IF poskey = 0
if split ="----"
splitresult = "KH "
ELSE
splitresult = ""
endif
ELSE
splitresult = CHR(64+OCCURS(" ",LEFT(keyword,poskey)))+" "
ENDIF
i=i+1
result = result + splitresult
splitresult = ""
ENDDO
ENDIF

RETURN (result)

END FUNCTION


[johan3000]

Info yg sangat berguna...

kalau ketemu cewek HITAM MANIS...

sebaiknya kasih morse code apa ya?

trus yg paling kanan koq ada KH ? itu utk apa ya?

[markosprawira]

KH : mgkn itu kode khusus utk cewe?

[tesla]

....
.
....
.
....
.
....
.

[F.T]

^atas:

.-
.--.
.-

-.-
.-
-...
.-
.-.

_...
---
...
?

[hatRed]

dah

http://www.geocities.com/sendmail2irvan/Release.zip

[tesla]

-.-
.-
-...
.-
.-.

_...
.-
..
-.-

-...
---
...

..-.
.
.-..
..
-..-

[johan3000]

Jangan bercanda.....

SOS

... _ ...

berguna kalau lagi tenggelam/gempa
mohon diingat...