Makalah Biologi tentang Tumbuhan Mangrove dan Tanaman Hias

Aku cinta dia...
Aku sayang dia..
Pokoknya hidup dan matiku ..
Sama dia

Cara membuat iklan melayang di blog cukup mudah dan tidak ribet lagii. tinggal copas saja kode program di bawah ini :

<style>
#topbar {
height:30px;
width:auto;
background: #005094 url('http://lh3.ggpht.com/_beEpWOXwLJE/TIb57Lu4fwI/AAAAAAAABE0/q7niFVRbyNE/top-toolbar.jpg');
background-repeat:repeat-x;
text-align:left;
padding-top:4px;
}
#adsground {
height:auto;
margin:0 auto;
width: 850px;
background:#fff;
border-bottom:2px #005094 solid;
border-right:2px #005094 solid;
border-left:2px #005094 solid;
text-align:Center;
padding:4px;
}


#headlineatas {
opacity:1.0;
height:auto;
width:auto;
position:fixed;
top:65px;
left:170px;
border-bottom:1px #005094 solid;
border-bottom:0px blue solid;
color:#333;
padding:0px;
z-index:1001;
font-size:13px;}
</style>
<script type="text/javascript">
function getValue()
{
document.getElementById("headlineatas").style.display = 'none';
}
</script>
<div id="headlineatas">
<div id="topbar">
<img align="left" style="padding-left:2px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjd2ShUWXnlEPngCJB3byiy4iQTw2bWjCzH_Kk2-qQdHRcWlRysqXnhOoPNKUCH6jjlrHNbpkDh1fQBuWO8Nvz8VByKnRaDl5jDAj57SzalrqqFB_QTwZS0AZCZxGhmPkMUMBNgd4SzaGOL/s1600/rita+teguh+aza.jpg" />
<span style="color:#fff;font-size:13px;font-weight:bold;text-shadow:black 0.1em 0.1em 0.1em">Space Ads  Klik Iklan 1 X untuk Menambah Penghasilan Anda</span>
<span style="color:#fff;font-size:13px;font-weight:bold;text-shadow:black 0.1em 0.1em 0.1em;float:right;padding-top:3px;padding-right:10px"><a href="http://www.almantera.com/kata-kata-indah-dengan-berpuisi-cinta.html" target="_blank" onclick="getValue()">close</a></span>
</div>
<div id="adsground">
<h3></h3>
<p align="left"><h3></h3></p>
<p>
<!-- Begin: http://adsensecamp.com/ -->
<script src="http://adsensecamp.com/show/?id=Fq25XmQHGhk%3D&cid=rDRAQca6lYU%3D&chan=pwMa01El5cI%3D&type=1&title=3D81EE&text=000000&background=CAF99B&border=000000&url=2BA94F" type="text/javascript">
</script>
<!-- End: http://adsensecamp.com/ -->
 <br/></p></div></div>

Sumber : http://blog-arul.blogspot.com/2011/12/membuat-iklan-pop-up-melayang.html#ixzz1nx7VI6xN

Ganti kode yang berwarna merah dengan koding iklan anda.
Terima kasih

Hidup akan mudah apabila kita berfikir semua yang kita lakukan itu mudah..
doktrin lah diri anda tentang semua yang optimis...yakinlah semua akan tercapai dengan mudah..

By: Rita

           Kata-Kata cinta terbaru ini akan menemani hidupmu dan janganlah kamu bersedih karna kata-kata cinta ini akan memebrikan kamu wanita yang romantis kepadamu apabila kamu membacanya serta mengucapkannya. Cinta itu tak harus kepada wanita cantik, tapi cinta itu ada disetiap wanita kepada laki-laki.
silahkan saja membaca kata-kata cinta di website kami.:

Cinta hanya akan indah pabila berpondasikan kasih sang pencipta. Karena Cinta berasal dari-Nya Dan cinta yg paling utama adalah cinta kepada sang pencipta cinta

 Bintang kehidupanku tlah redup, cahaya nya bgai pelita yg hampir mati dan harapan akan kehadiran mu terkubur dalam penantian tak bertepi Kau daTang membaWa Cinta dan kesetiaan . . .

Dan kaU pergi MeninggaLkan Luka Dan Kehancuran . . . Dan aQ leBih Baik DikenaL laLu di LupAKAn daripada Di CinTai LalU dKhiAnaTi

Jangan prnah merasa sepi karena hatiku, kan slalu menemanimu pejamkanlah matamu dan bermimpilah dlm tidurmu. bangunlah esok pagi dengan senyuman yg indah seindah mentari pagi yang bersinar!

Dengan senyuman, kau luluhkan hatiku, dengan senyuman, kau perlihatkan dunia padaku hanya dengan sebuah senyuman kau berikan aku kesadaran begitu indah cerita hidupku oleh senyumu i love u,

Datang dan pergi seperti angin tak beraturan dan arah merasakan cinta dalam kehidupan kadang ku bahagia kadang ku bersedih

Pagi yang cerah ketika bersamamu, malam yang indah ketika mendengarkan suara mu , hati yang bahagia ketika memiliki mu selamanya.

Cinta adalah caraku bercerita tentang dirimu, caraku menatap kepergian mu dan caraku tersenyum, saat menatap indah wajahmu.

Aku tak pernah menyesal mencintai mu, yang aku sesali mengapa tidak sejak dulu mencintaimu.

Cinta adalah sebuah pengorbanan yang tulus, tanpa ada rasa pengorbanan cinta akan jauh.

Segala hal terindah kita tidak bias dilihat dan di sentuh, semua itu hanya bias di rasakan dengan hati yang tulus dan suci.

Sesuatu yang dicintai selalu indah tapi sesuatu yang indah belum layak dicintai.

Gapai lah cintamu ungkapkan isi hatimu betapa kita mendambakan cinta

   Kumpulan kata-kata galau  dengan pacar kamu, disini tempatnya kamu bisa mengungkapkannya.Tak ada yang tak bisa untuk bisa berkreasi dalam dunia galau, MAri kita lihat langsung di TKP :

Mengingat cinta dimasa lalu tidak hanya menambah penderitaan. Tepapi juga menambah pengalaman untuk mencari cinta sejati.

Kamu tuh kayak rapot...kadang kadang baik..tapi..kadang kadang hasilnya bisa bikin kesel....

Lihat aku di sini , kau lukai hati dan perasaan ini.

Di saat kebahagiaan datang
Ku berharap itu karenamu
Namun harapan itu tiada
Bersama dirimu yang tinggalkanku

Hati ini galau karena tak bisa bersamamu
Kau tinggalkanku dengan kenangan kita
Sendiri terdiam dikeheningan malam
Dan semua itu kulalui tanpa dirimu di sini

Pagi ini tak secerah pagi kemarin
Malam ini pun tak seindah malam kemarin
Saat kau ada di sini
Bersamaku menjalani hari hari

Tanpa ku sadari tepat 1 tahun kita berpisah

Dia tau ga yah. Kalo aku kangend banget sama dia.

Cukup sudah aku mengenal mu. sudah banyak air mata ini yg tertetes karna mu. Lebih baik ku akhiri saja semua ini.

Kenapa harus balik lagi kalo niatnya hanya untuk menyakiti hati.

Kamu tuh bagai kan angin yang berlalu karena kamu cuma lewat sebentar ke hati aku.

Kenapa? kenapa? kau tak pernah memperhtikanku aku selalu sendirian tanpamu.

Dan aku pun masih tak mampu lupakanmu
Kenangan kita yang sangat indah
Selalu membayangi hari-hariku

Pernah ku berfikir ku ingin kau ada di sini bersamaku malam ini
Melihat indahnya bintang dengan peluk hangatmu
Namun itu hanyalah sebuah harapan semu
Yang tak mungkin bisa lagi aku lakukan

Mungkin terlalu besar jika aku berharap selalu ingin bersamamu
Mungkin juga terlalu besar jika aku berharap kau selalu ada bersamaku
Dan aku hanya bisa berharap kau bahagia dengan atau tanpa aku bersamamu

Kau tahu aku sayang kamu
Kau pun tahu bahwa aku sangat mencintaimu
Namun kenapa kau tak pedulikan itu
Pergi meninggalkanku bersama kenangan kita di masa lalu

Perlu tiga kalimat untuk ucapkan aku cinta kamu
Perlu tiga detik untuk ucapkan aku sayang kamu
Namun perlu bertahun-tahun untuk melupakanmu

     Cinta sejati tidak akan datang bila kmu tidak benari mengungkapkan cinta kepadanya dengan setulus hatimu.

       Program Edit dan Hapus menggunakan vb6 pada listview ke file txt, Saya sudah selesai mengerjakannya dan bisa kamu download disini. programnya mudah kok, cuman 1000 baris program. hehehe..
Listview disini berfungsi untuk menampilkan dari file txt kemudian di tampilkan pada listview. bisa di edit dan dihapus. program ini hanya untuk tugas saja dan mungkin bisa membantu kamu-kamu semua..

     Kamu bisa lihat tampilan form edit dan hapus data pada listview dengan file txt pada vb6. :

     Dalam Rekayasa Perangkat lunak, kita diwajibkan belajar bahasa java mobile, yaah kita kan bisa belajar bahasa mobile, Kali ini kita membahas dasar dasar pemograman j2me.
Berikut ini konsep source code J2ME dasar :

import javax.microedition.midlet.*;->Digunakan untuk mengimport package Microedition.midlet
(klo tidak ada ini maka aplikasi yang anda buat tidak dapat
berjalan di mobile device)
import javax.microedition.lcdui.*;->Digunakan untuk mengimport package Microedition.lcdui(
package ini adalah tampilan dari aplikasi anda)

public class test1 extends MIDlet implements CommandListener->Digunakan untuk memanggil class MIDlet(pada extends MIDlet).Class MIDlet ini sudah ada dalam package microedition.midlet tadi. Fungsi dari CommandListener adalah action/kejadian untuk mengeksekusi sebuah perintah dari user (semacam tombol untuk menjalankan suatu perintah)
{
private Display display;->merupakan variabel dari class Display

public heloMIDLet(){
display = Display.getDisplay(this);->menginisialisasi variabel display
}

public void startApp()->method yang berfungsi untuk menampilkan tampilan awal aplikasi mobile anda
{
TextBox tb = new TextBox("Hello MIDLet","Hello J2ME...!!",256,0);->langkah ini berfungsi untuk mengatur format dari textbox seperti panjang textbox, jumlah max karakter yg ditulis,dll.
display.setCurrent(tb);->method setCurrent digunakan untuk menempatkan textbox
}

public void pauseApp()
{
}

public void destroyApp(boolean unconditional)
{
}

public void commandAction(Command c, Displayable d)->method ini berfungsi untuk mengimplementasikan class CommandListener yang telah di-implements sebelumnya. Berfungsi untuk menempatkan source code supaya tombol dapat menjalankan suatu perintah
{

}
}

Nah untuk mencobanya silahkan hilangkan tulisan2 yang berwarna merah. Lalu copy paste source code itu di aplikasi editplus atau notepad++ atau JCreator atau netbeans atau eclipse.

        Dalam pemograman java untuk J2ME yaitu pemograman mobile kita harus mengenal perogram terlebih dahulu.

        Dalam pemograman java untuk J2ME yaitu pemograman mobile kita harus mengenal perogram terlebih dahulu.

         
        Ratusan mahasiswa yang tergabung dalam Mahasiswa Peduli Rakyat Jakarta (MPRJ) melakukan aksi demonstrasi penolakan kenaikan harga Bahan Bakar Minyak (BBM) didepan kantor Lembaga Bantuan Hukum (LBH) Jakarta, Jalan.  demo yang dilakukan mahasiswa ini menutup tiga lajur jalan dari empat lajur jalan Jalan Diponegoro.
Akibatnya terjadi kemacetan hingga 2 Km di sepanjang Jalan Diponegoro, hingga depan Stasiun Cikini, Jakarta Pusat.

            "Biar semua tahu semangat kami membela rakyat yang ditindas pemerintah dengan menaikan harga BBM," ujar Iwan, salah seorang mahasiswa yang melakukan aksi blokir jalan, Selasa (27/3/2012).
Sambil membawa poster bertuliskan 'Tolak Kenaikan Harga BBM', 'SBY Boediono sudah gagal'. Massa bergerak sekitar pukul 12.00 WIB, setelah semuanya berkumpul di Jalan Diponegoro.
Mereka kemudian menuju Jalan Salemba ka arah Tugu Tani dan ke Istana Merdeka untuk bergabung dengan pendemo lainnya yang menolak kenaikan harga BBM.

Perlu diketahui, aksi besar-besaran pada 27 Maret 2012 ini, dilakukan karena rencana pemerintah yang akan kembali menaikkan harga Bahan Bakar Minyak (BBM) pada 1 April mendatang.
Alasan pemerintah menaikkan harga BBM ini, untuk menyelamatkan APBN.

Sumber(http://www.tribunnews.com)

       Dalam kegelapan aku merindu, tak ada satu orangpun yang peduli padaku... Padahal diri ini ingin rasanya ditemani, diperhatin dengan mu, tapi kenapa diri ini seperti tak ada yang memperhatiin ku..
Sungguh kesedihan ini membawa diri menjadi GALAU.
Apakah ini merupakan hidup, apakah harus begini arti dari kehidupan.

    
  Di dunia ini tak ada kehidupan yang abadi, cinta juga tak kn abadi,.. maka jagalah cinta sampai cinta itu musnah.
Saat aku sedih, aku ingin berada disampingmu..
saat aku bahagia, aku juga ingin berada si dekatmu..
tapi semua itu hanyalah hayalan belaka..
karena dia dan aku tak mungkin bisa bersama...
Ada yang membatasi di antara kita..

       di sana kamu sedang bermain-main..
       Sedangkan aku disini sedang merasa sedih karena rindu..
       Itukah cinta..? atau itukah Akhir sebuah cinta..?

Bersama mu adalah hal yang terindah..
melupakanmu adalah hal yang terburuk dalam hidup..
tapi itu mungkin adalah sebuah takdir..
yang tak bisa lagi diulangi.

aku senang bisa bersama mu meski sekejap..
Aku bahagia bisa mampir dihatimu..
maafkan aku bila tak bisa menjaga mu.
saat kamu tidur, saat kamu sendirian,.
bahagialah bersamanya, aku kn bhagia juga..

Cowok : " kamu tahu gak kenapa pelangi kelihatan cuman setengan saja..?"
Cewek : " gak tahu, mang kenapa ?"
Cowok : "kan yang setengahnya lagi ada di mata kamu ".

Ternyata tempat yang paling indah itu bukan dibulan
Tetapi tempat yang paling indah itu ada di sisi kamu...

Cwok : " Kamu pemain basket ya..?"
Cwek : " iya Kok tau .?"
Cwok : " karena kamu telah men-three Point-kan hati aku."

Co :"kamu anak Mahasiswi ya..?"
Ce :"kok tau..?"
Co :"karna kamu telah Mencontek jawaban isi hati aku."

"Ada 3 hal yang paling aku suka di muka bumi ini,
Matahari, bintang dan kamu...
Matahari untuk siang hari..
Bintang untuk malam hari..
dan Kamu untuk aku selamanya..

Co :"Kamu law cantik kira-kira donk"
Ce :"Kenapa rupanya mas "
Co :"Masak aku gak bisa tidur gara-gara mikirin kecantikan kamu"

Cowok :"malam-malam gini aku sering bingung"
Cewek :"loh emang kenapa mas"
Cowok :"Tiap aku liat bintang, seperti lagi liat wajah kamu, soalnya sama-sama indah"

"Aku rela ikut lomba lari keliling dunia, asalkn kamu yang jadi garis finisnya."
Cowok :"Kamu tau gak nggak ada yang lebih indah dan bersinar ketimbang bintang"
Cewek :" Hah, emang ada ..?"

Cowok :" ya adlah, yaitu cuman kamu .."
"Pulsa aku berkurang tiap sms kamu, tapi kok cinta aku ke kamu nambah terus yaa."
"Meskipun sms aku sering pending2, tapi cinta aku ke kamu gak kan pending"

Co :" kamu cantik banget ea pake baju merah"
Ce :"Hah, aku kn lagi pake baju merah"
Co :"Waaah, ternyata benar ,klau cinta itu buta"

  Kita ke toko bunga yuk yank..?
  emg mw bli ap ?
  Beli bibit cinta tuk ditanam di hati mu..


Cowok: Maaf mbak, jangan terlalu lama duduk dikursi itu, pindah deket saya saja?
Cewek: Loh? Emangnya kenapa??
Cowok: Biar gak dikerubung semut.. soalnya mbak manis sich?

Cowok : Aku didiagnosa Sakit jantung.
Cewek : Hah! Kok bisa?
Cowok : Iya. Jantungku selalu berdegup kencang bila dekat denganmu.

Cowok : Kemarin aku ke dokter mata. Kamu tau apa kata dokter?
Cewek : Apa? Parah?
Cowok : Kata dokter ada kamu di mataku.

Cowok : Kamu punya kunci apa aja sih?
Cewek : Kunci rumah, kunci mobil, kunci lemari. Emang ada apa?
Cowok : Punya nggak kunci untuk membuka hatimu kepadaku?

Cowok : Kamu punya peta nggak?
Cewek : Peta apa?
Cowok : Peta hatimu. Karena aku tersesat dan tak bisa keluar dari hatimu.

- Bapak kamu pasti seorang astronot ??? Soalnya aku melihat banyak bintang di matamu.

- Kamu pasti kuliah di seni pahat ya ??? Soalnya kamu pintar sekali memahat namamu di hatiku.

- Kakekmu pasti penambang ya ??? Soalnya banyak berlian di matamu.

- Kamu Mantan pencuri ya ??? Abisnya kamu mencuri hatiku sih!

Cowok : Aku suka senyum-senyum sendiri lho.
Cewek : Hah .. Gila Ya
Cowok : Nggak. Aku sedang mikirin kamu.

- Setiap malam aku berjalan-jalan di suatu tempat. Kamu tau di mana itu ? Di hatimu.

- Kamu merasa gempa gak ??? ada kamu yang mengguncang hatiku sih.

-Kamu pake Indosat ya ??? Karena sinyal-sinyal cintamu sangat kuat sampai ke hatiku.



Kata Kata Gombal Romantis


- Tak mungkin aku berhenti mencintaimu. Aku hanya bisa belajar hidup tanpamu.

- Aku pengen bersamamu cuma pada dua waktu: SEKARANG dan SELAMANYA.

- Kau begitu kucinta, hingga ketika bersamamu mati seperti bisa kutunda, dan tanpamu, hidup serasa tiada guna.

- Aku nggak menangis karena kehilanganmu, tapi mengetahui kau tak pernah berusaha mencegahku pergi

- Aku tak pernah tau kebahagiaan sesungguhnya, sampai ketika aku mendapatkan cintamu. Dan aku tak pernah tau derita sebenarnya, sampai aku kini kehilangan itu. Terima kasih telah mengenalkanku pada kedua rasa yang tak akan kulupa.

- Aku selalu berusaha tak menangis karenamu, karena setiap butir yang jatuh, hanya makin mengingatkan, betapa aku tak bisa melepaskanmu.

    
Setiap kata adalah doa diri kamu, janganlah mengucapkan sepatah kata tanpa memikirkan kedepannya... setiap prilaku kita akan di balas di suatu saat.. maka jagalah sikap sewaktu kamu masih bernyawa.   

Cinta aku tu tak luput dari hatimu, karna aku lagi galau d depanmu..

1. Lebih baik kamu NEGATIVE thinking dari pada kamu POSITIVE hamil.
2. Bukanya aku gc mau terima ''CINTA'' mu .. tp krna Q gc mau jadi orang ke 3 antara ''KAU'' DAN ''DIA'' .....
3. Maaf bila suatu saat nanti ku sudah tak ada disisimu lagi, bkn karna ku berhenti mencintaimu, tp ku berusaha berhenti saling menyakiti. :')
4. gue th' pengen nangiz d.dpan loe ! biar loe tch' tew rasaa sakittttt yg gue alamii :'(
5. ksalah yg kmu lakuin lebih sakiiiit kmu slingkuh masih q maaf kan tapi....ksalhan q hanya telat waktu kmu sdah tinggalin aq...knpa beib knpa....kamu tega...
6. minimal aku punya foto bersama dgnnya, walau difoto itu gak hanya aku dan dia, tp rame2 sm temen2 lain :(
7. pagi yg cerah ketika bersmamu,mlm yg indah ketika melihat foto mu, hati yg bahagia ketika memilikimu selamanya
8. kita pacaran kayak TV aku yah , Suka putus-Putus channel nya :'(:'(:'( !
9. kenapa kau tak prnah mengerti prasaan q walaupun q sdah brkorban dmi cnta q ke kmu tetapi mlah kmu memlih dia
10. sakit karna hujan itu tak seberapa,,ketimbang sakitnya hati,,saat kau tinggalkan aku bersama diri'a...T_T
11. LUKa hati ini semakin dalam saat kulihat fotomu dengan dirinya yang km upload di facebook 2 jam yang lalu …
12. mndaptkan cinta km tu trnyata bth ksabaran ky mau foto sim aja, coz aq hrs nunggu antrian panjang biar dpt gilira
13. Handphone aja sanggup simpan foto sampe beribu-ribu, masa cuma untuk simpan aku hati kamu nggak sanggup sih
14. daripada ga memiliki apapun dari kamu, ya udahlah aku cuma bisa memiliki fotomu. Itu udah cukup kok :')
15. Jangan hiraukan mereka yg membencimu. Mereka hanya orang yang berharap memiliki hidup sepertimu. Perhatianmu adalah hal yang mereka inginkan,
16. skg emang jamannya edit foto biar gambar di foto bisa berubah, tapi kamu jgn sampe edit2 perasaanmu ke aku ya :(
17. Cinta aku ke kamu tuh ibarat bulu ketek. Meski dicukur terus, dy bakal ttp tumbuh. Bahkan lebih lebat.. :'(
18. Cinta aku ke kamu itu ibarat bulu idung.. Idung ga akan bisa tanpa bulunya, begitu jg aku tanpa kamu. :(
19. Cinta kita itu kaya bulan sm matahari. Meski ada dilangit yang sama, tapi ga akan pernah bertemu :(
20. yg paling menderita ngeliatin org pacaran makan malem bareng keluarga ya jomblo ngekos :p
21. Org klo botak didpn artinya suka mikir.. Kalau di belakang artinya dia pintar.. Kalau depan belakang dia pikir dia pintar!
22. Kalo macet gausa klakson2! Emg tuh klakson bisa bikin jalanan jd lancar?! Kampungan!
23. Tau arti cewe WABAH? Cewe yg dari belakang WAH! Dari depan BAH!! *kenyot kecebong*
24. Oh ini twitter yah? Kirain tmpt perkumpulan FBI. Abis banyak mata2 TL sih
25. dunia ini seperti milik kita berdua ya ,,, yang lainnya ngontrak ... !!!
26. Oh ini twitter yah? Kirain diary.. Abisnya banyak yg curhat di TL sih
27. manusia itu tak boleh mencintai sesama jenis, maka bercintalah dengan lain jenis seperti monyet, babi anjing dan binatang lainnya
28. lo dulu ngebuang gue kayak sampah , sekarang lo sujud2 minta balikan lagi sama gue , cuih
29. Cinta itu ky kembang api,bersinar indah tp gak tahan lama
30. Jangan ngomongin keadilan deh, kalo masih banyak jomblo yang belum kebagian cinta
31. Bukan perpisahan yang ku tangisi,,tapi pertemuan yang ku sesali
32. mata ku tdk melihat mu, bibir ku tdk membicarakan mu, tangan ku tdk menggenggam mu, tetapi jauh didalam lubuk hati ku... disitu cuma ada kamu. #ahayyyy ♥
33. You Know?! Saat ini aku telah berusaha untuk membuat kau bahagia, apapun caranya akan ku coba termasuk melakukan hal yang paling membuatku sedih, dengan merelakanmu pergi bersama seorang yang bisa membuatmu bahagia
34. Contek mencontek itu bukan kecurangan di kalangan pelajar, tapi tradisi
35. Wanita itu kaya lampu trafic light, kalo lagi merah itu gk boleh di terobos
36. ROKOK TIDAK BERBAHAYA BAGI KESEHATAN selama TIDAK ADA KOREKNYA
37. Belajar lah mencinta'i orang yg hari ini msih milik mu , sebelum dia pergi dari mu . Hari ini mungkin dia msih mencinta'i mu , tpi mungkin bsok tak kan ada lgi cinta untuk mu dan mungkin besok kmu yg akan lebih mencinta'i dia ketika dia pergi .. Jadi jngan pernah sia"kan cinta yg sekarang mengisi hati mu ... :)
38. Niat belajar, cek tl, banyak mention, keasyikan, ngantuk, tidur, ga jadi belajar
39. Seseorang bakal terasa berharga saat kita kehilangannya.Pengen bikin pasanganmu berharga? Tinggalkan dia~ B)
40. Hewan apa yang minta dicium? Cium-Me Cium-Me

    Ada cara cara dalam berkomunikasi yang baik dengan orang lain, kita bisa berkomunikasi dengan enak dan nyaman tanpa ada halangan dari pihak lain. Komunikasi dengan baik juga salah satu untuk bisa beradaptasi dengan lingkungan. Cara Cara komunikasi yang baik yaitu

        1. Percaya

   Nah kita mengawali komunikasi itu terlebih dahulu kita harus percaya dengan orang yang kita ajak dengan komunikasi, tanpa ada rasa percaya aktivitas komunikasi tidak akan berjalan dengan lancar . mengapa ?. yaa karena kita tidak percaya itu pada pembicaraan dia seolah olah dia hanya bicara bohong.

      2. Sportif

      Sikap sportif ini juga merupakan salah satu agar dapat terciptanya komunikasi yang baik jga, kita harus sportifitas dalam bersikap, andaikan orang bersikap dengan baik kepada kita maka kita juga harus bersikap baik pula kepadanya, begitu juga sebaliknya. jika orang itu tidak baik kepada kita maka kita juga harus bersikap baik karna agar terciptanya suatu komunikasi. jangan kita malah tidak baik pula, kalau begitu maka komunikasi tidak akan terjadi akan tetapi hanyalah diam yang ada.

     3. Terbuka

    yang ketiga ini merupakan salah satu menciptakan  komunikasi yang baik dan sempurna, keterbukaan seseorang dipengaruhi atas sikap nya, jangan kita saja yang menilai orang tentu orang lain juga menilai kita, nah justru itulah kita harus menjadi orang yang terbuka dalam masyarakat maupun dunia kerja. akan tetapi jangan terbuka sembarangan harus sesuai dengan keadaan dan kondisi.
Contohnya saja dalam dunia kerja, kita terbuka dengan karyawan lainnya, tapi jangan terbuka masalah pribadi atau rumah tangga kita keterbukalah hanya sebatas dunia kerja saja. seandainya saja ada masalah dengan teman pegawai kita maka masalah keluarga kita akan terjaga pula..

  Nah begitulah cara berkomunikasi yang baik kepada siapapun agar tercipta suatu komunikasi yang baru dan enak untuk dijalani.

   Disini banyak kata kata gombal untuk pacar, sayang, istri sekalipun. yang penting perasaan kita senang dengan melantunkan kata kata gombal.

Cowok: knapa malem ini gelap banget ya
Cewek: mendung kali bang
Cowok: kyknya nggak dech
Cewek: trus napa bang
Cowok: soalnya bulannya sedang menerangi & menemaniku disini

Cowok : eh jangan duduk deket bunga-bunga
Cewek : loh emang kenapa ?
Cowok : nanti bunga-bunganya layu
Cewek : kok bisa ?
Cowok : mereka layu karena mereka malu kalah cantik sama kamu

Cowok : bapak kamu maling ya?
Cewek : ih…..kow jahat si bapak ku dibilang maling kow gitu?
Cowok : iya soalnya kamu pintar banget mencuri hatiku

Aku udah pernah jatuh dari jembatan,
aku udah pernah jatuh dari tangga.
Semuanya gak enak.
Tapi ada satu jatuh yang paling enak, yaitu jatuh
cinta sama kamu

cowok : boleh nanya nga?
cewek : nanya apaan?
cowok : bapak km dulu astronot yah?
cewek : ga tuh, emank knp?
cowok : AKU LIHAT BINTANG DIMATAMU

Untuk apa berlari dalam kelam?
Sedang kabut pun tak mau menyibak.
Biarlah semua berlalu, mimpi pun aku tak ingin.
Meski rindu ini tercipta untukmu.

   

Cinta itu bahagia.., dan Cinta itu sedih..
  Seseorang akn mencintai tanpa mengenal keadaan bahagia dan sedih..

   Cinta itu adalah suatu bentuk anuggerah yg ter indah…
   Yang harus kita jaga dengan tulus,
   Walau cinta itu pahit,kadang bikin kitah sedih…
   Tpi itu lah cinta,karna cinta terbentuk dari suatu perbedaan,
   Yang harus kita satukan… itu lah nma x cinta….
   Menyatukan perbedaan


           Cinta itu peasaan,..
           Perasaan yang tulus yang tidak bisa di ungkapkan dengan kata-kata
          Atau pun dengan tulisan,cinta itu bisa kita rasakan
          Dari senyuman dan pandangan yang tulus dari hati yang dalam,
          Terkadang cinta itu tak terungkap karena
          Cinta itu bukan untuk di ungkapkan tapi di rasakan

Cinta itu seperti perangko yang tak bisa dipisahkan.

  
 Untuk saat ini Program untuk mengedit dan menghapus data berbentuk TXT belum saya postingkan, tapi postingan kali ini akan menjelaskan bagaimana senuah program bisa membuat dan menyimpan data di txt dengan menggunakan delphi..

unit TGS_UIR_I;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Panel1: TPanel;
Panel2: TPanel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Panel3: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Button2: TButton;
Button3: TButton;
StringGrid1: TStringGrid;
Panel9: TPanel;
Panel4: TPanel;
Panel5: TPanel;
Panel8: TPanel;
Panel10: TPanel;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Edit4Change(Sender: TObject);
procedure Edit3KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
F : TextFile;
baris : Integer;
myRect: TGridRect;
begin
if (Panel3.Visible = False) Then
begin
Form1.Height := 510;
Panel3.Visible := True;
Panel3.Enabled := True;
end;
baris := StringGrid1.RowCount;
If ((StringGrid1.Cells[0,0] <> '')) Then
begin
StringGrid1.RowCount := baris+1;
baris := baris+1;
end;
if (baris < 10) then
StringGrid1.Cells[0,baris-1] := ' ' + IntToStr(baris)
else
if ((baris >= 10) and (baris-1 < 99)) then
StringGrid1.Cells[0,baris-1] := ' ' + IntToStr(baris)
else
StringGrid1.Cells[0,baris-1] := ' ' + IntToStr(baris);
StringGrid1.Cells[1,baris-1] := UpperCase(Edit1.Text);
StringGrid1.Cells[2,baris-1] := UpperCase(Edit2.Text);
StringGrid1.Cells[3,baris-1] := Edit3.Text;
StringGrid1.Cells[4,baris-1] := Edit4.Text;
myRect.Left := 0;
myRect.Top := baris-1;
myRect.Right := 4;
myRect.Bottom := baris-1;
StringGrid1.Selection := myRect;
Edit1.Text := '';
Edit2.Text := '';
Edit3.Text := '';
Edit4.Text := '';
end;
procedure TForm1.FormCreate(Sender: TObject);
var
F : TextFile;
FileHandle : Integer;
HighOrderSize : ^DWORD;
LowOrderSize : DWORD;
baris : Integer;
data : String;
status : Boolean;
begin
Button1.Enabled := False;
Button2.Enabled := False;
Status := False;
If FileExists('data.ret') = True Then
begin
FileHandle := 0;
Try
FileHandle := FileOpen('data.ret',fmOpenRead);
If (FileHandle = -1) Then
begin
ShowMessage('Gagal membuka File');
Exit;
end;
HighOrderSize := Nil;
LowOrderSize := GetFileSize(FileHandle, HighOrderSize);
If (LowOrderSize = INVALID_FILE_SIZE) Then
ShowMessage('Gagal mendapatkan ukuran file')
Else
If (LowOrderSize > 0) Then
begin
Form1.Height := 510;
Panel3.Visible := True;
Panel3.Enabled := True;
Status := True;
end
Else
begin
Form1.Height := 270;
Panel3.Enabled := False;
Panel3.Visible := False;
end;
Finally
FileClose(FileHandle);
End;
if (Status = True) then
begin
AssignFile(F, 'data.ret');
Reset(F);
baris := 1;
while Not EOF(F) do
begin
StringGrid1.RowCount := baris;
if (baris < 10) then
StringGrid1.Cells[0,baris-1] := ' ' + IntToStr(baris)
else
if ((baris >= 10) and (baris < 99)) then
StringGrid1.Cells[0,baris-1] := ' ' + IntToStr(baris)
else
StringGrid1.Cells[0,baris-1] := ' ' + IntToStr(baris);
readln(F, data);
StringGrid1.Cells[1,baris-1] := data;
readln(F, data);
StringGrid1.Cells[2,baris-1] := data;
readln(F, data);
StringGrid1.Cells[3,baris-1] := data;
readln(F, data);
StringGrid1.Cells[4,baris-1] := data;
baris := baris + 1;
end;
CloseFile(F);
end;
end
else
begin
Form1.Height := 270;
Panel3.Enabled := False;
Panel3.Visible := False;
AssignFile(F, 'data.ret');
ReWrite(F);
CloseFile(F);
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
F : TextFile;
i : Integer;
begin
If (StringGrid1.Cells[0,0] <> '') Then
begin
AssignFile(F, 'data.ret');
ReWrite(F);
for i := 1 to StringGrid1.RowCount do
begin
Writeln (F, StringGrid1.Cells[1,i-1]);
Writeln (F, StringGrid1.Cells[2,i-1]);
Writeln (F, StringGrid1.Cells[3,i-1]);
Writeln (F, StringGrid1.Cells[4,i-1]);
end;
CloseFile(F);
end;
Form1.Close;
end;

Lumayan panjang yaahh... itu belum seberapa dengan program yang saya buat untuk Aplikasi Pembayaran Listrik desa. panjang banget...
udah dulu yaaa, lain kali saya akan lengkapi deh postingannya..
Wassalammualaikum..

   Dalam hidupku ini, mengapa harus ada masalah....
   Yang membuat diriku sedih sepanjang malam ku...
   Sungguh aku tak sanggup untuk memikul kesedihan ini
   Ingin rasanya diri ini tak ingin hidup seribu tahu
   Tapi ingin mati esok hari ..

   Bagiku hidup tanpamu bagaikan angin yang tak tahu arah
   ia terombang ambing keutara , kebarat, ketimur dan kearah selatan..
   tapi mengapa semua ini terjadi pada diriku..
   Tak ada orang yang mengertiin diriku.

       Setiap aku mengertiin kamu, tapi kamu mengelak...
       Aku sadar, bahwa diri ini bukanlah siapa-siapa untuk mu.
      Tapi aku mohon, janganlah engkau menjauh dariku...
      biarlah kamu bahagia bersamanya., Aku menderita disini..
      Sakit hati ini membuat aku sedih mengeluarkan air mata
      Menguras tenaga untuk menahan rasa hampa.

  Sesuatu yang tak mungkin aku dapat
  Untuk apa aku kejar, biarlah ia bahagia..
  Mungkin ini jalan yang terbaik..
  Biarlah aku akan menempuh jalan ini dengan penuh kesediha.

      Dalam delphi kini dapat membuat sebuah file berbentuk txt, nah kini sudah ada dan menjadi pelajaran Kami di Universitas Islam Riau, Membuat file txt, Menyimpan datanya di file TXT , Mengedit data file TXT, Menghapus Data file TXT... nah. begitulah ceritanya..

     Saya hingga kini masih belajar membuat programnya dengan delphi 7. lumayan rumit ternyata kalau tidak bisa. hehehehe masih enakan dengan Database Access. atau MYSQL.
Lain hari saya akan postingkan proram untuk membuat file txt dan mengeditnya serta menghapus file isinya...

     dalam pemograman tak ada yang susah sebenarnya, asal kita mau saja belajar pasti bisa.. tapi tidak ada orang belajar sekali langsung bisa perogram. nah itulah .. harus sering kita mengulang apa yang kita pelajari dalam programan... nah ini ada sepotong program untuk mengedit  data berupa file txt.:

nim = InputBox("Masukkan NIM:")
Open App.Path & "\data.txt" For Input As #1

'masukkan data ke textbox
Do While Not EOF(1)
  Input #1, s
  fd = Split(s, "|")
  If Trim(fd(0)) = nim Then
     txtNim.Text = fd(0)
     txtNama.Text = fd(1)
     txtJur.Text = fd(2)
     Exit Do
  End If
Loop
Close #1

'-- hapus file lama copy ke yg baru kecuali record yg di edit
Open App.Path & "\data.txt" For Input As #1
Open App.Path & "\datasem.txt"
For Output As #2
Do While Not EOF(1)
  Input #1, s
  fd = Split(s, "|")
  If Trim(fd(0)) <> nim Then
    Print #2, Chr(34) & s & Chr(34)
  End If
Loop
Close #1
Close #2

Kill App.Path & "\data.txt"
FileCopy App.Path & "\datasem.txt", App.Path & "\data.txt"

Program ini berguna di visual basiv 6, nah diulang-ulang saja kalau belum benar, kesalahan merupakan pengetahuan kita dalam belajar. tanpa kesalahan kita akan terjerumus dalam kepintaran kita.

      Untuk menghapus isi dari data di txt ini programnya ada di bawah :

nim = InputBox("Masukkan NIM:")
Open App.Path & "\data.txt" For Input As #1
Open App.Path & "\datasem.txt" For Output As #2

Do While Not EOF(1)
  Input #1, s
  fd = Split(s, "|")
  If Trim(fd(0)) <> nim Then
    Print #2, Chr(34) & s & Chr(34)
  End If
Loop
Close #1
Close #2
Kill App.Path & "\data.txt"
FileCopy App.Path & "\datasem.txt", App.Path & "\data.txt"

    Selamat mencoba , Semoga berhasil.. GOOD LUCK..

   Di bawah ini merupakan coding sebuah program vb yang berfungsi untuk menghapus isi file yang berada di txt.
nah bagi anda yang mau COPAS silahkan saja di coba. semoga berhasil :

nim = InputBox("Masukkan NIM:")
Open App.Path & "\data.txt" For Input As #1
Open App.Path & "\datasem.txt" For Output As #2

Do While Not EOF(1)
  Input #1, s
  fd = Split(s, "|")
  If Trim(fd(0)) <> nim Then
    Print #2, Chr(34) & s & Chr(34)
  End If
Loop
Close #1
Close #2
Kill App.Path & "\data.txt"
FileCopy App.Path & "\datasem.txt", App.Path & "\data.txt"

Selesai kan.. Komentar anda berarti buat website saya

     Cara mengedit data yang telah kita simpan di dalam file txt dapat kita lakukan edit, caranya mudah bgeet tapi kalian harus jeli melihat program yang ada...
di bawah ini ada potongan program untuk mengedit data di TXT :

nim = InputBox("Masukkan NIM:")
Open App.Path & "\data.txt" For Input As #1

'masukkan data ke textbox
Do While Not EOF(1)
  Input #1, s
  fd = Split(s, "|")
  If Trim(fd(0)) = nim Then
     txtNim.Text = fd(0)
     txtNama.Text = fd(1)
     txtJur.Text = fd(2)
     Exit Do
  End If
Loop
Close #1

'-- hapus file lama copy ke yg baru kecuali record yg di edit
Open App.Path & "\data.txt" For Input As #1
Open App.Path & "\datasem.txt"
For Output As #2
Do While Not EOF(1)
  Input #1, s
  fd = Split(s, "|")
  If Trim(fd(0)) <> nim Then
    Print #2, Chr(34) & s & Chr(34)
  End If
Loop
Close #1
Close #2

Kill App.Path & "\data.txt"
FileCopy App.Path & "\datasem.txt", App.Path & "\data.txt"

Nah begitulah  programnya, silahkan anda mencobanya sendiri..

        Kita dalam belajar sebuah program tidak mungkin begitu saja langsung bisa, ada tahap demi tahap yang harus kita tempuh, kalau belajar sekarang kita sudah mudah karna sudah tersedia segudang ilmu di internet..
hehehehe.. Kali ini saya akan membahas tugas integrasi sistem yang menyambungkan file TXT dengan Delphi.. nah File txt ini akan menjadi sebuah  tempat penyimpanan data melaluui delphi..

Ok. kita langsung saja ke program untuk delphi..

unit TGS_UIR_I;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Panel1: TPanel;
Panel2: TPanel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Panel3: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Button2: TButton;
Button3: TButton;
StringGrid1: TStringGrid;
Panel9: TPanel;
Panel4: TPanel;
Panel5: TPanel;
Panel8: TPanel;
Panel10: TPanel;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Edit4Change(Sender: TObject);
procedure Edit3KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
F : TextFile;
baris : Integer;
myRect: TGridRect;
begin
if (Panel3.Visible = False) Then
begin
Form1.Height := 510;
Panel3.Visible := True;
Panel3.Enabled := True;
end;
baris := StringGrid1.RowCount;
If ((StringGrid1.Cells[0,0] <> '')) Then
begin
StringGrid1.RowCount := baris+1;
baris := baris+1;
end;
if (baris < 10) then
StringGrid1.Cells[0,baris-1] := ' ' + IntToStr(baris)
else
if ((baris >= 10) and (baris-1 < 99)) then
StringGrid1.Cells[0,baris-1] := ' ' + IntToStr(baris)
else
StringGrid1.Cells[0,baris-1] := ' ' + IntToStr(baris);
StringGrid1.Cells[1,baris-1] := UpperCase(Edit1.Text);
StringGrid1.Cells[2,baris-1] := UpperCase(Edit2.Text);
StringGrid1.Cells[3,baris-1] := Edit3.Text;
StringGrid1.Cells[4,baris-1] := Edit4.Text;
myRect.Left := 0;
myRect.Top := baris-1;
myRect.Right := 4;
myRect.Bottom := baris-1;
StringGrid1.Selection := myRect;
Edit1.Text := '';
Edit2.Text := '';
Edit3.Text := '';
Edit4.Text := '';
end;
procedure TForm1.FormCreate(Sender: TObject);
var
F : TextFile;
FileHandle : Integer;
HighOrderSize : ^DWORD;
LowOrderSize : DWORD;
baris : Integer;
data : String;
status : Boolean;
begin
Button1.Enabled := False;
Button2.Enabled := False;
Status := False;
If FileExists('data.ret') = True Then
begin
FileHandle := 0;
Try
FileHandle := FileOpen('data.ret',fmOpenRead);
If (FileHandle = -1) Then
begin
ShowMessage('Gagal membuka File');
Exit;
end;
HighOrderSize := Nil;
LowOrderSize := GetFileSize(FileHandle, HighOrderSize);
If (LowOrderSize = INVALID_FILE_SIZE) Then
ShowMessage('Gagal mendapatkan ukuran file')
Else
If (LowOrderSize > 0) Then
begin
Form1.Height := 510;
Panel3.Visible := True;
Panel3.Enabled := True;
Status := True;
end
Else
begin
Form1.Height := 270;
Panel3.Enabled := False;
Panel3.Visible := False;
end;
Finally
FileClose(FileHandle);
End;
if (Status = True) then
begin
AssignFile(F, 'data.ret');
Reset(F);
baris := 1;
while Not EOF(F) do
begin
StringGrid1.RowCount := baris;
if (baris < 10) then
StringGrid1.Cells[0,baris-1] := ' ' + IntToStr(baris)
else
if ((baris >= 10) and (baris < 99)) then
StringGrid1.Cells[0,baris-1] := ' ' + IntToStr(baris)
else
StringGrid1.Cells[0,baris-1] := ' ' + IntToStr(baris);
readln(F, data);
StringGrid1.Cells[1,baris-1] := data;
readln(F, data);
StringGrid1.Cells[2,baris-1] := data;
readln(F, data);
StringGrid1.Cells[3,baris-1] := data;
readln(F, data);
StringGrid1.Cells[4,baris-1] := data;
baris := baris + 1;
end;
CloseFile(F);
end;
end
else
begin
Form1.Height := 270;
Panel3.Enabled := False;
Panel3.Visible := False;
AssignFile(F, 'data.ret');
ReWrite(F);
CloseFile(F);
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
F : TextFile;
i : Integer;
begin
If (StringGrid1.Cells[0,0] <> '') Then
begin
AssignFile(F, 'data.ret');
ReWrite(F);
for i := 1 to StringGrid1.RowCount do
begin
Writeln (F, StringGrid1.Cells[1,i-1]);
Writeln (F, StringGrid1.Cells[2,i-1]);
Writeln (F, StringGrid1.Cells[3,i-1]);
Writeln (F, StringGrid1.Cells[4,i-1]);
end;
CloseFile(F);
end;
Form1.Close;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text := '';
Edit2.Text := '';
Edit3.Text := '';
Edit4.Text := '';
Edit1.SetFocus;
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
If ((Edit1.Text <> '') and (Edit2.Text <> '') and (Edit3.Text <> '') and (Edit4.Text <> '')) Then
Button1.Enabled := True
Else
Button1.Enabled := False;
If ((Edit1.Text <> '') or (Edit2.Text <> '') or (Edit3.Text <> '') or (Edit4.Text <> '')) Then
Button2.Enabled := True
Else
Button2.Enabled := False;
end;
procedure TForm1.Edit4Change(Sender: TObject);
begin
If ((Edit1.Text <> '') and (Edit2.Text <> '') and (Edit3.Text <> '') and (Edit4.Text <> '')) Then
Button1.Enabled := True
Else
Button1.Enabled := False;
If ((Edit1.Text <> '') or (Edit2.Text <> '') or (Edit3.Text <> '') or (Edit4.Text <> '')) Then
Button2.Enabled := True
Else
Button2.Enabled := False;
end;
procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
If Not (((Key >= #48) and (Key <= #57)) or (Key = #8)) Then
Key := #0;
end;
end.

waaahh panjang yaaa... Begitulah salah satu program delphi untuk menyimpan data dari delphi ke file TXT.
Cukup sekian yaahh postingan kali ini.. trima kasih..

           Tadi pagi saya Kuliah Matakuliah AI yang mungkin bagi saya itu merupakan matakuliah yang lumayan sulit. Nah tadi di berilah soal dengan dosen matakuliah AI sebelum keluar dari ruangan.
Soalnya begini.:

        Sebuah perusahaan Handicraft akan memperoduksi suatu kerajinan tangan. Tenaga kerja yang digunakan untuk produksi sangat tergantung pada jumlah orderan dan waktu. Dari data diketahui, jumlah orderan berkisar antara 500 s/d 3000, biasanya pesanan berkisar antara 1500 s/d 2000, sedangkan waktu selesai pengerjaan yang dibutuhkan berkisar antara 3 s/d 20 hari. Dengan segala keterbatasan , perusahaan itu mampu melibatkan paling banyak 12 orang pekerja dalam pengerjaan orderannya. saat ini perusahaan sudah memiliki 2 karyawan tetap.
     
             * Berapakah Jumlah tenaga kerja yang akan melibatkan jika perusahaan menerima orderan 2300 barang dalam waktu 14 hari pengerjaan . Berikut aturan Fuzzy yang digunakan.

     [R1] If Order Sedikit and Waktuselesai Lama Then Pekerja Sedikit
     [R2] If Order Sedikit and Waktukerja Cepat Then Pekerja Sedikit
     [R3] If Order Banyakt and Waktukerja Lama Then Pekerja Banyak
     [R4] If Order Banyak and Waktukerja Cepat Then Pekerja Banyakt
     [R5] If Order Normal and Waktukerja Cepat Then Pekerja Banyak
     [R6] If Order Normal and Waktukerja Lama Then Pekerja Sedikit


   Nah, begitulah soalnya... Soalnya saja kalau kita lihat sepintas cukup rumit bagi yang belum tahu, apalagi soal ini kita jadikan Program yang jadi atau siap pakai,,  waaaaaah pasti bingung..

     Bagi yang mau jawaban dari soal ini , tinggalkan pesan berupa komentar saja.. beri Email anda di komentar..
Terima Kasih atas kunjungan anda..

       Untuk Sobat semua yang ingin mencari tugas Integrasi Sistem Menggunakan Delphi 7, saat ini saya tidak menyediakan karna belum sempat memposting, tapi saya akan membahas menggunakan Visual Basic 6 yang menurut saya lebih mudah.
Tugas ini sebagai bahan harian dalam matakuliah Integrasi Sistem dalam perangkat lunak.
Yaitu Membuat sebuah aplikasi yang diberi penambahan button Update dan Delete.............

           Nah mari kita membahas ke detai programnya dengan visual basic .... OK.
Untuk anda yang ingin Membuat file baru atau data baru dengan file berbentuk TXT, maka bisa anda dapatkan program na di sini  http://rita-susanti.blogspot.com/2012/03/cara-membuat-file-txt-dengan-vb-6.html

Bagi anda yang ingin membuat Simpan data bisa di dapat disini http://rita-susanti.blogspot.com/2012/03/contoh-program-menambah-isi-file-txt.html

Bagi Anda yang ingin mencari sebuah file data TXT bisa dilihat disini http://rita-susanti.blogspot.com/2012/03/program-membaca-isi-file-txt-dengan-vb.html

Nah itulah tugas dari integrasi sistem..
cukup sekian postingan kali ini, Terima Kasih. atas kunjungan Anda.