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
Demikian artikel tentang Cara Membuat Text Alay Generator dengan vb 6 ini dapat kami sampaikan, semoga artikel atau info tentang Cara Membuat Text Alay Generator dengan vb 6 ini, dapat bermanfaat. Jangan lupa dibagikan juga ya! Terima kasih banyak atas kunjungan nya.
