aslaamualaikum wr.wb ,
kali ini saya ingin berbagi tutorial cara buat text ALAY GENERATOR dengan visual basic 6 .
emang sih sangat simple , tapi untuk yang belum tau ikuti langkah - langkah nya ya .
- Buat 2 Buah TextBox
- buat 1 Buah CommandButton
atur dan posisikan seperti gambar di bawah ini
jika sudah , selanjut nya adalah buat module .
dan masukan code 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 "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
selanjut nya , click 2x pada command buttondan masukan code di bawah ini
Text2.Text = Alay(Text1.Text)
jika sudah F5 dan liat hasil nya ..
terimakasih telah membaca artikel di BLOG ini ..