Farid's Blog - Download Software & Aplikasi vb

Pengolahan Data Barang (Database SQL Server)

2010-08-25T10:11:00.003+07:00

Udah lama gk update blog kangen juga hehehe..., maklumlah kesibukan bertambah. Ok lah kali saya posting contoh aplikasi vb pengolahan data barang. Aplikasi ini hanya untuk pembelajaran, bukan profesional hehe.., silahkan kembangkan sendiri. Disini saya menampilkan 3 form master data yaitu : Data barang, Data Supplier, Data Customer, dan juga saya tambahkan 2 form transaksi yaitu Penjualan dan Pembelian. Untuk database saya menggunakan SQL Server 2000, report belum sempet dibuat. Silahkan download file dibawah ini, didalamnya juga sudah saya tambahkan tutorial. Semoga Bermanfaat...........

DOWNLOAD DISINI atau DISINI

Mencari Password file word, excel

2010-01-28T11:24:00.002+07:00

Satu lagi software yang digunakan untuk mencari password file word atau excel. Nama software ini adalah Ms Word Excel Cracker yang saya dapatkan waktu lagi nyari di mbah google. software ini sangat membantu bagi saya untuk mencari password file word atau excel punya rekan kerja yang lupa di karenakan file tersebut sudah lama tidak dibuka. Manfaatkan software ini untuk hal yang positif hehehe.... DOWNLOAD Ms Word Excel Cracker

Template Dasi & Jas .psd

2009-05-26T16:21:00.004+07:00

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

Portable Photoshop CS4

2009-05-06T08:34:00.003+07:00

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

DOWNLOAD Portable Photoshop CS4

Portable Google Earth

2009-04-28T09:02:00.005+07:00

Siapa yang g kenal google earth..., software dari google yang dapat di gunakan untuk melihat permukaan bumi sampai jarak deket, software ini sebaiknya di install pada komputer dengan spec yang lumayan, klo g ya lemooot...... Tapi saya akan ngasih yang portable aja biar g bebanin komputer kita.....he...he....

DOWNLOAD Portable Google Earth

Download Crystal Report 8.5

2009-04-27T15:09:00.004+07:00

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

Aplikasi Pembelian

2009-04-23T08:15:00.005+07:00

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....

DOWNLOAD Aplikasi Pembelian atau Yang INI (4shared)

Portable Total Video Converter

2009-04-16T08:48:00.003+07:00

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

variasi form (vb)

2009-04-14T08:53:00.004+07:00

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

Portable DAP

2009-04-13T09:07:00.002+07:00

Download Accelerator Plus emang udah terkenal dari dulu sebagai mesin download yang mumpuni. Karena dengan menggunakan Software ini kita dapat mendownload file dari internet lebih cepat. Nah, klo ada yang portable lebih praktis tentunya, klo mau make g perlu install dulu, tinggal klik terus jalan.......he....

DOWNLOAD Portable DAP

Youtube Downloader

2009-04-03T09:21:00.004+07:00

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

Yahoo Messenger offline installer

2009-04-02T13:27:00.004+07:00

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

Tambah RAM pake Flashdisk

2009-03-30T13:58:00.004+07:00

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

vb 6 bergaya XP

2009-03-27T08:28:00.004+07:00

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

Aplikasi Teknik

2009-03-25T10:08:00.006+07:00

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)

Ontrack Easy Recovery

2009-03-24T10:37:00.003+07:00

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

Antivirus Manual

2009-03-23T08:44:00.004+07:00

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

Portable Browser

2009-03-19T13:29:00.005+07:00

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....

Aplikasi Gaji YP Kosgoro

2009-03-18T08:25:00.004+07:00

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 atau DISINI (4shared)

Database Converter

2009-03-17T10:19:00.004+07:00

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

Button Style XP (vb)

2009-03-16T13:41:00.003+07:00

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

GetDataBack for NTFS & FAT

2009-03-11T16:02:00.007+07:00

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

Aplikasi Iklan

2009-03-06T10:42:00.008+07:00

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 >>DISINI<<

PASSWARE KIT ENTERPRISE 8.0

2009-03-05T09:52:00.004+07:00

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<<

Aplikasi Pelanggan Lampung Post

2009-03-04T08:27:00.005+07:00

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 atau DISINI (4shared)

Al-Qur'an in Ms Word

2009-03-03T09:52:00.006+07:00

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

Aplikasi Gaji

2009-03-02T08:58:00.007+07:00

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 (4shared)

Aplikasi Karyawan PLN

2009-02-26T08:51:00.008+07:00

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 atau download DISINI

Webshots Desktop

2009-02-25T08:42:00.007+07:00

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

ClassicMenu for Ms Office 2007

2009-02-18T13:56:00.007+07:00

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

Download ActiveReport

2009-02-12T14:39:00.006+07:00

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

Convert File OpenOffice ke File Ms Office

2009-02-11T11:20:00.006+07:00

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)

Mendesain StatusBar

2009-02-11T09:34:00.000+07:00

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

Koneksi Handphone dengan PC Windows XP melalui Kabel Data

2009-02-11T09:26:00.001+07:00

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.

Angka Terbilang Pada VB

2009-02-11T09:17:00.002+07:00

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.......

AVG 2018.....

2009-02-11T09:09:00.000+07:00

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

Membuat Animasi Bintang

2009-02-11T09:08:00.002+07:00

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

"Log In" sederhana

2009-02-11T09:05:00.000+07:00

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

Contoh Program VB dengan Database SQL Server (Part 2)

2009-02-11T08:35:00.000+07:00

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

Contoh Program VB dengan Database SQL Server (Part 1)

2009-02-11T08:32:00.002+07:00

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:

kodeakun tipe char panjang 8
namaakun tipe varchar panjang 30
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...

Ganti Password Admin pada Windows

2008-04-04T14:15:00.007+07:00

Ganti password, bobol password, dll adalah artikel yang sering di cari di internet. Kemaren ada temen kerja bingung waktu ngidupin komputer passwordnya lupa karna dah lama gak di pake. eh.. untung pernah baca2 di Internet caranya gimana, berikut langkah2 nya klo yang mau nyoba :

Hidupin komputer tapi masuk lewat safe mode (tau kan caranya...., klo belum tau caranya teken aja F8 di keyboard saat booting, ntar kan ada pilihan safe mode, normally dll), saat muncul password pilih yang Administrator, karna klo kita pilih yang satunya kan gak bisa masuk tuh....(kita gak tau passwordnya)

Klick Start - pilih Run

Ketikan lusrmgr.msc lalu OK

Muncul kotak diaog Local Users and Groups, pilih users dan pada bagian kanan kita pilih nama dari user yang akan kita ganti passwordnya.

Klik kanan user yang kita pilih terus pilih Set Password lalu akan muncul peringatan resiko mengganti password. Klick Proceed untuk melanjutkan

Masukan password baru untuk mengganti password yang lama pada New Password dan Confirm Password. lalu Klick OK

Restart komputer anda dan masuk dengan menggunakan password yang baru anda masukan.

Kelemahan menggunakan cara ini apabila komputer anda terinstal Deefreze (semacam program untuk proteksi), karna jika di restart komputer akan kembali seperti sebelumnya. masih banyak cara2 lain yang bisa digunakan, yang ini hanya salah satunya.

semoga bermanfaat

Mematikan Autorun

2008-02-28T11:09:00.006+07:00

Masih membicarakan tentang mencegah virus...... Banyak virus masuk ke komputer kita melalui flashdisk, cara masuk tu virus itu cepet banget tanpa kita sadari. Begitu kita colok tu flashdisk ke komputer kita, langsung tu komputer kita diserang. Lho kok bisa gitu..?, sebagian besar virus memanfaatkan autorun dari flashdisk untuk menginfeksi komputer kita, jadi saat flashdisk kita colok kan langsung autorun(langsung tampil jendela windows yang berisi open folder, dll), nah saat itulah virus juga ikut berjalan. Emang si gak semua virus seperti itu, tapi faktanya sekarang ini hampur semua virus baru memanfaatkan hal ini.

Untuk itu seperti kata dokter "mencegah lebih baik dari pada mengobati" atau "Penanganan lebih dini itu lebih baik", kita bisa menyiasati agar tu flashdisk nggak nglakuin autorun saat kita colok ke komputer. Caranya gimana..?, nah itu yang akan saya bahas kali ini. saya akan memberikan tiga cara, terserah pembaca maunya pilih yang mana.

Pertama, saat kita colok tu flashdisk ke komputer pada saat bersamaan kita teken tombol Shift pada keyboard kira2 5-10 detik atau lebih, dengan cara tersebut flashdisk tidak akan melakukan autorun di komputer..

Cara kedua, kita akan mematikan Autoplay, caranya :

Dari Startmenu > pilh Run
Ketik gpedit.msc lalu OK
Akan muncul jendela Group Policy, pilih User Configuration > Administrative Templates > System
Pada tab sebelah kanan cari tulisan Turn Off Autoplay, lalu dubleklik tulisan tersebut
Muncul jendela baru, kemudian kita pilih option Enabled lalu OK

Cara ketiga, menggunakan teknik Registry

Dari Startmenu > pilh Run
Ketik regedit lalu OK
Pilih HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ Policies\Explorer
Cari key NoDriveTypeAutoRun lalu ubah valuenya menjadi 124 untuk pilihan Decimal atau 7c untuk Hexadecimal
Jika key tersebut tidak ada anda bisa membuatnya, caranya dari Menu Edit – New – DWORD Value, ubah namanya menjadi NoDriveTypeAutoRun beri nilai valuenya
Restart komputer anda

Semoga bermanfaat.....
sumber : dari berbagai sumber di internet

Blok USB

2008-02-25T14:09:00.005+07:00

Akhir-akhir ini gw pusing ma komputer kantor gara-gara kena virus, klo ga dapet dari internet tu virus dapet dari flashdisk para karyawan. Kadang-kadang orang yang gak tau peke flashdisk asal colok-colok aja, gak mikirin tu flashdisk bawa virus pa nggak. Sampai akhirnya gw berpikir dulu gw pernah denger cara disable USB, gw tanya temen gw lupa. Terus gw browsing tu di internet lewat mbah google, dapet deh..tapi mesti nggotak-ngatik registri editor.

Caranya buka regedit dari menu Run kemudian kita ubah valuenya untuk diseble

HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\USBSTOR
cari key "start" terus dubleclick dan ganti valuenya menjadi 4.

untuk enable

HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\USBSTOR
cari key "start" terus dubleclick dan ganti valuenya menjadi 3.

Restart komputer untuk mendapatkan hasilnya.
perintah disable ini berlaku untuk semua port USB, semoga bermanfaat

sumber : dari internet

Apa yang dilakukan setelah "Nginstal Komputer"

2008-02-06T16:06:00.000+07:00

Apa yang mesti kita lakukan setelah menginstal computer agar computer kita lebih aman?. Mungkin pertanyaan ini sering muncul manakala kita sering melakukan insatal ulang computer kita gara2 sistem operasi computer kita diacak-acak oleh yang namanya virus. Oke deh saya akan berbagi sedikit tips agar computer kita lebih aman dan kinerjanya lebih baik

Pastikan semua program (software) yang kita perlukan sudah terinstal semua di computer kita.
Hapuslah sampah-sampah sisa hasil instalan software yang biasanya nempel pada perfect, temp, atau temporary internet files. Caranya masuk ke explore pilih local C /Windows/perfect kemudian hapus semua file-nya untuk perfect, local C/Windows/Temp untuk temp dan untuk yang dihiden berada di local C/Documents and settings/…/local settings/temp dan temporary internet files.
Masuk ke registry, caranya dari menu Run ketik regedit lalu OK, pilih HKEY_CURRENT_USER / Control Panel / Desktop kemudian cari key MenuShoeDelay di sebelahnya kemudian dubble clik key tersebut dang anti angka 400 menjadi 0. ini dilakukan untuk mempercepat kinerja windows.
Masuk ke msconfig, caranya dari menu Run ketik msconfig lalu OK, pilih tab startup, kemudian hilangkan tanda conteng pada program yang tidak anda inginkan pada saat startup windows, setelah itu klik OK. Hal ini dilakukan untuk mempercepat startup windows pada computer saat pertama kali di hidupkan.
Backup Registry, caranya dari menu regedit(seperti poin 3) pilih File / Export, beri nama missal backupregistry kemudian save. Hal ini dilakukan apabila computer kita mengalami kejanggalan2 dari operasi sistemnya seperti kena virus misalnya kita dapat mengembalikan registry seperti semula(yang kita backup), caranya dari menu regedit pilih File / Import, cari backupregistry kita yang sudah tersimpan lalu open dan OK.
Gunakan Defreze bila perlu, yaitu software yang digunakan untuk memproteksi computer kita. Dikatakan bila perlu karena kalo computer kita sering berinteriksi atau mngolah data pada local C sebaiknya jangan menggunakan Defreze, umumnya Defreze digunakan hanya untuk memproteksi local C, karena disitu terletak system computer. Tujuanya apabila computer kita lumpuh oleh virus, kita tinggal merestart computer kita, maka computer akan kembali pulih seperti saat Defreze di install
Sebagai catatan jika kita tidak menggunakan Defreze maka poin no 2 harus rutin dilakukan tapi jika kita menggunakan Defreze hal itu tidak perlu dilakukan. Semoga yang sedikit ini dapat menambah pengetahuan kita…….