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 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.
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.
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.
- Langkah pertama yang harus kamu lakukan, buat form aplikasinya terlebih dahulu sesuai dengan gambar yang ada di bawah ini.
- Kemudian jangan lupa untuk men-setting properties dari masing-masing komponen yang digunakan sesuai dengan tabel pengaturan di bawah ini.
- 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.
- Kemudian klik Button Play pada toolbar VB 6 untuk menjalankan aplikasi.
 |
| Step 1 - Serial Number Visual Basic 6 |
| 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) |
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
 |
| 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.
