Script untuk membuat progress bar pada visual basic 6

Dalam pembuatan program visual basic, pasti dalam form login setelah itu kita akan menambahkan sebuah form yang dinamakan form progress.
pertama yang harus kita lakukan adalah menambah form baru
lalu kita pilih komponen progress bar...
selanjutnya kita pilih komponen timer..
pada komponen timer kita ubah interval menjadi 100
lalu kita double klik pada kompnen timer dan inilah scriptnya


Private Sub Timer1_Timer()
If Progressbar1.Value < 100 Then
Progressbar1.Value = Pb.Value + 5
Else
frmmenuutama.Show
Unload Me
End If
End Sub

azz-corp94.com
semoga bermanfaat yya gan

Script untuk Membuat no Penjualan otomatis dalam visual basic 6

Untuk sebuah program penjualan tentulah sangat dibutuhkan sebuah no Penjualan otomatis untuk meminimalisir kelupaan menulis no Penjualan secara manual. jadi saya akan memberikan sebuah script sederhana untuk membuat no Penjualan otomatis .

Check This Out!!

Dim jml As String
jml = dataPenjualan.Recordset.RecordCount
If jml = 0 Then

TxtNoPenjualan.Text = "A0001"
ElseIf jml >= 1000 Then

TxtNoPenjualan.Text = "A" & jml + 1

ElseIf jml >= 100 Then

TxtNoPenjualan.Text = "A0" & jml + 1

ElseIf jml >= 10 Then

TxtNoPenjualan.Text = "A00" & jml + 1


ElseIf jml <= 9 Then

TxtNoPenjualan.Text = "A000" & jml + 1
End If


azz-corp94.com
semoga bermanfaat yya gan!