Terima Kasih Anda Telah mengunjungi Blog EDP JAYATRADE semoga bermanfaat

Rabu, 25 Juli 2012

Variasi Kata Berjalan di Form


Untuk mempercantik tampilan form atau memberikan sedikit variasi, biasanya ditambahkan sebuah label dengan kata tertentu yang dapat berjalan. Arah berjalannya kata atau label tersebut juga bervariasi, mulai bergerak dari kanan ke kiri, atas ke bawah, serong dan lain - lain. Selain kata yang bisa dibuat agar bisa bergerak di form, sebuah gambar juga bisa dilakukan hal sama sehingga bisa menambah kesan variatif dan cantik di tampilan form.
                          
Untuk membuat kata atau sebuah gambar yang berjalan atau bergerak tidak lah sulit asal sudah tau beberapa prinsip dan logika yang digunakan. Beberapa hal yang berkaitan agar dalam membuat sebuah kata atau gambar agar terkesan bisa bergerak di form diantaranya adalah sebagai berikut.

Read More..

Source Code untuk Mendeteksi Koneksi Internet


Berikut ini adalah salah satu trik yang dapat digunakan untuk mendeteksi apakah PC atau Laptop kita sekarang sedang terkoneksi dengan internet ataukah tidak. Sebenarnya cara manual untuk mendeteksi koneksi ini sangatlah mudah dan pasti teman - teman semua sudah pada mengerti dan sering melakukannya yaitu tinggal masuk ke browser kemudian ketikkan alamat web yang terpercaya seperti www.google.com dan selanjutnya tinggal dilihat, tampil halaman google atau tidak, kalau tidak berarti koneksi internet sekarang sedang tidak aktif.

Tetapi gimana kalau kita mempunyai program yang harus mengambil data atau berhubungan dengan aplikasi lain melalui internet???...pastinya kita harus mempunyai cara agar program kita bisa mendeteksi koneksi internet secara otomatis sebelum melakukan proses selanjutnya. Pengecekan koneksi dengan cara manual diatas bisa dirubah dengan cara yang otomatis melalui source code di bawah ini :

DECLARE Long InternetCheckConnection IN Wininet.dll String Url,;
Long dwFlags, Long Reserved
lcUrl = "http://www.google.com"
IF InternetCheckConnection(lcUrl, 1, 0) <> 0
 cStatus="Terkoneksi"
ELSE
 cStatus="Tidak Terkoneksi"
ENDIF

Read More..

Source Code Untuk Mendisable TaskManager


Berikut ini adalah salah satu trik yang dapat digunakan untuk mendisable aplikasi TaskManager melalui registry. Trik ini sering digunakan oleh aplikasi virus lokal untuk memproteksi dirinya sendiri agar tidak bisa dimatikan oleh user melalui TaskManager. Berikut Source Codenya :

WSHShell = CreateObject("WScript.Shell")


*Mendisable TaskManager
WSHShell.RegWrite("HKCU\Software\Microsoft\Windows\"+;
"CurrentVersion\Policies\System\DisableTaskMgr",1,"REG_DWORD")


*Mengenable kembali TasjManager
WSHShell.RegWrite("HKCU\Software\Microsoft\Windows\"+;
"CurrentVersion\Policies\System\DisableTaskMgr",0,"REG_DWORD")

Bagi yang belum begitu paham source code untuk mengakses Registry mungkin ada baiknya untuk membaca tutorial tentag cara membuat membaca dan menghapus key di registry  dulu.

Source : http://www.foxpromania.com/
Read More..

Source Code untuk Compress dan Extract File Zip


Berikut ini adalah source code yang teman - teman Foxpro Mania bisa gunakan untuk mengkompress file di dalam folder dengan format ZIP. Dan kemudian source code yang bisa digunakan untuk mengekstrak file ZIP ke file aslinya. Selanjutnya kita langsung coba aja.

&& Source untuk Mengkompress Folder
strFolderName="d:\test\hasil" && Folder yang mau di kompress
strZipFileName="c:\hasil.zip" && Nama File ZIP hasil kompres
IF DIRECTORY(JUSTPATH(strZipFileName))=.f.
 MESSAGEBOX("Folder '"+strZipFileName+"' Tidak ada") 
 RETURN .f.
ENDIF  
IF LOWER(JUSTEXT(strZipFileName))<>"zip"
 strZipFileName=strZipFileName+".zip"
ENDIF
fso = CreateObject("Scripting.FileSystemObject")
ts = fso.OpenTextFile(strZipFileName, 8, .t.)
BlankZip = "PK" + Chr(5) + Chr(6)
For x = 1 to 18
 BlankZip = BlankZip + Chr(0)
ENDFOR
ts.Write(BlankZip)
objShell = CreateObject("Shell.Application")
WshShell = CreateObject("WScript.Shell")
DestFldr=objShell.NameSpace(strZipFileName)
SrcFldr=objShell.NameSpace(strFolderName)
DestFldr.CopyHere(strFolderName)

Read More..

Selasa, 24 Juli 2012

Mark Zuckerberg : Pendiri Facebook


Mark Elliot Zuckerberg lahir di kawasan bernama Dobbs Ferry, Westchester County, kota New York.Anak dari Edward dan Karen Zuckerberg. Ia adalah anak kedua dari empat bersaudara dari orang tua pasangan dokter gigi - ­psikiater. Sejak kecil Zuckerberg suka mengu­tak-atik komputer, mencoba berbagai program komputer dan belajar membuatnya. Ayahnya sendiri membelikannya komputer sejak ia beru­sia delapan tahun. Saat di sekolah menengah Phillips Exeter Academy, ia dan rekannya, D'Angelo, membuat plug-in untuk MP3 player Winamp. Plug-in adalah program komputer yang bisa berinteraksi dengan aplikasi host seperti web browser atau email untuk keperluan tertentu.

Zuckerberg dan D'Angelo membuat plug-in untuk menghimpun kesukaan orang terhadap aneka jenis lagu dan kemudian membuat play­list-nya sesuai selera mereka. Mereka mengirimkan program itu ke berbagai perusahaan termasuk ke AOL (American Online) dan Microsoft. Pada tahun terakhimya di Phillips ia direkrut oleh Microsoft dan AOL untuk suatu proyek.

Read More..

Biografi Bos Microsoft: Bill Gates


Bill Gates dilahirkan di Seattle, Washington dari William Henry Gates, Sr., seorang pengacara, dan Mary Maxwell, pegawai First Interstate Bank, Pacific Northwest Bell, dan anggota Tingkat Nasional United Way. Gates belajar di Lakeside School, sekolah elit yang paling unggul di Seattle, dan meneruskan berkuliah di Universitas Harvard, tetapi di-drop out.

William Henry Gates III lahir pada tahun 1955, anak kedua dari tiga bersaudara dalam keadaan sosialnya terkemuka di Seattle, Washington. Ayahnya seorang pengacara dengan perusahaan yang punya banyak koneksi di kota, dan ibunya seorang guru, yang aktif dalam kegiatan amal. Bill seorang anak yang cerdas, tetapi dia terlalu penuh semangat dan cenderung sering mendapatkan kesulitan di sekolah. Ketika dia berumur tiga belas tahun, orang tuanya memutuskan untuk membuat perubahan dan mengirimnya ke Lakeside School, sebuah sekolah dasar yang bergengsi khusus bagi anak laki-laki.
Di Lakeside itulah pada tahun 1968 Gates untuk pertama kalinya diperkenalkan dengan dunia komputer, dalam bentuk mesin teletype yang dihubungkan dengan telepon ke sebuah komputer pembagian waktu. Mesin ini, yang disebut ASR-33, keadaannya masih pasaran. Pada intinya ini sebuah mesin ketik yang selanjutnya siswa bisa memasukkan perintah yang dikirimkan kepada komputer; jawaban kembali diketikkan ke gulungan kertas pada teletype. Proses ini merepotkan, tetapi mengubah kehidupan Gates. Dia dengan cepat menguasai BASIC, bahasa pemrograman komputer, dan bersama dengan para hacker yang belajar sendiri di Lakeside, dia melewatkan waktu berjam-jam menulis program, melakukan permainan, dan secara umum mempelajari banyak hal tentang komputer. "Dia adalah seorang 'nerd' (eksentrik)," sebagaimana salah seorang guru memberikan Gates julukan itu.

Sekitar tahun 1975 ketika Gates bersama Paul Allen sewaktu masih sekolah bersama-sama menyiapkan program software pertama untuk mikro komputer. Seperti cerita di Popular Electronics mengenai "era komputer di rumah-rumah" dan mereka berdua yakin software adalah masa depan. Inilah awal Microsoft.
Semasa ia belajar di Harvard, ia dan Paul Allen menulis perangkat lunak Altair BASIC untuk Altair 8800 dalam dasawarsa 1970. Altair merupakan komputer pribadi pertama yang sukses. Diberi inspirasi oleh BASIC, sebuah bahasa komputer yang mudah dipelajari dan ditulis di kolese Dartmouth untuk mengajar, versi Gates dan Allen kemudian menjadi Microsoft BASIC, bahasa komputer terjemahan yang utama untuk sistem operasi komputer MS-DOS, yang menjadi kunci pada kesuksesan Microsoft. Microsoft Basic pada nantinya dijadikan Microsoft QuickBasic. Versi Microsoft QuickBasic yang dijual tanpa kompiler QuickBasic dikenal sebagai QBasic. QuickBasic juga dijadikan Visual Basic, yang masih popular hingga masa sekarang.

Read More..

Skin VFP

Skin ini memang sederhana, tapi cukup menarik dan bagus. bisa dilihat dari gambar dibawah ini.

cara penggunaannya drag properti class setthemes dari simpleskinvfp kemudian anda dapat mengcustomize pada properti seperti ubah stsbar menjadi .T. ,warnabg, warnaborder ,dll
untuk download sourcecode klik DISINI.

Skin Foxpro 2.0
     Berikut adalah cara yang dapat teman - teman lakukan bila ingin mempercantik tampilan form dengan cara yang mudah. Untuk mempercantik tampilan form berikut ini kita akan coba menggunakan Skin Foxpro 2.0. Sebenarnya Skin Foxpro 2.0 ini adalah versi lama dari skin foxpro, tetapi skin foxpro versi 2.0 ini adalah versi gratis sehingga  teman - teman bisa gunakan dengan bebas. Versi terbaru dari skin foxpro adalah versi 3.0, tetapi skin foxpro yang versi 3.0 ini hanya bisa di coba dalam versi trial / demo dan bila ingin menggunakannya versi lengkapnya teman - teman harus mengeluarkan sedikit biaya, demikian juga dengan versi skin foxpro milik Foxface yang juga bersifat seperti skin foxpro 3.0. Sebelum kita coba skin foxpro 2.0 ini, silahkan download dulu filenya di link di bawah ini :

Read More..