The BLoG

Membuat Raport Siswa

2011-11-07T10:13:00.000-08:00

Posting blog saya kali ini tidak membahas tentang Windows ataupun Delphi. Tapi kali ini saya ingin memberikan informasi kepada para guru khususnya wali kelas tentang aplikasi pembuat raport siswa di sekolah. Aplikasi ini saya buat dengan tampilan yang mudah dipahami.

Aplikasi ini saya beri nama G-Raport, dan versi ini adalah pembaharuan dari G-Raport sebelumnya. G-Raport memliki beberapa fasilitas-fasilitas tambahan yang mungkin diinginkan oleh wali kelas. Fasilitas-fasilitas tersebut diantaranya :

wali kelas bisa menambah, menghapus dan mengedit data mata pelajaran, organisasi, dan ekskul.
transfer data siswa dari excel untuk mempermudah pengisian data siswa,
gunakan atau tidak nilai merah,
tampilkan atau tidak ranking siswa,
batas ranking yang ingin ditampilkan,
menggunakan ranking desimal atau ranking romawi,
beberapa font laporan,
backup data, dll.

Aplikasi ini menghasilkan 6 lembar laporan, yaitu : Cover, Data Siswa, Nilai Mata Pelajaran, Ketercapaian KKM, Pengembangan diri, dan Daftar Nilai Siswa (leger).
Untuk tambahan ada juga lembar Laporan Urutan Ranking siswa jika ingin dicetak.

Untuk mencoba Program G-Raport anda bisa download Software Contoh G-Raport di link di bawah ini (Ukuran file kecil hanya 1,3 MB) :

Download G-Raport (SD, SMP, SMA).
Download G-Raport Madrasah (MI, MTs, MA).
Contoh File Back-up (contoh data, hanya bisa dibuka dengan G-Raport)

...Semoga Membantu...

Delphi - Mengakses Registry Editor

2009-11-01T07:58:00.000-08:00

Berikut adalah contoh kode untuk mengakses registry editor melalui program yang dibuat dengan delphi :

procedure TForm1.Button1Click(Sender: TObject);

var ger:TRegistry;

begin

   ger:=TRegistry.Create;

   ger.RootKey:=HKEY_CURRENT_USER;

   ger.OpenKey('Software,Microsoft,Windows, Currentversion,Policies,System',True);

   ger.WriteString('DisableTaskMGR','1');

   ger.CloseKey;

end;

kode di atas akan menambah value data pada HKCU\Software\Microsoft\Windows\Currentversion\Policies\System dengan nama data DisableTaskMGR, type REG_DWORD, dan nilai data = 1, dan akan memblock task manager.

pada uses tambahkan "registry".

Menghapus Virus New Folder.exe

2009-10-29T09:55:00.000-07:00

untuk menghapus virus "new folder.exe" lakukan langkah-langkah berikut :

1. buka command prompt dengan klik start -> run lalu akan muncul jendela run, dan ketikkan "cmd" lalu tekan enter, maka akan muncul jendela command prompt,

2. pada command prompt ketikkan :
"taskkill /im RVHOST.exe /f" lalu tekan enter,

3. buka jendela ekplorer, dan lakukan pencarian pada drive system (biasanya di drive C:) dengan klik kanan pada drive tersebut dan pilih/klik search,

4. pada kotak teks "all or part of the file name" ketikkan "*.exe", dan tentukan ukuran file yang dicari dengan klik "what size is it?" lalu pilih "size at least" dan pada kotak teks sebelah kanan "size at least" isikan "552 kb". lalu klik search.

5. urutkan hasil pencarian berdasarkan ukuran, lalu delete semua file yang berukuran 552 kb dan memiliki icon seperti folder.

6. untuk mendelete semua file dari virus ini, lakukan pencarian yang sama pada drive yang lain.

untuk memperbaiki registry yang telah diubah oleh virus ini lakukan langkah berikut :

1. buka command prompt dan ketik :
"reg delete hkcu\software\microsoft\windows\currentversion\policies\system /v disableregistrytools /f", tekan enter

2. buka registry editor dengan klik start->run, ketikkan "regedit", tekan enter.

3. pada registry editor delete key :
"nofolderoptions" pada HKEY_CURRENT_User\software\microsoft\windows\currentversion\ policies\explorer
"disabletaskmgr" pada HKEY_CURRENT_User\software\microsoft\windows\currentversion\ policies\system
"Yahoo Messanger" pada HKEY_CURRENT_User\software\microsoft\windows\currentversion\Run

4. buka HKEY_LOCAL_MACHINE\software\microsoft\windowsNT\ currentversion\winlogon dan ubah data dari key dengan name "shell" (dengan cara klik ganda) menjadi "explorer.exe". yang semula nilai data = "explorer.exe RVHOST.exe"

langkah ke-4 tidak berarti rename tapi mengubah nilai data dari key dengan name "shell".

---selamat mencoba---

...

Command Prompt - Pengganti Task Manager

2009-10-27T11:59:00.000-07:00

Jika komputer kita terkena virus, sering kali task manager diblock oleh virus tersebut untuk melindungi dirinya apabila kita hendak menghentikan process dari file induknya.

tapi kita bisa membunuh proses virus melalui command prompt (cmd). bahkan kita dapat membuat satu file batch yang bisa kita gunakan untuk menggantikan task manager.

untuk membuat file batch sebagai pengganti task manager ikuti langkah-lankgah berikut :

1. Buka notepad, dengan klik start-programs-accessories-notepad,

2. Copy Paste kode berikut pada notepad :

@echo off

title Task Manager

cls

echo =================

echo  Melihat Process

echo =================

pause

echo daftar Process

tasklist

pause

goto kill

:kill

echo masukan nama process yang akan di kill : 

set/p "nama Process=>"

taskkill  /im %nama process% /f

goto confirm

:confirm

echo hentikan process yang lain? (Y/N)

set/p "coba=>"

if %coba%==Y goto kill

if %coba%==y goto kill

if %coba%==N goto end

if %coba%==n goto end

echo tekan Y atau N

goto confirm

3. klik file - save as - beri nama "Mustilan.bat" tanpa tanda petik (nama file dapat di ganti dengan apa saja asalkan berekstensi *.bat),

===Selamat Mencoba===

Delphi - Mengambil Nama Login User

2009-10-26T00:26:00.000-07:00

Berikut adalah kode untuk mengambil nama login user dari windows menggunkan Deplhi :

procedure TForm1.Button1Click(Sender: TObject);

var Buffer:Array[0..225] of char;BuffSize :DWORD;

begin

BuffSize:=SizeOf(Buffer);

GetUserName(@Buffer,BuffSize);

ShowMessage(Buffer);

end;

Shutdown Timer pada Windows XP

2009-10-24T09:01:00.000-07:00

-

Untuk membuat timer pada windows, agar windows shutdown secara otomatis sesuai dengan waktu yang telah dilakukan kita bisa klik start => run,

pada jendela run ketikkan "tsshutdn /powerdown 6000" lalu tekan enter.
timer di atas akan mematikan windows secara otomatis dalam waktu 6000 detik.

jadi kalau kita ingin mematikan windows dalam waktu satu jam, kita tinggal ubah 6000 menjadi 3600.

klik ok pada messagebox yang muncul bersama command prompt..
(jangan menutup jendela Command Prompt)

untuk membatalkan timer kita bisa menekan tombol Ctrl+C , atau tutup jendela command prompt.

===Selamat Mencoba===

Delphi - Menutup aplikasi lain

2009-10-24T02:31:00.000-07:00

kode berikut di gunakan untuk menutup aplikasi lain dengan delphi berdasar title aplikasi yang ada pada titlebar:

Procedure TForm1.Button1Click(Sender: TObject);

var Cari:HWND;

Begin

Cari:=FindWindow(nil,'Title Aplikasi');

if Cari<>0 then PostMessage(h,WM_CLOSE)

end;

Ganti "Title Aplikasi" dengan title aplikasi yang ada pada titlebar.

Tips trik Delphi - Menyembunyikan program/aplikasi dari taskbar

2009-10-21T17:28:00.000-07:00

Kode berikut digunakan untuk menyembunyikan aplikasi dari taskbar :

Procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowLong(Aplication.handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
end;

Block/Disable Safe Mode

2009-10-21T11:41:00.000-07:00

untuk memblock/disable safe mode lakukan langkah-langkah berikut :

1. buka registry editor (regedit),
2. buka alamat HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\SafeBoot\
3. rename key 'Network' dan 'Minimal' menjadi Network-' dan 'Minimal-'.

untuk enable kembali safe mode, rename kembali key yang telah diubah.

Tips trik Delphi - Image pada ComboBox

2009-10-21T00:33:00.000-07:00

berikut adalah kode untuk menanmbah image pada komponen ComboBox :

unit Unit1;

interface

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

type
TForm1 = class(TForm)
ImageList1: TImageList;
theCombo: TComboBox;
procedure theComboDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
procedure theComboChange(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.theComboDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
theCombo.Canvas.FillRect(Rect);
ImageList1.Draw(theCombo.Canvas,Rect.Left,Rect.Top,Index);
theCombo.Canvas.TextOut(Rect.Left+ImageList1.Width+2,Rect.Top,
theCombo.Items[Index]);
end;

end.

Membasmi virus yuyun

2009-08-04T07:10:00.000-07:00

Untuk menghapus virus yuyun lakukan langkah-langkah berikut :

1. buka notepad lalu ketik ini :

reg add hkcu\software\microsoft\windows\currentversion\policies\system /v disabletaskmgr /t reg_dwrod /d 00 /f | taskmgr

2. Simpan dengan nama inggolgagah.bat

3. Double click inggolgagah.bat lalu akan Muncul task manager. kalau belum muncul double click lagi sampai muncul.

4. Bunuh process wscript.exe
5. Setelah itu, delete file wscript.exe dan database.mdb di "myDoument". kalau tidak kelihatan buat dia kelihatan alias di-show hidden folder. kalo belum kleihatan juga, hilangkan attribut system hidden (super hidden) melalui command prompt.
6. Dan yang terakhir dan merepotkan, delete folder-folder yang dibuat oleh virus ini.. tapi jangan sampai diklik ganda. ciri-ciri foldernya memiliki file type shortcut. atau kamu bisa search *.lnk pada semua drive.

cara ini sudah pernah saya coba di komputer teman yang terkena virus yuyun. dan alhamdulillah virusnya bisa hilang.

...selamat mencoba...

Mematikan Autorun dan Autoplay

2009-07-16T10:53:00.000-07:00

Fitur autorun dan autoplay adalah fitur yang mengakses file autorun.inf dalam setiap drive. karena itu, fitur autorun bisa dijadikan celah oleh virus untuk menginfeksi komputer yang dimasukkan flashdisk. selain itu fitur autorun juga dapat menghambat kinerja dari windows.

Untuk itu ada baiknya jika kita mematikan autorun dan autoplay, agar kinerja windows lebih optimal dan memperkecil celah masuknya virus.

ada beberapa cara untuk mematikan Fitur ini :

1. Mematikan Autorun melalui Registry Editor

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\

Windows\CurrentVersion\Policies\Explorer

  value : NoDriveTypeAutorun

  Type : DWORD

  Data : ff

2. Mematikan AutoPlay melalui Gruop Policy

klik menu start => run ketikan gpedit.msc , akan muncul jendela Gruop Policy,
klik administrative templates pada computer configuration,
Double klik pada folder system yang terdapat pada jendela sebelah kanan,
Double klik pada turn off autoplay,
pilih enabled, ganti CD-ROM Drive dengan all drives untuk mematikan autoplay pada semua drive,
lakukan hal yang sama pada menu administrative templates pada user configuration.

3. Mematikan AutoPlay melalui Drive Properties

klik kanan pada drive lalu pilih properties,
klik tab autoplay,
pilih tipe file dalam daftar,
tandai pilihan select an action to perform lalu pilih take no action,
lakukan hal yang sama pada tipe file yang lain,
klik OK