Membuat Alay Generator Dengan [VB]

buka vb6

yang kita perlukan adalah :
2.textbox yang bernama text1 & text2 ( default )
1.command button berinama command1 ( default )
1.module

seperti ini

::Credit by : Nanda (temen seperjuangan)




buka module
lalu isikan code berikut

Quote

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 = "9"
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

lalu klik2 x command1
isi kan code berikut

Quote

Text2.Text = Alay(Text1.Text)

kira kira seperti ini lah :



dan coba kira run ( f5 )
jadi deh aplikasi nya seperti ini