0 Cara Membuat Generator ALAY dengan VB 6.0

Setelah membuat Kalkulator disini , Saya punya Program lain loh .. Yaitu, GENERATOR ALAY !!

yang mau jadi ALAYERS .. atau cuma sekedar iseng, kalian bisa membuat Alatnya kok ..















1) buat 2 FRAME saling sejajar 

2) Buat 2 Textbox dan masukkan ke Dalam Frame

3) Klik 2x pada Text1 , dan masukkan Script ini :

Text2.Text=Alay(Text1.Text2)

5) Klik Kedua Frame, lalu ganti Captionnya menjadi :
Frame1 ~> Masukan Text
Frame2 ~> Alay Text

6) Setelah itu, di Menu BAR, klik PROJECT, lalu, klik Add Modules 


7) Setelah Add Module, Klik Module, lalu, masukan Script 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 = "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


8) Setelah selesai, jangan lupa Save Modules .. lalu, Klik 1x pada Text2, di BOX PROPERTIES sebelah kanan, Ubah :
Enable=True ~> Ganti True menjadi False

Selesai deh !!