Jumat, 02 November 2012

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.
















Passwordnya : www.aitoin-anan.com

Kamis, 01 November 2012

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.

Featured Post 5

Recent Posts

Featured Post 4

 
Copyright © 2015 Aitoin-Anan.Com
Distributed By My Blogger Themes | Design By Herdiansyah Hamzah