SISA PULSA ANDA TIDAK CUKUP UNTUK MENERUSKAN KEHIDUPAN INI.

Datang dan pergi dengan tangan kosong

Itulah kalimat yang tepat menggambarkan diri kita sewaktu lahir ke dunia ini dan sewaktu meninggalkan dunia ini..

Semua orang berawal dan berakhir yang sama. Perbedaannya bagaimana setiap orang mengisi kehidupan di antara awal dan akhir tersebut.

Banyak orang yang ‘LUPA’ tentang awal dan akhir ini sehingga sepanjang kehidupan hanya sibuk mengejar dan mengumpulkan harta benda dengan sgala cara, termasuk merugikan orang lain! Menjadi ‘KAYA’ adalah tujuan kehidupan yang baik. Tapi selain menjadi kaya dalam harta benda, yang terutama menjadi kayalah dalam perbuatan yang benar.

Di jaman modern ini, begitu mudah kita mengecek saldo rekening di bank. Demikian juga untuk mengetahui berapa sisa pulsa prabayar kartu HP kita. Sayangnya kemajuan ilmu pengetahuan dan teknologi belum mampu menyediakan fasilitas untuk pengecekan instan ‘saldo/pulsa’ perbuatan maupun sisa hidup kita.

Andaikan fasilitas semacam itu tersedia, kita bisa happy-happy dulu kalau saldo/pulsa perbuatan benar kita masih berlimpah. Atau segera bergegas kalau posisinya sudah ‘merah’.

Jangan menunggu/menunda untuk berbuat benar karena kita tidak tahu berapa ‘saldo/pulsa’ perbuatan benar kita. Juga kita tidak tahu berapa lama sisa kehidupan kita.

Jangan sampai tertinggal karena ‘Kereta Kehidupan’ tidak menunggu kesiapan kita untuk kembali ke hadapan Sang Pencipta..

Waspadalah..be watchful..dan tetaplah lakukan perbuatan baik dan benar, itulah “pulsa” bagi kekekalan kita..

MERUBAH TAMPILAN WINDOWS XP ALA WIN 7 DENGAN SEVEN TRANSFORMATION PACK 5.0

Sore semua blogger aitoin-anan.com semua, sekali ini saya mau share software yang satu ini(Tools untuk membuat tampilan XP ala Win 7 Blue). bagi sebagian orang, tampil windows yang bagus tidaklah penting, karena bisa memperlambat kerja windows, namun sebagian orang, tampilan yang keren sangatlah menyenangkan baginya. Pada tampilan win 7 sangatlah bagus, apalagi dengan theme-themenya yang transparent?? ini sangat membuat semua orang mau membuat tampilan seperti itu, namun kadang ada yang masih terpautpada kapasistas dari komputernya yang minim untuk install win 7, namun teman-teman jangan berkecil hati karena aplikasi ini mngkin adalah solusinya untuk anda.

Dan setelah selesain mengintall, berikut screen shootnya.

Download Disini

Passwordnya : www.aitoin-anan.com

FUNGSI TERBILANG PADA FOXPRO

Teman-teman semua, ini ada coding Foxpro untuk membuat Fungsi terbilang pada Foxpro. Hasilnya nanti akan sama seperti Tulisan Terbilang  pada  Kuitansi, Misalnya " Terbilang : Seratus Juta, Seratus Sepuluh Ribu Sen." hEHEHEH.. Pada kesempatan ini, kita akan mencoba membuatnya, tapi maaf, ini dibuat dalam bentuk mata uang Dollar.. Karna Bahasa indox kan gampang buanget.. Jadi lngsu aja..
Buat sebuah Program pada menu code foxpro dengan Listing sebagai berikut :

ON ERROR
RETURN .f.
Function Terbilang(MNNUMERIK,St)
Private Hasil,MNLOOP,MCArto,MNONE,MNTWO,MNTREE
Private MCOngko0,MCOngko1,MCOngko2,MCOngko3
Private MCOngko4,MCOngko5,MCOngko6,MCOngko7
Private MCOngko8,MCOngko9
Private MCSATU,MCDUA,MCTIGA,MCGABUNG,MCSEN1,MCSEN2
Hasil=''
MCArto=Str(MNNUMERIK,15,2)
MNONE=1
MNTWO=2
MNTREE=3
MCOngko0=''
MCOngko1="Satu "
MCOngko2="Dua "
MCOngko3="Tiga "
MCOngko4="Empat "
MCOngko5="Lima "
MCOngko6="Enam "
MCOngko7="Tujuh "
MCOngko8="Delapan "
MCOngko9="Sembilan "
MCGABUNG=""
For MNLOOP = 1 To 4
MCSATU=Substr(MCArto,MNONE,1)
MCDUA=Substr(MCArto,MNTWO,1)
MCTIGA=Substr(MCArto,MNTREE,1)
MCGABUNG=MCSATU+MCDUA+MCTIGA
If Val(MCSATU)=1
Hasil=Hasil + "Seratus "
Else
If Val(MCSATU) > 1
Hasil=Hasil + MCOngko&MCSATU + "Ratus "
Endif
Endif
Do Case
Case Val(MCDUA) = 1
Do Case
Case Val(MCTIGA)=0
Hasil=Hasil + "Sepuluh "
Case Val(MCTIGA)=1
Hasil=Hasil + "Sebelas "
Other
Hasil=Hasil + Alltrim(MCOngko&MCTIGA)+;
" Belas "
Endcase
Case Val(MCDUA) > 1
Hasil=Hasil + MCOngko&MCDUA + "Puluh "+;
MCOngko&MCTIGA
Case Val(MCDUA)=0 .And. Val(MCTIGA) > 0
If (MNLOOP=3 .And. MCGABUNG="001") .Or. ;
(MNLOOP=3 .And. MCGABUNG="  1")
Hasil=Hasil+"Seribu  "
Else
Hasil=Hasil+MCOngko&MCTIGA
Endif
Endcase
Do Case
Case MNLOOP=1 .And. Val(MCGABUNG)>0
Hasil=Hasil+"Milyar "
Case MNLOOP=2 .And. Val(MCGABUNG)>0
Hasil=Hasil+"Juta "
Case MNLOOP=3 .And. Val(MCGABUNG)>0
If MCGABUNG="001" .Or. MCGABUNG="  1"
Hasil=Hasil+" "
Else
Hasil=Hasil+"Ribu "
Endif
Endcase
MNONE=MNONE+3
MNTWO=MNTWO+3
MNTREE=MNTREE+3
Next MNLOOP
MCSEN1=Substr(MCArto,14,1)
MCSEN2=Substr(MCArto,15,1)
If Empty(St)
If Len(Hasil)>1
Hasil=Hasil+"Dollar "
Endif
Do Case
Case Val(MCSEN1)=0 .And. Val(MCSEN2)>0
Hasil=Hasil+MCOngko&MCSEN2
Case Val(MCSEN1) = 1
Do Case
Case Val(MCSEN2)=0
Hasil=Hasil+"Sepuluh"+"Sen"
Case Val(MCSEN2)=1
Hasil=Hasil+"Sebelas"+"Sen"
Case Val(MCSEN2)>1
Hasil=Hasil+Alltrim(MCOngko&MCSEN2)+"belas "+"Sen "
Endcase
Case Val(MCSEN1) > 1
Hasil = Hasil +MCOngko&MCSEN1 + "Puluh " +MCOngko&MCSEN2 +"Sen " Endcase
Else
Hasil=Alltrim(Hasil)
Endif
Return Alltrim(Hasil)
ENDFUNC

*SET PROCEDURE TO bilang_new2.prg
*?terbilang(10)
*?terbilang(10.50)

Setelah itu, pada Formnya tinggal dipakai aja fungsinya.

RAHASIA TEKNISI LAPTOP

Video cara mengobati laptop, alias Utak-atik laptop, dan ini merupakan video rahasia para teknisi laptop, siap tahu anda adalah salah satunya.

JARINGAN DASAR

Video Tutorial Jaringan Dasar. Video ini diambil dari youtube, dan bagi anda yang beli abnyak mengenal dunia jaringan, mungkin video ini sangat membantu anda. semoga membantu.

PERAKITAN KOMPUTER

Ini adalah sebuah Video perakitan komputer yang bagi sebagian orang mungkin uda kadaluarsa, namun bagi sebagian yang mngkin ini perlu di tonton.

CAPTURE IMAGE DARI WEBCAM TANPA OCX DI VISUAL BASIC 6.0

Salam kenal para blogger mania, aku baru dalam dunia blogger, namun dikesempatan ini saya juga mau berbagi untuk para master blog mania semua. Pada kesempatan ini, saya mau memposting tentang Visual Basic 6.0. Mungkin bagi sebagian orang, ini sudah kada luarsa, namun saya yakin masih ada yang mau belajar tentang VB. (Hehehe..) langsung aja ke TKP.

Seperti judul dari postingan ini, kita akan membuat sebuah form capture foto dari webcam laptop dan sejenisnya, tanpa OCX. kita langsung aja ke VBnya, dan buatlah sebuah form standard di VB, dan buatlah sebuah module dengan source-code sebagai berikut :

'KARENA AKAN DISIMPAN KE TABEL, JADI TAMBAHKAN INIPublic dt As New ADODB.ConnectionPublic tb As New ADODB.RecordsetPublic sementara As New ADODB.RecordsetPublic rsfoto As New Stream 'DEKLARASI NILAIPublic Const WS_CHILD As Long = &H40000000Public Const WS_VISIBLE As Long = &H10000000Public Const WM_USER As Long = &H400 'START AKTIVA KAMERAPublic Const WM_CAP_START As Long = WM_USERPublic Const WM_CAP_DRIVER_CONNECT As Long = WM_CAP_START + 10Public Const WM_CAP_DRIVER_DISCONNECT As Long = WM_CAP_START + 11Public Const WM_CAP_SET_PREVIEW As Long = WM_CAP_START + 50Public Const WM_CAP_SET_PREVIEWRATE As Long = WM_CAP_START + 52Public Const WM_CAP_DLG_VIDEOFORMAT As Long = WM_CAP_START + 41Public Const WM_CAP_FILE_SAVEDIB As Long = WM_CAP_START + 25 'CAPTURASAUN CLIBOARD WINDOWPublic Declare Function capCreateCaptureWindow _Lib "avicap32.dll" Alias "capCreateCaptureWindowA" _(ByVal lpszWindowName As String, ByVal dwStyle As Long _, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long _, ByVal nHeight As Long, ByVal hwndParent As Long _, ByVal nID As Long) As LongPublic Declare Function SendMessage Lib "user32" _Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long _, ByVal wParam As Long, ByRef lParam As Any) As Long Sub buka()dt.CursorLocation = adUseClientdt.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database.mdb;Persist Security Info=False") End Sub

Buatlah sebuah form dengan design sebagai berikut, kalau ada yang mau membuatnya lengkap dengan beberapa field, silahkan aja.. karena disini saya hanya memakai 3 field pada contoh ini, namun sebelumnya, buat dulu sebuah database access dengan nama database: Database dan table diadalamnya bernama : Mahasisawa  dengan field sebagai berikut : Nim (text 8), nama (text 50) dan Foto(Object) . berikut desainnya :

Double klik pada formnya, dan ketikkan atau copas listing berikut :

Private Sub Command1_Click()camera.ShowEnd Sub
Private Sub simpan_Click()With tb.AddNew!nim = Text1.Text!nama = Text2.Text .Update.Requerysementara.Open ("select * from mahasiswa where nim='" & Text1 & "'"), dt, adOpenDynamic, adLockOptimisticsementara.Fields("foto").Value = rsfoto.Readsementara.Fields("nim").Value = Text1sementara.Updatesementara.CloseEnd WithEnd Sub
Private Sub Form_Load()rsfoto.Type = adTypeBinaryIf rsfoto.State = adStateOpen Thenrsfoto.Closersfoto.OpenElsersfoto.OpenEnd If
Call bukatb.Open ("mahasiswa"), dt, 1, 3Set DataGrid1.DataSource = tb
End Sub

Setelah selesai ketikkan Listingnya, sekarang kita membuat Form kedua, dimana form ini yang akan digunakan untuk menotret fotonya.

Setelah mendesain form tersebut diatas(Nama object-Objectnya, harus sama ya??). dan ketikan listing berikut :

Dim hCap As LongPrivate Sub cmd4_Click()Dim sFileName As StringCall SendMessage(hCap, WM_CAP_SET_PREVIEW, CLng(False), 0&)With CDialog.CancelError = True.Flags = cdlOFNPathMustExist Or cdlOFNOverwritePrompt.Filter = "JPEG Picture(*.jpg)|*.jpg|Bitmap Picture(*.bmp)|*.bmp|All Files|*.*".ShowSavesFileName = .FileNameEnd WithCall SendMessage(hCap, WM_CAP_FILE_SAVEDIB, 0&, ByVal CStr(sFileName))DoFinally:Call SendMessage(hCap, WM_CAP_SET_PREVIEW, CLng(True), 0&)
Dim temp As Longtemp = SendMessage(hCap, WM_CAP_DRIVER_DISCONNECT, 0&, 0&)If Len(sFileName) > 0 ThenForm2.CommonDialog1.FileName = sFileNamersfoto.LoadFromFile (sFileName)Form2.Image1.Picture = LoadPicture(sFileName)End If
Unload MeEnd SubPrivate Sub Cmd3_Click()Dim temp As Longtemp = SendMessage(hCap, WM_CAP_DRIVER_DISCONNECT, 0&, 0&)End SubPrivate Sub Cmd1_Click()hCap = capCreateCaptureWindow("Take a Camera Shot", WS_CHILD Or WS_VISIBLE, 0, 0, PicWebCam.Width, PicWebCam.Height, PicWebCam.hWnd, 0)If hCap <> 0 ThenCall SendMessage(hCap, WM_CAP_DRIVER_CONNECT, 0, 0)Call SendMessage(hCap, WM_CAP_SET_PREVIEWRATE, 66, 0&)Call SendMessage(hCap, WM_CAP_SET_PREVIEW, CLng(True), 0&)End IfEnd Sub
Private Sub Command1_Click()temp = SendMessage(hCap, WM_CAP_DRIVER_DISCONNECT, 0&, 0&)Unload Me
End Sub
Private Sub Form_Load()CMD1.Caption = "Koneksi Ke Camera"CMD4.Caption = "Ambil Gambar"End Sub

Sekarang semua sudah selesai, sekarang kita masuk pada langkah terakhir yaitu, Eksekusi alias running program. untuk menjalakan, tekan tombol F5. sekarang anda bisa menggunakan form ini untuk mengambil foto dari Webcam. mngkin ada teman-teman yang sudah samapai pada crop gambar yang dipotre, aku tunggu link updatenya..

Semoga membantu.