Membuat Tanda Baca Nominal Uang VB 6

Hellow blogger......

Untuk posting kali ini saya akan membuat tanda baca pada vb 6 secara otomatis misal pada angka ribuan maka tanda baca atau titik adalah tiga angka dari belakang. Tanda baca ini biasa digunakan untuk mempermudah dalam membaca angka nominal pada satuan uang. yaitu seribu,sepuluh ribu dan seterusnya.Atau bisa disebut juga insert tanda baca secara otomatis dan tanda baca sesuai dengan nominal uang yang sedag diketikkan.

Baik langsung saja ke TKP ...

1. Buat form standard
2. Masukkan satu Label, satu textbox, satu command button seperti gambar  

 

Setelah itu masukkan Source code berikut di event command 1

Private Sub Command1_Click()
On Error Resume Next
    Dim data1 As String
    Dim data2 As String
    Dim sFinal As String
    Dim sLeft As String
    Dim sRight As String
    
    
        data1 = Text1.Text 'data original yang di input
        If Len(data1) = 4 Or Len(data1) = 5 Or Len(data1) = 6 Then 'mengambil panjang data yang diinput
        data2 = "." 'insert tanda baca
       
        sLeft = Left(data1, Len(data1) - 3) 'Mengambil tiga angka dari belakang
        sRight = Right(data1, 3) 'Mengambil angka paling depan dan diberi tanda baca
        sFinal = sLeft & data2 & sRight ' Menggabungkan hasil potongan dan diinsertkan tanda baca
    
        Label1.Caption = "Rp." + sFinal 'Menampilkan hasil di LABEL1
        
   ElseIf Len(data1) = 7 Then 'Jika panjang data samadengan 7 maka jalankan prgram ini
     data2 = "."
     sLeft = Left(data1, Len(data1) - 6)
     f = Mid$(data1, 2, 3)
     sRight = Right(data1, 3)
     sFinal = sLeft & data2 & f & data2 & sRight
     
Label1.Caption = "Rp." + sFinal 'Menampilkan hasil diLabel1

ElseIf Len(data1) > 7 Then 'Jika panjang data lebih dari 7 maka akan error
Label1.Caption = "ERROR"

    End If
    
End Sub

Jika program dijalankan dan klik proses maka hasilnya seperti berikut:

Demikian sedikit postingan dari saya , semoga bermanfaat...
Salam Sepuluh Ribu Jam Untuk Jadi Expert..... ^_^