Jumat, 14 Maret 2014

template lucu

Diposting oleh Unknown di 01.21 0 komentar

hallo semuaaa aku mau bagiin template gratis loh yang dijamin pasti lucu . gak mungkin jelek . jadi jangan khawatir untuk mendownload karena udah aku pilih-pilih template yang terbaik lho .


download template lucu




udah segitu aja yaa , post nya memang dikit banget tapi berharga lohhh . dont miss it guyss




Kamis, 06 Maret 2014

simple present tense

Diposting oleh Unknown di 03.42 0 komentar
Materi pertama belajar grammar tenses bahasa inggris yaitu The Simple Present Tense. The Simple Present Tense adalah tenses yang puaaaling banyak digunakan, dan karena paling banyak maka pembahasannya juga akan lebih panjang.
Arti simple yaitu sederhana, sedangkan present adalah sekarang. Jadi bisa dikatakan bahwa Simple Present adalah tenses (pola kalimat) yang digunakan untuk menceritakan waktu sekarang dalam bentuk sederhana. Nama lain daripada Present adalah BENTUK 1.

Contoh-Contoh Kalimat Simple Present Tense

Jadi kapanpun Anda melihat kata present dalam tenses apapun, bisa dipastikan bahwa dia menggunakan bentuk 1 – bentuk apa? ya bentuk verb, karena semua predicate itu wajib verb bukan, coba lihat posting awal grammar basic ini. Coba liat contoh-contoh kalimat dengan Simple Present tense dibawah ini
TOBE
I am a teacher
You are a teacher
We are teachers
They are teachers
He is a teacher
She is a teacher
It is my cat
Kalau Anda mengamati, maka kalimat diatas semuanya mengggunakan PREDICATE-1 atau predikat dalam bentuk 1, lihat saja tobe nya tidak lepas dari AM – IS – ARE. Contoh diatas adalah The simple present tense dalam bentuk nominal, karena semua kalimatnya menggunakan tobe-1
Apakah ada bentuk lainnya? Ada, yaitu The Simple Present Tense dalam bentuk VERBAL. Yaitu yang tidak memiliki tobe tapi memiliki verb. Nanti akan di terangkan. Untuk saat ini cukup kita simpulkan bahwa ada 2 (dua) jenis Simple Present yaitu
1. Nominal Simple Present
2. Verbal Simple Present

Untuk mengubah kalimat NOMINAL SIMPLE PRESENT kedalam bentuk negative (menyangkal) ataupun interrogative (bertanya) sangatlah mudah, amati
(+) You are a teacher
(- ) You are NOT a teacher
(? ) Are you a teacher?
Okey, silahkan Anda pahami dan tugas Anda sekarang adalah buatlah minimal 10 kalimat dengan menggunakan Nominal Simple Present ini.
Sekarang kita lanjutkan pada pola kalimat VERBAL SIMPLE PRESENT – yaitu simple present yang tidak menggunakan tobe, tetapi VERB1 sebagai predicate1 nya.. Amati contoh berikut
Subjective
Pronouns Example
I I work
You You work
We We work
They They work
He He works
She She works
It It works
Lihat, untuk awalan HE, SHE, IT .. verb nya menggunakan _s. Amati kembali contoh berikut
He runs every morning
She teaches English
John has an English books
Untuk kata kerja yang berakhiran bunyi DESIS (hissing sounds – x, ch, s, sh), kita menggunakan akhira _es. sehingga menjadi : teaches, mixes, washes, kisses .. dsb.
Exercise 1 :
read – John reads in the morning
1. read
2. sing
3. study
4. work
5. arrive
6. leave
7. practice
8. write
9. watch
10. finish
11. mix
12. pass
13. go
14. have
15. pray
Answer keys :
3. John studies
9. John watches
10 John finishes
11. John mixes
12. John passes
13. John goes
14. John have(s) -> John has
15. John prays
Amati kembali contoh kalimat ini :
3. (study) -> John studies
15. (pray) ->John prays
Untuk verb study – sebelum huruf Y adalah huruf konsonan D, itulah sebabnya menjadi STUDIES
Untuk verb pray – sebelum huruf Y adalah huruf vokal A, itulah sebabnya tetap PRAYS
Exercise 2 : Yang mana HAVE dan HAS
We -> We HAVE coffee in the morning
He -> He HAS coffee in the morning
1. he
2 John and Mary
3. they
4. Mr. Allen
5. she
6. Mary
7. the students
8. my brothers
9. my brother
10. You and I
11. he and she
12. Mary’s sister
13. Mary’s sisters
14. the teacher
15. people
Dalam belajar Grammar tidak boleh terputus. Tentunya Anda sudah tahu bahwa ada 3 kelompok Tenses yaitu Present Tense, Past Tense dan Future Tense setiap kelompok masing-masing memiliki 4 tenses. Dimana untuk setiap tenses nya ada yang memiliki tipe Verbal dan Nominal.
Sampai sini berhenti dulu ..jangan lanjut baca kecuali Anda yakin paham, hehe. Okey lanjut lagi, untuk Simple Present tense memiliki tipe Nominal atau yang predicate nya Tobe1 serta Verbal yang predicatenya Verb1. Masih paham dong, okey kita lanjut lagi. Untuk Nominal Simple Present, Anda sudah sangat memahami bagaimana menggunakan Tobe untuk setiap subjective pronounsnya, sedangkan untuk Verbal Simple Present – semua yang diawali dengan He, She, It maka verb nya mendapatkan tambahan +S sbb.
I write
You write
We write
They write
He writes
She writes
It writes
Begitupun pada kata kerja HAVE seperti He Have(s) mendapatkan tambahan (s) – sehingga kalimat tersebut menjadi HE HAS.
Perubahan Kalimat Negative dan Interrogative
I
You DON’T (do not) GO
We
They
contoh : I don’t go, You don’t go, We don’t go, They don’t go. Selanjutnya amati sbb.
He
She DOESN’T (does not) GO
It
Amati, pada kalimat negative/interrogative yang berawalan He, She, It kata kerja nya (verb) nya kembali normal TIDAK MENGGUNAKAN +S lagi karena sudah ada DOES.
(+) You write
(-) You DON’T write
(?) DO you write?
(+) He writes
(-) He DOESN’T write
(?) Does he write?
Amati contoh lain
(+) You have a book
(-) You DON’T have a book
(?) DO you have a book?
(+) He has a book
(-) He DOESN’T have a book
(?) DOES he have a book?
Exercise 1 : Ubahlah kedalam kalimat (-) dan (?)
1. You have a car
2. My sister has a car
3. My sisters have a car
4. You and I learn English
5. John and Bill sing
6. The cat drinks
7. Joe has breakfast
8. Our brother teaches
9. Our brothers work
10. John’s sisters have a car

Answer Key : (jangan diliat dulu kunci jawaban ini)

My sister has a car
My sister doesn’t have a car
does my sister have a car?
My sisters have a car
My sisters don’t have a car
do my sisters have a car?
The cat drinks
The cat doesn’t drink
does the cat drink?
Joe has breakfast
Joe doesn’t have breakfast
does Joe have breakfast?
Our brother teaches
Our brother doesn’t teach
does our brother teach?
John’s sisters have a car
John’s sisters don’t have a car
do John’s sisters have a car?
Amati benar-benar, dan pastikan bahwa Anda memahami dan mampu mengatasi latihan Grammar ini dengan mudah. Yah begitulah resiko belajar Grammar, sing sabar …

Fungsi atau Penggunaan Tenses The Simple Present Tense

1. Menyatakan Fakta (expressing facts)
Mudahnya begini saja, coba sekarang Anda buat sedikit tulisan tentang Danau Toba, dimana Anda paparkan Danau Toba itu bagaimana dsb. Tulisan Anda disitu hampir 100% menggunakan tenses ini. Karena Anda memaparkan suatu fakta. Nah dibawah ini ada tulisan singkat
Belajaringgris.net adalah sebuah kursus bahasa Inggris online dengan sistim Full Conversation Tanpa Grammar. Ada 2 (dua) jenis website utama yaitu bahasainggris.co dimana semua materi diberikan secara gratis, ada juga yang berbayar yaitu www.belajaringgris.net.
Nah kalau Anda amati tulisan diatas, semuanya menggunakan Simple Present tense karena hanya menceritakan fakta yang tidak akan berubah dari masa lalu, ke masa sekarang, sampai masa yang akan datang. Tapi kalau artikel diatas saya lanjutkan seperti ini
Belajaringgris.net dalam waktu dekat akan meluncurkan kursus berbayar untuk Level II dimana yang dibentuk adalah kemampuan productive. Minggu lalu salah seorang peserta kursus berbayar dari Saudi Arab.
Lihat kata akan disini bukan lagi wilayah Simple Present tense karena membicarakan masa yang akan datang.Begitu pula pada bagian kalimat minggu lalu
2. Menyatakan kebiasaan (expressing habits)
Untuk yang ini Anda pasti akrab juga karena di sekolah sejak SMP sampai SMA fungsi Simple Present tidak lepas dari expressing habits, contoh mudah amati artikel ini
“Banyak orang berkunjung setiap hari nya di kursus bahasa inggris belajaringgris.net Jika saya amati, mereka selalu membaca artikel ‘kamus bahasa inggris untuk hp’ sebelum membaca artikel lainnya. Itulah sebabnya saya selalu mengupdate materi belajaringgris.net setiap harinya. Dismping kategori utama yaitu MATERI KURSUS saya juga selalu mengupdate kategori GRAMMAR, dan kadang-kadang saya menulis di kategori ARTIKEL”
Artikel singkat diatas menggunakan Simple Present tense, karena menyatakan kebiasaan. Karena itu biasanya menggunakan yang disebut dengan Adverbs of Frequency sbb.
Adverbs of Frequency
always selalu
usually biasanya
often seringkali
sometimes kadang2
seldom jarang
never tidak pernah
ever pernah
Apakah pasti? …Anda ingat baik-baik “Bicara BAHASA TIDAK ADA YANG PASTI”. Karena itu enjoy aja lah
3. Menyatakan masa yang akan datang
Lho?? ..emang iya, itulah sebabnya sudah saya katakan sejak dini bahwa Anda tidak perlu tegang dalam belajar bahasa inggris, karena memang tidak ada yang pasti. Amati dialog ini
Romli besok kita ke pantai yuk mpok
Juleha jam berapa bang?
Romli jam 7:00 pagi aje
Juleha waduh, besok aye pergi ke sekolah
Nah liat kalimat yang bercetak miring? kalimat itu menggunakan Simple Present Tense walaupun ada kata BESOK. Simple Present boleh digunakan untukmenceritakan peristiwa yang akan terjadi dengan syarat bahwa ‘peristiwa itu terjadi secara rutin’ dalam kasus Juleha contohnya, dia memang ke sekolah tiap jam 7:00 pagi, dari awal Februari, Maret sampai minggu kemaren, sampai hari Kamis kemarin juga jam 7:00 makanya boleh saja dia mengatakan BESOK ..tetap menggunakan Simple Present
4. Menyatakan masa lalu
Haduh?…inilah fakta bahwa Bahasa Inggris itu memang seenak wudel nya. Simple Present bisa digunakan untuk menceritakan masa yang akan datang, eh ..ga taunya juga bisa dipake untuk menceritakan masa lalu. Terus buat apa rumus? …ya ga tau?? ..siapa yang doyan rumus-rumusan?? yeee … :P
Juleha bang, aye semalem kaga bisa tidur?
Romli kenape mpok?
Juleha aye lihat pocong tapi aneh banget
Romli aneh kenape mpok?
Juleha tuh pocong sih laki2, tapi pake gincu!!
Pada dialog diatas Juleha boleh saja menggunakan Simple Present. Tenses ini boleh digunakan untuk menceritakan peristiwa yang sudah berlalu dengan syarat untuk men DRAMATISIR
5. Menceritakan sesuatu yang sedang terjadi
Aduh?? aya-aya wae. Makanya dari awal sudah saya tekankan, buang jauh-jauh mitos yang membelenggu diri kita bahwa untuk menguasai Bahasa Inggris harus kuasai Grammar dulu. Walah, sampe botak ga bakal kelar yang namanya Grammar. Coba lihat neh seorang komentator tengah menceritakan peristiwa yang sedang terjadi
Zidane menggiring bola, bola lalu dioper kepada Zico. Zico menendang nya kembali kepada Zidane, sekarang zidane menendangnya kembali ke Zico, ga kelar-kelar neh penonton, paye ..
Nah komentator tersebut menggunakan Simple Present, karena peristiwanya berlangsung sangat cepat dan singkat.
Kalau sudah begini untuk apa lagi Anda merasa TAKUT SALAH saat berbicara, atau saat menulis. Hajar aja dulu, karena tujuan yang paling penting di awal perjalanan bukanlah kesempurnaan grammar, mana ada grammar yang sempurna? orang bule aja ga karuan grammar nya. Yang paling penting adalah MEMBENTUK SKILL berbahasa yaitu Listening, Speaking, Reading serta Writing.
Okey?? masih perlukah belajar grammar? ya masih untuk pembentukan writing skill di akhir perjalanan. Berakhirlah sudah Lesson 2 dari 30 lesson yang harus Anda kuasai dalam belajar Grammar
Pastikan Anda sudah mengerjakan latihan Simple Present tense bahasa inggris diatas. Jika mengalami kesulitan dalam arti kata gunakan kamus bahasa inggris online

Membuat Antivirus Sederhana dengan Delphi 7

Diposting oleh Unknown di 03.37 0 komentar

Antivirus merupakan sebuah aplikasi yang mana berguna untuk memblokir, mengkarantina, atau menghapus program jahat berupa virus ataupun worm. Prinsip kerja dari antivirus ada mendeteksi dengan cara membaca isi tubuh dari program (scan) dan mendaftarkan isinya disesuaikan dengan database yang telah di daftarkan, sehingga jika ada program atau aplikasi yang telah sesuai dengan database yang ada di antivirus itu maka program tersebut bisa dikatakan virus atau worm, jika tidak maka ia bukan virus atau worm .


Pertama-tama Anda buat New Project dahulu di Delphi 7 Anda, kemudian ganti nama (rename) Form1, menjadi FormUtama dan save dengan nama form_utama.pas.

001interface
002 
003uses
004  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
005  Dialogs, StdCtrls,Utility_AV, ComCtrls, Menus;
006 
007type
008  TFormUtama = class(TForm)
009    GroupBox1: TGroupBox;
010    rb_scan1: TRadioButton;
011    rb_scan2: TRadioButton;
012    edt_folder: TEdit;
013    edt_cari: TButton;
014    GroupBox2: TGroupBox;
015    lbl_jumlahfile: TLabel;
016    lbl_virus: TLabel;
017    mm_status: TMemo;
018    btn_scan: TButton;
019    btn_tentang: TButton;
020    btn_keluar: TButton;
021    ck_scansubdir: TCheckBox;
022    GroupBox3: TGroupBox;
023    lv_virlist: TListView;
024    btn_delvir: TButton;
025    btn_cls: TButton;
026    lbl_waktu: TLabel;
027    Label1: TLabel;
028 
029    procedure btn_tentangClick(Sender: TObject);
030    procedure FormCreate(Sender: TObject);
031    procedure btn_keluarClick(Sender: TObject);
032    procedure btn_scanClick(Sender: TObject);
033    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
034    procedure edt_cariClick(Sender: TObject);
035    procedure rb_scan2Click(Sender: TObject);
036    procedure btn_clsClick(Sender: TObject);
037    procedure btn_delvirClick(Sender: TObject);
038  private
039    { Private declarations }
040    Procedure ScanVirus(Semua:Boolean);
041    Procedure SaatScanFile (Path:String);
042    Procedure TambahList (NamaVirus,Path:String);
043  public
044    { Public declarations }
045  end;
046 
047 
048 
049var
050  FormUtama: TFormUtama;
051  SedangDiScan:Boolean;
052  rStartTime : Integer;
053  C          : Integer;
054   
055Const
056 DBaseCRC32Virus : Array [0..2] of String = ('DD7A0BA8','7A014FFF','BDB819EB');
057 DBaseNamaVirus  : Array [0..2] of String = ('CodeRed','Moondlight.D','FluBurung');
058 MAX_SCAN        : Int64  = 10 * 1024 * 1024; // Maksimal Scan 10 MB,
059                                          //  Karena biasanya virus tidak lebih dari 10 MB
060implementation
061 
062{$R *.dfm}
063{$R WindowsXP.res} //Aktifkan Theme WinXP
064 
065 
066 
067function CekUkuranFile(const FileName: string): Int64;
068var
069  SearchRec: TSearchRec;
070begin
071  Result := -1; //-- assume worst cas
072  if FindFirst(FileName, faAnyFile, SearchRec) = 0 then
073  begin
074    Int64Rec(Result).Lo := SearchRec.FindData.nFileSizeLow;
075    Int64Rec(Result).Hi := SearchRec.FindData.nFileSizeHigh;
076    FindClose(SearchRec);
077  end;
078end;
079 
080Procedure TFormUtama.TambahList (NamaVirus,Path:String);
081Var
082  lvi       : TListItem;
083Begin
084 
085   //Cek Apakah ada list yang sama ... ?
086   lvi := lv_virList.FindCaption(0,Path, false, true, false);
087   while Assigned(lvi) do
088   begin
089     if Lowercase(lvi.SubItems[1]) = Lowercase(Path) then exit; //Sudah ada di list, keluar
090     lvi := lv_virList.FindCaption(lvi.Index, Path, false, false, false);
091    end;
092 
093  //List tidak ada yang sama, tambahkan list...
094  lvi := lv_virList.Items.Add;
095  lvi.Caption := NamaVirus;
096  lvi.SubItems.Add(Path);
097  lbl_virus.Caption := 'Jumlah virus ditemukan : ' + IntToStr(Lv_VirList.Items.Count);
098End;
099 
100 
101 
102Procedure TFormUtama.SaatScanFile (Path:String);
103Var
104 CRC32       : Cardinal;
105 TB          : Int64;
106 Err         : Word;
107 CRC32Str    : String; //CRC32 hasil string
108 i           : Integer;
109 ElapsedTime : String;
110Begin
111 
112 ElapsedTime := Format('%.1f', [0.001*(GetTickCount-rStartTime)]);
113 
114 Application.ProcessMessages; // Terima semua masukan dari program
115 IF (CekUkuranFile(Path) <= MAX_SCAN) Then Begin // Maksimal Scan.. Tidak Lebih dari 10 MB
116   HitungFileCRC32 ( Path, CRC32, TB, Err );
117   CRC32Str := IntToHex(Crc32,8);  // Hasil CRC32 desimal di konverisi menjadi Heksadesimal
118    For i:=Low(DBaseCRC32Virus) to High(DBaseCRC32Virus) do
119      // Jika Hasil CRC32 sama dengan Database Virus, Tidak diragukan lagi maka itu virus
120      if (CRC32Str = DBaseCRC32Virus[i]) then TambahList(DBaseNamaVirus[i],Path);
121 End;
122 
123 Inc(C);
124 lbl_jumlahfile.Caption := 'Jumlah file : ' + IntToStr(C);
125 lbl_waktu.Caption      := 'Waktu tempuh : ' + ElapsedTime;
126 mm_status.Lines.Text := Path; // Status scannya;
127End;
128 
129procedure TFormUtama.btn_tentangClick(Sender: TObject);
130begin
131 MsgBox(Handle,'Tentang Program',
132        'Gue Antivirus (GAV) ' + #13#10 +
133        'Diprogramkan oleh Ali' + #13#10#13#10 +
134        'Web-Site : http://www.geocities.com/alisoftprg' + #13#10 +
135        'E-Mail : ali.programmer@telkom.net' + #13#10#13#10 +
136        'Copyright © Ali Software - Delphi Source Code. All Rights Reserved.',
137        Information);
138end;
139 
140procedure TFormUtama.FormCreate(Sender: TObject);
141begin
142 SedangDiScan := False;
143end;
144 
145procedure TFormUtama.btn_keluarClick(Sender: TObject);
146begin
147 
148 If SedangDiScan Then
149  If MsgBox(Handle,'Keluar Program',
150           'Apakah Anda ingin keluar saat program sedang mencari virus ?',
151           Question + YesNo) = No Then Exit;
152 
153 Halt(0);     // Keluar Program (dengan paksaan, jika terjadi error)
154end;
155 
156Procedure TFormUtama.ScanVirus(Semua:Boolean);
157Var
158 CallBack :TOnCariFile;
159 Drives:Array of String;
160 i,L:Integer;
161Begin
162 
163    CallBack := SaatScanFile;    //  Hasil scan di kembalikan ke procedure lain
164 
165  If Not Semua Then
166   Begin
167     If (edt_folder.Text = '') then Begin
168       Msgbox(Handle,'Error','Tentukan dulu Folder atau Drive-nya',Critical);
169       exit;
170     End;
171    CariFile(edt_folder.Text,ck_scansubdir.Checked,'*.*',CallBack);
172   End
173   Else Begin
174    For i:=Ord('A') to Ord('Z') do
175      Case GetDriveType(Pchar(Chr(i) + ':\')) of
176         DRIVE_UNKNOWN:;
177         DRIVE_NO_ROOT_DIR:;
178      Else
179       Begin
180        L:=Length(Drives)+1;
181        SetLength(Drives,L);
182        Drives[L-1]:=Chr(i) + ':\';
183       End;
184      End;
185 
186    For i:=Low(Drives) to High(Drives) do
187    Begin
188     If DriveSiap(Drives[i]) Then
189       CariFile(Drives[i],ck_scansubdir.Checked,'*.*',CallBack);
190    End;
191 
192  End;
193 
194End;
195 
196procedure TFormUtama.btn_scanClick(Sender: TObject);
197Label Scan,Berhenti;
198begin
199 
200  If Not SedangDiScan Then
201    Goto Scan
202  Else
203    Goto BerHenti;
204 
205  Exit;
206 
207Scan: Begin
208  BerhentiMencari := False;     // Agar bisa di scan
209  {Mulai men-scan file...}
210  rStartTime := GetTickCount;
211  C          := 0;
212  try
213   SedangDiScan := True;
214   btn_scan.Caption := '&Berhenti..';
215   ScanVirus ( rb_scan1.Checked )   ; //......
216  Finally
217    btn_scan.Caption := '&Scan';
218   SedangDiScan := False;
219  End;
220End;
221 
222Exit;
223Berhenti:Begin
224   If MsgBox(Handle,'Scan Virus',
225           'Apakah Anda ingin menghentikan proses scan virus ?',
226           Question + YesNo) = Yes Then
227    BerhentiMencari := True;
228End;
229 
230end;
231 
232procedure TFormUtama.FormCloseQuery(Sender: TObject;
233  var CanClose: Boolean);
234begin
235 btn_keluarClick(Sender);
236end;
237 
238procedure TFormUtama.edt_cariClick(Sender: TObject);
239Var Dir:String;
240begin
241 Try
242  Dir := BrowseDialog(Handle,'Cari Folder / Drive');
243 Finally
244  If (Dir <> '') then
245   edt_folder.Text := Dir;
246 End;
247end;
248 
249 
250procedure TFormUtama.rb_scan2Click(Sender: TObject);
251begin
252 edt_folder.Enabled := rb_scan2.Checked ;
253 edt_cari.Enabled   := rb_scan2.Checked;
254end;
255 
256procedure TFormUtama.btn_clsClick(Sender: TObject);
257begin
258 If (Lv_VirList.Items.Count < 1) then Exit;
259 If MsgBox(Handle,'Bersihkan List',
260           'Apakah Anda ingin membersihkan list (tanpa menghapus virus) ?',
261           Question + YesNo) = Yes Then
262   lv_virlist.Items.Clear;         
263end;
264 
265procedure TFormUtama.btn_delvirClick(Sender: TObject);
266Var i:Integer;
267    Ada, Bisa:Boolean;
268begin
269   Ada := False;
270   For i:=0 to Lv_VirList.Items.Count -1 do
271    If Lv_VirList.Items[i].Checked then begin
272     Ada := True;
273     Break;
274    End;
275   If Not Ada Then
276    If Msgbox(Handle,'Perhatian','Pilih salah satu item',Exclamation) = OK Then
277      Exit;
278 
279   For i:=0 to Lv_VirList.Items.Count -1 do
280    If Lv_VirList.Items[i].Checked then begin
281      Bisa := DeleteFile(Lv_VirList.Items[i].SubItems[0]);
282      If Not Bisa Then
283       If Msgbox(Handle,'Error','File tidak dapat di hapus,' +
284                        'kemungkinan windows sedang menjalankannya',
285                        CRITICAL) = OK Then Exit
286      Else Lv_VirList.Items[i].Delete;
287    End;
288end;
289 
290end.
Download Source Code

pengertian open source

Diposting oleh Unknown di 03.34 0 komentar
Software atau perangkat lunak atau juga bisa di sebut program merupakan salah satu inti bagian terpenting dari sebuah komputer atau komponen atau alat elektronik lainnya yang membutuhkan bantuan software untuk mengoperasikannya. Di komputer ada sebuah software yang mana software tersebut berfungsi untuk mengoperasikan, menjalankan software lainnya dan mengatur alur input/output hardware yang biasa kita sebut sebagai sistem operasi (Operating System) di singkat menjadi OS.

Umumnya software sumber kodenya (source code) tertutup (close source) dikarenakan adanya masalah urusan bisnis dimana jika ditutup sumber kodenya akan menguntungkan pihak developer nya dalam hal mengkomersilkan software-nya karena dengan tertutupnya sumber kode software tersebut, menjadikan programmer atau developer lainnya tidak bisa menambahkan, mengurangi atau memodifikasi software tersebut selain dari programmer atau developer pembuatnya.

OS Windows misalnya kita mungkin bisa mengoperasikan, menambah atau memodifikasikan tema (theme) OS tersebut sesuai selera kita tetapi kita tidak bisa merubah alur kerja apa yang telah diterapkan oleh OS tersebut seperti arsitektur cara menjalankan software lainnya, arsitektur cara membaca hardware, kernel OS tersebut dan lain sebagainya yang menjadikan inti dari OS tersebut semuanya, kita tidak bisa menambahkan, mengurangi atau memodifikasikannya karena semua itu close source atau sumbernya tertutup.

Misalnya juga bagi Anda seorang programmer jika ingin membuat software atau program buatan Anda sendiri, Anda harus membeli SDK (Source Developer Kit) nya tersebut atau jika Anda seorang desktop programming yang membutuhkan sebuah intepreter untuk men-compile secara langsung dari source code yang Anda tulis menjadi serangkain software atau program yang dapat berjalan di OS. Intepreter itu seperti Visual Basic untuk bahasa basic, Borland Delphi/Embarcadero Delphi XE untuk bahasa delphi/pascal, dan lain sebagainya semua itu jika Anda ingin menggunakannya Anda diharuskan membelinya terlebih dahulu. Anda mungkin bisa membuat program dari interpreter tersebut tetapi Anda tidak bisa merubah, menambahkan atau memodifikasi interpreternya dikarenakan interpreter itu close source.

Kita dahulu untuk mendapatkan sumber kode (source code) yang gratis sulit sekali umumnya source code-nya berbayar jikapun ada yang gratis kebanyakan source code-nya terbilang kurang bagus atau ecek-ecek kita tidak bisa membangun sebuah sofware atau program yang luar biasa misalnya saja kita ingin membuat sebuah Operating System OS. Berbeda dengan sekarang sejak adanya Linux yang dibangun oleh Linus Torvalds kini OS sudah ada yang open source, juga dengan dukungan organisasi seperti OSI (Open Source Initiative), di Indonesia seperti AOSI (Asosiasi Open Source Indonesia), dan lain sebagainya open source sudah lebih dikenal dikalangan umum. Sebelum kita membahas tentang open source, kita harus mengetahui dahulu apa itu open source?


Pengertian Open Source

Pengertian Open Source menurut organisasi.org adalah Open source software adalah istilah yang digunakan untuk software yang membuka/membebaskan source codenya untuk dilihat oleh orang lain dan membiarkan orang lain mengetahui cara kerja software tersebut dan sekaligus memperbaiki kelemahan-kelemahan yang ada pada software tersebut. Dan yang menarik dan salah satu keunggulannya adalah bahwa Open source software dapat diperoleh dan digunakan secara gratis tanpa perlu membayar lisensi. Biasanya orang mendapatkan software ini dari internet. Salah satu open source software yang terkenal yaitu Linux.

Sabtu, 01 Maret 2014

Apakah manfaat berjilbab ?

Diposting oleh Unknown di 02.31 0 komentar
1. Selamat dari adzab Allah
     Seorang Muslimah yang meninggalkan jilbabnya otomatis tergolong dlm ahli maksiat. Itu disebabkan karena dengan kita menampakkan Aurat,sama artinya kita memperlihatkan perhiasan yang seharusnya dilindungi.Sehingga dapat mengundang mata laki-laki jahil dan membuat mereka tergodang mengundang maksiat. Oleh karna itu dengan meninggalkan jilbab atau tidak menutup aurat akan diadzap oleh Allah.

2. Ibadah yang mudah,tanpa lelah dan lebih dicintai Allah
    Ketahuilah wahai sahabatku,mengenakan jilbab bukan hanya sekedar tradisi suatu budaya atau sebuah tren masa kini. Namun mengenakan Jilbab termasuk Ibadah, dan merupakan ibadah yang agung karena banyak mengandung kebaikan. bahkan ia lebih dicintai daripada ibadah sunnah lainnya.
Allah berfirman dalam hadits qudsi :
" Hamba-Ku tidaklah bertaqarub kepada-Ku dengan sesuatupun yang lebih kucintai daripada yang Aku wajibkan atasnya "(H.R Bukhari)

3. Mengundang turunnya pertolongan Allah
    Dengan berjilbab, Anda telah ambil bagian dalam menolong agama Allah . yang dimaksud menolong Agama Allah ialah memperjuangkan syariat-Nya. Allah berfirman:
" hai Orang-orang yang beriman, jika kalian menolong (agama) Allah, maka Allah akan dan memantapkan Kedudukanmu ".(Qs. Muhammad: 7)

4. Tanda wanita terhormat
    ketika seseorang melihat wanita yang berjilbab secara sempurna, pertama kali yang yang terlintas dalam benaknya ialah bahwa wanita ini pasti menjaga kehormatannya. Namun jika yang mereka lihat penampilannya mirip wanita tuna susila ,maka jelas orang yang melihat itu akan mempunyai imej yang jelek kepadanya.

5. Terhindar dari pelecehan
    Banyak pelecehan seksual terhadap kaum wanita adalah akibat dari tingkah laku kaum wanita itu sendiri.Dengan tidak menggunakan jilbab dan menggunakan pakaian yang tidak sopan alias banyak terbuka. Sehingga mengundang kaum laki-laki untuk melakukan pelecehan bagi mereka.

6. Menjauhkan diri dari perbuatan nista
    Dengan menggunakan jilbab, Anda akan terdorong untuk menjauhi tempat-tempat maksiat. Anda pasti malu saat terlihat ditempat-tempat yang tidak baik.kalaulah ada diantara mereka yang berjilbab sampai terjerumus dalam perbuatan nista. maka bukan jilbabnya yang disalahkan tapi orangnya.

7. Bersahabat degan wanita shalihah
    Dengan Mengenakan jilbab, anda akan cenderung untuk bergaul dengan mereka yang berpenampilan sama(wanita-wanita shaliha). Karena memang begitulah tabiat manusia, dimana saja ia berada pasti akan mencari teman yang sesuai dengan karakternya.

8. Mengundang jodoh yang shalihah
    Ketahuilah bahwa lelaki shalihah adalah dambaan setiap wanita mulia, begitu pula wanita shalihah adalah dambaan laki-laki mulia. Dengan mengenakan jilbab, anda akan dinilai sebagai wanita shalihah, sehingga otomatis jodoh yang shalih pun akan segera mampir.

9.Jilbab menunjukkan harga diri pemnakainya
   Wanita yang memandang dirinya berharga, ia takkan membiarkan semua orang melihatnya, apalagi menjamahnya.

10. Terhindar dari tindakan kriminal
     Dengan berjilbab secara sempurna, InsyaAllah anda akan terhindar dari perampokan dan penodongan, sebab perhiasan yang anda kenakan tidak terlihat dari luar.

11. Termasuk tolong menolong dalam kebaikan
     Allah memerintahkan agar kita tolong menolong dalam kebaikan. nah, bila anda mengenakan jilbab, anda telah menolong ikhwan-ikhwan untuk menundukan pandangannya. Dengan demikian anda tergolong orang-orang yang tolong-menolong dalam kebaikan.

12. Membuat Geram musuh-musuh Allah
     Dengan berjilbab, anda akan membuat geram musuh-musuh Allah. mereka akan merasa bahwa proekapaganda mereka sia-sia.

13.Memelihara rasa malu
     Malu merupakan sifat khas orang beriman.Sifat inilah yang mencegah perbuatan tercela.

14. Memberi teladan yang baik kepada sesama

15. Melatih diri untuk sabar dalam ketaatan
     Dengan berjilbab, Anda melatih diri untuk sabar dicibir orang, sabar agak kepanasan dan sabar menghadapi tantangan lainnya.

16. Meniru wanita-wanita shaliha

17. Menjaga masyarakat dari degarasi moral
      kentataan membuktikan bahwa moral suatu masyarakat tercermin dari moral wanitanya.makin baik moral wanita,makin baik moral masyarakatnya.

18. Syiar kaum muslimin

19. Jilbab adalah saran dakwah

20. Menghemat pengeluaran
     Bagi anda yang berpenghasilan pas-pasan,mengenakan jilbab merupakan solusi ekonomi yang tepat.anda tidak perlu repot-repot mengeluaran uang anda untuk kesalon.

21. Menghemat waktu
      Coba anda berpikir, berapa jam anda gunakan waktu anda untuk menata rambut anda. sedangkan jika menggunakan jilbab,anda tidak membuang waktu.karna itu sangat membuat waktu singkat.

22. Menjaga kebersihan hati
      Jilbab membantu kaum muslimin untuk menjaga kebersihan hati mereka.

23. Memelihara kecemburuan laki-laki
      memakai jilbab adalah solusi tepat untuk meredam kecemburuan laki-laki, karena dengan menutup aurat.wanita tersebut terhindar dari godaan laki-laki lain yang bukan mahramnya.

24.Aman dari Mata yang jahat

25. Dengan jilbab anda seperti bidadari syurga

26. jilbab menjegah Tabaruj

27. Terhindar dari debu dan sengatan matahari

28. Jelbab adalah pakaian serba guna
     Apabila berpergian jauh, dan para wanita berjilabab tdk membawa mukenahnya, maka pakaian jilbabnya dapat merangkap sebagai pakaian shalatnya,. Coba anda pikir, bagaimana dengan para wanita yang memakai pakaian mini atau "you can see" berpergian tanpa membawa mukenah?:)

29. Jilbab membuat anda awet muda
     Secara ilmiah gejala penuaan terlihat dari kulit yang mulai berkeriput dan kendur,demikian pula rambut yang memutih (beruban). Bagi yang tidak mengenakan jilbab akan mempercepat proses penuaan karena lebih langsung terkena sinar matahari yang salah satu dari penyebab perubahan kulit tersebut. sedangkan bagi mereka yang bejilbab InsyaAllah aman dari dampak sinar matahari langsung.sehingga mereka tidak cepat terlihat tua.

30. Mengurangi kesenjangan sosial
      Dengan berpakaian layaknya wanita muslim(berjilbnab). tidak ada perbedaan yang terlihat mencolok.antara satu wanita dengan wanita lain.karena terlihat rata,dan sama. kaya dan miskinpun tak terlihat lagi.sehingga mempererat tali silaturahmi bertetangga.

   

Jumat, 14 Maret 2014

template lucu

Diposting oleh Unknown di 01.21 0 komentar

hallo semuaaa aku mau bagiin template gratis loh yang dijamin pasti lucu . gak mungkin jelek . jadi jangan khawatir untuk mendownload karena udah aku pilih-pilih template yang terbaik lho .


download template lucu




udah segitu aja yaa , post nya memang dikit banget tapi berharga lohhh . dont miss it guyss




Kamis, 06 Maret 2014

simple present tense

Diposting oleh Unknown di 03.42 0 komentar
Materi pertama belajar grammar tenses bahasa inggris yaitu The Simple Present Tense. The Simple Present Tense adalah tenses yang puaaaling banyak digunakan, dan karena paling banyak maka pembahasannya juga akan lebih panjang.
Arti simple yaitu sederhana, sedangkan present adalah sekarang. Jadi bisa dikatakan bahwa Simple Present adalah tenses (pola kalimat) yang digunakan untuk menceritakan waktu sekarang dalam bentuk sederhana. Nama lain daripada Present adalah BENTUK 1.

Contoh-Contoh Kalimat Simple Present Tense

Jadi kapanpun Anda melihat kata present dalam tenses apapun, bisa dipastikan bahwa dia menggunakan bentuk 1 – bentuk apa? ya bentuk verb, karena semua predicate itu wajib verb bukan, coba lihat posting awal grammar basic ini. Coba liat contoh-contoh kalimat dengan Simple Present tense dibawah ini
TOBE
I am a teacher
You are a teacher
We are teachers
They are teachers
He is a teacher
She is a teacher
It is my cat
Kalau Anda mengamati, maka kalimat diatas semuanya mengggunakan PREDICATE-1 atau predikat dalam bentuk 1, lihat saja tobe nya tidak lepas dari AM – IS – ARE. Contoh diatas adalah The simple present tense dalam bentuk nominal, karena semua kalimatnya menggunakan tobe-1
Apakah ada bentuk lainnya? Ada, yaitu The Simple Present Tense dalam bentuk VERBAL. Yaitu yang tidak memiliki tobe tapi memiliki verb. Nanti akan di terangkan. Untuk saat ini cukup kita simpulkan bahwa ada 2 (dua) jenis Simple Present yaitu
1. Nominal Simple Present
2. Verbal Simple Present

Untuk mengubah kalimat NOMINAL SIMPLE PRESENT kedalam bentuk negative (menyangkal) ataupun interrogative (bertanya) sangatlah mudah, amati
(+) You are a teacher
(- ) You are NOT a teacher
(? ) Are you a teacher?
Okey, silahkan Anda pahami dan tugas Anda sekarang adalah buatlah minimal 10 kalimat dengan menggunakan Nominal Simple Present ini.
Sekarang kita lanjutkan pada pola kalimat VERBAL SIMPLE PRESENT – yaitu simple present yang tidak menggunakan tobe, tetapi VERB1 sebagai predicate1 nya.. Amati contoh berikut
Subjective
Pronouns Example
I I work
You You work
We We work
They They work
He He works
She She works
It It works
Lihat, untuk awalan HE, SHE, IT .. verb nya menggunakan _s. Amati kembali contoh berikut
He runs every morning
She teaches English
John has an English books
Untuk kata kerja yang berakhiran bunyi DESIS (hissing sounds – x, ch, s, sh), kita menggunakan akhira _es. sehingga menjadi : teaches, mixes, washes, kisses .. dsb.
Exercise 1 :
read – John reads in the morning
1. read
2. sing
3. study
4. work
5. arrive
6. leave
7. practice
8. write
9. watch
10. finish
11. mix
12. pass
13. go
14. have
15. pray
Answer keys :
3. John studies
9. John watches
10 John finishes
11. John mixes
12. John passes
13. John goes
14. John have(s) -> John has
15. John prays
Amati kembali contoh kalimat ini :
3. (study) -> John studies
15. (pray) ->John prays
Untuk verb study – sebelum huruf Y adalah huruf konsonan D, itulah sebabnya menjadi STUDIES
Untuk verb pray – sebelum huruf Y adalah huruf vokal A, itulah sebabnya tetap PRAYS
Exercise 2 : Yang mana HAVE dan HAS
We -> We HAVE coffee in the morning
He -> He HAS coffee in the morning
1. he
2 John and Mary
3. they
4. Mr. Allen
5. she
6. Mary
7. the students
8. my brothers
9. my brother
10. You and I
11. he and she
12. Mary’s sister
13. Mary’s sisters
14. the teacher
15. people
Dalam belajar Grammar tidak boleh terputus. Tentunya Anda sudah tahu bahwa ada 3 kelompok Tenses yaitu Present Tense, Past Tense dan Future Tense setiap kelompok masing-masing memiliki 4 tenses. Dimana untuk setiap tenses nya ada yang memiliki tipe Verbal dan Nominal.
Sampai sini berhenti dulu ..jangan lanjut baca kecuali Anda yakin paham, hehe. Okey lanjut lagi, untuk Simple Present tense memiliki tipe Nominal atau yang predicate nya Tobe1 serta Verbal yang predicatenya Verb1. Masih paham dong, okey kita lanjut lagi. Untuk Nominal Simple Present, Anda sudah sangat memahami bagaimana menggunakan Tobe untuk setiap subjective pronounsnya, sedangkan untuk Verbal Simple Present – semua yang diawali dengan He, She, It maka verb nya mendapatkan tambahan +S sbb.
I write
You write
We write
They write
He writes
She writes
It writes
Begitupun pada kata kerja HAVE seperti He Have(s) mendapatkan tambahan (s) – sehingga kalimat tersebut menjadi HE HAS.
Perubahan Kalimat Negative dan Interrogative
I
You DON’T (do not) GO
We
They
contoh : I don’t go, You don’t go, We don’t go, They don’t go. Selanjutnya amati sbb.
He
She DOESN’T (does not) GO
It
Amati, pada kalimat negative/interrogative yang berawalan He, She, It kata kerja nya (verb) nya kembali normal TIDAK MENGGUNAKAN +S lagi karena sudah ada DOES.
(+) You write
(-) You DON’T write
(?) DO you write?
(+) He writes
(-) He DOESN’T write
(?) Does he write?
Amati contoh lain
(+) You have a book
(-) You DON’T have a book
(?) DO you have a book?
(+) He has a book
(-) He DOESN’T have a book
(?) DOES he have a book?
Exercise 1 : Ubahlah kedalam kalimat (-) dan (?)
1. You have a car
2. My sister has a car
3. My sisters have a car
4. You and I learn English
5. John and Bill sing
6. The cat drinks
7. Joe has breakfast
8. Our brother teaches
9. Our brothers work
10. John’s sisters have a car

Answer Key : (jangan diliat dulu kunci jawaban ini)

My sister has a car
My sister doesn’t have a car
does my sister have a car?
My sisters have a car
My sisters don’t have a car
do my sisters have a car?
The cat drinks
The cat doesn’t drink
does the cat drink?
Joe has breakfast
Joe doesn’t have breakfast
does Joe have breakfast?
Our brother teaches
Our brother doesn’t teach
does our brother teach?
John’s sisters have a car
John’s sisters don’t have a car
do John’s sisters have a car?
Amati benar-benar, dan pastikan bahwa Anda memahami dan mampu mengatasi latihan Grammar ini dengan mudah. Yah begitulah resiko belajar Grammar, sing sabar …

Fungsi atau Penggunaan Tenses The Simple Present Tense

1. Menyatakan Fakta (expressing facts)
Mudahnya begini saja, coba sekarang Anda buat sedikit tulisan tentang Danau Toba, dimana Anda paparkan Danau Toba itu bagaimana dsb. Tulisan Anda disitu hampir 100% menggunakan tenses ini. Karena Anda memaparkan suatu fakta. Nah dibawah ini ada tulisan singkat
Belajaringgris.net adalah sebuah kursus bahasa Inggris online dengan sistim Full Conversation Tanpa Grammar. Ada 2 (dua) jenis website utama yaitu bahasainggris.co dimana semua materi diberikan secara gratis, ada juga yang berbayar yaitu www.belajaringgris.net.
Nah kalau Anda amati tulisan diatas, semuanya menggunakan Simple Present tense karena hanya menceritakan fakta yang tidak akan berubah dari masa lalu, ke masa sekarang, sampai masa yang akan datang. Tapi kalau artikel diatas saya lanjutkan seperti ini
Belajaringgris.net dalam waktu dekat akan meluncurkan kursus berbayar untuk Level II dimana yang dibentuk adalah kemampuan productive. Minggu lalu salah seorang peserta kursus berbayar dari Saudi Arab.
Lihat kata akan disini bukan lagi wilayah Simple Present tense karena membicarakan masa yang akan datang.Begitu pula pada bagian kalimat minggu lalu
2. Menyatakan kebiasaan (expressing habits)
Untuk yang ini Anda pasti akrab juga karena di sekolah sejak SMP sampai SMA fungsi Simple Present tidak lepas dari expressing habits, contoh mudah amati artikel ini
“Banyak orang berkunjung setiap hari nya di kursus bahasa inggris belajaringgris.net Jika saya amati, mereka selalu membaca artikel ‘kamus bahasa inggris untuk hp’ sebelum membaca artikel lainnya. Itulah sebabnya saya selalu mengupdate materi belajaringgris.net setiap harinya. Dismping kategori utama yaitu MATERI KURSUS saya juga selalu mengupdate kategori GRAMMAR, dan kadang-kadang saya menulis di kategori ARTIKEL”
Artikel singkat diatas menggunakan Simple Present tense, karena menyatakan kebiasaan. Karena itu biasanya menggunakan yang disebut dengan Adverbs of Frequency sbb.
Adverbs of Frequency
always selalu
usually biasanya
often seringkali
sometimes kadang2
seldom jarang
never tidak pernah
ever pernah
Apakah pasti? …Anda ingat baik-baik “Bicara BAHASA TIDAK ADA YANG PASTI”. Karena itu enjoy aja lah
3. Menyatakan masa yang akan datang
Lho?? ..emang iya, itulah sebabnya sudah saya katakan sejak dini bahwa Anda tidak perlu tegang dalam belajar bahasa inggris, karena memang tidak ada yang pasti. Amati dialog ini
Romli besok kita ke pantai yuk mpok
Juleha jam berapa bang?
Romli jam 7:00 pagi aje
Juleha waduh, besok aye pergi ke sekolah
Nah liat kalimat yang bercetak miring? kalimat itu menggunakan Simple Present Tense walaupun ada kata BESOK. Simple Present boleh digunakan untukmenceritakan peristiwa yang akan terjadi dengan syarat bahwa ‘peristiwa itu terjadi secara rutin’ dalam kasus Juleha contohnya, dia memang ke sekolah tiap jam 7:00 pagi, dari awal Februari, Maret sampai minggu kemaren, sampai hari Kamis kemarin juga jam 7:00 makanya boleh saja dia mengatakan BESOK ..tetap menggunakan Simple Present
4. Menyatakan masa lalu
Haduh?…inilah fakta bahwa Bahasa Inggris itu memang seenak wudel nya. Simple Present bisa digunakan untuk menceritakan masa yang akan datang, eh ..ga taunya juga bisa dipake untuk menceritakan masa lalu. Terus buat apa rumus? …ya ga tau?? ..siapa yang doyan rumus-rumusan?? yeee … :P
Juleha bang, aye semalem kaga bisa tidur?
Romli kenape mpok?
Juleha aye lihat pocong tapi aneh banget
Romli aneh kenape mpok?
Juleha tuh pocong sih laki2, tapi pake gincu!!
Pada dialog diatas Juleha boleh saja menggunakan Simple Present. Tenses ini boleh digunakan untuk menceritakan peristiwa yang sudah berlalu dengan syarat untuk men DRAMATISIR
5. Menceritakan sesuatu yang sedang terjadi
Aduh?? aya-aya wae. Makanya dari awal sudah saya tekankan, buang jauh-jauh mitos yang membelenggu diri kita bahwa untuk menguasai Bahasa Inggris harus kuasai Grammar dulu. Walah, sampe botak ga bakal kelar yang namanya Grammar. Coba lihat neh seorang komentator tengah menceritakan peristiwa yang sedang terjadi
Zidane menggiring bola, bola lalu dioper kepada Zico. Zico menendang nya kembali kepada Zidane, sekarang zidane menendangnya kembali ke Zico, ga kelar-kelar neh penonton, paye ..
Nah komentator tersebut menggunakan Simple Present, karena peristiwanya berlangsung sangat cepat dan singkat.
Kalau sudah begini untuk apa lagi Anda merasa TAKUT SALAH saat berbicara, atau saat menulis. Hajar aja dulu, karena tujuan yang paling penting di awal perjalanan bukanlah kesempurnaan grammar, mana ada grammar yang sempurna? orang bule aja ga karuan grammar nya. Yang paling penting adalah MEMBENTUK SKILL berbahasa yaitu Listening, Speaking, Reading serta Writing.
Okey?? masih perlukah belajar grammar? ya masih untuk pembentukan writing skill di akhir perjalanan. Berakhirlah sudah Lesson 2 dari 30 lesson yang harus Anda kuasai dalam belajar Grammar
Pastikan Anda sudah mengerjakan latihan Simple Present tense bahasa inggris diatas. Jika mengalami kesulitan dalam arti kata gunakan kamus bahasa inggris online

Membuat Antivirus Sederhana dengan Delphi 7

Diposting oleh Unknown di 03.37 0 komentar

Antivirus merupakan sebuah aplikasi yang mana berguna untuk memblokir, mengkarantina, atau menghapus program jahat berupa virus ataupun worm. Prinsip kerja dari antivirus ada mendeteksi dengan cara membaca isi tubuh dari program (scan) dan mendaftarkan isinya disesuaikan dengan database yang telah di daftarkan, sehingga jika ada program atau aplikasi yang telah sesuai dengan database yang ada di antivirus itu maka program tersebut bisa dikatakan virus atau worm, jika tidak maka ia bukan virus atau worm .


Pertama-tama Anda buat New Project dahulu di Delphi 7 Anda, kemudian ganti nama (rename) Form1, menjadi FormUtama dan save dengan nama form_utama.pas.

001interface
002 
003uses
004  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
005  Dialogs, StdCtrls,Utility_AV, ComCtrls, Menus;
006 
007type
008  TFormUtama = class(TForm)
009    GroupBox1: TGroupBox;
010    rb_scan1: TRadioButton;
011    rb_scan2: TRadioButton;
012    edt_folder: TEdit;
013    edt_cari: TButton;
014    GroupBox2: TGroupBox;
015    lbl_jumlahfile: TLabel;
016    lbl_virus: TLabel;
017    mm_status: TMemo;
018    btn_scan: TButton;
019    btn_tentang: TButton;
020    btn_keluar: TButton;
021    ck_scansubdir: TCheckBox;
022    GroupBox3: TGroupBox;
023    lv_virlist: TListView;
024    btn_delvir: TButton;
025    btn_cls: TButton;
026    lbl_waktu: TLabel;
027    Label1: TLabel;
028 
029    procedure btn_tentangClick(Sender: TObject);
030    procedure FormCreate(Sender: TObject);
031    procedure btn_keluarClick(Sender: TObject);
032    procedure btn_scanClick(Sender: TObject);
033    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
034    procedure edt_cariClick(Sender: TObject);
035    procedure rb_scan2Click(Sender: TObject);
036    procedure btn_clsClick(Sender: TObject);
037    procedure btn_delvirClick(Sender: TObject);
038  private
039    { Private declarations }
040    Procedure ScanVirus(Semua:Boolean);
041    Procedure SaatScanFile (Path:String);
042    Procedure TambahList (NamaVirus,Path:String);
043  public
044    { Public declarations }
045  end;
046 
047 
048 
049var
050  FormUtama: TFormUtama;
051  SedangDiScan:Boolean;
052  rStartTime : Integer;
053  C          : Integer;
054   
055Const
056 DBaseCRC32Virus : Array [0..2] of String = ('DD7A0BA8','7A014FFF','BDB819EB');
057 DBaseNamaVirus  : Array [0..2] of String = ('CodeRed','Moondlight.D','FluBurung');
058 MAX_SCAN        : Int64  = 10 * 1024 * 1024; // Maksimal Scan 10 MB,
059                                          //  Karena biasanya virus tidak lebih dari 10 MB
060implementation
061 
062{$R *.dfm}
063{$R WindowsXP.res} //Aktifkan Theme WinXP
064 
065 
066 
067function CekUkuranFile(const FileName: string): Int64;
068var
069  SearchRec: TSearchRec;
070begin
071  Result := -1; //-- assume worst cas
072  if FindFirst(FileName, faAnyFile, SearchRec) = 0 then
073  begin
074    Int64Rec(Result).Lo := SearchRec.FindData.nFileSizeLow;
075    Int64Rec(Result).Hi := SearchRec.FindData.nFileSizeHigh;
076    FindClose(SearchRec);
077  end;
078end;
079 
080Procedure TFormUtama.TambahList (NamaVirus,Path:String);
081Var
082  lvi       : TListItem;
083Begin
084 
085   //Cek Apakah ada list yang sama ... ?
086   lvi := lv_virList.FindCaption(0,Path, false, true, false);
087   while Assigned(lvi) do
088   begin
089     if Lowercase(lvi.SubItems[1]) = Lowercase(Path) then exit; //Sudah ada di list, keluar
090     lvi := lv_virList.FindCaption(lvi.Index, Path, false, false, false);
091    end;
092 
093  //List tidak ada yang sama, tambahkan list...
094  lvi := lv_virList.Items.Add;
095  lvi.Caption := NamaVirus;
096  lvi.SubItems.Add(Path);
097  lbl_virus.Caption := 'Jumlah virus ditemukan : ' + IntToStr(Lv_VirList.Items.Count);
098End;
099 
100 
101 
102Procedure TFormUtama.SaatScanFile (Path:String);
103Var
104 CRC32       : Cardinal;
105 TB          : Int64;
106 Err         : Word;
107 CRC32Str    : String; //CRC32 hasil string
108 i           : Integer;
109 ElapsedTime : String;
110Begin
111 
112 ElapsedTime := Format('%.1f', [0.001*(GetTickCount-rStartTime)]);
113 
114 Application.ProcessMessages; // Terima semua masukan dari program
115 IF (CekUkuranFile(Path) <= MAX_SCAN) Then Begin // Maksimal Scan.. Tidak Lebih dari 10 MB
116   HitungFileCRC32 ( Path, CRC32, TB, Err );
117   CRC32Str := IntToHex(Crc32,8);  // Hasil CRC32 desimal di konverisi menjadi Heksadesimal
118    For i:=Low(DBaseCRC32Virus) to High(DBaseCRC32Virus) do
119      // Jika Hasil CRC32 sama dengan Database Virus, Tidak diragukan lagi maka itu virus
120      if (CRC32Str = DBaseCRC32Virus[i]) then TambahList(DBaseNamaVirus[i],Path);
121 End;
122 
123 Inc(C);
124 lbl_jumlahfile.Caption := 'Jumlah file : ' + IntToStr(C);
125 lbl_waktu.Caption      := 'Waktu tempuh : ' + ElapsedTime;
126 mm_status.Lines.Text := Path; // Status scannya;
127End;
128 
129procedure TFormUtama.btn_tentangClick(Sender: TObject);
130begin
131 MsgBox(Handle,'Tentang Program',
132        'Gue Antivirus (GAV) ' + #13#10 +
133        'Diprogramkan oleh Ali' + #13#10#13#10 +
134        'Web-Site : http://www.geocities.com/alisoftprg' + #13#10 +
135        'E-Mail : ali.programmer@telkom.net' + #13#10#13#10 +
136        'Copyright © Ali Software - Delphi Source Code. All Rights Reserved.',
137        Information);
138end;
139 
140procedure TFormUtama.FormCreate(Sender: TObject);
141begin
142 SedangDiScan := False;
143end;
144 
145procedure TFormUtama.btn_keluarClick(Sender: TObject);
146begin
147 
148 If SedangDiScan Then
149  If MsgBox(Handle,'Keluar Program',
150           'Apakah Anda ingin keluar saat program sedang mencari virus ?',
151           Question + YesNo) = No Then Exit;
152 
153 Halt(0);     // Keluar Program (dengan paksaan, jika terjadi error)
154end;
155 
156Procedure TFormUtama.ScanVirus(Semua:Boolean);
157Var
158 CallBack :TOnCariFile;
159 Drives:Array of String;
160 i,L:Integer;
161Begin
162 
163    CallBack := SaatScanFile;    //  Hasil scan di kembalikan ke procedure lain
164 
165  If Not Semua Then
166   Begin
167     If (edt_folder.Text = '') then Begin
168       Msgbox(Handle,'Error','Tentukan dulu Folder atau Drive-nya',Critical);
169       exit;
170     End;
171    CariFile(edt_folder.Text,ck_scansubdir.Checked,'*.*',CallBack);
172   End
173   Else Begin
174    For i:=Ord('A') to Ord('Z') do
175      Case GetDriveType(Pchar(Chr(i) + ':\')) of
176         DRIVE_UNKNOWN:;
177         DRIVE_NO_ROOT_DIR:;
178      Else
179       Begin
180        L:=Length(Drives)+1;
181        SetLength(Drives,L);
182        Drives[L-1]:=Chr(i) + ':\';
183       End;
184      End;
185 
186    For i:=Low(Drives) to High(Drives) do
187    Begin
188     If DriveSiap(Drives[i]) Then
189       CariFile(Drives[i],ck_scansubdir.Checked,'*.*',CallBack);
190    End;
191 
192  End;
193 
194End;
195 
196procedure TFormUtama.btn_scanClick(Sender: TObject);
197Label Scan,Berhenti;
198begin
199 
200  If Not SedangDiScan Then
201    Goto Scan
202  Else
203    Goto BerHenti;
204 
205  Exit;
206 
207Scan: Begin
208  BerhentiMencari := False;     // Agar bisa di scan
209  {Mulai men-scan file...}
210  rStartTime := GetTickCount;
211  C          := 0;
212  try
213   SedangDiScan := True;
214   btn_scan.Caption := '&Berhenti..';
215   ScanVirus ( rb_scan1.Checked )   ; //......
216  Finally
217    btn_scan.Caption := '&Scan';
218   SedangDiScan := False;
219  End;
220End;
221 
222Exit;
223Berhenti:Begin
224   If MsgBox(Handle,'Scan Virus',
225           'Apakah Anda ingin menghentikan proses scan virus ?',
226           Question + YesNo) = Yes Then
227    BerhentiMencari := True;
228End;
229 
230end;
231 
232procedure TFormUtama.FormCloseQuery(Sender: TObject;
233  var CanClose: Boolean);
234begin
235 btn_keluarClick(Sender);
236end;
237 
238procedure TFormUtama.edt_cariClick(Sender: TObject);
239Var Dir:String;
240begin
241 Try
242  Dir := BrowseDialog(Handle,'Cari Folder / Drive');
243 Finally
244  If (Dir <> '') then
245   edt_folder.Text := Dir;
246 End;
247end;
248 
249 
250procedure TFormUtama.rb_scan2Click(Sender: TObject);
251begin
252 edt_folder.Enabled := rb_scan2.Checked ;
253 edt_cari.Enabled   := rb_scan2.Checked;
254end;
255 
256procedure TFormUtama.btn_clsClick(Sender: TObject);
257begin
258 If (Lv_VirList.Items.Count < 1) then Exit;
259 If MsgBox(Handle,'Bersihkan List',
260           'Apakah Anda ingin membersihkan list (tanpa menghapus virus) ?',
261           Question + YesNo) = Yes Then
262   lv_virlist.Items.Clear;         
263end;
264 
265procedure TFormUtama.btn_delvirClick(Sender: TObject);
266Var i:Integer;
267    Ada, Bisa:Boolean;
268begin
269   Ada := False;
270   For i:=0 to Lv_VirList.Items.Count -1 do
271    If Lv_VirList.Items[i].Checked then begin
272     Ada := True;
273     Break;
274    End;
275   If Not Ada Then
276    If Msgbox(Handle,'Perhatian','Pilih salah satu item',Exclamation) = OK Then
277      Exit;
278 
279   For i:=0 to Lv_VirList.Items.Count -1 do
280    If Lv_VirList.Items[i].Checked then begin
281      Bisa := DeleteFile(Lv_VirList.Items[i].SubItems[0]);
282      If Not Bisa Then
283       If Msgbox(Handle,'Error','File tidak dapat di hapus,' +
284                        'kemungkinan windows sedang menjalankannya',
285                        CRITICAL) = OK Then Exit
286      Else Lv_VirList.Items[i].Delete;
287    End;
288end;
289 
290end.
Download Source Code

pengertian open source

Diposting oleh Unknown di 03.34 0 komentar
Software atau perangkat lunak atau juga bisa di sebut program merupakan salah satu inti bagian terpenting dari sebuah komputer atau komponen atau alat elektronik lainnya yang membutuhkan bantuan software untuk mengoperasikannya. Di komputer ada sebuah software yang mana software tersebut berfungsi untuk mengoperasikan, menjalankan software lainnya dan mengatur alur input/output hardware yang biasa kita sebut sebagai sistem operasi (Operating System) di singkat menjadi OS.

Umumnya software sumber kodenya (source code) tertutup (close source) dikarenakan adanya masalah urusan bisnis dimana jika ditutup sumber kodenya akan menguntungkan pihak developer nya dalam hal mengkomersilkan software-nya karena dengan tertutupnya sumber kode software tersebut, menjadikan programmer atau developer lainnya tidak bisa menambahkan, mengurangi atau memodifikasi software tersebut selain dari programmer atau developer pembuatnya.

OS Windows misalnya kita mungkin bisa mengoperasikan, menambah atau memodifikasikan tema (theme) OS tersebut sesuai selera kita tetapi kita tidak bisa merubah alur kerja apa yang telah diterapkan oleh OS tersebut seperti arsitektur cara menjalankan software lainnya, arsitektur cara membaca hardware, kernel OS tersebut dan lain sebagainya yang menjadikan inti dari OS tersebut semuanya, kita tidak bisa menambahkan, mengurangi atau memodifikasikannya karena semua itu close source atau sumbernya tertutup.

Misalnya juga bagi Anda seorang programmer jika ingin membuat software atau program buatan Anda sendiri, Anda harus membeli SDK (Source Developer Kit) nya tersebut atau jika Anda seorang desktop programming yang membutuhkan sebuah intepreter untuk men-compile secara langsung dari source code yang Anda tulis menjadi serangkain software atau program yang dapat berjalan di OS. Intepreter itu seperti Visual Basic untuk bahasa basic, Borland Delphi/Embarcadero Delphi XE untuk bahasa delphi/pascal, dan lain sebagainya semua itu jika Anda ingin menggunakannya Anda diharuskan membelinya terlebih dahulu. Anda mungkin bisa membuat program dari interpreter tersebut tetapi Anda tidak bisa merubah, menambahkan atau memodifikasi interpreternya dikarenakan interpreter itu close source.

Kita dahulu untuk mendapatkan sumber kode (source code) yang gratis sulit sekali umumnya source code-nya berbayar jikapun ada yang gratis kebanyakan source code-nya terbilang kurang bagus atau ecek-ecek kita tidak bisa membangun sebuah sofware atau program yang luar biasa misalnya saja kita ingin membuat sebuah Operating System OS. Berbeda dengan sekarang sejak adanya Linux yang dibangun oleh Linus Torvalds kini OS sudah ada yang open source, juga dengan dukungan organisasi seperti OSI (Open Source Initiative), di Indonesia seperti AOSI (Asosiasi Open Source Indonesia), dan lain sebagainya open source sudah lebih dikenal dikalangan umum. Sebelum kita membahas tentang open source, kita harus mengetahui dahulu apa itu open source?


Pengertian Open Source

Pengertian Open Source menurut organisasi.org adalah Open source software adalah istilah yang digunakan untuk software yang membuka/membebaskan source codenya untuk dilihat oleh orang lain dan membiarkan orang lain mengetahui cara kerja software tersebut dan sekaligus memperbaiki kelemahan-kelemahan yang ada pada software tersebut. Dan yang menarik dan salah satu keunggulannya adalah bahwa Open source software dapat diperoleh dan digunakan secara gratis tanpa perlu membayar lisensi. Biasanya orang mendapatkan software ini dari internet. Salah satu open source software yang terkenal yaitu Linux.

Sabtu, 01 Maret 2014

Apakah manfaat berjilbab ?

Diposting oleh Unknown di 02.31 0 komentar
1. Selamat dari adzab Allah
     Seorang Muslimah yang meninggalkan jilbabnya otomatis tergolong dlm ahli maksiat. Itu disebabkan karena dengan kita menampakkan Aurat,sama artinya kita memperlihatkan perhiasan yang seharusnya dilindungi.Sehingga dapat mengundang mata laki-laki jahil dan membuat mereka tergodang mengundang maksiat. Oleh karna itu dengan meninggalkan jilbab atau tidak menutup aurat akan diadzap oleh Allah.

2. Ibadah yang mudah,tanpa lelah dan lebih dicintai Allah
    Ketahuilah wahai sahabatku,mengenakan jilbab bukan hanya sekedar tradisi suatu budaya atau sebuah tren masa kini. Namun mengenakan Jilbab termasuk Ibadah, dan merupakan ibadah yang agung karena banyak mengandung kebaikan. bahkan ia lebih dicintai daripada ibadah sunnah lainnya.
Allah berfirman dalam hadits qudsi :
" Hamba-Ku tidaklah bertaqarub kepada-Ku dengan sesuatupun yang lebih kucintai daripada yang Aku wajibkan atasnya "(H.R Bukhari)

3. Mengundang turunnya pertolongan Allah
    Dengan berjilbab, Anda telah ambil bagian dalam menolong agama Allah . yang dimaksud menolong Agama Allah ialah memperjuangkan syariat-Nya. Allah berfirman:
" hai Orang-orang yang beriman, jika kalian menolong (agama) Allah, maka Allah akan dan memantapkan Kedudukanmu ".(Qs. Muhammad: 7)

4. Tanda wanita terhormat
    ketika seseorang melihat wanita yang berjilbab secara sempurna, pertama kali yang yang terlintas dalam benaknya ialah bahwa wanita ini pasti menjaga kehormatannya. Namun jika yang mereka lihat penampilannya mirip wanita tuna susila ,maka jelas orang yang melihat itu akan mempunyai imej yang jelek kepadanya.

5. Terhindar dari pelecehan
    Banyak pelecehan seksual terhadap kaum wanita adalah akibat dari tingkah laku kaum wanita itu sendiri.Dengan tidak menggunakan jilbab dan menggunakan pakaian yang tidak sopan alias banyak terbuka. Sehingga mengundang kaum laki-laki untuk melakukan pelecehan bagi mereka.

6. Menjauhkan diri dari perbuatan nista
    Dengan menggunakan jilbab, Anda akan terdorong untuk menjauhi tempat-tempat maksiat. Anda pasti malu saat terlihat ditempat-tempat yang tidak baik.kalaulah ada diantara mereka yang berjilbab sampai terjerumus dalam perbuatan nista. maka bukan jilbabnya yang disalahkan tapi orangnya.

7. Bersahabat degan wanita shalihah
    Dengan Mengenakan jilbab, anda akan cenderung untuk bergaul dengan mereka yang berpenampilan sama(wanita-wanita shaliha). Karena memang begitulah tabiat manusia, dimana saja ia berada pasti akan mencari teman yang sesuai dengan karakternya.

8. Mengundang jodoh yang shalihah
    Ketahuilah bahwa lelaki shalihah adalah dambaan setiap wanita mulia, begitu pula wanita shalihah adalah dambaan laki-laki mulia. Dengan mengenakan jilbab, anda akan dinilai sebagai wanita shalihah, sehingga otomatis jodoh yang shalih pun akan segera mampir.

9.Jilbab menunjukkan harga diri pemnakainya
   Wanita yang memandang dirinya berharga, ia takkan membiarkan semua orang melihatnya, apalagi menjamahnya.

10. Terhindar dari tindakan kriminal
     Dengan berjilbab secara sempurna, InsyaAllah anda akan terhindar dari perampokan dan penodongan, sebab perhiasan yang anda kenakan tidak terlihat dari luar.

11. Termasuk tolong menolong dalam kebaikan
     Allah memerintahkan agar kita tolong menolong dalam kebaikan. nah, bila anda mengenakan jilbab, anda telah menolong ikhwan-ikhwan untuk menundukan pandangannya. Dengan demikian anda tergolong orang-orang yang tolong-menolong dalam kebaikan.

12. Membuat Geram musuh-musuh Allah
     Dengan berjilbab, anda akan membuat geram musuh-musuh Allah. mereka akan merasa bahwa proekapaganda mereka sia-sia.

13.Memelihara rasa malu
     Malu merupakan sifat khas orang beriman.Sifat inilah yang mencegah perbuatan tercela.

14. Memberi teladan yang baik kepada sesama

15. Melatih diri untuk sabar dalam ketaatan
     Dengan berjilbab, Anda melatih diri untuk sabar dicibir orang, sabar agak kepanasan dan sabar menghadapi tantangan lainnya.

16. Meniru wanita-wanita shaliha

17. Menjaga masyarakat dari degarasi moral
      kentataan membuktikan bahwa moral suatu masyarakat tercermin dari moral wanitanya.makin baik moral wanita,makin baik moral masyarakatnya.

18. Syiar kaum muslimin

19. Jilbab adalah saran dakwah

20. Menghemat pengeluaran
     Bagi anda yang berpenghasilan pas-pasan,mengenakan jilbab merupakan solusi ekonomi yang tepat.anda tidak perlu repot-repot mengeluaran uang anda untuk kesalon.

21. Menghemat waktu
      Coba anda berpikir, berapa jam anda gunakan waktu anda untuk menata rambut anda. sedangkan jika menggunakan jilbab,anda tidak membuang waktu.karna itu sangat membuat waktu singkat.

22. Menjaga kebersihan hati
      Jilbab membantu kaum muslimin untuk menjaga kebersihan hati mereka.

23. Memelihara kecemburuan laki-laki
      memakai jilbab adalah solusi tepat untuk meredam kecemburuan laki-laki, karena dengan menutup aurat.wanita tersebut terhindar dari godaan laki-laki lain yang bukan mahramnya.

24.Aman dari Mata yang jahat

25. Dengan jilbab anda seperti bidadari syurga

26. jilbab menjegah Tabaruj

27. Terhindar dari debu dan sengatan matahari

28. Jelbab adalah pakaian serba guna
     Apabila berpergian jauh, dan para wanita berjilabab tdk membawa mukenahnya, maka pakaian jilbabnya dapat merangkap sebagai pakaian shalatnya,. Coba anda pikir, bagaimana dengan para wanita yang memakai pakaian mini atau "you can see" berpergian tanpa membawa mukenah?:)

29. Jilbab membuat anda awet muda
     Secara ilmiah gejala penuaan terlihat dari kulit yang mulai berkeriput dan kendur,demikian pula rambut yang memutih (beruban). Bagi yang tidak mengenakan jilbab akan mempercepat proses penuaan karena lebih langsung terkena sinar matahari yang salah satu dari penyebab perubahan kulit tersebut. sedangkan bagi mereka yang bejilbab InsyaAllah aman dari dampak sinar matahari langsung.sehingga mereka tidak cepat terlihat tua.

30. Mengurangi kesenjangan sosial
      Dengan berpakaian layaknya wanita muslim(berjilbnab). tidak ada perbedaan yang terlihat mencolok.antara satu wanita dengan wanita lain.karena terlihat rata,dan sama. kaya dan miskinpun tak terlihat lagi.sehingga mempererat tali silaturahmi bertetangga.

   
 

selamat datang sobat Copyright © 2010 Design by Ipietoon Blogger Template Graphic from Enakei