Memisahkan Huruf, Angka dan Tanda Baca di dalam Sebuah Kata atau Teks di VB6

Memisahkan Huruf, Angka dan Tanda Baca  di dalam Sebuah Kata atau Teks di VB6

Pada artikel kali ini Saya akan berbagi trik untuk Anda semua tentang cara memisahkan atau mengklompokan Huruf, Angka dan tanda baca dalam sebuah kalimat atau kata atau teks dokumen.

Ketika kita menulis sebuah artikel sudah barang tentu pasti terdiri dari susunan huruf-huruf yang membentuk kata serta angka dan tanda baca. Dengan kode VB yang akan kita buat ini, kode tersebut mampu mendeteksi apakah huruf atau angka yang kita telah ketik serta memisahkan atau mengkelompokan menjadi 3 kategori yaitu kategori huruf, Angka dan tanda baca hanya dengan sekali tekan pada tombol keyboard, maka system akan membaca secara otomatis dalam kategori apakah anda mengetik, apakah angka, huruf atau tanda baca.

Berikut dibawah ini adalah contoh Gambar dari hasil dari pemisahan kalimat pada sebuah kata “Tip<>?19And*(T%ri$cUn80@ikKVB” yang akan di kelompokan dalam 3 kategori yaitu Huruf, Angka dan Tanda baca.

Output

Bagaiamana apakah anda tertarik untuk membuatnya, yuk…ikutilah langkah-langkah berikut dibawah ini agar tidak tersesat :

Memisahkan Huruf, Angka dan Tanda Baca  di dalam Sebuah Kata atau Teks di VB6

• Buka Form VB6 Anda pilih Standar EXE
• Pada Form1 Tanamkan beberapa Label dan 1 Textbox
• Desainlah Form persis seperti Gambar dibawah ini :

DesainForm

Catatan :

Label1 sampai dengan Label8 posisikan seperti pada gambar diatas

Jika sudah demikian sama dengan gambar diatas, lalu copy kode dibawah ini :

Option Explicit

'menetapkan huruf biar misah dari tanda baca dan angka

Const ALPHA1 = "1234567890"

Const ALPHA2 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"

Sub crack()

Call kalimat1

Call kalimat2

Label5.Caption = "Total " & Len(Label1)

Label6.Caption = "Total " & Len(Label2)

Label7.Caption = "Total " & Len(Label3)

Text1.SetFocus

End Sub

Sub kosong()

Label1.Caption = ""

Label2.Caption = ""

Label3.Caption = ""

Label7.Caption = ""

Label6.Caption = ""

Label5.Caption = ""

End Sub

Sub kalimat1()

Dim kata1 As String

Dim cekkata1 As String

Dim panjangkata1 As Integer

Dim karakter1 As String

Dim katabukanhuruf1 As String

Dim katahuruf1 As String

kata1 = Text1.Text

'menetapkan panjang ke dalam cekkata untuk looping

cekkata1 = Trim(kata1)

'jika cekkata tidak ada nilai maka keluar sub

If cekkata1 = "" Then Exit Sub

For panjangkata1 = 1 To Len(cekkata1)

'ambil huruf perhuruf dari cekkata dilengkah 1 kata sampai looping panjangkata

karakter1 = Mid(cekkata1, panjangkata1, 1)

'jika terdapat konstanta ALPHA maka masukkan ke katahuruf

If InStr(ALPHA1, UCase(karakter1)) <> 0 Then

katahuruf1 = katahuruf1 + karakter1

'jika tidak terdapat konstanta ALPHA maka masukkan ke katabukanhuruf

Else

katabukanhuruf1 = katabukanhuruf1 + karakter1

End If

Next panjangkata1

Label1.Caption = katahuruf1

Label4.Caption = katabukanhuruf1

End Sub

Sub kalimat2()

Dim kata2 As String

Dim cekkata2 As String

Dim panjangkata2 As Integer

Dim karakter2 As String

Dim katabukanhuruf2 As String

Dim katahuruf2 As String

Dim katabukanhuruf1 As String

kata2 = Label4

'menetapkan panjang ke dalam cekkata untuk looping

cekkata2 = Trim(kata2)

'jika cekkata tidak ada nilai maka keluar sub

If cekkata2 = "" Then Exit Sub

For panjangkata2 = 1 To Len(cekkata2)

'ambil huruf perhuruf dari cekkata dilengkah 1 kata sampai looping panjangkata

karakter2 = Mid(cekkata2, panjangkata2, 1)

'jika terdapat konstanta ALPHA maka masukkan ke katahuruf

If InStr(ALPHA2, UCase(karakter2)) <> 0 Then

katahuruf2 = katahuruf2 + karakter2

'jika tidak terdapat konstanta ALPHA maka masukkan ke katabukanhuruf

Else

katabukanhuruf2 = katabukanhuruf2 + karakter2

End If

Next panjangkata2

Label2.Caption = katahuruf2

Label3.Caption = katabukanhuruf2

End Sub

Private Sub Form_Load()

'menyembunyikan label 4 agar tidak terlihat

Label4.Visible = False

Call kosong

Label8.Caption = ""

Text1.Text = ""

End Sub

Private Sub Text1_Change()

If Text1.Text = "" Then

kosong

Label8.Caption = ""

Else

Call crack

Label8.Caption = "Anda sudah meng-crack secara otomatis"

End If

End Sub

• Setelah mengetik kode, double Klik Form di area kosong lalu bersihkan semua kode yang ada dengan CTRL+A dan tekan Del maka kode akan bersih
• Kemudian Paste kode diatas yang sudah kita copy dan pastekan kedalam kode yang kosong
• Selesai kode sudah dibuat, dan sekarang jalankan program Anda.

Cara Pengoprasian :

Ketik kalimat amburadul ini "Tip<>?19And*(T%ri$cUn80@ikKVB", maka secara otomatis komputer akan dapat membedakan mana huruf, mana angka dan mana tanda baca yang akan muncul pada bagian bawah teks.

Demikinalah trik dari saya cara memisahkan atau mengklompokan Huruf, Angka dan tanda baca dalam sebuah kalimat atau kata atau teks dokumen. semoga artikel ini bermanfaat buat ini semua.Amin.

Selamat mencoba semoga sukses

Related Post: Label/Text