Template Dasi & Jas .psd

Posting kali ini masih ada hubanganya dengan photoshop, yakni template psd. Bagi yang jago desain pake photoshop mungkin dah punya yang kayak ginian he..., tapi bagi yang baru belajar photosop mungkin template ini berguna, apalagi yang kepingin buka studio photo digital. Template ini cocok untuk membuat pass photo, yang mau buat pass photo g perlu repot-repot lagi nyari dasi atau jas, tinggal photo aja terus kepalanya diambil dimasukun ke template dasi & jas ini he..... Ada 22 koleksi template dasi dan jas ini, silahkan download semoga bermanfaat..

DOWNLOAD Template Dasi & Jas psd

Read More

Download Photoshop CS4 Portable

Masih tentang software yang portable, kali ini saya akan ngasih link download photoshop CS4 yang portable. Ukuranya kecil koq, cuman 48 MB, silahkan....

DOWNLOAD Portable Photoshop CS4

Update Link : Download Photoshop CS4 Portable

Read More

Download Crystal Report 8.5

Cristal Report 8.5 adalah report yang digunakan untuk menampilkan output (laporan) pada sebuah program semisal visual basic. Setelah browsing di internet, akhirnya dapet juga link download Cristal Report 8.5. Silahkan yang mau download......

DOWNLOAD Crystal Report 8.5 part 1

DOWNLOAD Crystal Report 8.5 part 2

DOWNLOAD Crystal Report 8.5 part 3

Update Single Link : Download Crystal Report 8.5

Read More

Aplikasi Pembelian

Aplikasi Pembelian adalah aplikasi yang digunakan untuk mengolah data pembelian kebutuhan kantor/perusahaan. Aplikasi ini terdiri dari master barang, master supplier, realisasi pembelian, pembayaran hutang, permohonan pembelian, report terdiri dari laporan bulanan, berdasarkan departemen, berdasarkan jenis barang, laporan hutang dll. Database menggunakan Ms Access dan report menngunakan CristalReport 8.5, jadi install terlebih dahulu CristalReport untk menjalankanya. Aplikasi ini masih dalam pengembangan tapi dapat dijadikan contoh untuk belajar. Silahkan download scriptnya....

Update Link :

DOWNLOAD Aplikasi Pembelian 

Read More

Portable Total Video Converter

Total Video Converter bagi gw merupakan converter audio video paling komplit he...., langsung aja g perlu basa-basi lagi ni gw kasih link portablenya......

DOWNLOAD Portable TVC

Update Link : Download TVC Portable

Read More

variasi form (vb)

Kali ini saya akan memberikan sedikit tips tentang bagaimana bervariasi dengan tampilan form sehingga lebih menarik. Saya akan memberi contoh bagaimana menampilkan form perlahan-lahan muncul kemudian menghilang, geser ke kanan, geser ke bawah, dan geser ke kanan bawah. Disini kita membutuhkan satu form, module, 2 timer, dan 4 command. 

DOWNLOAD Script variasi form

sumber : internet 

Read More

Download Youtube Downloader

Youtube Downloader digunakan untuk mendownload video dari youtube. Yaah, daripada liat video online di youtube yang kadang kalo koneksinya lambat jengkelin mendingan di download aja sekalian buat koleksi. Caranya gampang koq, tinggal download softwarenya, install di komputer anda. Untuk mendownloadnya tinggal copy aja kode URL dari youtube kemudian paste di youtube downloader lalu kita pilih folder tempat hasilnya terus ok. Selain itu Youtube Downloader dapat digunakan untung mengconvert video .mov .mp4 .3gp .avi .mp3 .wmv

DOWNLOAD Youtube Downloader

Read More

Yahoo Messenger offline installer

Mau nginstall g perlu repot-repot lewat yahoo, karna terlalu lama nungguin. Mendingan download offline installernya lebih cepet dan bisa install pas lagi g online internet. Download Yahoo Messenger offline installer

Read More

Tambah RAM pake Flashdisk

Komputer terasa lambat karena RAM kecil? Mau beli tambahan RAM duit pas-pasan he....., klo kamu punya flashdisk kamu bisa memanfaatkanya untuk menambah kapasitas RAM komputer anda sehingga kinerja komputer meningkat. Caranya kita hanya membutuhkan sebuah software yaitu eBooster yang dapat di download disini. Install eBooster ke komputer kita kemudian restart, lalu masuk ke eBooster control panel, colok flashdisk anda lalu pilih add.. pada eBooster Control Panel maka secara otomatis sisa memory flashdisk dimanfaatkan sebagai RAM di komputer anda. selamat mencoba, DOWNLOAD eBooster

Read More

vb 6 bergaya XP

Bosen dengan tampilan vb yang begitu2 aja? vb 6 memang tampilannya seperti itu karena sudah tidak dikembangkan lagi. vb 6 terakhir tahun 1998 sehingga tidak mengikuti style xp. Tapi jangan khawatir, karena kita bisa mengubah sendiri vb 6 tersebut sehingga bergaya xp dengan menggunakan vb6.exe.manifest. Caranya tinggal mengcopy file vb6.exe.manifest yang kebetulan sudah saya upload disini ke dalam folder yang berisi vb6.exe, atau kalo belum tau tempatnya ada di C:\Program Files\Microsoft Visual Studio\VB98. Selamat mencoba dengan tampilan vb baru yang bergaya xp. DOWNLOAD vb6.exe.manifest

sumber : ilmukomputer

Read More

Aplikasi Teknik

Aplikasi Teknik digunakan untuk mengontrol peralatan teknik, barang teknik, alat berat dll. Pada aplikasi ini terdiri dari input barang atau peralatan teknik, stok barang, stok solar, pemakaian peralatan teknik, pemakaian alat berat. Sedangkan outputnya terdiri dari stok barang, lap keluar masuk barang dan solar, dan laporan pemakaian peralatan teknik dan alat berat. Untuk database masih menggunakan Ms Access dan report jg masih menggunakan ActiveReport. DOWNLOAD Aplikasi Teknik atau DISINI (4shared)

Read More

Ontrack Easy Recovery

Satu lagi software recovery data yaitu Ontrack Data Recovery. Software ini digunakan untuk mengembalikan data yang hilang pada hardisk karana di format sekalipun. Selain itu juga dapat digunakan untuk Diagnosa Disk, Repair File yang corupt (Word, Excel, Access, dll), dan Email Repair. Semoga bermanfaat, link DOWNLOAD

Read More

Antivirus Manual

Antivirus manual adalah sekumpulan tool yang aku gunakan untuk membersihkan virus secara manual. Tool ini digunakan bagi yang sudah "bosan" memakai antivirus yang terlalu berat untuk komputer yang spec-nya kecil. Tool ini terdiri dari ATF Cleaner, Autoruns, Proses Explorer, HiJack This, dan Unlocker.

1. ATF Cleaner

Digunakan untuk membersihkan seluruh sampah komputer (temporary, cookies, perfect, recycle bin, dll)

2. Autoruns

Digunakan untuk mematikan proses yang dicurigai sebagai file virus yang berjalan pada explorer, logon, winlogon, service, drivers, dll

3. Proses Explorer

Hampir sama dengan autoruns hanya saja tool ini hanya digunakan untuk mematikan proses yang berjalan pada explorer

4. HiJack This

Masih sama untuk memeriksa proses yang berjalan pada komputer, selain itu jg dapat digunakan untuk menghapus host file dll

5. Unlocker

Digunakan untuk menghapus file yang susah dihapus karena file tersebut sedang digunakan sistem ataupun virus

DOWNLOAD Antivirus Manual

Read More

Portable Browser

Hari gini zamannya software portable, salah satunya adala browser-browser yang pertable. Penggunaanya gampang, tinggal download di klik lansung jalan tu browser, g perlu install. Portable browser sangat cocok bagi pengguna warnet yang suka pindah2 yang terkadang pada warnet tersebut tidak menyediakan banyak browser. Tinggal Colok jalan..........he....

1. DOWNLOAD GOOGLE CHROME PORTABLE
2. DOWNLOAD MOZILA FIREFOX PORTABLE
3. DOWNLOAD OPERA PORTABLE

Read More

Aplikasi Gaji YP Kosgoro

Aplikasi Gaji Yayasan Pendidikan Kosgoro digunakan untuk melakukan perhitungan gaji guru dan karyawan YP Kosgoro. Terdiri dari input data karyawan, data jabatan, master honor, transaksi gaji, dan terdiri dari output laporan data karyawan, cetak slip, lap gaji bulanan. Menggunakan database Ms Access dan report dengan ActiveReport. DOWNLOAD DISINI  

Update Link : Downloadd Aplikasi Gaji

Read More

Database Converter

ESF Database Converter profesional digunakan untuk menconvert database, bermanfaat bagi para programer. Berikut jenis database yang dapat di convert oleh software ini : Oracle, MySQL, SQL Server, PostgreSQL, IBM DB2, Visual Foxpro, SQLite, FireBird, InterBase, Microsoft Access, Microsoft Excel, Paradox, Lotus, dBase, CSV/Text.

DOWNLOAD ESF

Original Site : http://easyfrom.net

Read More

Button Style XP (vb)

Bagi penggemar vb, ini ada file ocx yang digunakan untuk membuat button style XP yang dapat diganti bentuknya, warna tulisan, atau penempatan icon. Cara memakainya pun mudah, tinggal download dari sini lalu extract filenya dan klik file REGISTER.BAT. Setelah itu buka vb kemudian pilih Project-Components... cari dan beri conteng lvButton lalu OK. Atur properties untuk mendapatkan bentuk/warna yamg diinginkan. DOWNLOAD  DISINI 

Read More

GetDataBack for NTFS & FAT

Data anda di hardisk hilang, terhapus, atau terformat? jangan khawatir banyak software yang bisa digunakan untuk ngembaliin data (recovery) yang hilang salah satu diantaranya Runtime GetDataBack. Dengan Software ini kita dapat mengembalikan data yang hilang sekalipun tu hardisk dah di format. Software ini terbagi 2, yaitu digunakan untuk hardisk berformat NTFS dan FAT. Saya juga pernah menggunakanya untuk flasdisk yang telah di format. DOWNLOAD

Read More

Aplikasi Iklan

Aplikasi Iklan radio digunakan untuk mengolah data transaksi iklan yang meliputi data custemer, data tarif, transaksi iklan, dan laporan (report). Database masih menggunakan Ms Access dan report jg masih menggunakan ActiveReport. Bagi yang tertarik silahkan download  Update Link

DOWNLOAD APLIKASI IKLAN

Read More

PASSWARE KIT ENTERPRISE 8.0

PASSWARE KIT ENTERPRISE 8.0 software untuk bobol password file (office, rar, zip, etc). Aku dah coba pake, kebanyakan berhasil, meskipun kadang ada yang lama nyari passwordnya. Lumayan bisa ngebantu file punya temen yang di password n dah lama g dibuka jadinya lupa tuh passwordnya hkkk..... Silahkan download >>DISINI<<

Read More

Aplikasi Pelanggan Lampung Post

  

Aplikasi ini digunakan untuk mengetahui data pelanggan surat kabar harian Lampung Post. Pada aplikasi ini kita dapat memasukan data pelanggan, data loper, data transaksi berlangganan, dan data transaksi pembayaran demikian halnya untuk output (reportnya). Database menggunakan Ms Access dan report menggunakan ActiveReport. Yang mau nyoba silahkan download DISINI (Ziddu)

Read More

Al-Qur'an in Ms Word

Ini adalah semacam add-ins pada Ms Word untuk memudahkan kita menulis Al-Qur'an. Selain menulis ayat Al-Qur'an juga dapat sekaligus menulis terjemahan dalam bahasa indonesia. Cara memasangnya juga mudah, tinggal download disini kemudian diinstall di komputer, maka secara otomatis akan menambahkan dirinya pada Ms Word di menu bar. Silahkan yang ingin mencoba download Al-Qur'an in Word DISINI

Read More

Aplikasi Gaji

Aplikasi Gaji Karyawan digunakan untuk mengolah data karyawan dan data gaji karyawan. Aplikasi ini terdiri dari input data karyawan, data absen, transaksi gaji, dan cetak data. Database menggunakan Ms Access dan reportnya menggunakan activereport. Bagi yang ingin mencoba script ini silahkan downlod DISINI atau DISINI

Read More

Aplikasi Karyawan PLN

  

Aplikasi Karyawan PLN digunakan untuk mengolah data karyawan dan data keluarga karyawan. Aplikasi ini terdiri dari input data, cari data, dan cetak data. Database menggunakan Ms Access dan reportnya menggunakan activereport. Bagi yang ingin mencoba script ini silahkan downlod DISINI

Read More

Webshots Desktop

Aplikasi kecil ini digunakan untuk mengatur tampilan gambar pada desktop komputer anda. Dengan aplikasi ini kita dapat menatur gambar desktop berubah dalam waktu tertentu sesuai yang kita inginkan, dapat juga menampilkan kalender, dan screensaver. Aplikasi ini dapat diperoleh secara gratis dari websitenya yaitu http://www.webshots.com. Di website tersebut juga sudah ada koleksi wallpapernya. Alternatif koleksi wallpaper ada di http://www.vnwallpapers.com

Read More

ClassicMenu for Ms Office 2007

Tulisan ini mungkin udah telat kali ya, soalnya sekarang udah banyak yang make Ms Office 2007. Nah bagi yang belum terbiasa pake Ms. Office 2007 biasanya terkendala pada Menu bar yang pada dasarnya sama dengan pendahulunya (Ms Office 2003) hanya beda penempatanya. Tapi bagi yang bingung tenang aja ada software pembantu yaitu "Classic Menu For Office 2007". Cara pakainya gampang, tinggal di install otomatis langsung muncul pada office.

Untuk downloadnya DISINI

Read More

Download ActiveReport

Apa itu ActiveReport? sama halnya dengan data report bawaan vb atau Crystal Report yang digunakan untuk membuat laporan(report/output) pada pemrograman vb. Jikan dibandingkan data report maka ActiveReport lebih baik dikarenakan desain laporan dapat diatur landscape yang tidak dapat dilakukan pada data report. Jika dibandingkan dengan CrystalReport masih kalah masalah fitur dan variasi desainya, tetapi begitu di instal ActiveReport langsung "gabung" dengan vb yaitu di menu Project -> Pilih Add Data Dynamic ActiveReport..

Yang mau download ni dia linknya :  DOWNLOAD 


Update Link : DOWNLOAD ACTIVEREPORT

Read More

Convert File OpenOffice ke File Ms Office

Suatu hari saya dapet email yang berisi lampiran file berextensi odt (*.odt). Setelah didownload ternyata file tersebut tidak dapat di buka di komputerku. Sempat mikir file apakah gerangan..., setelah nyari di google gk taunya gw sendiri yang gaptek gk pernah pake linux atau OpenOffice. File tersebut rupanya extensi dari OpenOffice dan sama dengan doc pada Ms Office. Lalu bagaimana caranya agar file .odt bisa dibuka di Ms Office? pastinya harus diconvert terlebih dahulu, salah satu converternya adalah NW Docx Converter yang bisa di download pada link dibawah ini : 

http://www.nativewinds.montana.com/downloads/Docx2Rtf.zip

Cara kerja Converter ini adalah menconvert file extensi .odt menjadi extensi .rtf sehingga dapat dibuka dengan Ms Office. Caranya dengan membuka file tersebut kemudian di save as dengan extensi rtf.

Ada satu lagi cara yang digunakan untuk mengconvert file odt tapi dilakukan secara online yaitu pada situs http://www.zamzar.com/ . Caranya dengan mengupload file kita ke situs tersebut kemudian pilih hasil convertnya dan masukan alamat email anda, selanjutnya convert. Tunggu beberapa saat, situs tersebut akan mengirimkan file hasil convert ke alamat email anda. Selain file extensi odt yang sama dengan doc yang dapat diconvert, ada juga file extensi ods yang pada Ms Office merupakan file ecxel (.xls)

Read More

Mendesain StatusBar

StausBar digunakan para programer biasanya untuk menampilkan informasi tanggal, jam, maupun text berjalan yang berisi informasi program. Tapi bagi para newbie atau temen yang baru belajar vb gak da salahnya mencoba hal yang satu ini. Oke, gak usah lama2, buat sebuah form, StatusBar, dan 2 buah Timer. Klo belum tau mendpatkan StatusBar buka aja Project->Components-> Beri tanda cek pada Microsoft Windows Command Control 6.0 (sp6).

Atur properties untuk StatusBar buatlah 7 buah panel yang masing untuk text tanggal, tanggal, text jam, jam, caps, num, dan text berjalan. sedangkan untuk timer masukan interval 1000.

Source Codenya sbb :

Dim Counter As Integer

Private Sub MDIForm_Load()

Counter = 0

Timer2.Interval = 60 '<-- Atur kecepatannya di sini

With StatusBar1

.Panels(7).Width = 8300

.Panels(7).Alignment = sbrRight

End With

End Sub

Private Sub Timer1_Timer()

StatusBar1.Panels(2).Text = Format(Date, "dd MMMM yyyy")

StatusBar1.Panels(4).Text = Format(Time, "hh:mm:ss")

End Sub

Private Sub Timer2_Timer()

Dim Kalimat As String

Dim pnlX1 As Panel

Set pnlX1 = StatusBar1.Panels(7)

Kalimat = "*** Aplikasi Penggajian Yayasan Pendidikan Kosgoro by AGUNG @ 2009***"

Counter = Counter + 1

DoEvents

pnlX1.Text = TulisJalan(Counter, Kalimat, 140)

End Sub

Public Function TulisJalan(Hitung As Integer, _

strKalimat As String, _

Panjang As Integer)

If Hitung = Len(strKalimat) + Panjang Then

Hitung = 0

ElseIf Hitung > Len(strKalimat) Then

TulisJalan = strKalimat & Space(Hitung - Len(strKalimat))

Else

TulisJalan = Mid(strKalimat, 1, Hitung)

End If

End Function

Read More

Koneksi Handphone dengan PC Windows XP melalui Kabel Data

Langkah-langkahnya sebagai berikut :

1. Masuk ke menu Control Panel.

2. Pilih Phone and Modem Options

3. Pilih Modem

4. Tekan Add

5. Beri tanda (a) “Don’t detect my modem: I will select it from a list”

6. Tekan Next

7. Pilih Standard 33600 bps Modem

8. Tekan Next

9. Pilih port dari kabel data yang digunakan biasanya COM1 untuk kabel data namun jika tidak tersedia pilih COM lain

10. Tekan Next

11. Instalasi modem sudah selesai

12. Tekan Finish

13. Kembali ke tampilan Phone and Modem Option

14. Pilih Modem yang sudah terinstall tadi yaitu Standard 33600 bps Modem

15. Tekan Properties

16. Pilih Diagnostics

17. Tekan Query Modem (pastikan bahwa proses query telah sukses)

18. Setelah itu pilih Advanced

19. Masukan Extra Settings : AT+CGDCONT=1,"IP","indosatgprs"

20. Tekan OK

21. Kembali ke tampilan Phone and Modem Options

22. Tekan OK lalu keluar dari menu Control Panel

23. Langkah selanjutnya : Pilih Start à Programs à Accessories à Comunication à Network Connection

24. Pilih Creat a new connection

25. Akan muncul tampilan New Connection Wizard

26. Tekan Next

27. Pilih Connect to the Internet

28. Tekan Next

29. Pilih Set up my connection manually

30. Tekan Next

31. Pilih Connect using a dial-up modem

32. Isi ISP Name : Satgprs

33. Tekan Next

34. Isi Phone number : *99***1#

35. Tekan Next

36. Pilih Create this connection for : Anyone’s use

37. Tekan Next

38. Kosongkan user name dan password

39. Tekan Next

40. Beri tanda (a) pada Add a shortcut to this connection to my deskstop

41. Tekan Finish

Model Kabel Data

1. Serial cable (DKU-5, CA-42), Tipe HP Nokia GSM Anda : Biasanya yang belum dilengkapi fasilitas MP3 misalnya (2115/ 2270/ 2272/ 2285/ 3100/ 3108/ 3120/ 3200/ 3220/ 3585i/ 3586i/ 3587/ 3587/ 3587i/ 3588i/ 3589i/ 5100/ 5140/ 6011i/ 6015i/ 6016i/ 6019i/ 6020/ 6021/ 6100/ 6101/ 6102/ 6108/ 6220/ 6610/ 6610i/ 6800/ 6820/ 6822/ 7200/ 7210/ 7250/ 7250i/ 7260/ 7360/ 6103/ 6070). Tipe HP Nokia CDMA Anda : Biasanya yang belum dilengkapi fasilitas MP3(2112/ 2280/ 3105/ 3125/ 3205/ 3586/ 6012/ 6015/ 6225/ 6585).

2. USB (DKU-2, CA-53), Biasanya untuk type HP Hokia yang sudah dilengkapi fasilitas MP3.

Setelah Anda menentukan model kabel data, silahkan mengikuti langkah – langkah selanjutnya :

1. Install Nokia PC Suite.

2. Setelah sudah ter-install, masuk ke Nokia PC Suite dengan double klik, kemudian masuk ke “Manage Connections”. Kemudian Pilih model kabel data yang dipakai : (a). Serial cable (DKU-5, CA-42) atau (b). USB (DKU-2, CA-53, DKE-2). Setelah dipilih dengan meng-klik, kemudian di-Minimize. Kemudian klik “Get Connected”, Next 2x, kemudian hubungkan kabel data ke mobile Phone, Finish. Setelah itu centangan pilihan kabel data dihilangkan semua.

3. Masuk ke- Control Panel.

· Pilih “ Phone and Modem Options”. Dialing Rules diisi 021 (kode wilayah). Modem dipilih sesuai dengan model kabel data yang dipakai, misalnya CA-42 CDMA USB modem #2…. Kemudian klik Properties ==> Diagnostic ==> Query Modem. Kemudian pilih Advanced, entry Initialization diisi at+crm=1; kemudian OK 2 x.

· Pilih Network Connetions. Pilih Create a new connections ==> Next 2 x ==> Set up my Connections ==> Next 2 x. Pilih model kabel data, contoh Nokia CA-42…. Ketik #777 ==> Next 2 x. Kemudian isi data operator yang dipakai ==> FINISH.

Read More

Angka Terbilang Pada VB

Bagi para vb lover yang ingin cari source code angka terbilang pada vb ada disini. Menampilkan angka terbilang sangat sering kita jumpai saat kita membuat program vb. Langsung aja...buka vb dan buat tampilan form seperti gambar diatas. Disini kita hanya membutuhkan sebuah textbox dan label untuk menampilkan angka terbilang. Selain itu saya menggunakan sebuah module untuk memasukan source codenya.

Untuk source code yang di letakan pada module :

Public Function Terbilang(ByVal x As Long) As String

Dim abil As Variant

abil = Array("", "Satu", "Dua", "Tiga", "Empat", "Lima", "Enam", "Tujuh", "Delapan", "Sembilan", "Sepuluh", "Sebelas")

If x <>

Terbilang = "" & abil(x)

ElseIf x <>

Terbilang = Terbilang(x - 10) & " Belas "

ElseIf x <>

Terbilang = Terbilang(x \ 10) & " Puluh " & Terbilang(x Mod 10)

ElseIf x <>

Terbilang = "Seratus " & Terbilang(x - 100)

ElseIf x <>

Terbilang = Terbilang(x \ 100) & " Ratus " & Terbilang(x Mod 100)

ElseIf x <>

Terbilang = "Seribu " & Terbilang(x - 1000)

ElseIf x <>

Terbilang = Terbilang(x \ 1000) & " Ribu " & Terbilang(x Mod 1000)

ElseIf x <>

Terbilang = Terbilang(x \ 1000000) & " Juta " & Terbilang(x Mod 1000000)

End If

End Function

Nah klo yang ini letakan pada form :

Private Sub Text1_Change()

Label1.Caption = Terbilang(Val(Text1.Text)) & " Rupiah"

End Sub

Jalankan Program dan coba hasilnya.......

Read More

AVG 2018.....

AVG 2018 ??, maksudnya lisensinya sampe 2018 dan gratiss...alias freee, lho koq bisa....... Ceritanya waktu aku pake AVG 8 di komputerku lisensinya habis di bulan desember 2008, maklum pake yang free he....... Oke langsung aja gw kasih lisensinya AVG 2018

8MEH-REDSL-7ETEC-ULA8R-EAOKL-4EMBR-ACED

Ini jg gw dapet waktu browsing di mbah google, site asal dari http://www.mydigitallife.info/2008/10/27/free-working-license-key-serial-to-activate-avg-anti-virus-8-till-2018-10-years-subscription-expiry/
semoga bermanfaat

Read More

Membuat Animasi Bintang

Gambar animasi sering digunakan orang untuk memperindah tampilan, pada form vb kita juga bisa memperindah tampilan dengan animasi. Berikut saya berikan contoh animasi pada vb

Buat sebuah form dengan beberapa label dan sebuah timer, dengan propertis masing2 sbb :
Form --> backcolor = pilih warna hitam, borderstyle = 0-none, windowstate = 2-maximized.
Label1 dst... --> backstyle = 0-transparant, caption = l , font = webdings (size = 72), disini saya menggunakan 35 label (name = label1 s/d label35).
Timer1 --> interval = 100.

untuk source kodenya sbb:
Private Sub Timer1_Timer()
Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label2.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label3.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label4.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label5.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label6.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label7.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label8.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label9.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label10.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label11.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label12.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label13.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label14.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label15.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label16.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label17.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label18.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label19.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label20.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label21.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label22.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label23.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label24.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label25.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label26.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label27.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label28.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label29.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label30.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label31.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label32.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label33.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label34.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label35.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub

Read More

"Log In" sederhana

Kali ini saya akan coba memberikan source code sederhana untuk Log In. Mengapa saya katakan sederhana, karena Log In ini bersifat permanent untuk user dan passwordnya, maksudnya nama user dan password saya tempatkan langsung pada source code. Sehingga saat menjalankan kan program ini, kita harus tau nama user dan password yang kita masukan di source codenya. program ini dilengkapi dengan progressbar untuk menambah variasi.

Baiklah gak perlu lama2, langsung aja buat sebuah form yang terdiri dari 2 label untuk user dan password, 2 textbox juga untuk user dan password, 2 combobox untuk tombol Log In dan Keluar, 1 timmer, dan 1 progressbar. Kemudian buat lagi 1 form yang kita gunakan untuk form menu utama. berikut source codenya :

Private Sub Cmd_log_Click()
If Text_user = "" And Text_pass = "" Then
MsgBox ("Isi dulu User dan Passwordnya...!!!"), vbInformation, "Sory....."
Text_user.Text = ""
Text_pass.Text = ""
Text_user.SetFocus
ElseIf Text_user = "" Then
MsgBox ("Isi dulu Usernya...!!!"), vbInformation, "Sory....."
Text_user.Text = ""
Text_user.SetFocus
ElseIf Text_pass = "" Then
MsgBox ("Isi dulu Passwordnya...!!!"), vbInformation, "Sory....."
Text_pass.Text = ""
Text_pass.SetFocus
ElseIf Text_user = "ADMIN" And Text_pass = "1234" Then
MsgBox ("Selemat Datang..."), vbOKOnly, "Welcome"
Timer1.Enabled = True
ElseIf Text_user <> "ADMIN" Then
MsgBox ("User salah..!!!!"), vbInformation, "Ooops..."
Text_user.Text = ""
Text_user.SetFocus
ElseIf Text_pass <> "1234" Then
MsgBox ("Password salah..!!!!"), vbInformation, "Ooops..."
Text_pass.Text = ""
Text_pass.SetFocus
Else
MsgBox ("User dan password salah..."), vbInformation, "Ooops..."
Text_user.Text = ""
Text_pass.Text = ""
Text_user.SetFocus
End If
End Sub

Private Sub Form_Activate()
Text_user.SetFocus
End Sub

Private Sub Form_Load()
Text_user = ""
Text_pass = ""
Text_pass.PasswordChar = "*"
ProgressBar1.Min = 0
ProgressBar1.max = 1000
Timer1.Enabled = False
End Sub

Private Sub Text_pass_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Cmd_log.SetFocus
End Sub

Private Sub Text_user_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text_pass.SetFocus
End Sub

Private Sub Timer1_Timer()
Dim i As Integer
For i = ProgressBar1.Min To ProgressBar1.max
ProgressBar1.Value = i
If ProgressBar1.Value = 1000 Then
Unload Me
menu.Show
End If
Next

End Sub

Read More

Contoh Program VB dengan Database SQL Server (Part 2)

Berikut adalah lanjutan Script VB dari posting sebelumnya :

Private Sub Cmd_Batal_Click()
On Error GoTo errlabel
Txt_kodeakun = ""
Txt_namaakun = ""
Txt_saldo = ""
Txt_kodeakun.Enabled = True
Txt_namaakun.Enabled = True
Txt_saldo.Enabled = True
Cmd_Simpan.Enabled = True
Cmd_Batal.Enabled = True
Txt_kodeakun.SetFocus
Exit Sub
errlabel:
MsgBox Err.Description
End Sub

Private Sub Cmd_Cari_Click()
Call sambung
sql = "select * from akun where kodeakun= '" & Txt_kodeakun.Text & "'"
Set rsa = con.Execute(sql)
If Not rsa.EOF Then
Txt_namaakun.Text = rsa.Fields("namaakun")
Txt_saldo.Text = rsa.Fields("saldoawal")
Txt_kodeakun.Enabled = False
Txt_namaakun.Enabled = False
Txt_saldo.Enabled = False
Cmd_Edit.Enabled = True
Cmd_Hapus.Enabled = True
Else
Cmd_Simpan.Enabled = True
Cmd_Batal.Enabled = True
End If
If rsa.EOF Then
MsgBox "Data yang anda Cari tidak ada", vbInformation, "Info"
Txt_kodeakun.Text = ""
Txt_kodeakun.SetFocus
Ado_Rekening.Refresh
End If
End Sub

Private Sub Cmd_Edit_Click()
Txt_kodeakun.Enabled = False
Txt_namaakun.Enabled = True
Txt_saldo.Enabled = True
Cmd_Simpan.Enabled = True
Cmd_Simpan.SetFocus
End Sub

Private Sub Cmd_Hapus_Click()
On Error GoTo errlabel
Call sambung
sql = "delete from akun where kodeakun = '" & Txt_kodeakun.Text & "'"
con.Execute (sql)
Ado_Rekening.Refresh
Cmd_Tambah.Enabled = True
Cmd_Simpan.Enabled = False
Cmd_Hapus.Enabled = False
Cmd_Batal.Enabled = False
Cmd_Edit.Enabled = False
Cmd_Cari.Enabled = True
Exit Sub
errlabel:
MsgBox Err.Description
End Sub

Sub kosong()
If Txt_kodeakun.Text = "" Or Txt_namaakun.Text = "" Or Txt_saldo.Text = "" Then
MsgBox "Isi dulu Datanya, okey.........", vbInformation, "Info...."
Txt_kodeakun.SetFocus
End If
End Sub

Private Sub Cmd_Tambah_Click()
On Error GoTo errlabel
Txt_kodeakun = ""
Txt_namaakun = ""
Txt_saldo = ""
Txt_kodeakun.Enabled = True
Txt_namaakun.Enabled = True
Txt_saldo.Enabled = True
Cmd_Simpan.Enabled = True
Cmd_Batal.Enabled = True
Txt_kodeakun.SetFocus
Exit Sub
errlabel:
MsgBox Err.Description
End Sub

Private Sub Cmd_Tutup_Click()
Unload Me
End Sub

Private Sub Form_Activate()
Call sambung
Ado_Rekening.Refresh
Cmd_Tambah.Enabled = True
Cmd_Simpan.Enabled = False
Cmd_Hapus.Enabled = False
Cmd_Batal.Enabled = False
Cmd_Edit.Enabled = False
Cmd_Cari.Enabled = True
Cmd_Tambah.SetFocus
End Sub

Private Sub cmd_kosong_Click()
Call sambung
sql = "update akun set saldoawal = 0 where kodeakun like '211%' or kodeakun like '411%'"
Set rsa = con.Execute(sql)
Ado_Rekening.Refresh
End Sub

Private Sub Txt_kodeakun_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call sambung
sql = "select * from akun where kodeakun= '" & Txt_kodeakun.Text & "'"
Set rsa = con.Execute(sql)
If Not rsa.EOF Then
MsgBox "Kode Sudah ada, ganti Kode lain", vbExclamation, "Sory...."
Txt_kodeakun.Text = ""
Txt_kodeakun.SetFocus
Else
Txt_namaakun.SetFocus
End If
End If
End Sub

Private Sub Txt_namaakun_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt_saldo.SetFocus
End If
End Sub

Private Sub Txt_saldo_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Cmd_Simpan.SetFocus
End If
End Sub

Read More

Contoh Program VB dengan Database SQL Server (Part 1)

Saya akan berbagi Ilmu Mengenai Pemrograman Database SQL server. Untuk menjalankan script ini pastikan komputer terinstal SQL Server, dan kita belajar dengan server lokal.

Pertama Buat dulu databasenya dengan SQL Server. field-fieldnya sbb:

1. kodeakun tipe char panjang 8
2. namaakun tipe varchar panjang 30
3. saldoawal tipe money
   

kemudian buat form seperti gambar diatas, dan yang perlu diperhatikan adalah koneksi databasenya dengan menggunakan ADO. agar tidak bingung dalam membuat form, berikut ini saya berikan komponen beserta propertisnya :

kolo sudah selesai sekarang untuk scriptnya tuliskan kode sbb:

Dim conect As String
Dim sql As String
Dim con As New ADODB.Connection
Dim rsa As New ADODB.Recordset
Sub sambung()
Set con = New ADODB.Connection
Set rsa = New ADODB.Recordset

conect = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=isab;Data Source=(local)"
con.Open conect
rsa.Open "akun", con
End Sub

Private Sub Cmd_Simpan_Click()
On Error GoTo errlabel
Call kosong
Call sambung
If Txt_kodeakun.Enabled = True Then
sql = "insert into akun values('" & Txt_kodeakun.Text & "','" & Txt_namaakun.Text & "'," & CCur("0" & Txt_saldo.Text) & ")"
con.Execute (sql)
Ado_Rekening.Refresh
Else
sql = "update akun set namaakun='" & Txt_namaakun.Text & "',saldoawal=" & CCur("0" & Txt_saldo.Text) & " where kodeakun='" & Txt_kodeakun.Text & "'"
con.Execute (sql)
Ado_Rekening.Refresh
End If

Txt_kodeakun.Enabled = False
Txt_namaakun.Enabled = False
Txt_saldo.Enabled = False
Cmd_Tambah.Enabled = True
Cmd_Simpan.Enabled = False
Cmd_Hapus.Enabled = False
Cmd_Batal.Enabled = False
Cmd_Edit.Enabled = False
Cmd_Cari.Enabled = True
Ado_Rekening.Refresh

Ado_Rekening.Recordset.MoveLast
Exit Sub
errlabel:
MsgBox Err.Description
End Sub

Ini baru script untuk penyimpanan data, ntar kita sambung lagi...

Read More