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 :
(https://forum.dhammacitta.org/proxy.php?request=http%3A%2F%2Fi494.photobucket.com%2Falbums%2Frr304%2Fagungvengeance%2Ftrikhapalmorse.gif&hash=cc01031efb1325b03990bf13f5765721d6134d3e)
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.
sangat berguna :))
thanks bangetttttttttttttttttt
-
....
.-
-.
-.-
...
thanks =))
--.
.-.
.--.
...
.
-.
-
_/\_
hmm.. tar tak upload programmnya ah... kebetulan baru bikin
nice info
FoxPro time....... ;D ;D
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
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?
KH : mgkn itu kode khusus utk cewe?
....
.
....
.
....
.
....
.
^atas:
.-
.--.
.-
-.-
.-
-...
.-
.-.
_...
---
...
?
dah
http://www.geocities.com/sendmail2irvan/Release.zip (http://www.geocities.com/sendmail2irvan/Release.zip)
-.-
.-
-...
.-
.-.
_...
.-
..
-.-
-...
---
...
..-.
.
.-..
..
-..-
Jangan bercanda.....
SOS
... _ ...
berguna kalau lagi tenggelam/gempa
mohon diingat...
ada yg lebih singkat cuma 2 huruf doank
F1
Quote from: hatRed on 16 January 2009, 05:32:34 PM
ada yg lebih singkat cuma 2 huruf doank
F1
jangan bercanda dg ... --- ... (SOS) :hammer:
:..--,..--:;..__