KODE WARNA DBASE III PLUS

Untuk mengembalikan ke keadaan default berikan perintah SET COLOR TO

Kode warna yang diberikan adalah sebagai berikut :

Warna                                                Kode Huruf

Biru              (blue)                     B

Biru muda      (cyan)                    BG

Coklat           (brown)                  GR

Hijau             (green)                   G

Hitam            (black)                    N

Kuning          (yellow)                  GR+

Merah           (red)                      R

Merah muda   (magenta)               RB

Putih             (white)                   W

Kosong          (blank)                   X

Berkedip        (blinking)                 *

Terang                                       +

Contoh :

                   SET COLOR TO B, R/BG, GR, G

Artinya bagian baku berwarna biru, bagian yang ditonjolkan berwarna merah di atas biru muda, bagian tepi layar berwarna coklat dan bagian latar belakang berwarna hijau.

Source kode program EDIT dbaseIII PLUS

set talk off
use pas126
set color to BG
do while .T.
clear
set color to GR+/R++
@2,14 clear to 16,61
@2,14 to 16,61 double
set color to B**
@3,15 to 15,60 double
@14,16 to 14,59 double
set color to G+
@5,27 say "PROGRAM DATA PASIEN"
set color to B**/RB
@7,16 say "@#%@$%#$%^%#%*^&#$*%&^*&*&(*#$%&%&@^&#&$^%^@"
set color to RB+
@5,18 clear to 5,18
@5,18 say "(^_^)"
@5,48 say "(^_^)"
mnorm=space(6)
set color to BG
@10,20 say "MASUKKAN NO RM PASIEN ="GET mnorm
read
clear
?"DAFTAR PASIEN YANG DIMAKSUD"
list for no_rm=trim(mnorm)
input"MASUKKAN NOMOR RECORD YANG AKAN DIEDIT="TO NOMOR
if nomor=0
return
endif
go nomor
clear
set color to BG/N
@4,20 clear to 15,60
@4,20 to 15,60 double
set color to B/G**
@4,19 to 18,19 double
@4,61 to 18,61 double
@18,20 to 18,60 double
set color to GR++
@5,28 say  "DATA PASIEN YANG DIEDIT"
set color to B++
@6,21 to 6,59 double
@8,25 say  "NAMA PASIEN  ="GET nama
@9,25 say  "JENKEL       ="GET jenkel
@10,25 say "UMUR         ="GET umur
@11,25 say "ALAMAT       ="GET alamat
@12,25 say "NOMOR HP     ="GET no_tlp
read
jw="T"
set color to GR++
@14,35 say "MASIH ADA DATA LAIN" GET jw
read
if jw="T"
ket="AriGatO gOzAIMasu....!! "
else
ket="SILAHKAN LANJUTKAN..!!"
endif
set color to R++
@17,30 say ket
read
if jw="T"
exit
endif
enddo
return

silahkan download panduan PKM 2012 disini teman !!!

http://www.4shared.com/office/MaB--Fls/Panduan-PKM-2012.html?

ELEVEN POINT OF SUCCESS

 


Dasar utama sebagai pijakan awal untuk melangkah menuju kesuksesan adalah ANDA HARUS MEMPUNYAI IMPIAN atau keinginan atau cita-cita. Tanpa adanya impian ini, Anda tidak mungkin bisa melangkah lebih jauh lagi untuk menuju sukses. Anda bisa melihat kedahsyatan sebuah impian ini. Banyak contoh bisa Anda saksikan, sesuatu yang bermula dari impian, kemudian benar-benar menjadi sebuah kenyataan.

Pikirkan impian Anda, sebab dengan memikirkannya, maka otak Anda akan segera mencari jalan selanjutnya untuk mengantarkan Anda menuju sukses. Jadi, langkah berikutnya setelah Anda PUNYA IMPIAN, adalah PIKIRKAN APA YANG TELAH ANDA IMPIKAN. Kemudian setelah Anda memikirkan impian tersebut, maka Anda harus benar-benar menginginkan impian Anda itu.

Jika Anda sudah benar-benar menginginkan impian Anda, maka seluruh energi di dalam diri Anda akan berkumpul dan bekerjasama demi meraih keinginan impian itu. Tetapi jika Anda tidak benar-benar menginginkan impian Anda, atau Anda cenderung ragu-ragu dengan impian yang telah Anda pikirkan itu, maka Anda tidak akan punya energi besar untuk menggapai apa yang telah Anda impikan itu. Jadi terpenting di sini adalah, Anda harus menginginkan apa yang telah Anda pikirkan tentang impian Anda tersebut, singkatnya: INGINKAN APA YANG TELAH ANDA PIKIRKAN. Inilah langkah selanjutnya yang harus Anda lakukan.

Kemudian, Anda tetap harus melangkah ke depan lagi dengan cara mengambil keputusan terhadap keinginan untuk meraih impian yang telah Anda pikirkan itu. Ambillah keputusan secara berani, pasti dan tegas terhadap keinginan Anda ini. Tanpa keberanian mengambil keputusan untuk tetap menginginkan impian Anda, maka Anda akan berjalan di tempat saja, tidak akan sampai ke tujuan. Sehingga dengan demikian, maka Anda harus berani PUTUSKAN APA YANG TELAH ANDA INGINKAN, maka Anda bisa melangkah ke jenjang berikutnya, yaitu perencanaan untuk menuju sasaran impian Anda.

Jika Anda sudah memutuskan keinginan untuk mendapatkan impian, tetapi tidak merencanakan strategi untuk mencapainya, maka itu seperti “berjalan mundur” kembali. Anda harus membuat perencanaan matang menuju sukses Anda sendiri. Tentang rencana ini sudah saya kupas di dalam buku saya sebelumnya, “Super Mind for Successful Life” (sebaiknya Anda membacanya). Jadi inilah langkah selanjutnya yang harus dilakukan adalah: RENCANAKAN APA YANG TELAH ANDA PUTUSKAN.

Rencana sukses yang biasa-biasa saja masih jauh lebih baik jika dilakukan segera, dibandingkan rencana bagus sekali tapi tidak dilakukan. Oleh sebab itu, jika Anda tetap menginginkan perjalanan menuju sukses Anda itu lancar, maka Anda harus melakukan tindakan sesuai rencana yang telah Anda susun tersebut. Jadi langkah berikutnya untuk menuju sukses Anda adalah: LAKUKAN APA YANG TELAH ANDA RENCANAKAN.

Dalam kaitan melakukan segala sesuatu yang telah kita rencanakan, tentunya kita membutuhkan keyakinan, baik keyakinan pada kemampuan diri sendiri maupun keyakinan pada rencana yang telah kita susun dengan bagus tersebut. Tanpa ada keyakinan, maka dalam melakukan tindakan, Anda pasti akan merasa “gamang” atau ragu-ragu, khawatir dan hal-hal negatif lainnya. Oleh sebab itu, Anda harus meyakini apa pun yang telah Anda lakukan sesuai dengan rencana-rencana sukses Anda itu. Dengan keyakinan ini, maka anda akan bisa terus melangkah menuju sukses sesuai dengan impian Anda. Jadi, untuk tetap melangkah menuju sukses maka Anda harus YAKINI APA YANG TELAH ANDA LAKUKAN.

Jadi, Anda harus bisa membangun dan mengembangkan semangat juang Anda, supaya Anda tetap punya kekuatan dan tetap berenergi untuk melangkah menuju sukses sesuai dengan rencana impian Anda. (Bacalah buku saya, “The 21 Principles to Build and Develop Fighting Spirit”) Sehingga Anda harus melakukan langkah selanjutnya, yaitu: PERJUANGKAN APA YANG TELAH ANDA YAKINI. Langkah ini akan mengantar Anda ke langkah berikutnya, yaitu sebuah langkah untuk menyukseskan perjuangan Anda dalam menempuh perjalanan sukses itu sendiri.

Dalam memperjuangkan sesuatu, hendaknya Anda tidak melakukannya “setengah-setengah”, jangan “setengah hati” saat memperjuangkan impian Anda. Jika Anda melakukan perjuangan menuju sukses ini dengan “setengah-setengah”, maka hasil perjuangan Anda pun bisa tidak jelas. Ingatlah, bahwa Tuhan Allah selalu menuruti keinginan kita yang berusaha dengan sungguh-sungguh. Allah ingin kita punya kesabaran, ketekunan, maupun keuletan di dalam setiap langkah usaha kita dalam meraih kebahagiaan dan kesuksesan hidup. Oleh karena itu, jika Anda menginginkan hasil sepadan dengan tindakan meraih sukses, maka Anda tentu saja harus menyukseskan perjuangan sukses Anda tersebut. Jadi lakukan langkah ini, SUKSESKAN APA YANG TELAH ANDA PERJUANGKAN.


Selanjutnya Anda mempunyai hak untuk memberikan “reward” atau hadiah bagi diri Anda sendiri, yang telah berusaha dengan sekuat tenaga untuk meraih sukses, dan berhasil. Oleh karena setelah memperoleh keberhasilan meraih impian Anda ini, maka suatu hal yang wajar, bahkan menurut saya itu harus dilakukan, yaitu: menikmati kesuksesan yang telah Anda peroleh itu.
Anda boleh saja bersenang-senang dengan orang-orang yang Anda cintai, karena Anda telah berhasil mendapatkan sukses impian Anda. Anda boleh mengadakan “pesta syukuran” atau berwisata untuk merayakan kesuksesan Anda. Ini adalah sebuah “reward” untuk diri Anda yang telah berhasil dengan sukses meraih impian Anda sendiri. Hal ini juga merupakan langkah lanjutan menuju sukses, yaitu: NIKMATI APA YANG TELAH ANDA SUKSESKAN.

Orang sukses tetap harus mempunyai sikap mental baik dan tetap membentengi dirinya dengan keyakinan spiritual, maupun agama yang benar. Tanpa adanya “benteng moral agama” ini, maka sangatlah mudah bagi orang tersebut jatuh ke “jurang kegagalan” kembali, bahkan bisa lebih buruk dibandingkan saat awal dia meraih sukses itu. Oleh karena itu ingatlah, bahwa Anda boleh saja menikmati apa yang telah Anda sukseskan, tetapi harus tahu batasnya. Tidak ada yang bersifat abadi di dunia fana ini. Bahwa selalu ada yang “mengawasi” tindakan kita di dunia ini, yaitu Tuhan Allah. Sehingga Anda harus melakukan langkah tambahan dalam hal menikmati sukses itu, yaitu: SADARI APA YANG TELAH ANDA NIKMATI.

"REMEMBER"
DON'T SAY NO IF YOU CAN DO IT 
BELIVE THAT ALL CAN GIVE THE BEST
GO AHEAD....>

"INGAT"
JANGAN BANGGA JIKA DIPUJI AMA ORANG LAIN JUSTRU ITU AKAN MEMPERPURUK KITA KEPADA KEHANCURAN.

PAK KOS KU SPONGEBOB

nyambung lagi dari postingan yang barusan yaa " JERITAN HATI KECIL TEMENKU " beralih ke " PAK KOS KU SPONGEBOB"

Oke  lngsung ja ya, tau gak bpak kos ku tu gmana geeeeoolLL bnget alias GAUL gitu. tiap hari komat kamit mulu so anak-anak biilangnya bpk kaya' spongebob haaaaaaaaaa habizz orangnya hobi ngomong dan gilanya sukaaa bener ama spongebob. tapi baek kogh bapak orangya soalnya ga pelit...

Gak tau apa yang di omongin. kalo dikira dukun juga ga juga sich tpi dy emang hobinya ngedumel.

mungkin ni faktor dari bapk dulu pengen jadi presenter kali yaaa. bisa jadi juga sie ..!heee

wah bpk kosya dateng waktunya ikud ngedumel....!! bersama si galau, gembul and cemplugh ... 

by:cicaakkk-cicakk didinding

jeritan hati kecil dari temanku

Hari ini yang bener-bener merupakan hari buruk temenku "mungkin sich" buat temenku yang sedang berpacaran katanya ..ekhh>> habis orang pacaran ugh ga ada yang saling mengerti dan memahami.Aneh ya?

wahh-wahh kacaunya temenku cewe ga berani sich ma cowoknya. Kan jadi Galau akunya mo ngasih saran sob. Mungkin temen-temen nyangka kalo aku tu biro konsultasi kali yaaaa???

padahal kudu wwaaass wasss ini dengan ku.

inget sob pesen aing yaakk " JANGAN PERNAH TAKUT AMA YANG NAMANYA COWOK  DAN JANGAN MAU DIBODOHI OLEH KESETIAN ". karena kita gak akan pernah tau ending dari kesetian tu ky' gmna,,
okkeee sob !!!!!!!

GanBatte KUDASAI

produced by : cicak-cicakk didinding

Introduction Blog

haiiiii.... salam kenall.. dari aku yang paling rame...
sorry. belum ada postingan habis bingung mow posting pa dulu..
ehmmm. yng penting hepi dlu dech,, ngeblog-ngeblog dulu okey..