Cara Membuat Input Tunggal Otomatis dengan Visual Basic 6.0

Kalian pasti pernah melakukan suatu verifikasi di suatu Aplikasi, dimana saat kita melakukan verifikasi kita diberikan beberapa digit angka atau karakter yang dikirim melalui E-mail, SMS atau WA.

Ketika kita ingin melakukan inputan verifikasi berupa angka yang berada di deretan kotak verifikasi maka secara otomatis kursor akan berpindah kekotak berikutnya setiap kita menekan 1 digit angka.

Inilah yang saya maksud dari Cara Membuat Input Tunggal Otomatis dengan Visual Basic 6.0, berikut dibawah ini adalah ScreenShoot kotak input tunggal yang terdiri dari 4 kotak yang terdiri dari 4 digit angka tunggal :

Output

Untuk membuat input tunggal seperti diatas caranya sangat mudah, Anda cukup menambahkan 4 TextBox pada Form dan susunlah TextBox seperti output diatas kemudian ketik kode dibawah ini:

Option Explicit

Private Sub Text1_KeyPress(KeyAscii As Integer)

    If KeyAscii >= 48 And KeyAscii <= 57 Then ' 0-9

        If Len(Text1.Text) = 0 Then

            Text1.Text = Chr(KeyAscii)

            Text2.SetFocus

            KeyAscii = 0 ' Prevent additional character

        End If

    Else

        KeyAscii = 0 ' Prevent non-numeric input

    End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

    If KeyAscii >= 48 And KeyAscii <= 57 Then ' 0-9

        If Len(Text2.Text) = 0 Then

            Text2.Text = Chr(KeyAscii)

            Text3.SetFocus

            KeyAscii = 0 ' Prevent additional character

        End If

    Else

        KeyAscii = 0 ' Prevent non-numeric input

    End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

    If KeyAscii >= 48 And KeyAscii <= 57 Then ' 0-9

        If Len(Text3.Text) = 0 Then

            Text3.Text = Chr(KeyAscii)

            Text4.SetFocus

            KeyAscii = 0 ' Prevent additional character

        End If

    Else

        KeyAscii = 0 ' Prevent non-numeric input

    End If   

End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)

    If KeyAscii < 48 Or KeyAscii > 57 Then

        KeyAscii = 0 ' Prevent non-numeric input

    End If

End Sub

Private Sub Form_Load()

'pengaturan properti

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text1.BorderStyle = 1

Text2.BorderStyle = 1

Text3.BorderStyle = 1

Text4.BorderStyle = 1

Text1.Appearance = 0

Text2.Appearance = 0

Text3.Appearance = 0

Text4.Appearance = 0

End Sub

Setelah mengetik kode diatas jalankan Project dengan menekan tombol RUN/F5, kemudian coba ketik angka sebanyak 4 digit di TextBox kosong dan tiap kali Anda mengetik angka maka akan berpindah kekotak berikutnya.

Demikianlah artikal singkat hari ini tentang Cara Membuat Input Tunggal Otomatis dengan Visual Basic 6.0.

Semoga artikel ini bermanfaat buat kita semua,amin.

Selamat mencoba semoga berhasil.