Selamat Menunaikan Ibadah Puasa 2013/1434H

Tak terasa bulan Yang Istemewa datang jua
Bulan diman di ampunka segala dosa
Bulan dimana dilimpat gandakan Semua Amal dan kebaikan kita

Marhaban Ya ramadhan....
Selamat Menunaikan Ibadah Puasa
Semoga Kualitas ibadah kita semakin Meningkat dimata ALLAH...

Read more ...

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 ...