Home » , , » Membuat Teks Alay dengan VB.net 2010

Membuat Teks Alay dengan VB.net 2010

 Hallo sobat blogger,, Kali ini anaksiblog akan share cara "Membuat Teks Alay dengan VB.net 2010".
Di dalam kehidupan sehari-hari kita sering menggunakan teks alay tersebut di dalam facebook, twitter, sms dan sebagainya. Sebenarnya kita bisa membuat teks alay itu sendiri dengan bantuan sebuah aplikasi generatornya menggunakan Visual Basic Net 2010

teks alay generator vb net 2010

 Pertama kali buatlah sebuah form Baru, designlah form tersebut dengan 2 buah kontrol TextBox didalamnya, dan beserta 1 Button, ganti text button1 dan isi dengan nama Generate.
syntak teks alay genarator vb.net 2010


Masukkan syntax berikut dibawah Public Class Form1
--------------------------------------------------------
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

-----------------------------------------------------------

Setelah itu  Klik 2x Botton1 dan ketikkan :

------------------------------------------------------------
TextBox1.Text = Alay(TextBox2.Text)
-------------------------------------------------------------
Jalankan aplikasi dengan menekan tombol run. Untuk test aplikasinya isi textbox1 dan terakhir klik button generate. Akhirnya Membuat Teks Alay dengan VB.net 2010, telah anaksiblog sampaikan, Terima kasih atas kunjungan anda :D


Rating: 4.5

0 Komentar: