Hati yang tak sampai

Jika hati mu bukan untuk ku bicaralah , biar semua jelas dan tak ada yang ditutupi satu sama lain.hati memang tidak bisa dipaksakan , biarlah hati itu mencari hati yang bersedia menerimanya dengan tulus bukan dengan pura-pura ,Tak perlu banyak janji tapi , bukti yang akurat , bukan pula pura-pura memberikan bukti palsu yang dibutuhkan bukti nyata yang akurat dan tulus dari dalam hati .Tak perlu pula bilang "Mempertahankan , dan di pertahankan" ,jika hati mu bukan untuk nya..Jika ada persoalan jangan pernah bilang "tidak usah dipermasalahkan",...

Read More

Membuat List dengan Pascal

Program JUmlah_Dua_Integer;Uses Crt;Const Max = 80;Type Str80 = string[Max];     Simpul = ^Data;     Data   = rECORD                 Info  : Char;                 Kiri,Kanan  : Simpul              End;Var Bilangan1,    Bilangan2,    Bilangan3...

Read More

Membuat Balik Kata dengan Pascal

Program BALIK_KALIMAT;Uses crt;Const Elemen      = 255;Type S255         = String[Elemen];     Tumpukan     = record                          Isi   :S255;                          Atas ...

Read More

Membuat Antrian dengan Pascal

Program ILUSTRASI_ANTRIAN; uses crt; const Max_Elemen = 10; type Antri = array[1..Max_Elemen] of char; Var Antrian      : Antri;     Depan,     Belakang,     pilih        : integer;     Elemen       : char; { Prosedur untuk menggambar kotak antrian } procedure KOTAK; var I : integer; Begin   gotoxy(20,15);   for I := 1 to Max_Elemen*4 + 1 do write('-');   gotoxy(20,16);  ...

Read More

Perbedaan Pengembang Sisten dengan Pendekatan Sistem

1. Pengertian Pengembangan Sistem. Pengembangan Sistem adalah menyusun suatu sistem yang baru untuk menggantikan sistem yang lama secara keseluruhan atau memperbaiki kekurangan/kelemahan sistem yang ada. Mengapa perlu mengembangkan Sistem?-  Adanya permasalahan.a. Adanya ketidakberesan.b. Pertumbuhan Organisasi.- Untuk meraih kesempatan-kesempatan.- Adanya instruksi (pimpinan/pemerintahan). Harapan dari Sistem yang telah dikembangkan (Sistem...

Read More

membuat wajah versi 2 dengan php

<? header("Content-type:image/png"); //membuat canvas berukuran 300 x 300 pixel $image= imagecreate(500,500); imagecolorallocate($image,0,255,0); $ungu = imagecolorallocate($image,128,0,128); imagefilledarc($image,60,160,10,10,0,360,$ungu, IMG_ARC_PIE); imagearc($image,60,160,20,20,0,360,$ungu); imagefilledarc($image,140,160,10,10,0,360,$ungu,IMG_ARC_PIE); imagearc($image,140,160,20,20,0,360,$ungu); imagearc($image,100,200,180,250,0,360,$ungu); imagearc($image,...

Read More

membuat wajah dengan php

<?php header("content-type:image/png"); $image=imagecreate(500,300); imagecolorallocate($image,0,128,0); $merah=imagecolorallocate($image,255,0,0); $putih =imagecolorallocate($image,225,225,225); $hitam = imagecolorallocate($image, 0,0,0); imagefilledellipse ($image,250,100,120,150,$putih); imagefilledellipse ($image,225,80,20,25,$hitam); imagefilledellipse ($image,275,80,20,25,$hitam); imagearc($image,250,130,60,30,0,180,$merah); $value=array( 250,80,//titik...

Read More