Membuat Fitur Help Delphi 7 berjalan 100% di Windows 7

setelah menganalisis perbedaan windows 7 dan windows xp dalam fitur help pada delphi 7,akhirnya hal itu dapat diselesaikan dengan baik namun ane harus mengorbankan windows 7 lame ane...hiks..hiks hiks..
jadi pengen nangis(lebay mode: on).
tapi ane jamin tutorial ini nggak membahayakan kok paling install ulang lagi klo salah..wakkakakakk

nggk kok ane bercanda ente

oke
untuk mempersingkat waktu langsung aj ke TKP:
1. yang harus ente lakukan adalah download winhelp
2.siapkan live cd ubuntu .
3.setelah file tadi di download saatnya sekarang restart komputer ente
4.sekarang booting dengan live cd ubuntu
5.saatnya melakukan cracking,caranya masuk ke system dari windows ente (C:) trus cari folder windows.
6.cari file dengan nama winhlp32.exe dan rename menjadi winhlp32(lama).exe
7.setelah itu cari file yang udah ente download tadi dan copykan ke folder system(C:)==>windows
8.dan restart PC ente
9.nikmati delphi 7 di windows 7 dengan kemampuan sama dengan windows xp.

Program ramalan

ini adalah tugas ke 2 provis..yaitu membuat Program ramalan bintang.

ternyata butuh proses yang panjang juga dalam pembuatannya..bagi yang mau lihat atau mau coba membuat ramalan sendiri silahkan copy aj ni program.
bebas mau diapain juga terserah.


download

Membuat Kalkultor dengan delphi

langsung aje....yang pada mau download script kalkultor disini .

penjelasan :
procedure TForm1.AssignAngka(Ank:string);
begin
{Angka}
if(Reset = true) then
begin
IndexAngka := 2;
memo1.Lines.Text := ank;
Angka[IndexAngka] := strtoint(ank);
Reset := false;
end
else
begin
memo1.Lines.Text := memo1.Lines.Text + ank;
Angka[IndexAngka] := strtoint(memo1.Lines.Text);
end;
end;

ini adalah bagian script yang berfungsi untuk menyimpan dan menghapus entri yang kita buat.ketika data yang kita masukan valid maka akan disimpan sementara di memory kita.dan kemudian diupload dan diambil data yang sebelumnya.
sehingga pada saat kita menekan tombol 1 sebanyak 2 kali maka hasilnya akan menjadi 11.

procedure TForm1.AssignOperator(Op:string);
begin
{Operator}
if(Angka[2] <> 0) then
btnHitungClick(nil);
Operator := Op;
reset:= true;
end;

ini adalah bagian script operator yang bertugas menjalankan perintah yang sudah dideskripsikan oleh program.
saat kita ingin menjumlahkan 5 + 4 maka secara otomatis script diatas menjalankan tugasnya. yaitu dengan mengambil angka 5 yang sudah disimpan di memory angka dan menjumlahkan dengan angka berikutnya yaitu 4 . dan hasilnya akan kelihatan pada saat kita menekan tombol "=" atau menekan tombol opertor lainnya
procedure TForm1.Button1Click(Sender: TObject);
begin
MessageDlg('kalkultor ini dibuat oleh Dedy Irvandy' + #13#10+
'didedikasikan untuk teman-teman ane'

,mtInformation,mbOKCancel,0)
end;

end.

script diatas adalah untuk button "pembuat"
silahkan edit dan masukan biodata kalian pada bagian ini :
'kalkultor ini dibuat oleh Dedy Irvandy' + #13#10+
'didedikasikan untuk teman-teman ane'

untuk menambah enter pada kolom informasi di delphi gunakan script + #13#10+


selanjutnya ente kembangin sendiri mau ditambahin cos ,sin, akar,pangkat dan laen-laen terserah ente..

Password : http://dedy-irvandy.blogspot.com