Source Code VB 6 Random Huruf dan Angka

Source Code VB 6 Random Huruf dan Angka

Source Code VB 6 Random Huruf dan Angka - Kedengaranya sepeleh, tapi di dalam pemrograman visual basic, baik itu VB 6 atau VB Net dan bahasa pemrograman lainnya hal ini sangat di perlukan, terutama pembuatan no otomatis pada entry data.

Coba anda bayangkan, apabila anda harus mengentrykan data secara manual pada kode primary key input data anda, sudah barang pasti akan sangat menyibukkan. Dengan bantuan sedikit coding dari penulis anda dapat mengentrikan no data secara cepat dan tidak perlu anda hiraukan, kecil kemungkinan akan terjadi duplicated.

Untuk membuat Source Code VB 6 Random Huruf dan Angka, pertama anda buka dulu aplikasi visual basic anda tentunya, setelah itu silakan anda copy coding di bawah ini.

Langka-langka kerja:

tambahkan module lalu copy coding ini:

' pembuatan no otomatis disiniPublic Function RandomNumber(startNum As Integer, endNum As Integer) As Integer
    Randomize
    RandomNumber = Int(((endNum - startNum + 1) * Rnd) + startNum)
End Function
' menukar dua karakter dalam sebuah stringPublic Function swap(text As String, pos1 As Integer, pos2 As Integer)
    Dim temp As String
    temp = Mid(text, pos1, 1)
    text = Mid(text, 1, pos1 - 1) + Mid(text, pos2, 1) + Mid(text, pos1 + 1)
    text = Mid(text, 1, pos2 - 1) + temp + Mid(text, pos2 + 1)
    swap = text
End Function
' mengacak kataPublic Function scrambleWord(ByVal text As String)
    Dim scrambleStrength As Integer, pos1 As Integer, pos2 As Integer
    Dim i As Integer
 
    ' mungkin tidak perlu lebih tinggi dari ini    scrambleStrength = (Len(text) - 1) * 2

    For i = 0 To scrambleStrength
        pos1 = RandomNumber(1, Len(text))
        pos2 = RandomNumber(1, Len(text))
        text = swap(text, pos1, pos2)
    Next
    scrambleWord = text
End Function
Public Function scrambleInput(text As String)
    Dim words() As String, i As Integer
    words = Split(text, " ") ' split is a VB function for breaking a string into an array of strings
    For i = 0 To UBound(words)
        ' menguraikan setiap kata        words(i) = scrambleWord(words(i))
    Next
 
    ' string output scrambled text    scrambleInput = Join(words, " ")
End Function

Selanjutnya, apabila coding diatas sudah anda masukkan kedalam module, kemudian pada form anda tambahkan coding dibawah ini:

' Text 1 adalah sasaran (inpu/output)

Private Sub Command1_Click()
Text1 = scrambleInput(Text1)
End Sub

Kalau masih belum jelas juga perhatikan gambar berikut:

Source Code VB 6 Random Huruf dan Angka

Demikianlah artikel tentang Source Code VB 6 Random Huruf dan Angka, penulis harap dapat bermanfaat bagi pengunjung sekalian.

Jangan lupa berkunjung lagi pada blog ini dan simak artikel menarik lainnya, penulis akan memposting aneka pelajaran lain di lain hari. Terima Kasih

Salam Hangat Semoga Anda Bisah Membuat Aplikasi Sekala Besar Nantinya.

* Kunjungi Channel YouTube Kami di Gudang Tutorial untuk melihat demo program siap pesan

Author : Unknown

Share this

Related Posts