Mengecek Angka Duplikat Secara Cepat dan Profesional di VB6

Mengecek Angka Duplikat secara Cepat dan Profesional di VB6

Pada artikel kali ini Admin akan membagikan sebuah kode yang berfungsi untuk mengecek angka yang yang duplikat atau kembar dalam sebuah isian textbox. Biasanya kode ini di berlakukan oleh si programmer agar tidak ada angka yang kembar, lalu kita bertanya-tanya kira-kira kode ini di buat atau dibutuhkan pada saat membuat apa?, ya itu pertanyaan bagus. Biasanya kode program seperti ini di pergunakan untuk membuat Game seperti game memory number, sudoku,tebak angka dan lain-lain. Selain untuk membuat game juga bisa dipergunakan untuk membuat nomor antrian, nomor udian dan lain sebagainya

Nah, di artikel blog santai ini kita akan membuat cara cek duplikat angaka dengan vb6 secara cepat, rapi, dan profesional. Mulai dari konsep dasar, langkah demi langkah pembuatannya sampai aplikasi benar-benar running.

Cek angka duplikat

Kenapa Harus Mengecek Duplikat Angka?

Apakah tujuan dari pembuatan kode seperti ini salah satunya adalah

Mencegah data ganda di database atau di form itu sendiri
Menjaga integritas data
Menghindari error logika program
Memberikan validasi input yang lebih profesional

Kalau aplikasi kamu dipakai banyak user, cek duplikat angka itu wajib hukumnya.

Konsep Dasar Cek Duplikat Angka di VB6

Secara sederhana, pengecekan duplikat dilakukan dengan:

Menyimpan data angka ke dalam array
Membandingkan nilai baru dengan data yang sudah ada
Jika sama → duplikat
Jika beda → lanjut simpan

Dalam tutorial kali ini kita akan menggunakan beberapa pendekatan

Menggunakan Array
Menggunakan Collection
Menggunakan Dictionary (Scripting Runtime)

Di artikel ini, kita pakai Collection karena:

Mudah dipahami
Native di VB6
Tidak perlu referensi tambahan

Persiapan Awal Aplikasi

Tools yang Dibutuhkan

Microsoft Visual Basic 6.0
PC/laptop Windows
Jangan lupa sediakan Kopi atau teh biar fokus ☕

Langkah-langkah Membuat Aplikasi Cek Duplikat Angka di VB6

Step 1: Buat Project Baru

Buka Visual Basic 6.0
Pilih Standard EXE
Klik OK

Step 2: Desain Form

Tambahkan komponen berikut di Form1:

Tanamkan 1 buah TextBox di Form
Kemudian Copy-Paste TestBox1 sebanyak 5 sehingga menjadi :
Text1(0), Text1(1), Text1(2), Text1(3), Text1(4), Text1(5)
Tambahkan 1 buah CommanButton

Desainlah Form seperti gambar dibawah in :

Desain Firm

Step 3: Coding Tombol Cek Duplikat

Buka jendela kode, lalu copy-paste kode dibawah ini di bagian General-Declarations



Private Sub Command1_Click()
    Dim i As Integer, j As Integer
    Dim adaDuplikat As Boolean
    Dim daftarDuplikat As String

    adaDuplikat = False
    daftarDuplikat = ""

    ' Cek duplikat
    For i = 0 To 5
        If Trim(Text1(i).Text) <> "" Then
            For j = i + 1 To 5
                If Trim(Text1(j).Text) <> "" Then
                    If Text1(i).Text = Text1(j).Text Then
                        Text1(i).BackColor = vbRed
                        Text1(j).BackColor = vbRed
                        adaDuplikat = True

                        If InStr(daftarDuplikat, Text1(i).Text & ",") = 0 Then
                            daftarDuplikat = daftarDuplikat & Text1(i).Text & ", "
                        End If
                    End If
                End If
            Next j
        End If
    Next i

    If adaDuplikat Then
        daftarDuplikat = Left(daftarDuplikat, Len(daftarDuplikat) - 2)
        MsgBox "Angka duplikat: " & daftarDuplikat & " silahkan perbaiki", vbExclamation, "Perhatian"
    Else
        MsgBox "Tidak ada angka duplikat", vbInformation, "Informasi"
        ResetWarna
    End If
End Sub

Private Sub Form_Load()
'mengosongkan textbox
Dim i As Integer

For i = 0 To 5
    Text1(i).Text = ""
Next i

End Sub

Private Sub Text1_Change(Index As Integer)
' Jika user mulai mengedit, kembalikan warna textbox ini saja
    If Trim(Text1(Index).Text) <> "" Then
        Text1(Index).BackColor = vbWhite
    End If
End Sub

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)

    ' Angka 1–9, hanya 1 digit
    If (KeyAscii < 49 Or KeyAscii > 57) And KeyAscii <> 8 Then
    MsgBox "Masukan angka dari 1 s/d 9 saja", vbInformation, "Informasi"
        KeyAscii = 0
    End If
    
    If Len(Text1(Index).Text) >= 1 And KeyAscii <> 8 Then
    
        KeyAscii = 0
    End If
End Sub

Private Sub ResetWarna()
    Dim i As Integer
    For i = 0 To 5
        Text1(i).BackColor = vbWhite
    Next i
End Sub

Ini salah satu trik cek duplikat angaka dengan vb6 yang sering dipakai di aplikasi profesional.

Contoh Alur Program

User input angka: 1-9 tiap kotak
Klik Tombol Cek Duplikat
Muncul Pesan dalam kotak pesan Angka berapa saja yang duplikat (jika ada)
Jika ada angka yang duplikat maka akan di tandai warna merah
Warna merah akan terus ada selama belum di edit

Kelebihan Metode Ini

Cepat dan ringan
Tidak perlu database
Cocok untuk aplikasi offline
Mudah dikembangkan

Kalau data sudah sangat besar, baru disarankan cek duplikat langsung dari database.

Penutup: Saatnya Praktik!

Kalau artikel ini bermanfaat, langsung praktikkan di project VB6 kamu hari ini. Selamat ngoding dan semoga aplikasi kamu makin solid! 🚀

All About VB