MEMBUAT ARRAY DAN RECORD

TUGAS PEMROGRAMAN DASAR

1.Buatlah tampilan seperti dibawah ini:

Dengan komponen objek:
a.Edit.text
b.Tbotton
c.Memo
d.Mainmemu
e.Panel
f.Label
g.XP Manifest



2.Setelah membuat tampilan seperti gambar diatas,isikan Script pada tombol Proses seperti berikut:
type nilai_mhs= record
nim:LongInt;
nama:String;
nilai:integer;
end;
type mhs=array[1..10] of nilai_mhs;
var t:nilai_mhs;
n,i,nilai: integer;
nim:longint;
nama:string;

begin
n:=StrToInt(edit1.text);
i:=i+1;
for i:= 1 to n do
begin
nama:=(InputBox('nama','Nama',''));
nim:=StrToInt(InputBox('nim','NIM',''));
nilai:=StrToInt(InputBox('nilai','Nilai',''));
Memo1.Lines.Append(IntToStr(i)+#9+(nama)+#9+('')+#9+IntToStr(nim)+#9+('')+#9+IntToStr(nilai));
Memo1.ScrollBars:=ssVertical;
end;
edit1.SetFocus;
end;
3.Isikan juga scrip yang sama diatas pada main menu(Proses).
4.Isikan Script dibawah ini pada Main menu (exit)
if messageDlg('Yakin Keluar aplikasi?',mtconfirmation,[mbok,mbCancel],0)= mrOk then
application.terminate;
5.Untuk melihat hasilnya klik RUN Atau F9

Untuk download filenya klik disini.TUGAS PEMROGRAMAN DASAR.

Read more »

MEMBUAT GAME SEDERHANA MENGGUNAKAN DELPHI

Program Games Sederhana Delphi
Halo sahabat bringinfo , udah bosan bikin program dekstop atau hitung menghitung pake delphi??? Oke sekarang saatnya menyuguhka tutorial cara membuat program game sederhana menggunakan delphi,,,
Game ini sangat lucu atau cupu yaa?? langsung saja ke KTP eh salah ke TKP,,(heheheee). Game ini terdiri dari empat tombol jebakan, lho!! hati-hati yaaa,,, untuk lebih jelasnya lihat form dibawah ini untuk memulai bikin programnya,,,,

Dan seperti biasa dalam tutorial delphi di bringinfo ini hanya memberikan screenshot program dan listingnya,, jika sahabat ingin bertanya, silahkan berkomentar ria,,,,,, Dan listingnya,,,,,,
unit untGames;

interface

uses
...

type
TForm1 = class(TForm)
...
procedure Selesai;
procedure btnStartClick(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
procedure btn3Click(Sender: TObject);
procedure btn4Click(Sender: TObject);
procedure edtNameKeyPress(Sender: TObject; var Key: Char);
procedure Timer2Timer(Sender: TObject);
procedure Timer3Timer(Sender: TObject);
private
{ Private declarations }
public
Tukar, Score, Tanya : Integer;
Blink : Boolean;
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Selesai;
begin
Timer1.Enabled := False;
btn1.Enabled := False;
btn2.Enabled := False;
btn3.Enabled := False;
btn4.Enabled := False;

edtName.Enabled := True;
edtName.SetFocus;

lblClick.Visible := False;
end;

procedure TForm1.btnStartClick(Sender: TObject);
begin
Score := 0;
Tukar := 0;

lblClick.Visible := True;
lblClick.Left := 16;
lblBravo.Caption := '';
lblBravo.Visible := False;
edtName.Enabled := False;
edtName.Clear;

Timer1.Enabled := True;
btn1.Enabled := True;
btn2.Enabled := True;
btn3.Enabled := True;
btn4.Enabled := True;
lblScore.Caption := '0';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
CapTmp : String;
begin
CapTmp := btn1.Caption;
btn1.Caption := btn2.Caption;
btn2.Caption := btn3.Caption;
btn3.caption := btn4.Caption;
btn4.Caption := CapTmp;
Inc(Tukar);

if Tukar > 16 then
Selesai;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
if btn1.Caption = 'x' then
Score := Score + 10
else
Score := Score - 5;

lblScore.Caption := IntToStr(Score);
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
if btn2.Caption = 'x' then
Score := Score + 10
else
Score := Score - 5;

lblScore.Caption := IntToStr(Score);
end;

procedure TForm1.btn3Click(Sender: TObject);
begin
if btn3.Caption = 'x' then
Score := Score + 10
else
Score := Score - 5;

lblScore.Caption := IntToStr(Score);
end;

procedure TForm1.btn4Click(Sender: TObject);
begin
if btn4.Caption = 'x' then
Score := Score + 10
else
Score := Score - 5;

lblScore.Caption := IntToStr(Score);
end;

procedure TForm1.edtNameKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
lblBravo.Visible := True;
if Score >= 50 then
lblBravo.Caption := 'Bravooo... ' + edtName.Text
else
lblBravo.Caption := 'Not Lucky ' + edtName.Text;

btnStart.SetFocus;
end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Blink := not Blink;
if Blink then
lblBravo.Font.Color := clRed
else
lblBravo.Font.Color := clBlue;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
if lblClick.Left <= 230 then
lblClick.Left := lblClick.Left + 1
else
lblClick.Left := 0;
end;

procedure TForm1.btnExitClick(Sender: TObject);
begin
Tanya := Application.MessageBox('Are You Sure To Quit From This Program?',
'Confirmation', MB_YESNO + MB_ICONQUESTION);
if Tanya = 6 then
begin
Application.MessageBox('Thanx So Much... For Using This Program'
, 'Byee. .
Byee..', MB_OK + MB_ICONINFORMATION);
Application.Terminate;
end;
end;

end.

Read more »

CARA MENGECAK VIRUS DENGAN VB

Versi 1.0.0
Merupakan generasi awal. plugin yang dibuat untuk mempermudah para AV maker untuk melacak Viri yang mem-pack tubuhnya dalam arsip. Di versi awal ini terdapat 2 fungsi yaitu :

1-CRC32. Kalian bisa mengecek viri yang berada dalam arsip dengan checksum CRC32 ini.

CODE
API: Private Declare Function AURAscnCRC32 Lib "AURArchvScn.dll" (ByVal ArchivePath As String, ByVal pCRC32 As String) As Long

Kode: if AURAscnCRC32(ArchivePath, pCRC32) > 0 then MessageBox "Ada Virus"
2-FileName. Mungkin agak kurang efektif untuk memeriksa viri melalui nama file. Tapi lihat Conflicker !!! nama file induknya Static

CODE
API : Private Declare Function AURAscnFile Lib "AURArchvScn.dll" (ByVal ArchivePath As String, ByVal pFile As String) As Long

Kode : if AURAscnFile(ArchivePath, pFile) > 0 then MessageBox "Ada Virus"
Ket :
ArchivePath : Alamat dari Arsip yang akan diperiksa
pCRC32 : Nilai CRC virus yang ada dalam database AV kamu
pFile : Nama file virus yang ada dalam database AV kamu

Nilai value pada fungsi
0 = Bersih
>0 = Ada virus
-1 = Tidak bisa dibaca(kemungkinan proteksi password atau rusak)

Versi 1.0.2
1. Fungsi API sudah bisa digunakan (Export Function)
2. Penambahan fungsi AURAscnByteCount & AURAscnByteCheck
Berguna untuk para AV-Maker yang ingin membuat checksum tersendiri
dengan memanfaatkan byte yang tersedia

Adapun contoh kode dari pengecekan byte adalah

CODE
API - Private Declare Function AURAscnByteCount Lib "AURArchvScn.dll" (ByVal ArchivePath As String) As Long
Private Declare Function AURAscnByteCheck Lib "AURArchvScn.dll" (ByVal ArchivePath As String,pIndex as Long) As Long
Kode :

Dim tCount as long,tByte as long,l as long

tCount = AURAscnByteCount(ArchivePath) 'Dapatkan kumpulan File yang ada dalam arsip
if tcount > 0 then 'Jika lebih dari 0 maka lanjutkan ke line selanjutnya
for l = 1 to tcount 'Untuk l = Index dari tCount
tByte = AURAscnByteCheck(ArchivePath,l) 'Dapatkan Byte dari Index file arsip,dan masukkan ke tByte

''Disini listing kode yang akan kamu tulis
''apabila hendak membuat checksum/hash sendiri
''sudah tersedia byte yang bisa dikalkulasikan

next l 'Lanjurkan pencarian
end if 'Akhir dari pencarian

Read more »