Cara Sensor Nomor Telepon 3 Angka dari Belakang dengan XXX di VB6

Apabila Anda ingin membuat sebuah Game dengan menggunakan undian dengan No telepon atau HP tentu hal ini tidak sembarangan untuk menampilkan sebuah nomor telepon, apalagi pemenang undian akan diumumkan secara publik karena no.telepon bersifat pribadi atau rahasia.

Misal Anda membuat Game dengan pemenang no.telepon adalah 087856738768 maka tentu saja nomor tersebut harus di sensor minimal 3 angka dari belakang dengan sensor karakter "X" sehingga hasil sensor seperti ini 087856738XXX.

Pada artikel kali ini saya akan berbagi trik bagaimana cara mensensor nomor telepon 3 angka dari belakang dengan XXX dengan menggunakan kode VB6. Berikut adaalah langkah-langkahnya:

1. Buka form VB6 Anda pilih Standar EXE

2. Pada Form1 tanamkan 2 Label, 1 Textbox, 1 Commandbuton dengan Caption "Sensor"

3. Desainlah Form seperti gambar dibawah ini :

Desain Form

Setelah mendesain Form, lalu pada jendela kode ketik kode dibawah ini :

Private Sub Command1_Click()

If Text1.Text = "" Then

MsgBox "masukan No.tlpn yang di inginkan!!", vbQuestion, "Perhatian"

Text1.SetFocus

Else

Dim kanan, kiri, sensor As String

'mengambil 9 angka dari depan (tergantung kebutuhan)

kiri = Left(Text1.Text, 9)

'mengambil 3 angka dari belakang (tergantun kebutuhan)

'bila nomor hp lebih dari 12 digit ubah angka 3 menjadi lebih besar

kanan = Right(Text1.Text, 3)

sensor = Replace(kanan, kanan, "XXX") 'mensensor 3 angka dari belakang

Label2.Caption = kiri & sensor

End If

End Sub

Private Sub Form_Activate()

Text1.SetFocus

End Sub

Private Sub Form_Load()

Text1.Text = ""

Label2.Caption = ""

End Sub

Setelah Selesai mengetik kode diatas coba jalankan Project Anda, kemudian isi nomor telepon yang diinginkan dan lalu tekan tombol "Sensor".Jika berhasil maka hasilnya akan tanpak seperti gambar dibawah ini :

Output

Demikianlah artikel singkat dari saya tentang cara mensensor nomor telepon 3 angka dari belakang dengan XXX dengan VB6, semoga bermanfaat buat kita semua.Amin.

Selamat mencoba semoga sukses....

Related Post: Uncategories