Cara Membuat Aplikasi Serial Number Visual Basic 6.0

Kali ini, kita akan mencoba membuat sebuah program aplikasi dari Microsoft Visual Basic 6.0 yang berfungsi untuk membuat serial number.
Kali ini, kita akan mencoba membuat sebuah program aplikasi dari Microsoft Visual Basic 6.0 yang berfungsi untuk membuat serial number. Pastinya kamu pernah tahu kan soal Serial Number yang ada pada setiap software berbayar? Bagaimana ya cara membuatnya dengan menggunakan visual basic atau visual studio? Supaya pertanyaan tersebut terjawab, dalam materi inilah kita akan mencobanya, sebenarnya bagaimana sih cara membuat Serial Number itu. Daripada penasaran, betikut kami ulas materinya di Microsoft Visual Basic 6.0, cara membuat serial number di VB6. So, check this out!

Serial Number Visual Basic 6.0
Serial Number Dengan VB 6

Daftar Isi

Persiapan Pertama: Download Visual Basic 6 Enterprise

Persiapan awal yang harus dilakukan yaitu memiliki software Visual Basic 6. Jika kalian sudah install VB 6 persiapan awal ini bisa di skip.
LINK Download Visual Basic 6 Enterprise Visit Link

Persiapan Kedua: 3 Langkah Memulai Visual Basic 6

Selanjutnya di persiapan kedua ini, sobat akan diajarkan bagaimana langkah-langkah membuat project baru.
LINK 3 Langkah Mudah Memulai Visual Basic 6 Visit Link

Simak Cara Serial Number Dengan Visual Basic 6

Setelah sobat mengikuti seluruh persiapan diatas, sobat akan bisa membuat projek baru dengan nama sesuai keinginan sobat. Ikuti tutorial dibawah ini untuk membuat Serial Number.
  1. Langkah pertama yang harus kamu lakukan, buat form aplikasinya terlebih dahulu sesuai dengan gambar yang ada di bawah ini.
  2. Step 1 - Serial Number Visual Basic 6
    Step 1 - Serial Number Visual Basic 6
  3. Kemudian jangan lupa untuk men-setting properties dari masing-masing komponen yang digunakan sesuai dengan tabel pengaturan di bawah ini.
  4. Object Name Caption
    Label1 lbl_username Username
    Label2 lbl_serial_number Serial Number
    Command1 cmd_serial_number Serial Number
    Text1 txt_username (Kosongkan)
    Text2 txt_serial_number (Kosongkan)
  5. Lalu, ketikkan source code di bawah ini ke dalam form aplikasi yang kita buat. Kamu juga bisa copy-paste source code di bawah ini ke dalam form aplikasi yang kamu buat.
  6. 
    Private Sub cmd_serial_number_Click()
    Dim c, i, j, panjang As Integer
    Dim a(6) As Integer
    Dim cacah_key(21) As Integer
    Dim cacah_nama(50) As Integer
    
    a(0) = "00"
    a(1) = "00"
    a(2) = "00"
    a(3) = "99"
    a(4) = "99"
    a(5) = "00"
    
    cacah_key(0) = 38: cacah_key(1) = 56
    cacah_key(2) = 57: cacah_key(3) = 57
    cacah_key(4) = 99: cacah_key(5) = 15
    cacah_key(6) = 58: cacah_key(7) = 12
    cacah_key(8) = 13: cacah_key(9) = 17
    cacah_key(10) = 19: cacah_key(11) = 18
    cacah_key(12) = 88: cacah_key(13) = 58
    cacah_key(14) = 52: cacah_key(15) = 52
    cacah_key(16) = 12: cacah_key(17) = 13
    cacah_key(18) = 12: cacah_key(19) = 57
    cacah_key(20) = 52: cacah_key(21) = 98
    
    trim_nama = UCase(Trim(txt_username.Text))
    panjang = Len(trim_nama) - 1
    
    i = 0
    j = 0
    
    Do While i <= panjang
    For c = 1 To Len(trim_nama)
    cacah_nama(i) = Asc(Mid(trim_nama, c, 1))
    If j > 2 Then j = 0
    a(j) = (cacah_nama(i) * Len(trim_nama) + a(j)) Mod &H64
    If a(j) >= &H64 Then a(j) = a(j) Mod &H64
    i = i + 1
    j = j + 1
    Next
    Loop
    
    i = 0
    Do While i < 5
    a(5) = ((a(5) + a(i) * Len(trim_nama))) Mod &H16
    i = i + 1
    Loop
    
    a(5) = cacah_key(CInt(a(5)))
    
    If Trim(Len(txt_username)) < 3 Then
    txt_serial_number.Text = "Please input name more than 3 char"
    Else
    txt_serial_number.Text = a(3) & a(5) & a(4) & a(0) & a(1) & a(2)
    End If
    End Sub
    
  7. Kemudian klik Button Play pada toolbar VB 6 untuk menjalankan aplikasi.
  8. Step 4 - Game Dadu Visual Basic 6
    Step 4 - Serial Number Visual Basic 6

Penting: Ketikkan nama pemakai ke kolom Username dan kemudian klik Serial Number, maka di kolom Serial Number akan muncul Serial Number yang telah diperhitungkan di dalam aplikasi.

Kesimpulan

Nah, itulah tadi materi Microsoft Visual Basic 6.0 tentang cara membuat Serial Number di VB6. Buat kamu yang ingin menyimpan file materi Microsoft Visual Basic 6.0 kali ini,kamu bisa meyimpannya dengan mengunduh terlebih dahulu lewat link yang kami sediakan di bawah ini.
Serial Number VB 6
Source Code Project Serial Number VB 6.0 Last Update Dewa Teknik