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
