Buku digital

Buku digital

Ilmu komputer     07.45   2 comments

Assalamualiakum

Wahai sahabat disini saya membuat buku degital
yang isinya itu tentang saya dan sahabat semua, juga puisi dari sahabat
jika sahabat berminat mau membuat buku mau pun album photo digital dll...
silahkan douwnload contohnya dilink bawah ini

kapasitas cuma 5Mb kok jika ingin mendouwnload klik Disini

contoh gambar

jika suka silahkan hubungi no yang ada di identitas tersebut. 
saya senang bisa berbagi pengalaman dengan kalian
Dibaca yaa.. . . semoga termotifasi aminnnn. . . heheh

Contoh Flowchart Pascal

Contoh Flowchart Pascal

Ilmu komputer     22.18   No comments

Dari soal tersebut terdapat dua kondisi yang mungkin terjadi :

1. Nilai = atau > dari 75

2. Nilai < dari 75

Karena dari soal tersebut diatas ada dua kondisi, maka statemen if yang digunakan maka bagian Else akan mengikuti stateman if yang digunakan.

Procedure pascal

program mencari_kuadrat;

uses crt;

var a:integer;

begin

        clrscr;

        write ('Masukkan Nilai = ');

        readln(a);

        if a >= 75 then

                write('LULUS')

        else

                write('TIDAK LULUS');

        readln;

end.

 

Cara menghapus Folder pada w7 yang tidak bisa dihapus

Cara menghapus Folder pada w7 yang tidak bisa dihapus

Ilmu komputer     20.50   No comments

Menggunakan komputer/laptop terkadang atau bahkan sering sekali mengalami masalah yang membuat kita tidak nyaman untuk menggunakannya.Bagi para user baru seperti saya misalnya,kadang hal yang mudah dilakukan bisa membuat kita berfikir,yah namanya juga tidak tau sama sekali.Misalkan saja kita sering coba-coba software baru,nah secara otomatis jika kita menginstall suatu software maka akan ada file dan folder baru dari software tersebut pada Explorer kita.Setelah kita bosan dan merasa sudah tidak membutuhkan software tersebut kemudian kitahapus atau uninstall melalui file uninstall.exe yang berada dalam folder software tersebut.Namun terkadang masih ada file atau folder tersebut tidak bisa di di hapus secara tuntas tentu kita akan merasa kesal sekali bukan?

Nah untuk mengatasi hal tersebut,ada beberapa cara,ada yang pakai software tambahan untuk membantunya,ada juga yang tanpa software.Kali ini saya mencoba untuk yang tanpa softaware,berikut langkah-langkahnya,

.Misalkan folder yang ingin saya hapus malah muncul seperti gambar di bawah ini,

2.Klik kanan lalu pilih properties

3.Nanti akan muncul halaman baru seperti gambar di bawah,kemudian klik General-Advanced
 

4.Pada tab Advanced Atributes hilangkan tanda Allow files in this folder to have contents indexed in addition to file properties seperti gambar di bawah lalu klik Ok kemudian Apply

5.Maka nanti akan muncul pemberitahuan Confirm Attribute-Aplply changes to this folder only atau pilih semua Apply changes to this folder,subfolders and files(kalau saya pilih yang atas)

Selesai,sekarang ulangi menghapus folder atau file tersebut.Semoga bermanfaat

Kongruen Linier

Kongruen Linier

Ilmu komputer     19.58   No comments

Program LInier menggunakan borlan delphi7

Rumus  Kongruen Linier : Zi+1= (a . Zi + c) mod m

bilangan random yang dihasilkan = Z1, Z2, Z3, Z4, …...

Metode ini banyak digunakan di dalam program komputer,

ketentuan untuk memilih Z0, a, c, dan m sama dengan

metode Multiplicative.

unit UKongLinier;


interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    Button1: TButton;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    ListBox1: TListBox;
    Label6: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var a,b,z0,m,i,n,hasil,z:integer;
begin
ListBox1.Items.Clear;
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
z0:=StrToInt(Edit3.Text);
m:=StrToInt(Edit4.Text);
n:=StrToInt(Edit5.Text);
for i:=1 to n do
//for z:=1 to 4 do
begin
z0:=(a*z0+b) mod m;
hasil:=z0;
ListBox1.Items.Add(IntToStr(hasil));
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
ListBox1.Items.Clear;
edit1.SetFocus;
end;

end.