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

Manusia..

Tagged with: ,
Ditulis dalam Internet, Programming
2 comments on “ALAY GENERATOR: Anda Bisa Membuatnya Sendiri Dengan Mudah
  1. aipai berkata:

    mantab artikelnya gan…
    ane coba ya??

  2. 5ecret4dmirer berkata:

    @aipai: yup, thanks atas kunjungannya bro 🙂

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout /  Ubah )

Foto Google

You are commenting using your Google account. Logout /  Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout /  Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout /  Ubah )

Connecting to %s

Referensi Lainnya
RAHASIA Kesuksesan Generasi KIDs ZAMAN NOW Dalam Membangun dan Menguasai Bisnis online digital di Internet - bisnis zaman sekarang - akademi bisnis online

AYO BERDAGANG BITCOIN DAN DAPATKAN KEUNTUNGAN JUTAAN RUPIAH DARI JUAL BELI BITCOIN vip bitcoin indonesia DISINI

Promo Termurah Harga Spesial Rental Playstation PS4 Slim New 500GB Seri Terbaik Dapatkan DISINI

MULAI BISNIS ANDA SEKARANG KAMI ADALAH PILIHAN TERBAIK DAFTAR SEKARANG


Access Control Access Control Changer Alawar's Time Killer Anti Hidden Anti Nyamuk Aplikasi Pengusir Nyamuk aplikasi tune up modem cdma Basic BEBASKAN BANDWIDTH BEBASKAN BANDWIDTH ANDA DI WINDOWS XP Belajar HTML Bikin Anti Hidden BP Internet Optimizer Browsing Cara Baru Download Youtube cara menggunakan conkeep Cara Mudah Bikin Anti Hidden Cara sederhana menjaga koneksi internet Modem seluler cara setting mtu windows xp dari registry Cepat Mahir Visual Basic 6 Download Drive Drive Secure 2 file Firefox Firefox Booster folder Freeware HTML Internet Dengan Siemens C55 Internet N' Ponsel IP Address Pengirim Email IP Camera: Bukan Sekadar Kamera Pengintai Killing Killing Me Softly Koneksi internet konfigurasi TCP/IP Me Menghilangkan Jejak Setelah Browsing mengoptimalkan kinerja koneksi internet anda Meningkatkan Koneksi internet anda dengan Conkeep Meningkatkan sinyal modem CDMA Meningkatkan sinyal modem CDMA dengan barang-barang rongsokkan modem CDMA modem cdma putus Modem seluler Mozilla firefox MTU (Maximum Transmission Unit) My Japanesse Name Nyamuk Obat Nyamuk Elektronik Pemrograman penguat sinyal modem cdma Programming Qualcomm Membangun low-cost 3G Internet Device Referensi Yang Cukup Lengkap Tentang Registry Registry Windows RWIN (TCP Recieve Window) Setting GPRS Siemens C55 Setting WAP Siemens C55 Shutdown Siemens C55 Softly software anti hiden file Speed Up Internet Tech News Tolak Nyamuk Tutorial Tweaking Tweaking Windows dengan Visual Basic 6.0 Visual Basic 6 Visual Basic 6.0 Web Programming Windows WINDOWS XP

Masukkan alamat email Anda untuk berlangganan blog ini dan menerima pemberitahuan tulisan-tulisan baru melalui email.

Bergabunglah dengan 14 pengikut lainnya

  • FITUR CANGGIH WULING versi CHINA
  • Mobil Wuling - Cortez (New)
    INFO & PEMESANAN VIA WA:  082278394230 The New - Cortez. Adalah produk terbaru dari Wuling Motors, untuk informasi selengkapnya mengenai produk tersebut silakan hubungi langsung sales wuling lampung disini.
  • Mobil Wuling - Confero S 1.5L lux+
    INFO & PEMESANAN VIA WA:  082278394230 Dimension:length: 4493 mmwidth: 1691 mmheight: 1730 mm (With Roof Rail)Wheelbase: 2,720 mmfront tread: 1,430 mmrear tread: 1,450 mmMinimum Turning Radius: 5,500 mmTank Capacity: 42 LChasis:Drive Type: Rear Wheel DriveSteering Type: Rack & Pinion, Electric Power Steering (EPS)Tilt Steering. -Suspension: Front: Mc […]
  • Mobil Wuling - Confero S 1.5C Lux
    INFO & PEMESANAN VIA WA:  082278394230Dimension:length: 4493 mmwidth: 1691 mmheight: 1730 mm (With Roof Rail)Wheelbase: 2,720 mmfront tread: 1,430 mmrear tread: 1,450 mmMinimum Turning Radius: 5,500 mmTank Capacity: 42 LChasis:Drive Type: Rear Wheel DriveSteering Type: Rack & Pinion, Electric Power Steering (EPS)Tilt Steering: -Suspension: Front: McP […]
  • Mobil Wuling - Confero 1.5 ​
    INFO & PEMESANAN VIA WA/HP:  082278394230Dimension:Length: 4493 mmwidth: 1691 mmheight: 1715 mmWheelbase: 2,720 mmfront tread: 1,430 mmrear tread: 1,450 mmMinimum Turning Radius: 5,500 mmTank Capacity: 42 LChasis:Drive Type: Rear Wheel DriveSteering Type: Rack & Pinion, Electric Power Steering (EPS)Tilt Steering: -Suspension: Front: McPherson Strut   […]
  • Gallery Video Wuling
    Yuk Simak Video-video menarik tentang Mobil Wuling, Klik tombol play nowHUBUNGI KAMI >>
  • Tentang Wuling Lampung
    THE WULING WAY - Drive for A Better LifeTerus berevolusi adalah esensi DNA manusia. Kita butuh untuk terus memperbaiki hidup, dan maju terus untuk menjadi lebih baik dari kondisi sekarang. Hal ini adalah salah satu alasan utama keberadaan kita.Wuling menyadari hasrat ini, dan menyejajarkan dirinya. Wuling ingin menggerakkan manusia ke depan dengan menyediaka […]
  • Sebuah galat telah terjadi; umpan tersebut kemungkinan sedang anjlok. Coba lagi nanti.
  • Viral, Lagu Grup Band Asal Lampung “Combro Forever” Bukan Cinta Kaleng-Kaleng
    Setelah Nitizen dihebohkan dengan Lagu Entah Apa yang Merasukimu mendadak viral. Single melow yang dinyanyikan Band Ilir 7 ini bikin heboh media sosial setelah diremix oleh DJ Gagak.Sebuah Band asal Kota Tapis Berseri yang bernama COM.BRo FOREVER pun mencoba peruntungannya melalui Single mereka yang Ngehits dengan Judul ” Bukan Cinta Kaleng-Kaleng atau disin […]
  • Oasis - Go Let It Out
    Intro - AAMake no illusion, try to click with what you gotATaste every potion as if you like yourself a lot          D               F G          AGo let it out, go let it in, go let it out(Bring the Bass)ALife is precocious in the most peculiar wayASister psychosis don't got a lot to say              D                    F G              AShe go let it […]
  • SO7 - Kisah Klasik Untuk Masa Depan
    Intro : A'        Bm'Jabat tanganku                    A'Mungkin untuk yang terakhir kali      Bm'Kita berbincang                F#m7Tentang memori dimasa itu      Bm'Peluk tubuhku             A'Usapkan juga air mataku      Bm'Kita terharu              F#m7Seakan tiada bertemu lagi    Dmaj7Bersenang-senanglah             C# […]
  • BFMV - Tears Don't Fall
    Intro: F - G - F - G - Am-G - F       F - G - F - G - Am-G - AmVerse:Am                     F         GWith blood shot eyes I watch you sleepingAm                         F          GThe warmth I feel beside me is slowly fading          Am           F          GWould she hear me if I called her name?          Am             F       GWould she hold me if she […]
  • VERSAILLES - SERENADE
    intro:F#m E D EBm C#F#m              Enemurenai yoru ga tsuzukuBm    E     Aanata ni aitaiF#m         Etogirete yumeutsutsu tsuC#m        F#mutakata no negaiD                      Eutagau koto mo naku te o toriC#m                F#mfutari aruite kita kono michiD          E          F#mnee yakusoku shita yo ne ? 'A       E F#m       C#mdonnani ookina kab […]
Blog Stats
  • 116.234 hits