Assalamu’alaikum para bloggers kali ini Hamzah Fansyuri 14™ mau
berbagi cooding untuk anda para Programmer visual basic keluarn ke 6
Oke Langsung Aja Ke Kodingnya
Pertama Susun Tampilannya seperti di bawah ini
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
"f": s = "ƒ"
Case
"g": s = "9"
Case
"i": s = "ìíîïÌÍÎÏ¡!1"
Case
"n": s = "ñÑ"
Case
"o": s = "òóôõöøÒÓÔÕÖØ0"
Case
"p": s = "þÞ"
Case
"q": s = "Qq"
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
Private Sub Command1_Click()
Text2.Text =
Alay(Text1.Text)
End Sub
Setelah semua code di masukkan ke form coba
jalankan Programmya dengan pencet F5
Oke sampai disini dulu informasi yang dapat
Admin dan sekarang admin mau pamit, kalau ada yang kurang jelas Silahkan bagi
dengan Admin di kotak komentar