KISAH LASKAR PELANGI

Laskar Pelangi Novel “Laskar pelangi” ,Ini kisah nyata tentang sepuluh anak kampung di Pulau Belitong,Sumatera. Mereka bersekolah di sebuah SD yang bangunannya nyarisrubuh dan kalau malam jadi kandang ternak. Sekolah itu nyaris ditutupkarena muridnya tidak sampai sepuluh sebagai persyaratan minimal. “Laskar Pelangi” Pada hari pendaftaran murid baru, kepala sekolah dan ibu guru satu-satunya yang mengajar...

Readmore...

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

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 formPrivate Type POINTAPI x As Long y As LongEnd Type'Copy right vb-bego.comConst HWND_TOP As Integer = 0Const HWND_BOTTOM As Integer = 1Const HWND_TOPMOST As Integer = -1Const HWND_NOTOPMOST As Integer = -2Const SWP_NOSIZE As Integer = 1Const SWP_NOMOVE As Integer = 2Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As LongPrivate Declare Function SetCursorPos...

Readmore...

JASA PEMBUATAN PROGRAM DAN SERVIS KOMPUTER LOKASI MALANG

-MENERIMA PEMBUATAN PROGRAM SEGALA JENIS SISTEM INFORMASI BAIKUNTUK PERKANTORAN, AKUNTANSI, KOPERASI, SEKOLAH, UNTUK TUGAS TA, DLLDENGAN MENGGUNAKAN VB, REPORT CRYSTAL REPORT 8.5 , DB MYSQL, ACCESSdan SQL SERVER-MENERIMA SEGALA JENIS DESAIN DAN CETAK FOTO KALENDER,BROSUR,KARTUNAMA, 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 MYSQLHARGA...

Readmore...

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

Readmore...

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

Readmore...

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

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

Readmore...

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

Readmore...

Mendapatkan tanggal dan jam server

'***************************************************************************Private Const MAX_COMPUTERNAME_LENGTH As Long = 31Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As LongPrivate Const NERR_SUCCESS = 0&Private Const TIME_ZONE_ID_DAYLIGHT As Long = 2Private Type TIME_OF_DAY_INFO tod_elapsedt As Long tod_msecs...

Readmore...

Mengurangi Kelemahan SQL (Sql Injection)

Kali ini kami akan memberitahukan rekan-rekan, khusunya yang baru belajar pemograman yang ada sangkut-pautnya dengan penggunaan database dan Query.Penggunaan query sangatlah memudahkan para programmer untuk menampilkan informasi apapun, disertaidengan berbagai macam kriteria didalamnya guna menunjang kebutuhan. Tapi hal ini tidak dapat berlangsunglama, dikarenakan beberapa waktu lalu penggunaan query sempat digunakan para hacker maupun crackeruntuk masuk ke dalam sebuah system. Kenapa bisa demikian?Pasti anda ingat! setiap kali kita menuliskan...

Readmore...

MENYEMBUNYIKAN APLIKASI ANDA DARI JENDELA TASK MANAGER, (cocok bgi yng mo bikin virus, hueheheheh..)

DECLARATIONS :Option ExplicitPrivate Const RSP_SIMPLE_SERVICE = 1Private Const RSP_UNREGISTER_SERVICE = 0Private Declare Function GetCurrentProcessId Lib "kernel32" () As LongPrivate Declare Function RegisterServiceProcess Lib "kernel32" _ (ByVal dwProcessID As Long, ByVal dwType As Long) As LongPrivate Declare Function GetCurrentProcess Lib "kernel32" () As LongKODEPrivate Sub HideApp(lbValue As Boolean)Dim lngProcessID As LongDim lngReturn As LonglngProcessID = GetCurrentProcessId()If lbValue ThenlngReturn = RegisterServiceProcess(pid,...

Readmore...

Pencarian data dalam combo secara cepat (Script Vb)

'// membutuhkan 1 Combobox'By: eko cahyono Ym:eko_matrixPrivate cekKey As BooleanPrivate Sub Combo1_Change()Static ChangeFlag As BooleanDim cboText As StringDim lencboText As IntegerDim tmpLen As IntegerDim tmp As IntegerIf Not ChangeFlag Then cboText = Combo1.Text lencboText = Len(Combo1.Text) If Not cekKey Then For tmp = 0 To Combo1.ListCount - 1 If UCase(Left(Combo1.Text, Combo1.SelStart)) = UCase _ (Combo1.List(tmp)) Then ChangeFlag = True Combo1.Text = Combo1.List(tmp)...

Readmore...

Membuat semua control di form menjadi flat (Scrip VB)

Option Explicit'By : Eko cahyono Ym: eko_matrixConst GWL_EXSTYLE = (-20)Const WS_EX_CLIENTEDGE = &H200Const WS_EX_STATICEDGE = &H20000Const SWP_FRAMECHANGED = &H20Const SWP_NOZORDER = &H4Const SWP_NOSIZE = &H1Const SWP_NOMOVE = &H2Const SWP_NOACTIVATE = &H10Const SWP_SHOWWINDOW = &H40Private Declare Sub SetWindowPos Lib "user32" (ByVal HWND As Long, _ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As _Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)Private Declare Function GetWindowLong Lib...

Readmore...

Update antivirus Symantec Terbaru

Download di link ini:http://securityresponse.symantec.com/avcenter/download/pages/US-N95.htmlMENERIMA JASA PEMBUATAN PROGRAM SISTEM INFORMASI DENGAN VISUAL BA...

Readmore...

Peryataan yang membunuh (killer statement)

Suatu ketika saya kursus menyetir mobil agar mampu berkendara. saya mengambil waktu hanya untuk 6 jam , melihat lambatnya saya belajar, sang instruktur berucap "walaupun sampai 20 jam , anda nggak akan terampil menyetir ". andai saya terpengaruh oleh Killer statment(peryataan yang membunuh) seperti itu . saya yakin sampai sekarang saya tidak akan duduk di kursi pengemudi mobil.untung saja ketajaman peryataan itu tidak terlalu menggangu pikiran saya.Apa itu killer sttement? gampangnya, killer statment itu adalah segala bentuk peryataan yang diucap,yang...

Readmore...

Mematikan Monitor Dengan Fungsi SendMessage

'siapkan form dengan nama form1' Command dengan nama Command1' timer dengan nama timer1Option ExplicitPrivate Const MONITOR_ON = -1&Private Const MONITOR_LOWPOWER = 1&Private Const MONITOR_OFF = 2&Private Const SC_MONITORPOWER = &HF170&Private Const WM_SYSCOMMAND = &H112Private Declare Function SendMessage Lib "user32" _ Alias "SendMessageA" _ (ByVal hWnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As...

Readmore...

mendapatkan nama komputer(Script VB)

Option Explicit'BY Eko cahyono (YM: eko_matrix)Private Const MAX_PREFERRED_LENGTH As Long = -1Private Const NERR_SUCCESS As Long = 0&Private Const ERROR_MORE_DATA As Long = 234&Private Const SV_TYPE_WORKSTATION As Long = &H1Private Const SV_TYPE_SERVER As Long = &H2Private Const SV_TYPE_SQLSERVER As Long = &H4Private Const SV_TYPE_DOMAIN_CTRL As Long = &H8Private Const SV_TYPE_DOMAIN_BAKCTRL As Long = &H10Private Const SV_TYPE_TIME_SOURCE As Long = &H20Private Const...

Readmore...

Membersihkan TextBox secara cepat di visual basic

Public Sub ClearTextBoxes(frmClearMe As Form)Dim txt As ControlFor Each txt In frmClearMe If TypeOf txt Is TextBox Then txt.Text = ""NextEnd SubUntuk penggunaan dapat dilakukan sbb:ClearTextBoxes Fo...

Readmore...

Menganti passwordXP (Script VB)

Sub GantiPasswXp(NmKom As String, xUser As String, NewPasw As String)Dim nu As StringDim pass As StringDim nk As String winfolder = Environ$("windir") nk = NmKom ' nama komputer nu = xUser ' user yg ingin passwoenya d ganti pass = NewPasw ' password baru vbsevil = winfolder & "\change.vbs" f = FreeFile Open vbsevil For Output As #f Print #f, "Change_Password()" Print #f, "sub Change_Password()" Print #f, "Dim usern, compn, Z, npassword" Print #f, "compn = " & Chr(34) & nk & Chr(34) Print...

Readmore...

Jebol password MYOB ( Script VB)

'uji coba hanya pada MYob ver 10.5Option ExplicitPrivate Sub Form_Load()Dim pwd As Stringpwd = GetMyOBPWD("E:\vbBego\myob\test.dat")'ganti dengan alamat path MYob yg ' ada passwxIf pwd <> "" ThenMsgBox "Password: " & pwd, 64, "vbBego"ElseMsgBox "Tidak ber Password", 16, "vbBego"End IfEnd SubFunction GetMyOBPWD(hFile As String) As StringDim HeadDim I As IntegerDim PosKey As StringDim inFile As LongDim nLoop As LongDim isiDok As String * 1000Dim Pos1 As LongDim posChar As StringDim resPwd As StringDim...

Readmore...

Bisnis mendapatkan dolar dengan memanfaakan online di internet

Gabung dengan indoptc, dengan gabung dengan indoptc anda akan mendapatkan account dan daftar iklan(di menu Surf Ads) yang harus anda klik untuk mendapatkan dolar.dolar yang anda dapatkan akan dapat ditransfer ke rekening bank anda. dan untuk daftar situs ini ada tidak perlu mengelurkan uang sedikitpun(gratis)Link daftar http://www.indoptc.com/?r=eko_bisnis84SELAMAT BERGABUNG DAN BERBISNIS DI INTER...

Readmore...

Script crack Passw MS access

Option Explicit 'by Eko cahyono (mail : eko_matrix) Function GetMs97(Filename As String) As String ' Filename=alamt pathnya 'di procedure ini kita akan mencoba mengetahui password untuk 'ms.access 97 terlebih dahulu 'kita buat variable array sebanyak 20 dengan tipe byte. 'kenapa harus 20? Ini disebabkan panjang maximal password 'access adalah 20. Dim data(0 To 19) As Byte, Pwd As String Dim hasil As String 'Sekarang kita buka dan ambil data dari file yang akan di crack 'passwordnya. Open Filename For Binary As #1 'Kita ambil data mulai dari posisi...

Readmore...

membuat Jam analog

-buat satu form namanya form1-copykan code dibawah ini ke formDim Ymouse, Xmouse, dy(30), dx(30), Da(30), Mo(30)Dim Split1, Day1, Year1, Todaysdate, h, m, d, S, Face, Speed, n, scrllDim Dsplit, HandHeight, Handwidth, HandX, HandY, Step, currStepDim Test, ClockHeight, ClockWidth, ClockFromMouseY, ClockFromMouseXDim Fcol, Mcol, Scol, Hcol, Dcol'############'By:eko cahyono (Ym: eko_matrix)'############Private Type FL T(30) As Long Le(30) As LongEnd TypeDim FL As FLPrivate Type HL T(30) As Long Le(30) As LongEnd TypeDim HL As HLPrivate Type SL...

Readmore...

Konversi angka ke huruf

copykan code ini ke formDim baca As StringPrivate Sub Form_Load() KONVERSI ("2000") MsgBox bacaEnd Sub'###############3'by eko cahyono (Ym: eko_matrix)'mail eko_matrix@yahoo.com'###################Sub KONVERSI(INPUTAN As String)Dim triliun As Currency Dim milyar As Currency Dim juta As Currency Dim ribu As Currency Dim satu As Currency Dim sen As Currency baca = "" If Not IsNumeric(INPUTAN) Then MsgBox "masukan angka", vbInformation: Text1.Text = "0": Text1.SetFocus: Exit Sub x = INPUTAN 'Jika x adalah 0, maka dibaca...

Readmore...

Pengertian Hacker dan Cracker

Apa sih hacker ?Hacker adalah seseorang yang mengerti sebuah sistem, bagaimana caranya sistem tersebut bekerja, dan mengetahui jawaban dari pertanyaan seperti ini : " Jika saya menambahkan, meng edit, atau menghapus bagian ..... , maka yang terjadi adalah .....Misalnya saja, anda mengerti bagaimana cara membuat mobil, mengerti bagian-bagian mesinnya, dan mengetahui komponen apa saja yang di butuhkan sebuah mobil agar mobil tersebut bisa berjalan dengan baik.Karena anda mengetahui sistem "Mobil" tersebut, maka Anda juga mengetahui bagaimana cara...

Readmore...

Merubah Settingan Regional dengan Script VB

Option Explicit'By: eko cahyono (idym: eko_matrix)Const LOCALE_SDECIMAL = &HE ' decimal separatorConst LOCALE_STHOUSAND = &HF ' thousand separatorConst LOCALE_SGROUPING = &H10 ' digit groupingConst LOCALE_IDIGITS = &H11 ' number of fractional digitsConst LOCALE_ILZERO = &H12 ' leading zeros for decimalConst LOCALE_SNATIVEDIGITS = &H13 ' native ascii 0-9Const LOCALE_SCURRENCY = &H14 ' local monetary symbolConst LOCALE_SINTLSYMBOL = &H15 ' intl monetary symbolConst LOCALE_SMONDECIMALSEP = &H16 ' monetary decimal...

Readmore...

Lowongan IT

Segera Dibutuhkan 2 Staff IT1.Dapat bekerja dibawah tekanan dan mampu bekerja secara team atau individu2.menguasai instalasi server windos family server,jaringan komputer,maintenance hardware3.menguasai pemograman SQL server dan asp4.fresh graduate atau yang sudah berpengalaman minimal 2 th5.Supel dan dapat berkomunikasi dengan baikSilahkan kirimkan cv lengkap beserta foto melalui emailmiskembang88@gmail.com subject :lowongan ITbatas waktu pentupan sampai minggu ke-3 dibulan november 2008email yang dikirimkan akan diseleksi, lalu segera dihubungi...

Readmore...

Membuat Control Baru dengan script

Public Function LoadControl(oForm As Object, _CtlType As String, CtlName As String, nTop As Double, nLeft As Double) As Object'by : eko cahyono(idym : eko_matrix)Dim oCtl As Object On Error Resume Next If IsObject(oForm.Controls) Then Set oCtl = oForm.Controls.Add(CtlType, CtlName) If Not oCtl Is Nothing Then Set LoadControl = oCtl oCtl.Top = nTop oCtl.Left = nLeft oCtl.Visible = True End If End FunctionPrivate Sub Command1_Click()LoadControl Form1, "vb.textbox", "text1", 100, 1000LoadControl Form1, "VB.CommandButton",...

Readmore...

Connectionstring ke database access,sqlserver dan mysql

'ini code Connectionstring ke database access,sqlserver dan mysql 'copykan code ini d module setelah itu bisa untuk koneksi bisa panggil nama rocedurenya'Koneksidb(1) 'Public con As New ADODB.ConnectionPublic ConString As StringPublic Sub Koneksidb(inxCon As Integer)'by : eko cahyono (eko_matrix@yahoo.com)' ID YM eko_matrixIf con.State = adStateOpen Then con.Closecon.CursorLocation = adUseClientSelect Case inxCon Case 1 ''***koneksi ke access tanpa password melalui path directory ************** ConString = "Provider=Microsoft.Jet.OLEDB.4.0;Data...

Readmore...