Makalah Biologi tentang Tumbuhan Mangrove dan Tanaman Hias

    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..