Info Programing

Simple VB.NET 2005 application to demonstrate the use of the new serial port component. I used two USB to Serial adapters and a null modem adapter to test the code on both a Windows XP and Windows 2000 PC.

Download Here

.......

Managing ZIP files with ZipForge.NET is really easy - be sure to read a great tuturial Zipping Up Code with ZipForge by Jeff Cogswell.

ZipForge.NET main features:

* Opens and creates archives encrypted with strong AES encryption algorithm
* Allows to create large ZIP files - up to 9,223,372,036,854,775,808 bytes in size
* Supports unicode file names
* Includes transaction system which allows you to rollback changes if archive update failed
* Adds compressed data directly from streams and extracts archived files to streams without creating temp files
* Lets you store full path with drive for each file
* Supports BZIP2 and PPMd compression algorithms, featured in WinZip 10
* Allows to search for files inside archive by mask
* Progress indication with remaining time estimation
* 100% managed C# code, without unsafe blocks


To view ZipForge.NET full features list, click here.
An individual may use Personal edition of ZipForge.NET in a project for free if he / she is the only user of this project. If your project is public or if you represent a company, you must order a commercial edition of Zipforge.NET.

more

Could somebody point me in the right direction on how to go about what is
asked in the subject line?

I have a VB.Net 2008 Pro application that uses Sql 2005 Express. What is
required is to make an install set that will install both and also attach an
application database. Stuff like surface area configuration needs to be
covered as well.

In other words, an install that does everything and when the user runs the
application, all works without further intervention.


more

You're currently browsing the VB.NET section within the Software Development category of DaniWeb, a massive community of 302,494 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 2,421 IT professionals currently interacting right now! If you are in the IT industry or are just a technology enthusiast, you might find just what you're looking for in DaniWeb. Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.

more

Dewasa ini perkembangan dunia animasi begitu hebat dengan hadirnya Macromedia Flash… Bagaimana memadukan program Delphi dengan memainkan file flash (*.swf). Untuk mengoptimalkan program yang kita buat, akan sangat bagus jika program kita dilengkapi dengan animasi hidup ala flash. Bagaimana cara membuat program untuk menjalankan file flash?…

Untuk memainkan file flash di Delphi kita perlu menginstal Plug-in Flash terlebih dahulu…

Setelah kita instal plug-in flash langkah berikutnya sebagai berikut :

Pada Delphi IDE
- click pada “Component”, “Import ActiveX Control”
- pilih “Shockwave Flash” and click on “install”.

Nah sekarang anda telah mempunyai komponen dengan nama TShockwaveFlash pada IDE Delphi di komponen pallet ActiveX.

LETAKKAN KOMPONEN TShockwaveFlash pada form, ubah ukuran sesuai dengan kebutuhan.
kemudian anda klik 2x object TShockwaveFlash nya pada URL anda isi alamat file flash anda. Ex : D:/data/gen/coba.swf
kemudian anda ok.

File flash siap untuk dijalankan....

Sebenarnya sampai disini sudah selesai membuat file flash, tapi kalo mau lebih lengkap anda ikuti langkah berikut dan lihat hasilnya.

Anda memerlukan registrasi file ocx jika tidak di instal pada sasaran yang benar di komputer kita, sehingga perlu menyertakan file sumber
- File swflash.ocx dan file Flash ( *.swf).
- Copy swflash.ocx (dari cth. windows\system32\macromed\flash) dan file swf kamu ke project path.
- buat sebuah textfile dengan berisi kode seperti ini:

SHOCKWAVEFILE RCDATA yourfile.swf
SHOCKWAVEOCX RCDATA swflash.ocx

(Dimana yourfile.swf adalah swf-file Anda)

- Simpan file ini sbg flash.rc
- Pada Commandline, pindah ke dir project anda dan masukkan baris:

“Brcc32 -r flash.rc”

- Sekarang anda telah mempunyai file resource baru bernama file flash.res

{************************************************************}

uses
ShockwaveFlashObjects_TLB; // otomatis

implementation

{$R *.DFM}
{$R flash.res} // resource baru anda yang telah dibuat
{…}

procedure TForm1.FormCreate(Sender: TObject);
var
SystemDir: array[0..MAX_PATH] of Char;
SWFDir, AppDir: string;
Fres: TResourceStream;
Ffile: TFileStream;
begin
GetSystemDirectory(@SystemDir, MAX_PATH);
SWFDir := SystemDir + ‘\macromed\flash\’;
GetDir(0, AppDir); // Get current directory

//check apakah sw-flash ocx telah ter-install
if FileExists(SWFDir + ’swflash.ocx’) = False then
begin
//buat direktori jika diperlukan dan extrak file dari resource.
{$i-} //compiler directive to suppress i/o error messages
MkDir(SystemDir + ‘\macromed’);
MKDir(SystemDir + ‘\macromed\flash’);
{$i+}
Fres := TResourceStream.Create(0, ‘SHOCKWAVEOCX’, RT_RCDATA);
Ffile := TFileStream.Create(SWFDir + ’swflash.ocx’, fmCreate);
Ffile.CopyFrom(Fres, Fres.Size);
Fres.Free;
Ffile.Free;

//register ocx (sederhana tapi berguna)
WinExec(PChar(’regsvr32 /s ‘ + SWFDir + ’swflash.ocx’), SW_HIDE);
end;
// extrak ShockwaveFile dari resource ke directory applikasi
Fres := TResourceStream.Create(0, ‘SHOCKWAVEFILE’, RT_RCDATA);
Ffile := TFileStream.Create(’flashmovie.swf’, fmCreate);
Ffile.CopyFrom(Fres, Fres.Size);
Fres.Free;
Ffile.Free;

//Assign swf file ter-extrak ke obyek TShockwaveFlash anda
FlashMovie.Movie := AppDir + ‘\flashmovie.swf’;
end;

sumber : tutorial delphi

Teman-teman disini saya ingin mencoba menjelaskan suatu program kecil mengenai game yang sudah lama dan dulu sempat booming. Hanoi merupakan pengaplikasian dari suatu cerita yaitu:
dulu ada seorang biksu yang ingin memindahkan kuilnya dari suatu tempat ke tempat lain. ditempat yang baru itu dia harus melewati suatu bukit. Biksu itu hanya mampu membawa satu bagian saja dari kuilnya tersebut. Persoalannya adalah bagaimana membawa bagian2 tersebut secara cepat. cerita itu dapat digambarkan sesuai dengan gambar dibawah ini.

Balok-balok tersebut harus dipindahkan dari tiang 1 (asal) ke tiang 3 (tujuan) dengan bantuan tiang 2 (bantuan).

Sekarang kita mulai masuk pada logika kita. untuk mempercepat waktu pemindahan maka kita membutuhkan langkah terpendek. Nah menurut perhitungan secara matematika dan statistik didapat persamaan :

(2^jumlah balok) - 1



contoh:

1. jumlah balok = 2 =========> (2^2)-1 = 3
2. jumlah balok = 3 =========> (2^3)-1 = 7
3. jumlah balok = 4 =========> (2^4)-1 = 15 dst

Dari contoh game yang dulu kita hanya bisa memainkan saja akan tetapi kita tidak bisa menganalisa pergerakannya. dengan game yang saya buat, maka dengan memencet tombol Solusi maka akan secara animatif terlihat pergerakan balok tersebut yang disertai dengan tabel untuk memperjelas. Hal itu dapat di lihat pada gambar berikut:

Seperti yang terlihat, bahwa pada langkah ke 76 balok 10 berpindah dari tiang 1 ke tiang 2 dan gambar menunjukkan akan memulai langkah ke 77 yaitu balok 12 akan berpindah dari tiang 3 ke tiang 1 sampai pada langkah terakhir yaitu
(2^12) -1 = 4095.

Disini saya buat dengan bahasa program delphi 5 yang akan saya terangkan secara singkat mengenai logika dan kodenya

Untuk mencari jumlah langkah terpendek, function berikut akan sedikit membantu:

function Tfrmha.langkahterpendek(nilai:integer) : integer;
var i: integer;
begin
Result:=1;
for i:=1 to nilai do
Result:=result*2;
Result:=Result-1;
end;

Fungsi diatas pasti sudah jelas, bagi yang belum jelas kebangetan.....ha....ha....ha. Maaf cuma guyon. tapi pada waktu lain pasti akan saya jelaskan kode dasar delphi atau dapat dilihat diblogku yang lain yaitu http://belajardelphi.blogspot.com

Oke selanjutnya untuk kode dari gerakan balok maka prosedur ini akan sangat membantu:

procedure Tfrmha.hanoi(var cacah_gerak : integer; Cacah,Asal,Lewat,Tujuan :integer);
begin
if Cacah > 0 then
begin
hanoi(cacah_gerak,Cacah-1,Asal,Tujuan,Lewat);
cacah_gerak:=succ(cacah_gerak);
StringGrid2.Cells[0,cacah_gerak]:=IntToStr(cacah_gerak);
StringGrid2.Cells[1,cacah_gerak]:=IntToStr(jum-cacah+1);
StringGrid2.Cells[2,cacah_gerak]:=IntToStr(Asal);
StringGrid2.Cells[3,cacah_gerak]:=IntToStr(Tujuan);
hanoi(cacah_gerak,Cacah-1,Lewat,Asal,Tujuan);
end;
end;

Catatan saya menggunakan komponen StringGrid untuk tabelnya.

Nah sekarang anda silahkan mencoba dengan kreativitas anda sendiri. Bagi yang masih bingung dan memerlukan bantuan silahkan email ke feribayek@telkom.net

Artikel ini diperuntukkan bagi programmer delphi, minimal sudah pernah menggunakan program delphi. Tetapi tidak menutup kemungkinan bagi anda yang ingin belajar pemrograman delphi.

Jika kita membuat sebuah form kosong saja, maka akan dihasilkan file exe yang berukuran sekitar 290 KB dengan delphi 5, 360 KB dengan delphi 7 dan lebih besar lagi untuk delphi 2006. Walaupun kapasitas memory dan hardisk saat ini bisa dibilang lebih dari cukup, tetapi jika kita hanya ingin membuat program sederhana, ukuran seperti itu mungkin terlalu besar, belum lagi ditambah komponen lainnya dan harus di distribusikan melalui internet. Maka adakah solusinya agar aplikasi yang kita hasilkan memiliki ukuran yang kecil ?

jawabnya ada… sebenarnya bisa saja aplikasi tersebut di kompress dengan tools seperti UPX, yang bisa menjadikan aplikasi lebih kecil menjadi setengahnya atau lebih. Tetapi ada beberapa kelemahan menggunakan Exe compressor seperti UPX tersebut. Alternatif lainnya adalah langsung menggunakan fungsi-fungsi windows API (Application Programming Interface), file yang dihasilkan dijamin akan kecil. Tetapi dengan ini pemrograman jauh lebih sulit dan mungkin sangat menyita waktu hanya untuk membuat sebuah form kosong saja. Bagi programmer delphi ada komponen khusus yang sangat powerfull, supaya aplikasi yang dihasilkan berukuran kecil, cepat seperti menggunakan windows API secara langsung, bahkan mungkin lebih. Komponen ini namanya KOL ( Key Object Library ). Bagi yang belum pernah mendengar tentang KOL, bisa dilihat artikel tentang ini disini

Tertarik menggunakan komponen ini ?

Penggunaan komponen ini berbeda dengan komponen standard delphi lainnya. Setelah komponen ini diinstall ( sama seperti instalasi komponen lainnya ) maka untuk membuat sebuah program langkahnya sebagai berikut :


1. Buat project baru ( File > New > Application )

2. Save All Project ( File > Save All ) dan biarkan namanya unit1.pas dan Project1.dpr

3. Tempatkan komponen KOLProject ( dari tab KOL yang sudah diinstall) di Form1

4. Isi Property projectDest di komponen KOLProject1 tersebut dengan nama Project, misalnya Programku

5. Tempatkan sebuah komponen KOLForm di Form1

6. Gerakkan / geser salah satu komponen KOLProject atau KOLForm untuk menghasilkan kode tambahan di source codenya

7. Klik Save All, kemudian tutup semua project ( Close All )
8. Buka folder dimana file project ini disimpan, dan hapus semua file yang bernama Project1 (Project1.cfg, Project1.dof, Project1.dpr dan Project1.res)

9. Buka project Programku.dpr dan Compile atau Run

10. Jika langkah benar, akan dihasilkan file Programku.exe yang besarnya sekitar 22 KB


Program yang dihasilkan masih belum mempunyai icon, tetapi jangan khawatir, icon bisa ditambahkan nantinya. Ukuran 22 KB jauh lebih kecil dibandingkan dengan komponen standard yang mencapai 360 KB. Bahkan ukuran ini masih bisa diperkecil. Download komponen tambahan sysdcu yang sesuai dengan versi delphi yang digunakan, dan sertakan dalam Library path urutan pertama ( di menu Tools > Enviromment Options ). Kemudian Compile / Run lagi… maka aplikasi yang dihasilkan akan berukuran 13.5 KB …!!