Rabu, 18 April 2012

ALAY Generator /Anda Bisa Membuatnya Sendiri


Bergaya alay mungkin sudah jadi trend di masyarakat, khususnya para kaula muda atau remaja, biasanya mereka tunjukan dengan cara berpakaian atau perpenampilan nyeleneh, aneh, atau di luar kebiasaan. Mungkin dengan maksud mencari perhatian, atau apalah motivasi mereka melakukannya. Penulis sendiri kurang begitu paham tentang “ALAY” maklum penulis sendiri belum pernah dan nggak pernah tertarik melakukannya .
Seiring dengan perkembangan teknologi internet, ternyata ALAY bukan hanya ditunjukan dengan cara berpenampilan, tapi juga dalam aktivitas para pengguna jejaring sosial, blogger, chater, salah satunya dengan menggunakan karakter-karakter aneh untuk membuat status pada facebook, twitter, YM, dan aplikasi lainnya yang memanfaatkan media tulisan untuk berkomunikasi satu sama lainnya. Mungkin bagi anda yang awam anda akan heran bahkan bingung bagaimana teman anda bisa membuat tulisan §ëþÈr7Î ìÑï. Atau bagi anda yang sudah terbiasa bergaya ÂlÃÿ di jejaring sosial, anda mungkin sudah terbiasa menggunakan Character Map pada Windows untuk mencari karakter-karakter aneh yang terlihat hampir mirip dengan hurup Alphabet umumnya, baik menggunakan angka maupun karakter unicode. Tetapi penulis disini akan menunjukkan kepada anda cara yang termudah untuk membuat tulisan alay dengan membuat sendiri aplikasinya, yang nantinya tentu akan bermanfaat untuk memudahkan pekerjaan alay anda (nyengir).
Aplikasinya dinamakan ALAY GENERATOR, karena memiliki fungsi untuk mengubah tulisan biasa menjadi tulisan berkarakter alay. Aplikasinya akan dibuat mengunakan bahasa pemrograman VBScript untuk lebih memudakan anda. Jangan pusing duluan yah kalau dengar kata “pemrograman” bagi anda yang alergi, karena hanya dengan skill mengoperasikan komputer Windows saja udah cukup koq.. , dan bagi anda yang paham vbscript ya tentu anda akan paham scriptnya. Berikut ini langkah pembuatanya.
Buka aplikasi Notepad dengan mengaksesnya pada menu Start >Run > ketikkan Notepad > dan tekan Enter
Selanjutnya copy-paste skrip dibawah ini pada Notepad anda


dim tex,alaytex,mode,smode


on error resume next
tex=inputbox("Masukan tulisan yg mau dibikin ALAY" & vbcrlf & "Langsung tekan ENTER","ALAY GENERATOR")
mode=inputbox("Pilih Mode Alay:" & vbcrlf & _
"1. Hÿßr1d" & vbcrlf & _
"2. Huruf-4n6k4" & vbcrlf & _
"3. bIaSA" & vbcrlf & vbcrlf & _
"Tekan ENTER lagi..","ALAY GENERATOR",1)
If MsgBox("Apakah tulisannya mau disngkat sprti SMS?", vbQuestion + vbYesNo, "ALAY GENERATOR") = vbYes Then smode=1
tex=Alay(tex,mode,smode)
msgbox "TARAAA.., Inilah hasilnya:" & vbcrlf & vbcrlf & tex, vbInformation, "ALAY GENERATOR"
alaytex=inputbox("Inilah tulisan ALAYnya ^_^" & vbcrlf & "Silakan di-copy-paste dan tekan ENTER untuk menutupnya","ALAY GENERATOR",tex)
Function Alay(Str,AlayMode,SMSMode)
Dim s, h, i
Dim AlayChars,VoChars
Randomize
If SMSMode = 1 Then
VoChars = "aiueo"
For i = 1 To Len(VoChars)
If CInt(Rnd * 2) = 0 Then
Str = Replace(Str, Mid(VoChars, i, 1), "", 1, -1, vbTextCompare)
End If
Next
End If
Select Case AlayMode
Case 1: AlayChars = Split("aàáÂÃäåAàáÂÃäå@4;bBß8;cçCç¢;Ð;ÈéêëÈéêë£3;gG69;iìíÎïIìíÎï¡!1;" & _
"nÑNÑ;oòóôõöøOòóôõöø0;pPþþ;s$S§5;tT7;uùúûüUùúûüµ;" & _
"×xX;yýÿYý¥;z2Z", ";", -1, vbTextCompare)
Case 2: AlayChars = Split("4;8;c;d;3;69;1;n;0;p;5;7;u;x;y;2", ";", -1, vbTextCompare)
Case 3: AlayChars = Split("Aa;Bb;Cc;Dd;Ee;Gg;Ii;Nn;Oo;Pp;Ss;Tt;Uu;Xx;Yy;Zz", ";", -1, vbTextCompare)
End Select
Str = LCase(Str)
For i = 1 To Len(Str)
s = Mid(Str, i, 1)
Select Case s
Case "a": s = AlayChars(0)
Case "b": s = AlayChars(1)
Case "c": s = AlayChars(2)
Case "d": s = AlayChars(3)
Case "e": s = AlayChars(4)
Case "g": s = AlayChars(5)
Case "i": s = AlayChars(6)
Case "n": s = AlayChars(7)
Case "o": s = AlayChars(
Case "p": s = AlayChars(9)
Case "s": s = AlayChars(10)
Case "t": s = AlayChars(11)
Case "u": s = AlayChars(12)
Case "x": s = AlayChars(13)
Case "y": s = AlayChars(14)
Case "z": s = AlayChars(15)
Case Else: If CInt(Rnd * 1) = 0 Then s = UCase(s)
End Select
h = h & Mid(s, CInt(Rnd * (Len(s) - 1)) + 1, 1)
Next
Alay = h
End Function



Setelah itu tekan Ctrl+S pada keyboard, pilih lokasinya, beri namaAlayGenerator.vbs, dan Save as type: All files, kemudian klik tombol Save.
Sekarang anda tinggal menggunakannya, coba jalankan (double-klik) file vbs yg sudah jadi dan ikuti petunjuknya, mudah bukan


Aplikasi ini bukan saja mudah membuatnya, tetapi bisa digunakan dimana saja selama anda masih menggunakan komputer dengan Windows, sekalipun tanpa koneksi internet. Selamat ber@l4ýria


<sumber: http://www.chibi-cyber.com>


Tidak ada komentar:

Posting Komentar