Vb 6 Simpan file gambar ke folder

Selamat pagi sobat savanna,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 Sedot

Read more ...

Membuat jatuh tempo otomatis pada delphi 7

Selamat sore sobat savana,,sambil nunggu ujan ane mau share nich cara membuat tanggal jatuh tempo tampil otomatis dengan delphi 7,langsung aja ya,,
kita buat form seperti berikut

untuk coding nya seperti berikut
1. buat procedure baru disini ane kasih nama "ambil"

2.kita atur agar jika dijalankan tanggal langsung tampil otumatis:

coding di atas akan dijalankan ketika form pertama kali di "Run"

edtglpinjam.text:=formatdatetime('dd-mm-yyyy',now);

inilah coding yang menampilkan tanggal sistem secara otomatis ketika form di "run"
3.coding "ambil" coding ini yang kita gunakan untuk membuat jatuh tempo otomatis dan akan di jalankan ketika jangka waktu di pilih

untuk script lengkapnya bisa di download disini
semoga bermanfaat ya sobat,,,

Read more ...

Membuat Kode Otomatis pada VB 6

selamat pagi sahabat savana,,,lama juga tidak posting,,kali ini ane mau share cara membuat kode anggota yang tampil otomatis dengan VB6, lagsung aja ya,,,ni koding untuk membuat otomatis

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
semoga bermanfaat ya gan,,,

Read more ...

Award My Story

Award My Story

Alhamdulillah ya ALLAH ini adalah award kedua saya di tahun 2013 ini.. Really happy..

Award kedua ini datang dari Mbak Indah P dengan blog sweet-myheart.blogspot.com saya hanya bisa mengucapkan beribu-ribu terima kasih karena telah menganugrahkan awarg ini pad ablog saya yang belum genap setahun..

Dengan adanya award ini dapat makin mempererat hubungan silahturahmi antar blogger..Award ini saya harapkan dapat memicu saya untuk terus berkarya di dunia blogger..Thank u (^_^) 

Award ney mo ane share ke 10 sobat lainnya..Berikut adalah nama sob yang terpilih untuk meneruskan Award ini ke 10 sobat lainnya..Yuks mari kita intip:

1. purnomosymb19.blogspot.com (Mas Budi OS 19)
2. penyuluhpi.blogspot.com (Mas P3)
3. rohmadaini.blogspot.com (Mas Rohmad)
4. belajarbahasainggris-4me.blogspot.com
5. mystericinta.blogspot.com (Mbak Lia)
6. lyricconnect.blogspot.com
7. websitepunyague.blogspot.com
8. f4ndhy.blogspot.com (Mas Ahmad Afandi)
9. savana21.web.id
10. pengobatangratisonline.com (Mas Abdul Basit)           

 Congrats ya sob..SEMANGAT!!! 
sumber : http://rima-lelandha.blogspot.com

Read more ...