Bagaimana sih cara membuat nilai atao angka secara berurut mulai dari 1 dan seterusnya selama program itu dipakai? Wah kalo mulai dari 1 dan seterusnya sih mudah mudah aja, tinggal nilai awal ditambahkan dengan 1 setiap program mengeksekusi nilai, nah gimana kalo nilai awalnya dimulai dengan nilai atao angka 00001 ? Hadoh gak bisa bisa gw buatnya, pasti setelah dieksekusi menjadi 1 kembali, nilai Nol ( 0 ) didepannya kembali hilang.. Source code ini berfungsi untuk membuat nama file secara berurut ataopun untuk membuat nomor suatu database secara berurut.
Setelah tanya sana sini, akhirnya gw dapet juga sourcenya, walau gak lengkap, tetapi sudah gw edit sesuai dengan apa yang gw mau, cekibrot di bawah ini
Private Sub Form_Load()
Dim angka As String
Dim urut As String * 5
Dim hitung As Integer
If Dir(App.Path & "\data.txt", vbNormal Or vbReadOnly Or vbHidden Or vbSystem Or vbArchive) = "" Then
'ngecek file ada atau tidak
hitung = 1
'menentukan nilai awal
urut = Right("00000" & hitung, 5)
'pemberian nilai sebanyak 5 digit dengan nilai awal adalah hitung
Open App.Path & "\data.txt" For Output As #1
'jika file belum ada maka ciptakan file
Print #1, urut
Close #1
Text1.Text = urut
'masukkan nilai kedalam text1
Else
Open App.Path & "\data.txt" For Input As #1
'membaca isi file data.txt
Input #1, hitung
Close #1
hitung = hitung + 1
'tambahkan nilai 1 dari data hitung dari file data.txt
urut = Right("00000" & hitung, 5)
'masukna data hitung menjadi 5 digit
Open App.Path & "\data.txt" For Output As #1
'menuliskan ke file dengan menghapus data data file lama dan masukan data terbaru
Print #1, urut
Close #1
Text1.Text = urut
'masukkan nilai kedalam text1
End If
End Sub
Silakan donlot source code-nya di https://sites.google.com/site/suryakubiwa/membuat_nilai_00001.zip?attredirects=0&d=1
atao di http://www.4shared.com/zip/k0w8wBCj/membuat_nilai_00001.html
atao di http://www.4shared.com/zip/k0w8wBCj/membuat_nilai_00001.html