Pernahkan anda membuat tulisan dengan gaya alay? seperti di handphone mengirim sms atau update status Facebook, Chat, dll ? Tapi jika menulis satu-satu, pasti akan terasa lama dan bosan . Tapi tenang, kali ini anda bisa membuat aplikasinya sendiri dengan visual basic .
Buat sebuah Module baru dan ketikkan :
Public Function Alay(ByVal Str As String) As String
Dim s As String, h As String, i As Integer
Str = LCase(Str)
For i = 1 To Len(Str)
s = Mid(Str, i, 1)
Select Case s
Case "a": s = "������������@4"
Case "b": s = "�8"
Case "c": s = "�Ǣ"
Case "d": s = "�"
Case "e": s = "�������ˣ3"
Case "g": s = "69"
Case "i": s = "�������ϡ!1"
Case "n": s = "��"
Case "o": s = "������������0"
Case "p": s = "��"
Case "s": s = "$�5"
Case "t": s = "7"
Case "u": s = "�������ܵ"
Case "x": s = "�"
Case "y": s = "��ݥ"
Case Else: s = IIf(CInt(Rnd * 1) = 0, UCase(s), s)
End Select
Randomize
h = h & Mid(s, CInt(Rnd * (Len(s) - 1)) + 1, 1)
Next
Alay = h
End Function
Dim s As String, h As String, i As Integer
Str = LCase(Str)
For i = 1 To Len(Str)
s = Mid(Str, i, 1)
Select Case s
Case "a": s = "������������@4"
Case "b": s = "�8"
Case "c": s = "�Ǣ"
Case "d": s = "�"
Case "e": s = "�������ˣ3"
Case "g": s = "69"
Case "i": s = "�������ϡ!1"
Case "n": s = "��"
Case "o": s = "������������0"
Case "p": s = "��"
Case "s": s = "$�5"
Case "t": s = "7"
Case "u": s = "�������ܵ"
Case "x": s = "�"
Case "y": s = "��ݥ"
Case Else: s = IIf(CInt(Rnd * 1) = 0, UCase(s), s)
End Select
Randomize
h = h & Mid(s, CInt(Rnd * (Len(s) - 1)) + 1, 1)
Next
Alay = h
End Function
Selanjutnya, buat sebuah Form baru dengan 2 buah kontrol TextBox didalamnya.
[ VB 6.0 ]
Di bagian 'Text1_Change' ketikkan :
Text2.Text = Alay(Text1.Text)
[ VB .NET ]
di bagian 'TextBox1_TextChanged' ketikkan :
di bagian 'TextBox1_TextChanged' ketikkan :
TextBox2.Text = Alay(TextBox1.Text)
���7�h H4��l ��R� @�l�k@�� ��� .
k�R�� 8�k�� ?
Jalankan aplikasi, kemudian coba ketikkan teks di TextBox yang pertama !
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :
