Memisahkan Angka Dan Huruf

Pada kesempatan kali ini kembali  berbagi tutorial seputar VB6 untuk mengatasi permasalahan string yang mengharuskan output tidak mencampur adukan antara angka/nomer dengan huruf/karakter pada kondisi kondisi tertentu. Kita bisa mengatasi masalah ini dengan sangat mudah jika kalian telah mengetahui fungsi fungsi string pada visual basic yang kadang di anggap tidak begitu penting bagi kaum yang baru belajar terus ingin mahir dalam 24 jam HaHa, belum tau dan ngerti apa-apa main lompat ke pemograman database, gak heran setiap tindakan nya selalu di landa kebingungan terus ujung ujungnya mampir ke forum dengan pertanyaan yang tidak terkesan ada usaha nya sama sekali.. "bro,tolongin bro tugas kulian nih" HaHa



Buat interface seperti berikut;

Komponen;

• 3label
• 1CommandButton
• Ya udah

Code untuk CommandButton;

Label2.Caption = vbNullString
Label3.Caption = vbNullString

    For i = 1 To Len(Label1.Caption)
        If Mid(Label1.Caption, i, 1) Like "[A-Z]" = True Then
            Label2.Caption = Label2.Caption & Mid(Label1.Caption, i, 1)
        Else
            Label3.Caption = Label3.Caption & Mid(Label1.Caption, i, 1)
        End If
    Next i

Yang bermaksud;

Kosongkan isi di label2 dan label3

Lakukan perulangan sebanyak isi karakter yang ada di label1

Jika fungsi mid menemukan karakter yang ada dalam charlist antara "A ke Z"

maka tulis karakternya di label2

tetapi jika bukan itu yang di temukan maka tulis aja di label3

Note;
Dalam kasus ini fungsi mid menganalis 1 karakter yang posisi awal nya akan selalu berubah susai proses pengulangan, setiap karakter yang di analisis akan diperiksa oleh fungsi like, "apakah karakter tersebut berasal dari charlist antara A - Z. Jika ia maka akan begini, jika engga akan begitu