Mengubah 0 Menjadi +62 di Nomor Telepon dengan Kode VB6

Kita tidak asing lagi dengan kode format nomor telepon yang sering kita lihat pada saat ada panggilan masuk yang kita tidak kenal, hal itu karena kita belum simpan di kontak dan nomor itu hanya terlihat di awali +62xxxxxx.

Setiap negara memiliki kode tersendiri termasuk indonesia, lalu berapa kode untuk indonesia yaitu +62

Jadi nomor telpon yang kita lihat pada saat panggilan tak terjawab yang diawali +62 adalah berasal dari indonesia.

Pada artikekali ini saya akan berbagi trik cara memformat nomor telepon dari +62 menjadi 0 dengan menggunakan kode vb6.

Berikut adalah langkah-langkah pembuatannya :

1. Buka Vb6 Anda dengan Standar Exe

2. Pada Form1 desainlah Form seperti gambar dibawah ini

3. Setelah mendesain Form seperti diatas, lalu ketikan kode dibawah ini :

Public Function KonvNoHP_0_ke_62(ByVal NoHP As String) As String

    KonvNoHP_0_ke_62 = NoHP

    If Left(NoHP, 1) = "0" Then KonvNoHP_0_ke_62 = "62" & Right(NoHP, Len(NoHP) - 1)

    If Left(NoHP, 3) = "+62" Then KonvNoHP_0_ke_62 = "62" & Right(NoHP, Len(NoHP) - 3)

    If Left(NoHP, 2) = "62" Then KonvNoHP_0_ke_62 = "62" & Right(NoHP, Len(NoHP) - 2)

    

End Function

Private Sub Command1_Click()

If Text1.Text = "" And Text2.Text = "" Then

MsgBox "masukan nomor telepon", vbInformation, "informasi"

Text1.SetFocus

Else

If Option1.Value = True Then

 Text2 = KonvNoHP_0_ke_62(Text1)

Else

 Text2 = KonvNoHP_62_ke_0(Text1)

End If

End If

End Sub

Public Function KonvNoHP_62_ke_0(ByVal NoHP As String) As String

    KonvNoHP_62_ke_0 = NoHP

    If Left(NoHP, 3) = "+62" Then KonvNoHP_62_ke_0 = "0" & Right(NoHP, Len(NoHP) - 3)

    If Left(NoHP, 2) = "62" Then KonvNoHP_62_ke_0 = "0" & Right(NoHP, Len(NoHP) - 2)

    

End Function

Private Sub Form_Load()

Option1.Value = True

End Sub

Private Sub Option1_Click()

Text1 = vbNullString

Text2 = vbNullString

End Sub

Private Sub Option2_Click()

Text1 = vbNullString

Text2 = vbNullString

End Sub

4. Simpan dan jalankan Poject Anda, jika tidak ada error maka hasilnya akan tampak pada gambar diawal paragraf.

Demikianlah artikel hari ini tentang trik Mengubah 0 Menjadi +62 di Nomor Telepon dengan Kode VB6.

Semoga artikel ii bermanfaat buat kita semua, Amin.

Selamat mencoba semoga berhasil.

Related Post: Aplikasi sederhana