VB Clasic Upload Foto

Selamat pagi sobat ,pagi ini ane mau bagi sedikit trik tentang pemograman visual basic, biasanya Dalam vb 6 ketika kita ingin menambahkan sebuah file foto, yang kita simpan di database hanya letak file kita pada computer atau letak drive file kita,,terus kalau pindah computer kita harus seting lagi agar letak file gambar di computer sesuai dengan alamat yang di simpan di database,,terus masalahnya jika kita sering pindah-pindah computer kan kurang efisien jika harus seting terus,,terus biar efisien gimana donx???langsung aja ya,,,

Desain form seperti berikut:

 keterangan :

Command1_click() ini coding yang digunakan untuk menyimpan file gambar kita ke folder yang kita inginkan,

Variable lokasi, variable ini yang akan kita gunakan untuk menampung alamat atau letak drive file kita

Variable target, variable ini yang akan kita gunakan untuk mengarahkan file foto ke folder penyimpanan kita

FileCopy  ini yang akan mengeksekusi coding yang ada pada variable lokasi dan target

Sekian dulu ya trik dari ane semoga bermanfaat atow langsung aja download

Read more »

Membuat Kode Otomatis pada VB Clasic

Pagi kawanku semua,, ane mau share trik dikit nich tentang pemograman VB 6 atau yang lebih tenar dengan VB Clasic,, mungkin ente2 dah sering melihat aplikasi VB Clasic yang bisa munculin kode otomatis ketika input data baru,, langsung aja ya bro,,ini script coding nya...

Dim Urutan As String * 5 Dim Hitung As Byte If AdoAnggota.Recordset.RecordCount = 0 Then Urutan = "A0001" Else AdoAnggota.Recordset.MoveLast Hitung = Val(Right(AdoAnggota.Recordset!NoAgt, 4)) + 1 Urutan = "A" & Right("0000" & Hitung, 4) End If TxtNo.Text = Urutan
keterangan:

1. dim urutan as string >>variabel string yang akan kita pake untuk menampung hasil dari variabel hitung sebelum di tampilkan
2. dim hitung as byte >>variabel dengan type byte nantinya yang kita gunakan untuk penghitungan dan akan di tampung pada variabel urutan

bagi yang masih bingung ane share koding lengkapnya download
monggo di sedooott,,,semoga bermanfaat ya gan,,,

Read more »