Cara Membuat Nomor Urut Tersusun Secara Otomatis

Dalam postingan Berikut ini adalah saya akan menunjukkan bagaimana cara membuat nomor secara otomatis berurutan menggunakan VB 6.0

Baik saya akan memulai pada langkah awal:

• Bukalah Program VB 6.0 dari Komputer anda dengan menambahkan langsung Form dengan cara klik Standard.Exe

• Pada Form1 tambahkan beberapa Komponen sebagai berikut: >>1 Label dengan Name Label, Caption No Urut >> 1 TextBox Dengan Name Text1, Text pada Properties dikosongkan >> 1 CommandButton Dengan Name Command1, Caption Command1 

• Selanjutnya Pada Command1 masukkan Listing berikut ini:

Private Sub Command1_Click()

Dim isi As Integer

Dim a

If (Mid(Text1.Text, 1, 1) <> 0) Then

isi = Right(Text1.Text, 5) + 1

If isi = 100000 Then

a = MsgBox("NILAI SUDAH MELEBIHI 19999!!! MERESET NILAI", vbInformation, "Informasi")

Text1.Text = "00001"

Else

Text1.Text = isi

End If

ElseIf (Mid(Text1.Text, 2, 1) <> 0) Then

isi = Right(Text1.Text, 4) + 1

If isi = 10000 Then

Text1.Text = "10000"

Else

Text1.Text = "0" & isi

End If

ElseIf (Mid(Text1.Text, 3, 1) <> 0) Then

isi = Right(Text1.Text, 3) + 1

If isi = 1000 Then

Text1.Text = "01000"

Else

Text1.Text = "00" & isi

End If

ElseIf (Mid(Text1.Text, 4, 1) <> 0) Then

isi = Right(Text1.Text, 2) + 1

If isi = 100 Then

Text1.Text = "00100"

Else

Text1.Text = "000" & isi

End If

ElseIf (Mid(Text1.Text, 5, 1) <> 0) Then

isi = Right(Text1.Text, 1) + 1

If isi = 10 Then

Text1.Text = "00010"

Else

Text1.Text = "0000" & isi

End If

End If

End Sub

Private Sub Form_Load()

Text1.Text = "00001"

End Sub

• Selanjutnya jalankan programnya dan lihatlah hasilnya:

Demikian Tutorial di atas, semoga bermanfaat,,,,,,,,

Husni Kaimuddin;