Cara Membuat Aplikasi Visual Basic 6.0 Full Video

Assalamualaikum
Pada Kesempatan Kali Ini Ane Mau Share Artikel Cara Membuat Aplikasi Dengan Visual Basic 6.0
Disini Ane Bikin Tutorialnya Bukan Melalui Text Tetapi Lewat Video Langsung Agar Bisa Lebih Mudah Dipahami Dan Dimengerti Cara Pembuatan Beserta Codingnya
Sebenernya Udah Lama Sih Ane Buat Video Ini... Malah Sebelum Dibangunnya Blog Ini Saya Sudah Buat Videonya



Video Diatas Tersebut Saya Membuat Contoh Untuk Membuat Aplikasi Alay Generator

Jika Butuh Codenya...
Nih Ane Kasih Code Modulenya...

'Cara Membuat Alay Generator
'Visual Basic 6.0
'Coding Akbar Wicaksono
'Thanks To Devilzc0de And JKT48 CYBER TEAM
'Visit My Blog: http://akbar-wicaksono.com/

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

Next Project Cara Membuat Media Player With Visual Basic 6.0

Posted in: Visual Basic 6.0