ALAY GENERATOR: Anda Bisa Membuatnya Sendiri Dengan Mudah

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(8)
  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 nama AlayGenerator.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

Credit n’ Source:

• Chetya > Aplikasi 4L@ÿ Generator
• Dimodifikasi oleh penulis mengunakan VBS, dan penambahan beberapa fitur pada skripnya

About these ads