Pages

Banner 468

Senin, 08 Juni 2009

DIJUAL PROGRAM SISTEM INFORMASI AKADEMIK SMA + SOURCE CODE UNTUK REFERENSI TUGAS AKHIR

 


DIJUAL PROGRAM
SISTEM INFORMASI AKADEMIK SMA + SOURCE CODE UNTUK TUGAS AKHIR
FITUR:
-DATA SISWA , MATAPELAJARAN, DLL
-TRANSAKSI PENDAFTARAN,PENILAIAN, PEMBAYARAN SPP
-DAN LAPORAN2 NYA
-DAN FASILITAS LAINNYA

SOURCE CODE INI DIBUAT PAKAI VISUAL BASIC 6.0
DATABSE ACCESS

HARGA

Rp 200.000 ( APLIKASI + SOURCE CODE)

==>PESAN PROGRAM LAIN <==


HUBUNGI
MAIL : eko_matrix@yahoo.com
HP : 085 646 471 914
HP : 081 334 406 283
Readmore...
 


DIJUAL PROGRAM
SISTEM INFORMASI BANQUET DI HOTEL + SOURCE CODE UNTUK REFERENSI TUGAS AKHIR
FITUR:
-DATA CLIENT, FASILIRAS, TYPE RUANG, MENU MAKANAN ,KOTA DLL
-TRANSAKSI RESERVASI (RUANG DAN MAKANAN ), CHEK IN CHECK OUT
-SETTING RUANGAN DAN MENU MAKANAN
-DAN LAPORAN2 NYA
-DAN FASILITAS LAINNYA

SOURCE CODE INI DIBUAT PAKAI VISUAL BASIC 6.0
DATABSE SQL SERVER / ACCESS

Harga

Rp 150.000 ( APLIKASI + SOURCE CODE)

==>PESAN PROGRAM LAIN <==

HUBUNGI
MAIL : eko_matrix@yahoo.com
HP : 085 646 471 914
HP : 081 334 406 283
Readmore...
Minggu, 07 Juni 2009

DIJUAL PROGRAM ADMINISTRASI GUDANG PENJUALAN + SOURCE CODE UNTUK TUGAS AKHIR

 





DIJUAL PROGRAM
ADMINISTRASI GUDANG PENJUALAN + SOURCE CODE UNTUK TUGAS AKHIR
FITUR:
-DATA BARANG,SUPPLIER,CUSTOMER, HARGA JUAL DAN BELI
-TRANSAKSI PEMBELIAN ,PENJUALAN,RETUR BELI DAN RETUR JUAL
-STOCK BARANG (HABIS, DAN SELURUHNYA)
-DAN LAPORAN2 YANG LAIN
-DAN FASILITAS LAINNYA

SOURCE CODE INI DIBUAT PAKAI VISUAL BASIC 6.0
DATABSE SQL SERVER / ACCESS

HARGA

Rp 200.000 ( APLIKASI + SOURCE CODE)

==>PESAN PROGRAM LAIN <==

HUBUNGI
MAIL : eko_matrix@yahoo.com
HP : 085 646 471 914
HP : 081 334 406 283
Readmore...
Jumat, 29 Mei 2009

DIJUAL SOURCE CODE PROGRAM RUMAH SAKIT SEDERHANA UNTUK TUGAS AKHIR

 







DIJUAL SOURCE CODE PROGRAM RUMAH SAKIT SEDERHANA UNTUK TUGAS AKHIR








FITUR:
-DATA DOKTER,DATA OBAT,DLL
-TRANSAKSI LABORATORIUM,POLIKLINIK DAN APOTIK

-LAPORANNYA MASING2
-DAN FASILITAS LAINNYA

SOURCE CODE INI DIBUAT PAKAI VISUAL BASIC 6.0
DATABSE ACCESS


HARGA SOURCE CODE Rp 200.000 ( APLIKASI + SOURCE CODE)

==>PESAN PROGRAM LAIN <==

HUBUNGI
MAIL : eko_matrix@yahoo.com
HP : 085 646 471 914
HP : 081 334 406 283
Readmore...

DIJUAL SOURCE CODE PROGRAM PERPUSTAKAAN UNTUK TUGAS AKHIR

 




DIJUAL SOURCE CODE PROGRAM PERPUSTAKAAN UNTUK TUGAS AKHIR
FITUR:
-DATA BUKU
-STOCK BUKU
-KARTU STOCK BUKU
-DATA MEMBER
-PEMINJAMAN BUKU
-PENGEMBALIAN BUKU
-SISTEM DENDA
-LAPORANNYA MASING2
-DAN FASILITAS LAINNYA

SOURCE CODE INI DIBUAT PAKAI VISUAL BASIC 6.0
DATABSE SQL SERVER / ACCESS



HARGA SOURCODE = Rp 400.000 ( APLIKASI + SOURCE CODE)

==>PESAN PROGRAM LAIN <==

INGIN IKUT MENJUAL SOURCE CODE APLIKASI YANG ADA DISINI
DAN MENDAPATKAN KOMISI 100 RB JIKA ADA PEMBELI DAFTAR DISINI

HUBUNGI
MAIL : eko_matrix@yahoo.com
HP : 085 646 471 914
HP : 081 334 406 283
Readmore...
Kamis, 28 Mei 2009

DIJUAL SOURCE CODE PROGRAM HOTEL UNTUK TUGAS AKHIR

 
DIJUAL SOURCE CODE PROGRAM HOTEL UNTUK TA
FITUR:
-CHECK IN
-CHECK OUT
-INPUT BIAYA OPERASIONAL
-VISUALISASI KONDISI KAMAR
-LABA RUGI HOTEL
-LAPORANNYA MASING2
-DAN FASILITAS LAINNYA

SOURCE CODE INI DIBUAT PAKAI VISUAL BASIC 6.0
DATABSE SQL SERVER / ACCESS






HARGA SEBELUMNYA SOFT + SOURCE CODE = Rp. 600.000

DISC 50% = Rp 200.000 ( SOFTWARE + SOURCE CODE)

==>PESAN PROGRAM LAIN <==

HUBUNGI
MAIL : eko_matrix@yahoo.com
HP : 085 646 471 914

Readmore...
Rabu, 27 Mei 2009

DIJUAL PROGRAM SISTEM INFORMASI AKUTANSI KEUANGAN

 























DIJUAL APLIKASI SISTEM INFORMASI AKUTANSI KEUANGAN . PROGRAM INI SUDAH TERUJI DIPAKAI DI BEBERAPA PERUSAHAAN KECIL MENENGAH. PROGRAM INI DIBUAT DARI VISUAL BASIC 6.0, KONEKSI DATABSE (ACCESS,SQLSERVER 2000), PAKAI REPORT CRYSTAL REPORT 8.5
dan dirancang multi user

Download Aplikasinya


KARENA VERSI BARU APLIKASI SISTEM INFROMASI AKUTANSI YANG KAMI KEMBANGNKAN SUDAH JADI, MAKA KAMI AKAN MENJUAL SOURCE CODE YANG VERSI LAMA INI SEHARGA 500 RB


==>PESAN PROGRAM LAIN <==

JIKA BERMINAT BISA MENGHUBUNGI DI MAIL : eko_matrix@yahoo.com YM : eko_matrix
HP : 085 646 471 914
HP : 081 334 406 283
Readmore...

di jual plugin program order pulsa lewat yahoo massenger

 





























Di jual plugin program order pulsa lewat yahoo massenger
pligin ini hanya bisa dipakai yang telah menggunakan program milik
system royalti dengan royalti system pulsamatic engine ( http://www.pulsamatic.com/ ).
plugin ini sudah teruji dengan baik denga mengatasi kekurangan program aslinya
dan lebih akurat . pemakaiannya gampang tidak pakai instal hanya jalankan program ini
transaksi pulsa anda bisa langsung bisa di order lewat yahoo massanger.

harga sourcode untuk 2 aplikasi di atas hanya Rp 300.000



==>PESAN PROGRAM LAIN <==

jika berminat hubungi : mail : eko_matrix@yahoo.com
Ym : eko_matrix
HP : 085 646 471 914
HP : 081 334 406 283
http://modalmandiri.com/?ref=8
Readmore...
Jumat, 22 Mei 2009

forum Gresik

 
http://forum.nggersik.com
Readmore...

Terobosan baru dalam memasang iklan

 
Terobosan baru dalam memasang iklan
Anda tidak perlu mengisi iklan anda berkali kali.
Tidak perlu install software atau script
Tidak perlu mengunjungi satu persatu situs iklan baris
Cukup melalui http://modalmandiri.com/?ref=8
iklan anda akan tersebar ke puluhan iklan baris
Readmore...
Minggu, 18 Januari 2009

Virus FreE_MiNe.exe

 


FreE_MiNe.exe


Virus ini menginfeksi MS-WORD dengan ekstensi .exe dan jika di scan dengan antivirus (NOD 32, McAfee VirusScan Enterprise 8.5i Plus Patch 6, Norton,KAV) tidak terdeteksi sebagai virus. Jika virus ini berhasil menginfeksi system anda, dia akan memblok ansav.exe ( Menggunakan pengenalan signature file untuk memblok Ansav), blok cmd.exe. Melakukan modifikasi terhadap registry windows diantaranya :

*
Hide Ekstensi file
*
Hide protected operating system
*
Shell : explorer.exe C:\WINDOWS\system32\LoLOxz\smss.exe
*
Userinit : userinit; C:\WINDOWS\system32\LoLOxz\smss.exe
*
system : C:\WINDOWS\system32\LoLOxz\smss.exe.

Virus ini juga mengcopy dirinya kesetiap drive lengkap dengan autorun.inf dan file free mine.exe, dan celakanya jika virus ini aktif dia akan menutup semua komunikasi jaringan pada komputer korban. Alias tidak ada koneksi sama sekali. Sy sdh coba scan dengan menggunakan PCMAV 1.7 build 1, hanya di katakan virus suspected, tapi tidak dapat di clean, juga tidak dapat di cure. Memformat ulang drive/flasdisk tidak menyelesaikan masalah, karena virus masih ada di system.

Setelah selama 4 hari sy googling, googling dan googling, akhirnya sy menemukan cara untuk menghapus virus ini, anti virusnya belum ada, karena ini tergolong virus baru, jadi harus mengerjakannya secara manual

1. System restore off
2. Booting safe mode
3. Start menu >> Run >> ketik “C:\Windows\system32\LoLOxz\”
4. Klik Tools >> Folder option >> Show hidden files and folders, uncheck di Hide extensions for known files types dan uncheck jg di Hide protected operating system files
5. Klik OK.
6. Nampak 2 file, smss.exe (icon word) dan file dengan ext dll. Hapus dua-duanya, baru bersihkan yang lainnya : Free_Mine.exe, autorun.inf
7. Kalo perlu registry cleaner

Jangan lupa untuk membersihkan flash disk yg terinfeksi dengan cara yang sama.

untuk mematikan system restore :

Start=>Klik kanan My Computer=>Properties=>System Restore=> turn off System restore.

untuk safe mode : setelah restrart : F8

untuk meng-recovery ms-word yg sdh terinfeksi bisa memakai software : GAV , pake program ini untuk scan flash disk aja, karena scanningnya lama banget, sy scan complete komputer butuh waktu 24 jam
kalo file-nya tidak bisa kehapus bisa pake unlocker

Setelah semua step tersebut, sy lakukan dan terakhir sy scan pake PCMAV, FreE_MiNe।exe ini sudah tidak terdeteksi lagi.
Setelah itu baru ketikkan perintah berikut : attrib -s -h *।* /s /d (untuk menampilkan file yang hilang akibat dihiden virus)



  1. Fix registry yang sudah diubah atau dibuat oleh virus. Untuk mempercepat proses perbaikan registry ini salin script dibawah ini pada program notepad kemudian simpan dengan nama repair.inf, jalankan file tersebut dengan cara:

    1. Klik kanan repair.inf
    2. Klik install

[Version]

Signature="$Chicago$"

Provider=Vaksincom Oyee

[DefaultInstall]

AddReg=UnhookRegKey

DelReg=del

[UnhookRegKey]

HKLM, Software\CLASSES\batfile\shell\open\command,,,"""%1"" %*"

HKLM, Software\CLASSES\comfile\shell\open\command,,,"""%1"" %*"

HKLM, Software\CLASSES\exefile\shell\open\command,,,"""%1"" %*"

HKLM, Software\CLASSES\piffile\shell\open\command,,,"""%1"" %*"

HKLM, Software\CLASSES\scrfile\shell\open\command,,,"""%1"" %*"

HKLM, SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon, Shell,0, "Explorer.exe"

HKLM, SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon, userinit,0, "userinit.exe,"

HKLM, SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon, system,0, ""

HKLM, SYSTEM\ControlSet001\Control\SafeBoot, AlternateShell,0, "cmd.exe"

HKLM, SYSTEM\ControlSet002\Control\SafeBoot, AlternateShell,0, "cmd.exe"

HKLM, SYSTEM\CurrentControlSet\Control\SafeBoot, AlternateShell,0, "cmd.exe"

HKCU, Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoDriveTypeAutoRun,0x00010001,255

HKLM, Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoDriveTypeAutoRun,0x00010001,255

HKLM, SOFTWARE\Classes\exefile,,,"Application"

HKLM, SOFTWARE\Classes\exefile,InfoTip,0,"prop:FileDescription;Company;FileVersion;Create;Size"

HKLM, SOFTWARE\Classes\exefile,TileInfo,0,"prop:FileDescription;Company;FileVersion;Create;Size"

[del]

HKCU, Software\Microsoft\Windows\CurrentVersion\Policies\Explorer, NoFind

HKCU, Software\Microsoft\Windows\CurrentVersion\Policies\System, DisableCMD


Readmore...
Selasa, 23 Desember 2008

KISAH LASKAR PELANGI

 

Laskar Pelangi

NovelLaskar pelangi” ,Ini kisah nyata tentang sepuluh anak kampung di Pulau Belitong,
Sumatera. Mereka bersekolah di sebuah SD yang bangunannya nyaris
rubuh dan kalau malam jadi kandang ternak. Sekolah itu nyaris ditutup
karena muridnya tidak sampai sepuluh sebagai persyaratan minimal.

“Laskar Pelangi” Pada hari pendaftaran murid baru, kepala sekolah dan ibu guru satu-
satunya yang mengajar di SD itu tegang. Sebab sampai siang jumlah
murid baru sembilan. Kepala sekolah bahkan sudah menyiapkan naskah
pidato penutupan SD tersebut. Namun pada saat kritis, seorang ibu
mendaftarkan anaknya yang mengalami keterbelakangan mental. ”Mohon
agar anak saya bisa diterima. Sebab Sekolah Luar Biasa hanya ada di
Bangka,” mohon sang ibu. Semua gembira. Harun, nama anak itu,
menyelamatkan SD tersebut. Sekolah pun tak jadi ditutup walau
sepanjang beroperasi muridnya cuma sebelas.

“Laskar Pelangi” Kisah luar biasa tentang anak-anak Pulau Belitong itu diangkat dalam
novel dengan judul ‘Laskar Pelangi’ oleh Andrea Hirata, salah satu
dari sepuluh anak itu. Di buku tersebut Andrea mengangkat cerita
bagaimana semangat anak-anak kampung miskin itu belajar dalam segala
keterbatasan. Mereka bersekolah tanpa alas kaki, baju tanpa kancing,
atap sekolah yang bocor jika hujan, dan papan tulis yang berlubang
hingga terpaksa ditambal dengan poster Rhoma Irama.

Laskar Pelangi

Kisah yang tadinya bukan untuk diterbitkan itu ternyata mampu
menginspirasi banyak orang. Seorang ibu di Bandung, misalnya,
mengirim surat ke Kick Andy. Isinya minta agar kisah tersebut
diangkat di Kick Andy karena anaknya yang membaca buku “Laskar Pelangi”
kini bertobat dan keluar dari jerat narkoba. ”Setiap malam saya
mendengar suara tangis dari kamar Niko anak saya. Setelah saya intip,
dia sedang membaca sebuah novel. Setelah itu, Niko berubah. Dia jadi
semangat untuk ikut rehabilitasi. Kini Niko berhasil berhenti sebagai
pecandu narkoba setelah membaca buku “Laskar Pelangi” ungkap
Windarti Kosasih, sang ibu.

Sementara Sisca yang hadir di Kick Andy mengaku setelah membaca novel
itu, terdorong untuk memperbaiki hubungannya dengan sang ayah yang
selama ini rusak. Begitu juga Febi, salah satu pembaca, langsung
terinspirasi untuk membantu menyumbangkan buku untuk sekolah-sekolah
miskin di beberapa tempat. ”Saya kagum karena anak-anak yang
diceritakan di buku itu penuh semangat walau fasilitas di sekolah itu
jauh dari memadai,” ujar Febi yang juga datang ke Kick Andy untuk
bersaksi.

Andrea Hirata sendiri mengaku novel “Laskar Pelangi” awalnya hanya merupakan catatan
kenangannya terhadap masa kecilnya di Belitong. Dia selalu teringat
sahabat-sahabatnya di masa kecil, terutama Lintang. Sebab tokoh
Lintang merupakan murid yang cerdas dan penuh semangat walau hidup
dalam kemiskinan. Setiap hari Lintang harus mengayuh sepeda tua yang
saering putus rantainya ke sekolah. Pulang pergi sejauh 80 km. Bahkan
harus melewati sungai yang banyak buayanya.

Silahkan DI Download Novel “Lasker Pelangi” Lengkap

http://www.4shared.com/file/66336562/ae85ed2b/agills_dot_com_Laskar_Pelangi.html

Readmore...
Senin, 01 Desember 2008

KONDISI YANG MENGANGU PROGRAMMER

 
Berikut ini hanya catatan kecil, yang mungkin lebih bisa dirasakan oleh mereka sesama programmer, terutama programmer yang menjadi amunisi sebuah perusahaan. Bukan yang freelancer atau yang berdiri sendiri.


1. Kebanyakan Interupsi

Saat sedang coding, penggunaan kedua otak kanan dan otak kiri benar-benar dioptimalkan. Berimajinasi dan berlogika.
Sejak awal coding banyak hal yang diingat, disimpan, direncanakan, dikira-kira, disiasati, menyusun secara dinamis flowchart program di otak (selain yang di kertas, kalau ada).
Seandainya di tengah proses coding ada interupsi dari menejer, bos, pacar, teman sebelah meja, bakso lewat, whatever, yang membutuhkan menghandle hal lain, maka nanti saat memulai coding programmer harus mulai menyusun lagi dan mengingat-ingat apa yang tadi telah tersusun. Repot.

Hal ini yang jarang diketahui oleh pihak lain. Kebanyakan menganggap coding itu seperti tukang bangunan yang menyusun batu bata (meskipun aku belum pernah jadi tukang batu), yang bisa dilanjutkan kapan saja dengan mudah. Mereka dengan mudah mengatakan 'pak, bisa kesini sebentar?', menyuruh melakukan hal yang lain, dan berharap saat kembali ke meja kita dapat kembali ke state yang tadi. Angel bos.


2. Rencana tidak Terencana

Develop program memang harus dinamis, mampu mengakomodasi perubahan kebutuhan. Namun jika perubahan sangat mendasar dilakukan saat finishing, bisa-bisa merombak banyak hal, bahkan membuat apa yang telah dikerjakan sebelumnya menjadi sia-sia.
Ya, itu adalah masalah bagaimana menyusun struktur program yang baik sehingga mudah untuk diubah-ubah.
Namun yang dibahas adalah betapa jika si menejer tidak merancang kebutuhannya dengan baik, dan menganggap bahwa perubahan itu mudah dilakukan, serta merasa tidak apa-apa kalau pekerjaan sebelumnya menjadi terbuang sia-sia.


3. Menejer tidak memahami dunia coding

Ya ya, menejer tugasnya adalah memenej proses, tidak harus berhadapan atau memahami hal teknis.
Namun jika menejer blank tentang dunia programming, ada kalanya mengeluarkan perintah untuk mengerjakan sesuatu yang mendekati mustahil। Bisa sih bisa, tapi kadang gak worth dengan hasil yang didapat. Saat mengerjakan hal yang kita tau aneh kayak gitu, perasaan biasanya tertekan. Huh.

di ambil dari http://www.mahesajenar.com/
Readmore...

MENGETAHUI CAPTION CONTROL DI WINDOWS ATAU FORM

 
-buat project baru
-tambah kan form dengan nama form1
-tambahkan label dengan nama lblState
-tambahkan timer dengan nama timer1 ,intervalnya=1
-copykan script ini ke form



Private Type POINTAPI
x As Long
y As Long
End Type
'Copy right vb-bego.com

Const HWND_TOP As Integer = 0
Const HWND_BOTTOM As Integer = 1
Const HWND_TOPMOST As Integer = -1
Const HWND_NOTOPMOST As Integer = -2
Const SWP_NOSIZE As Integer = 1
Const SWP_NOMOVE As Integer = 2

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal xy As Long, ByVal uflags As Long) As Integer
Private Declare Function AccessibleObjectFromPoint Lib "oleacc" (ByVal x As Long, ByVal y As Long, ppoleAcc As Object, pvarElement As Variant) As Long

Dim objAccessible As Object

Private Sub Form_Load()
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, (SWP_NOSIZE Or SWP_NOMOVE)
End Sub

Private Sub lblState_Change()
If Trim(lblState) = "" Then
Me.Visible = False
Else
Me.Visible = True
End If
End Sub

Private Sub Timer1_Timer()
Dim p As POINTAPI
Dim v As Variant
Dim sName As String

GetCursorPos p

AccessibleObjectFromPoint p.x, p.y, objAccessible, v

sName = ""
On Error Resume Next
sName = objAccessible.accName(v)
If Trim(sName) = "" Then
sName = objAccessible.accvalue(v)
End If
On Error GoTo 0
Me.ZOrder
Me.Left = (p.x * Screen.TwipsPerPixelX) + 250
Me.Top = (p.y * Screen.TwipsPerPixelY) + 100

Me.lblState.Caption = sName
Me.Width = Me.lblState.Width + 200
Me.Height = Me.lblState.Height + 70

End Sub
Readmore...
Kamis, 27 November 2008

JASA PEMBUATAN PROGRAM DAN SERVIS KOMPUTER LOKASI MALANG

 
-MENERIMA PEMBUATAN PROGRAM SEGALA JENIS SISTEM INFORMASI BAIK
UNTUK PERKANTORAN, AKUNTANSI, KOPERASI, SEKOLAH, UNTUK TUGAS TA, DLL
DENGAN MENGGUNAKAN VB, REPORT CRYSTAL REPORT 8.5 , DB MYSQL, ACCESS
dan SQL SERVER
-MENERIMA SEGALA JENIS DESAIN DAN CETAK FOTO KALENDER,BROSUR,KARTU
NAMA, KARTU UNDANGAN , DLL
-MENERIMA SERVIS KOMPUTER (INSTALL WINDOWS, PEMBERSIHAN DARI VIRUS,
PENYELAMATAN DATA) DAN INSTALASI JARINGAN KOMPUTER
-MENERIMA KONSULTASI PEMEROGRAMAN UNTUK TUGAS AKHIR
-MULAI TGL 25-06-2009 , KITA MENERIMA PEMBUATAN WEB DENGAN PHP DAN MYSQL


HARGA TERJANGKAU

HUB. HP : 085 646 471 914
HP : 081 334 406 283
MAIL : eko_matrix@yahoo.com
YM : eko_matrix



ANDA HUBUNGI KAMI DATANG
Readmore...
Minggu, 23 November 2008

CREATE DSN LEWAT SCRIPT VB

 
Sub MakeDSN(ByVal sDSN As String, ByVal sDriver As String, _
ByVal sDBFile As String, ByVal lAction As Long)

Dim sAttributes As String
Dim sDBQ As String
Dim lngRet As Long

Dim hKey As Long
Dim regValue As String
Dim valueType As Long

' query the Registry to check whether the DSN is already installed
' open the key
If RegOpenKeyEx(HKEY_CURRENT_USER, "Software\ODBC\ODBC.INI\" & sDSN, 0, _
KEY_ALL_ACCESS, hKey) = 0 Then
' zero means no error => Retrieve value of "DBQ" key
regValue = String$(1024, 0)
' Allocate Variable Space
If RegQueryValueEx(hKey, "DBQ", 0, valueType, regValue, _
Len(regValue)) = 0 Then
' zero means OK, so we can retrieve the value
If valueType = REG_SZ Then
sDBQ = Left$(regValue, InStr(regValue, vbNullChar) - 1)
End If
End If
' close the key
RegCloseKey hKey
End If

' Perform the action only if we're adding a DSN that doesn't exist
' or removing and existing DSN
'If (sDBQ = "" And lAction = ODBC_ADD_DSN) Or (sDBQ <> "" And lAction = _
ODBC_REMOVE_DSN) Then

' check that the file actually exists
' If Len(Dir$(sDBFile)) = 0 Then
' MsgBox "Database file doesn't exist!", vbOKOnly + vbCritical
' 'Exit Sub
' End If
sAttributes = "DSN=" & sDSN & vbNullChar & "DBQ=" & sDBFile & vbNullChar & "PWD=" & "" & vbNullChar
lngRet = SQLConfigDataSource(0&, lAction, sDriver, sAttributes)
MDIMenu.Show
' End If
End Sub


'#########

' cara memanggilnya
'MakeDSN "Sekolah", "Microsoft Access Driver (*.mdb)", App.Path & "\database\" & "sekolah.mdb", 3 ' untuk menghapus
'MakeDSN "Sekolah", "Microsoft Access Driver (*.mdb)", App.Path & "\database\" & "sekolah.mdb", 1 ' untuk create dsn baru
Readmore...
Jumat, 21 November 2008

Andai Masih ada Hari Esok

 
Pada suatu tempat, hiduplah seorang anak. Dia hidup dalam keluarga yang bahagia, dengan orang tua dan sanak keluarganya. Tetapi, dia selalu mengangap itu sesuatu yang wajar saja. Dia terus bermain, mengganggu adik dan kakaknya, membuat masalah bagi orang lain adalah kesukaannya. Ketika ia menyadari kesalahannya dan mau minta maaf,dia selalu berkata, "Tidak apa-apa, besok kan bisa". Ketika agak besar, sekolah sangat menyenangkan baginya. Dia belajar, mendapat teman, dan sangat bahagia.

Tetapi, dia anggap itu wajar-wajar aja.
Semua begitu saja dijalaninya sehingga dia anggap semua sudah sewajarnya. Suatu hari, dia berkelahi dengan teman baiknya. Walaupun dia tahu itu salah, tapi tidak pernah mengambil inisiatif untuk minta maaf dan berbaikan dengan teman baiknya. Alasannya, "Tidak apa-apa, besok kan bisa".

Ketika dia agak besar, teman baiknya tadi bukanlah temannya lagi.
Walaupun dia masih sering melihat temannya itu, tapi mereka tidak pernah saling tegur. Tapi itu bukanlah masalah, karena dia masih punya banyak teman baik yang lain. Dia dan teman-temannya melakukan segala sesuatu bersama-sama, main, kerjakan PR, dan jalan-jalan. Ya, mereka semua teman-temannya yang paling baik.

Setelah lulus, kerja membuatnya sibuk. Dia ketemu seorang cewek yang sangat cantik dan baik. Cewek ini kemudian menjadi pacarnya. Dia begitu sibuk dengan kerjanya, karena dia ingin dipromosikan ke posisi paling tinggi dalam waktu yang sesingkat mungkin.
Tentu, dia rindu untuk bertemu teman-temannya
Tapi dia tidak pernah lagi menghubungi mereka, bahkan lewat telepon. Dia selalu berkata, "Ah, aku capek, besok saja aku hubungin mereka". Ini tidak terlalu mengganggu dia karena dia punya teman-teman sekerja yang selalu mau diajak keluar. Jadi, waktu pun berlalu, dia lupa sama sekali untuk menelepon teman-temannya.

Setelah dia menikah dan punya anak, dia bekerja lebih keras dalam membahagiakan keluarganya. Dia tidak pernah lagi membeli bunga untuk istrinya, atau pun mengingat hari ulang tahun istrinya dan juga hari pernikahan mereka. Itu tidak masalah baginya, karena istrinya selalu mengerti dia, dan tidak pernah menyalahkannya.

Tentu, kadang-kadang dia merasa bersalah dan sangat ingin punya kesempatan untuk mengatakan pada istrinya "Aku cinta kamu", tapi dia tidak pernah melakukannya. Alasannya, "Tidak apa-apa, saya pasti besok akan mengatakannya". Dia tidak pernah sempat datang ke pesta ulang tahun anak-anaknya, tapi dia tidak tahu ini akan berpengaruh pada anak-anaknya.
Anak-anak mulai menjauhinya, dan tidak pernah benar-benar menghabiskan waktu mereka dengan ayahnya.

Suatu hari, kemalangan datang ketika istrinya tewas dalam kecelakaan, istrinya ditabrak lari. Ketika kejadian itu terjadi, dia sedang ada rapat.

Dia tidak sadar bahwa itu kecelakaan yang fatal, dia baru datang saat istrinya akan dijemput maut. Sebelum sempat berkata "Aku cintakamu..", istrinya telah meninggal dunia.

Laki-laki itu remuk hatinya dan mencoba menghibur diri melalui anak-anaknya setelah kematian istrinya. Tapi, dia baru sadar bahwa anak anaknya tidak pernah mau berkomunikasi dengannya.
Segera, anak-anaknya dewasa dan membangun keluarganya masing-masing.
Tidak ada yang peduli dengan orang tua ini, yang di masa lalunya tidak pernah meluangkan waktunya untuk mereka.

Saat mulai renta, dia pindah ke rumah jompo yang terbaik, yang menyediakan pelayanan sangat baik. Dia menggunakan uang yang semula disimpannya untuk perayaan ulang tahun pernikahan ke 50, 60, dan 70.
Semula uang itu akan dipakainya untuk pergi ke Hawaii , New Zealand ,dan negara-negara lain bersama istrinya, tapi kini dipakainya untuk membayar biaya tinggal di rumah Jompo tersebut.
Sejak itu sampai dia meninggal, hanya ada orang-orang tua dan suster yang merawatnya.Dia kini merasa sangat kesepian, perasaan yang tidak pernah dia rasakan sebelumnya.

Saat dia mau meninggal, dia memanggil seorang suster dan berkata kepadanya, "Ah, andai saja aku menyadari ini dari dulu...." Kemudian perlahan ia menghembuskan napas terakhir, dia meninggal dunia dengan airmata dipipinya.

--------------------- ^_^ ---------------------

Waktu itu nggak pernah berhenti. Kita terus maju dan maju, sebelum benar-benar menyadari, kita ternyata telah maju terlalu jauh.
Jika kita pernah bertengkar, segera berbaikanlah... !
Jika kita merasa ingin mendengar suara teman kita, jangan ragu-ragu untuk meneleponnya segera.

Terakhir, tapi ini yang paling penting, jika kita merasa kita ingin bilang sama seseorang bahwa kita sayang dan cinta dia, jangan tunggu sampai terlambat. Jika kita terus pikir bahwa kita lain hari, baru akan memberitahu dia, hari itu tidak pernah akan datang.

Jika kita selalu pikir bahwa besok akan datang, maka "besok" akan pergi begitu cepatnya hingga kita baru sadar bahwa waktu telah meninggalkan kita.
Readmore...
Kamis, 20 November 2008

DUNIA PROGRAMMER FREELANCE

 

Tidak mudah untuk jadi programmer freelance.Lha iya tidak mudah, bagaimana mungkin suatu proyek bisa selesai on time, kalau hari-hari pengerjaan diisi dengan pergi mengantar istri ke sana, kesini, membeli ini, itu, dll. Kalau seorang istri melihat suami yang mengerjakan pekerjaan di rumahnya dan kelihatan seperti orang yang diam, tidak melakukan apa apa, hanya duduk memandangi layar komputer, dianggap sebagai objek yang bisa diminta tolong,ya dijamin deh pekerjaan tidak akan selesai selesai. Kepala sang programmer bakalan penuh dengan baris-baris program yang ditinggal sebelum berangkat mengantarkan istri. Isi kepala penuh dengan semua kondisi if-then-else yang belum ditutup, catch-exception yang masih berantakan,dll..Jangan sampai meleng di jalan, kalau melihat lampu merah seharusnya yang diinjak pedal rem tapi malah narik gas, bagaimana, bisa bikin repot kan, malah berbahaya euy..

Ada seorang teman yang menjalani hari-harinya sebagai programmer freelance. Hampir setiap hari ada di rumah, tentunya mengerjakan proyek – proyek yang harus diselesaikan sebelum batas deadline. Sepanjang hari ada di depan monitor, kecuali ya itu, kalau tidak makan, ya tidur atau sholat, atau mengantar istri/keluarga. Kemarin dia memberi tahu saya, ternyata dia dapat proyek yang harus dikerjakan on site, artinya dikerjakan di lokasi proyek. Bisa di perusahaan pemberi proyek, bisa di rumah bos proyek tsb, atau lokasi lain yang sudah disetujui antara mereka, yang jelas bukan di rumah. Teman saya itu bilang, ternyata bekerja di luar rumah bisa lebih fokus ke pekerjaan, full time mengerjakan proyek dari pagi sampai sore. Tidak ada yang ‘mengganggu’. Dan yang lebih enak lagi, komunikasi antara programmer dan user, bisa lebih cepat. Bisa lebih menghasilkan solusi yang lebih jitu untuk digunakan pada saat pembuatan program.

Selama ini saya merasa, kalau bekerja di rumah akan lebih enak daripada kerja di luar rumah. Salah satu alasan yang sering saya pakai, bisa lebih menyediakan waktu untuk keluarga. Keluarga adalah nomor satu dalam hidup saya, baru setelahnya adalah pekerjaan. Tapi, kalau kejadiannya seperti yang dialami teman saya itu, wah repot juga ya, bisa hilang deh kepercayaan antara programmer yang mengimplementasikan dan user yang berharap selesai sesuai waktunya. Jangankan teman saya, wong istri telepon mengabarkan kondisi badannya tidak enak badan saja, atmosfir di kantor jadi berubah seperti badai calamity yang memporak-porandakan seisi kota. Apalagi kalau saya ada di rumah dan langsung melihat raut muka istri/keluarga yang sakit, tidak perlu ada kata-kata, yang ada saya mungkin bisa langsung pergi ke rumah sakit mengantarkan berobat. Benar-benar bayangan yang ekstrim yang pernah saya bayangkan tentang bekerja secara freelance.

Kalau membayangkan yang buruk-buruk dahulu sebelum kita menjalaninya, biasanya hasilnya seperti yang dibayangkan itu, buruk hasil akhirnya. Tapi kalau penuh rasa optimis, tanpa kehilangan kaki yang berpijak pada realita, berani ambil resiko setelah ditimbang dengan matang untuk resiko paling kecil yang akan diambil, saya yakin apapun cita-cita kita/saya/anda semua, pasti bisa kita raih. Raih kemenangan atau kekalahan adalah sama saja. Karena orang bilang, kekalahan adalah kemenangan yang tertunda. Tapi koq rasa-rasanya saya belum siap menerima kekalahan. Masih belum bisa 100% ikhlas menerima keputusanNya.

Readmore...

PROGRAMMER FREELANCE

 

Dunia programmer lepas (freelance)? Ini serius! Saat ini banyak perusahaan yang membutuhkan programmer tetapi tidak ingin merekrutnya sebagai pegawai tetap. Sebenarnya fenomena ini bukan berkembang belakangan ini, tetapi sudah bertahun-tahun yang lalu. Tetapi memang kejadiannya banyak di negara maju. Dan fenomena ini kini sudah merasuk ke Indonesia.

Di negara maju tenaga ahli memang sangat mahal. Hitungannya per jam, bukan per bulan layaknya di Indonesia. Tahun kemarin rata-rata harga per jam programmer senior freelance kurang-lebih US$ 10 per jam. Sedangkan programmer junior antara US$ 5-8 per jam. Coba saja kalikan dengan 40 jam, maka Anda akan mendapatkan angka US$ 400. Ini kurang lebih Rp 3,6 juta jika kursnya Rp 9.000 per dolar. Mengapa saya kalikan dengan 40 jam? Anda yang berprofesi sebagai karyawan pasti tahu maksudnya angka 40 jam ini. Yap betul, ini adalah jam kerja karyawan Indonesia selama 1 minggu.

Artinya adalah bahwa Anda cukup bekerja full-day seminggu untuk mendapatkan honor Rp 3,6 juta. Angka yang besar? Tidak! Ini belum besar. Anda masih bisa memanfaatkan 3-4 minggu sisanya selama sebulan untuk meraup angka yang lebih banyak. Dan angka ini bisa menjadi berlipat kalau Anda dapat bekerja dengan efektif dan efisien. Misalnya jika Anda mendapatkan sebuah proyek membuat program yang jatahnya adalah 100 jam tetapi Anda dapat menyelesaikannya hanya dalam kurun waktu 50 jam, maka Anda tetap akan mendapatkan honor 100 jam. Dan Anda telah menghemat 50 jam dari jam kerja Anda.

Tertarik?

Readmore...
Senin, 17 November 2008

konversi angka biasa ke romawi (vb)

 
Function Romawi(roma As Integer) As String

Dim keluar As String

keluar = String(Int(roma / 1000), "M")
roma = roma - (Int(roma / 1000) * 1000)

If roma >= 900 Then
keluar = keluar & "CM"
ElseIf roma >= 500 And roma < 900 Then
keluar = keluar & "D" & String(Int((roma - 500) / 100), "C")
ElseIf roma >= 400 And roma < 500 Then
keluar = keluar & "CD"
Else
keluar = keluar & String(Int(roma / 100), "C")
End If
roma = roma - (Int(roma / 100) * 100)


If roma >= 90 Then
keluar = keluar & "XC"
ElseIf roma >= 50 And roma < 90 Then
keluar = keluar & "L" & String(Int((roma - 50) / 10), "X")
ElseIf roma >= 40 And roma < 50 Then
keluar = keluar & "XL"
Else
keluar = keluar & String(Int(roma / 10), "X")
End If
roma = roma - (Int(roma / 10) * 10)


If roma >= 9 Then
keluar = keluar & "IX"
ElseIf roma >= 5 And roma < 9 Then
keluar = keluar & "V" & String(Int((roma - 5) / 1), "I")
ElseIf roma >= 4 And roma < 5 Then
keluar = keluar & "IV"
Else
keluar = keluar & String(Int(roma / 1), "I")
End If
Romawi = keluar
End Function
Readmore...