DI BALIK KECANTIKAN TERSIMPAN KESOMBONGAN

Mereka para kaum hawa yang senantiasa merawat diri mereka agar menjadi lebih cantik dengan tujuan untuk memikat lawan jenis sudah menjadi hal yang biasa dalam kehidupan ini. Disaat menginjak remaja atau setelah dewasa mereka senantiasa merawat diri mereka dari spa, rebonding dan lain-lain. Tapi disisi lain coba anda lihat dengan kecantikan, mereka malah menjadi sombong di depan laki-laki saat didekati.

Entah apa yang ada di benak mereka, Aneh kan?, toh buat apa mereka tiap hari pergi ke salon rebonding, spa dan lain-lain padahal tujuan dari itu semua adalah untuk memikat kaum adam tapi pada saat di dekati oleh laki-laki mereka malah kadang-kadang buang muka, acuh tak acuh, kabur begitu saja. Memang tidak semua wanita seperti itu, tapi sebagian survei membuktikan kebanyakan wanita cantik memiliki kesombongan yang lebih tinggi dari pada wanita biasa saja, walaupun masih ada wanita cantik yang tidak sombong kayak gitu amat tapi jumlahnya tidak banyak.

Ini menjadi PR buat mereka-mereka yang merasa sombong, introspeksilah diri-sendiri. Lihat apa yang telah dilakukan dan seharusnya dilakukan. Setidak nya bijaksanalah sedikit dari semua hal yang akan dilakukan.

KEJUJURAN HATI

Hati ini terasa sedih saat ku tahu kau telah dipinang, tapi ku tak bisa melakukan apa yang seharusnya ku lakukan karena kau bukan milik ku. Ku akui ku merindukanmu, tapi itu tak kan bisa mengubah apa-apa. Mungkin dengan berat hati ku katakan selamat padamu, semoga bahagia selamanya dengannya walau hati ini mungkin tersayat.

Sesungguhnya ku pun tak rela kau bersamanya, tapi apa daya ku tak kuasa. Ku mencoba setia  menjaga segalanya demi cinta agar kau bisa bahagia. Selamat menempuh hidup barumu karena mungkin ku tak bisa bersamamu lagi biarlah kenangan manis kita bersama menjadi kenangan indah yang hanya bisa di kenang sampai nanti....................  

MUNGKIN BUKAN JODOH

Entah mengapa dunia ini keliatan konyol saat frustasi datang membebani diri. Terasa berat saat terbebani dengan perasaan galau itu disaat seseorang sedang mencari cinta sejati yang tak pernah kunjung datang padanya. Dengan step step yang telah ia lakukan tapi selalu gagal dari jejaring sosial hingga nomer hp pun tak kunjung ia dapatkan satu orang yang tulus tuk mencintainya.

Apakah dalam langkah-langkah yang di lakukan itu salah atau tidak ampuh? Walaupun ujung-ujungnya paling akhir hanya sampai pdkt saja terus di serobot orang begitu saja, hhmmm nasib-nasib. Mungkinkah kurang cepat dalam mengambil tindakan atau terlalu lelet dalam bergerak?

Seumpama pencarian itu gagal terus menerus mengkinkah ada satu kesempatan saja datang pada nya dengan cara jitu yang baru yang tak pernah ia pikirkan sebelumnya. Jikalau itu ada kapan? Dan Bagaimana?

MENCOBA

Dalam hidup kita akan menghadapi beberapa hal yang baru pada hidup ini, yang terkadang bila ingin mencoba sesuatu yang baru dalam hal yang positif dan negatif. Bisa dikatakan manusia penasaran akan sesuatu hal yang baru yang belum pernah ia ketahui. Misal pada usia remaja yang emosi nya masih labil, mereka terkadang ingin mencoba sesuatu yang baru yang belum mereka rasakan. Hal ini bisa berakibat baik dan buruk tergantung pada pola pikir dan tindakan mereka. Bisa saja langkah yang diambil tidak pikir panjang, langsung saja bertindak, dalam pikiran mereka yang penting mencoba.

Sebenarnya mencoba sih boleh-boleh saja asal alangkah baiknya berpikirlah dahulu secara rasional dan masuk akal sebelum mencoba. Pikirkan apa dampak positif dan negatif dari tindakan yang akan di ambil.

Disisi lain mencoba terkadang memang perlu di lakukan tanpa pikir panjang misal pada saat kita ingin mendaftar pada perguruan tinggi yang bagus, kadang-kadang dalam hati timbul rasa minder atau ketidak percayaan diri. Tapi rasa minder tersebut seharusnya tidak perlu mendalam cukup kita mencoba saja mendaftar, apakah hasilnya di terima atau tidaknya itu urusan belakangan yang penting mencoba terlebih dahulu. Toh nasib orang berbeda beda, bisa saja kita langsung di terima begitu saja.  Allahualam

Nah begitulah coba-mencoba kita dalam hidup ini, mungkin dari artikel diatas dapat diambil sisi positif nya, yang negatif-negatif ya di buang saja.

INTROSPEKSI

Introspeksi adalah merenungkan segala sesuatu yang pernah di lakukan baik sadar maupun tak sadar. Seseorang yang mengalami masalah biasanya dia memiliki kepribadian yang tak bisa di tebak, dalam hal ini di butuhkan introspeksi untuk membuat dia merenung untuk menyadari hal-hal apa saja yang pernah dia lakukan sepanjang hidupnya.

Introspeksi diperlukan untuk menyadarkan seseorang agar dia menyadari hal-hal apa saja yang pernah ia lakukan baik itu disengaja maupun tidak disengaja dengan tujuan agar dia memperbaiki kesalahan yang pernah ia lakukan.

aplikasi penghitung gaji (PBD)

TUGAS PBD PRAKTEK

Tugas

pada sebuah lembaga kursus akan membuat program aplikasi, setiap pengajar dicatat npk, nama, alamat.

Pengajar akan mendapatkan honor/gaji 20.000 setiap pengajar. Buatlah program aplikasi untuk dapat menghitung pengajar dalam 1 bulan

Dengan data yang disimpan dlm database adalah no transaksi, npk, jumlah mengajar, bulan buat tombol simpan, tambah data, hapus.

Tampilan Run

Listing Program

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids, Mask, DBCtrls, Buttons;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Tpengajar: TTable;

    DSpengajar: TDataSource;

    DBGrid1: TDBGrid;

    dbnpk: TDBEdit;

    dbnama: TDBEdit;

    dbalamat: TDBEdit;

    dbgaji: TDBEdit;

    btsimpan: TBitBtn;

    bttambah: TBitBtn;

    bthapus: TBitBtn;

    btgaji: TBitBtn;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    db_jmlh: TDBEdit;

    dbbulan: TDBEdit;

    dbno_transaksi: TDBEdit;

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure btsimpanClick(Sender: TObject);

    procedure bttambahClick(Sender: TObject);

    procedure bthapusClick(Sender: TObject);

    procedure btgajiClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);

begin

Tpengajar.Append;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Tpengajar.Delete;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Tpengajar.Append;

Tpengajar.Post;

end;

procedure TForm1.btsimpanClick(Sender: TObject);

begin

tpengajar.Post;

end;

procedure TForm1.bttambahClick(Sender: TObject);

begin

tpengajar.Append;

end;

procedure TForm1.bthapusClick(Sender: TObject);

begin

tpengajar.Delete;

end;

procedure TForm1.btgajiClick(Sender: TObject);

var a,b,c :real;

begin

a:=strtoint(db_jmlh.Text)*20000;

dbgaji.Text:=floattostr(a);

end;

end.

tugas jarkom

System Bootstrap, Version 12.1(3r)T2, RELEASE SOFTWARE (fc1)
Copyright (c) 2000 by cisco Systems, Inc.
PT 1001 (PTSC2005) processor (revision 0x200) with 60416K/5120K bytes of memory

Self decompressing the image :
########################################################################## [OK]

              Restricted Rights Legend

Use, duplication, or disclosure by the Government is
subject to restrictions as set forth in subparagraph
(c) of the Commercial Computer Software - Restricted
Rights clause at FAR sec. 52.227-19 and subparagraph
(c) (1) (ii) of the Rights in Technical Data and Computer
Software clause at DFARS sec. 252.227-7013.

           cisco Systems, Inc.
           170 West Tasman Drive
           San Jose, California 95134-1706



Cisco Internetwork Operating System Software
IOS (tm) PT1000 Software (PT1000-I-M), Version 12.2(28), RELEASE SOFTWARE (fc5)
Technical Support: http://www.cisco.com/techsupport
Copyright (c) 1986-2005 by cisco Systems, Inc.
Compiled Wed 27-Apr-04 19:01 by miwang

PT 1001 (PTSC2005) processor (revision 0x200) with 60416K/5120K bytes of memory
.
Processor board ID PT0123 (0123)
PT2005 processor: part number 0, mask 01
Bridging software.
X.25 software, Version 3.0.0.
4 FastEthernet/IEEE 802.3 interface(s)
2 Low-speed serial(sync/async) network interface(s)
32K bytes of non-volatile configuration memory.
63488K bytes of ATA CompactFlash (Read/Write)


         --- System Configuration Dialog ---

Continue with configuration dialog? [yes/no]: n


Press RETURN to get started!



Router>ena
Router#conf t
Enter configuration commands, one per line.  End with CNTL/Z.
Router(config)#hostname lab_A
lab_A(config)#int fa 1/0
lab_A(config-if)#ip add 205.7.5.1 255.255.255.0
lab_A(config-if)#no shut

%LINK-5-CHANGED: Interface FastEthernet1/0, changed state to up
%LINEPROTO-5-UPDOWN: Line protocol on Interface FastEthernet1/0, changed state to up
lab_A(config-if)#exit
lab_A(config)#int fa0/0
lab_A(config-if)#ip add 192.5.5.1 255.255.255.0
lab_A(config-if)#no shut

%LINK-5-CHANGED: Interface FastEthernet0/0, changed state to up
%LINEPROTO-5-UPDOWN: Line protocol on Interface FastEthernet0/0, changed state to up
lab_A(config-if)#exit
lab_A(config)#int ser 2/0
lab_A(config-if)#ip add 201.100.11.1 255.255.255.0
lab_A(config-if)#clock rate 64000
lab_A(config-if)#no shut

%LINK-5-CHANGED: Interface Serial2/0, changed state to down
lab_A(config-if)#exit


ystem Bootstrap, Version 12.1(3r)T2, RELEASE SOFTWARE (fc1)
Copyright (c) 2000 by cisco Systems, Inc.
PT 1001 (PTSC2005) processor (revision 0x200) with 60416K/5120K bytes of memory

Self decompressing the image :
########################################################################## [OK]

              Restricted Rights Legend

Use, duplication, or disclosure by the Government is
subject to restrictions as set forth in subparagraph
(c) of the Commercial Computer Software - Restricted
Rights clause at FAR sec. 52.227-19 and subparagraph
(c) (1) (ii) of the Rights in Technical Data and Computer
Software clause at DFARS sec. 252.227-7013.

           cisco Systems, Inc.
           170 West Tasman Drive
           San Jose, California 95134-1706



Cisco Internetwork Operating System Software
IOS (tm) PT1000 Software (PT1000-I-M), Version 12.2(28), RELEASE SOFTWARE (fc5)
Technical Support: http://www.cisco.com/techsupport
Copyright (c) 1986-2005 by cisco Systems, Inc.
Compiled Wed 27-Apr-04 19:01 by miwang

PT 1001 (PTSC2005) processor (revision 0x200) with 60416K/5120K bytes of memory
.
Processor board ID PT0123 (0123)
PT2005 processor: part number 0, mask 01
Bridging software.
X.25 software, Version 3.0.0.
4 FastEthernet/IEEE 802.3 interface(s)
2 Low-speed serial(sync/async) network interface(s)
32K bytes of non-volatile configuration memory.
63488K bytes of ATA CompactFlash (Read/Write)


         --- System Configuration Dialog ---

Continue with configuration dialog? [yes/no]: n


Press RETURN to get started!



Router>ena
Router#conf t
Enter configuration commands, one per line.  End with CNTL/Z.
Router(config)#hostname lab_B
lab_B(config)#int ser 3/0
lab_B(config-if)#ip add 201.100.11.2 255.255.255.0
lab_B(config-if)#no shut
lab_B(config-if)#exit
lab_B(config)#int ser 2/0
lab_B(config-if)#ip add 199.13.6.1 255.255.255.0
lab_B(config)clock rate 64000
lab_B(config-if)#no shut

%LINK-5-CHANGED: Interface Serial2/0, changed state to up
lab_B(config-if)#exit
lab_B(config)#ex
%LINEPROTO-5-UPDOWN: Line protocol on Interface Serial2/0, changed state to
lab_B(config)#int fa 0/0
lab_B(config-if)#ip add 219.17.100.1 255.255.255.0
lab_B(config-if)#no shut

%LINK-5-CHANGED: Interface FastEthernet0/0, changed state to up
%LINEPROTO-5-UPDOWN: Line protocol on Interface FastEthernet0/0, changed state to up
lab_B(config-if)#exit
%SYS-5-CONFIG_I: Configured from console by console

System Bootstrap, Version 12.1(3r)T2, RELEASE SOFTWARE (fc1)
Copyright (c) 2000 by cisco Systems, Inc.
PT 1001 (PTSC2005) processor (revision 0x200) with 60416K/5120K bytes of memory

Self decompressing the image :
########################################################################## [OK]

              Restricted Rights Legend

Use, duplication, or disclosure by the Government is
subject to restrictions as set forth in subparagraph
(c) of the Commercial Computer Software - Restricted
Rights clause at FAR sec. 52.227-19 and subparagraph
(c) (1) (ii) of the Rights in Technical Data and Computer
Software clause at DFARS sec. 252.227-7013.

           cisco Systems, Inc.
           170 West Tasman Drive
           San Jose, California 95134-1706



Cisco Internetwork Operating System Software
IOS (tm) PT1000 Software (PT1000-I-M), Version 12.2(28), RELEASE SOFTWARE (fc5)
Technical Support: http://www.cisco.com/techsupport
Copyright (c) 1986-2005 by cisco Systems, Inc.
Compiled Wed 27-Apr-04 19:01 by miwang

PT 1001 (PTSC2005) processor (revision 0x200) with 60416K/5120K bytes of memory
.
Processor board ID PT0123 (0123)
PT2005 processor: part number 0, mask 01
Bridging software.
X.25 software, Version 3.0.0.
4 FastEthernet/IEEE 802.3 interface(s)
2 Low-speed serial(sync/async) network interface(s)
32K bytes of non-volatile configuration memory.
63488K bytes of ATA CompactFlash (Read/Write)


         --- System Configuration Dialog ---

Continue with configuration dialog? [yes/no]: n


Press RETURN to get started!



Router>ena
Router#conf t
Enter configuration commands, one per line.  End with CNTL/Z.
Router(config)hostname lab_C
lab_C(config)#int ser 3/0
lab_C(config-if)#ip add 199.6.13.2 255.255.255.0
lab_C(config-if)#no shut

%LINK-5-CHANGED: Interface Serial3/0, changed state to up
lab_C(config-if)#exit
%LINEPROTO-5-UPDOWN: Line protocol on Interface Serial3/0, changed state to up
lab_C(config)#int ser 2/0
lab_C(config-if)#ip add 204.204.7.1 255.255.255.0
lab_C(config)#clock rate 64000
lab_C(config-if)#no shut

%LINK-5-CHANGED: Interface Serial2/0, changed state to up
lab_C(config-if)#exit
%LINEPROTO-5-UPDOWN: Line protocol on Interface Serial2/0, changed state to up
lab_C(config)#int fa 0/0
lab_C(config-if)#ip add 223.8.151.1 255.255.255.0
lab_C(config-if)#no shut

%LINK-5-CHANGED: Interface FastEthernet0/0, changed state to up
%LINEPROTO-5-UPDOWN: Line protocol on Interface FastEthernet0/0, changed state to up
lab_C(config-if)#exit
lab_C(config)#

System Bootstrap, Version 12.1(3r)T2, RELEASE SOFTWARE (fc1)
Copyright (c) 2000 by cisco Systems, Inc.
PT 1001 (PTSC2005) processor (revision 0x200) with 60416K/5120K bytes of memory

Self decompressing the image :
########################################################################## [OK]

              Restricted Rights Legend

Use, duplication, or disclosure by the Government is
subject to restrictions as set forth in subparagraph
(c) of the Commercial Computer Software - Restricted
Rights clause at FAR sec. 52.227-19 and subparagraph
(c) (1) (ii) of the Rights in Technical Data and Computer
Software clause at DFARS sec. 252.227-7013.

           cisco Systems, Inc.
           170 West Tasman Drive
           San Jose, California 95134-1706



Cisco Internetwork Operating System Software
IOS (tm) PT1000 Software (PT1000-I-M), Version 12.2(28), RELEASE SOFTWARE (fc5)
Technical Support: http://www.cisco.com/techsupport
Copyright (c) 1986-2005 by cisco Systems, Inc.
Compiled Wed 27-Apr-04 19:01 by miwang

PT 1001 (PTSC2005) processor (revision 0x200) with 60416K/5120K bytes of memory
.
Processor board ID PT0123 (0123)
PT2005 processor: part number 0, mask 01
Bridging software.
X.25 software, Version 3.0.0.
4 FastEthernet/IEEE 802.3 interface(s)
2 Low-speed serial(sync/async) network interface(s)
32K bytes of non-volatile configuration memory.
63488K bytes of ATA CompactFlash (Read/Write)


         --- System Configuration Dialog ---

Continue with configuration dialog? [yes/no]: n


Press RETURN to get started!



Router>ena
Router#conf t
Enter configuration commands, one per line.  End with CNTL/Z.
Router(config)hostname lab_D
lab_D(config)#int ser 3/0  
lab_D(config-if)#ip add 204.204.7.2 255.255.255.0
lab_D(config-if)#no shut

%LINK-5-CHANGED: Interface Serial3/0, changed state to up
lab_D(config-if)#exit
lab_D(config)#
%LINEPROTO-5-UPDOWN: Line protocol on Interface Serial3/0, changed state to up
lab_D(config)#int fa 0/0
lab_D(config-if)#ip add 210.93.105.1 255.255.255.0
lab_D(config-if)#no shut

%LINK-5-CHANGED: Interface FastEthernet0/0, changed state to up
%LINEPROTO-5-UPDOWN: Line protocol on Interface FastEthernet0/0, changed state to up
lab_D(config-if)#exit
lab_D(config)#

System Bootstrap, Version 12.1(3r)T2, RELEASE SOFTWARE (fc1)
Copyright (c) 2000 by cisco Systems, Inc.
PT 1001 (PTSC2005) processor (revision 0x200) with 60416K/5120K bytes of memory

Self decompressing the image :
########################################################################## [OK]

              Restricted Rights Legend

Use, duplication, or disclosure by the Government is
subject to restrictions as set forth in subparagraph
(c) of the Commercial Computer Software - Restricted
Rights clause at FAR sec. 52.227-19 and subparagraph
(c) (1) (ii) of the Rights in Technical Data and Computer
Software clause at DFARS sec. 252.227-7013.

           cisco Systems, Inc.
           170 West Tasman Drive
           San Jose, California 95134-1706



Cisco Internetwork Operating System Software
IOS (tm) PT1000 Software (PT1000-I-M), Version 12.2(28), RELEASE SOFTWARE (fc5)
Technical Support: http://www.cisco.com/techsupport
Copyright (c) 1986-2005 by cisco Systems, Inc.
Compiled Wed 27-Apr-04 19:01 by miwang

PT 1001 (PTSC2005) processor (revision 0x200) with 60416K/5120K bytes of memory
.
Processor board ID PT0123 (0123)
PT2005 processor: part number 0, mask 01
Bridging software.
X.25 software, Version 3.0.0.
4 FastEthernet/IEEE 802.3 interface(s)
2 Low-speed serial(sync/async) network interface(s)
32K bytes of non-volatile configuration memory.
63488K bytes of ATA CompactFlash (Read/Write)


         --- System Configuration Dialog ---

Continue with configuration dialog? [yes/no]: n


Press RETURN to get started!



Router>ena
Router#conf t
Enter configuration commands, one per line.  End with CNTL/Z.
Router(config)hostname lab_E
lab_E(config)#int fa 0/0
lab_E(config-if)#ip add 210.93.105.2 255.255.255.0
lab_E(config-if)#no shut

%LINK-5-CHANGED: Interface FastEthernet0/0, changed state to up
%LINEPROTO-5-UPDOWN: Line protocol on Interface FastEthernet0/0, changed state to up
lab_E(config-if)#exit
lab_E(config)#exit
lab_E#
%SYS-5-CONFIG_I: Configured from console by console


lab_A
Router>en
Router#conf t
Enter configuration commands, one per line.  End with CNTL/Z.
Router(config)#ip route 219.17.100.0 255.255.255.0 201.100.11.2
Router(config)#ip route 199.6.13.0 255.255.255.0 201.100.11.2
Router(config)#ip route 223.8.151.0 255.255.255.0 201.100.11.2
Router(config)#ip route 204.204.7.0 255.255.255.0 201.100.11.2
Router(config)#ip route 210.93.105.0 255.255.255.0 201.100.11.2
Router(config)#exit

lab_B
Router#conf t
Enter configuration commands, one per line.  End with CNTL/Z.
Router(config)#ip route 205.7.5.0 255.255.255.0 201.100.11.1
Router(config)#ip route 192.5.5.0 255.255.255.0 201.100.11.1
Router(config)#ip route 223.8.151.0 255.255.255.0 199.13.6.2
Router(config)#ip route 204.204.7.0 255.255.255.0 199.13.6.2
Router(config)#ip route 210.93.105.0 255.255.255.0 199.13.6.2
Router(config)#exit

lab_C
Router>ena
Router#conf t
Enter configuration commands, one per line.  End with CNTL/Z.
Router(config)#ip route 219.17.100.0 255.255.255.0 199.13.6.1
Router(config)#ip route 201.100.11.0 255.255.255.0 199.13.6.1
Router(config)#ip route 192.5.5.0 255.255.255.0 199.13.6.1
Router(config)#ip route 205.7.5.0 255.255.255.0 199.13.6.1
Router(config)#ip route 210.93.105.0 255.255.255.0 204.204.7.2
Router(config)#exit

lab_D
Router>en
Router#conf t
Enter configuration commands, one per line.  End with CNTL/Z.
Router(config)#ip route 223.8.151.0 255.255.255.0 204.204.7.1  
Router(config)#ip route 199.13.6.0 255.255.255.0 204.204.7.1
Router(config)#ip route 219.17.100.0 255.255.255.0 204.204.7.1
Router(config)#ip route 201.100.11.0 255.255.255.0 204.204.7.1
Router(config)#ip route 192.5.5.0 255.255.255.0 204.204.7.1
Router(config)#ip route 205.7.5.0 255.255.255.0 204.204.7.1
Router(config)#exit