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 »

Office For Mac 2011 SP1 Siap Digulirkan Pada Minggu Depan

Office For Mac 2011 SP1 Siap Digulirkan Pada Minggu Depan

Dalam rangka memperluas jangkauan lintas platformya, Microsoft baru saja telah mengkonfirmasi tentang ketersediaan Office For Mac 2011 Service Pack 1 (SP1) yang akan segera hadir pada minggu depan. Paket software office yang diperuntukkan bagi platform Mac ini berfokus pada penyediaan stabilitas, keamanan, serta fitur terbaru yang lebih ditingkatkan, termasuk juga dukungan sinkronisasi Outlook.

Menurut publikasi Pat Fox yang dilansir di blog resmi Office For Mac SP1, paket software ini akan memungkinkan sinkronisasi kalender antara Apple Sync Services dengan Outlook For Mac. “Fitur ini akan memungkinkan Anda untuk melakukan sinkronisasi kalender Outlook Anda beserta kontak-kontak, catatan-catatan dan tugas-tugas dengan layanan atau perangkat apapun yang mendukung Sync Services tersebut, termasuk iPhone dan iPad”, jelas Pat. Sedangkan menurut staf Microsoft sendiri, hal ini telah menjadi salah satu permintaan paling banyak dari pengguna Office for Mac”… semoga saja ini adalah berita yang bagus buat Anda semua”, seperti apa yang telah ditulis oleh salah seorang blogger beberapa waktu yang lalu.

Terutama hal ini penting bagi pengguna yang sangat mengandalkan MobileMe untuk melakukan sinkronisasi dokumennya antara perangkat yang ada. Berkaitan dengan itu, Microsoft juga mengingatkan kepada para penggunanya bahwasanya layanan tersebut akan disinkronisasikan lagi dengan MacOS Sync Services pada tanggal 5 Mei 2011 mendatang.

Bagi pengguna yang telah memindahkan accountnya ke versi MobileMe Calender terbaru pastilah Anda telah melihat perubahan ini berlaku. “Akibatnya, kalender Outlook 2011 SP1 yang disinkronisasikan dengan Sync Services pada Mac, tidak akan disinkronisasikan dengan kalender MobileMe”, jelas Pat.

Sebuah tabel yang menjabarkan layanan dukungan pada Outlook For Mac 2011 SP1 telah tersedia seperti apa yang telah ditampilkan di atas.

“Office For Mac SP1 merupakan sebuah langkah maju yang besar”, lanjut Pat. “Tapi Kita mengetahui kalu Kita mempunyai lebih banyak pekerjaan yang harus dilakukan, khususnya di sekitar integrasi yang lebih baik dengan layanan tambahan yang ada”.

Posting berakhir dengan daftar beberapa fitur terbaru lainnya kabarnya baru akan dirilis pada minggu depan, termasuk: dukungan Outlook untuk Exchange yang berbasis aturan server-side, tombol Outlook Redirect (yang memungkinkan Anda dapat mengarahkan pesan ke penerima yang dituju dan balasan akan terkirim langsung ke pengirim asli), tombol Outlook Resend, edit keberadaan pesan pada Outlook, dan mendukung integrasi Solver pada Excel.

Bagi pengguna Mac yang berminat mencoba, dapat men-download Office For Mac 2011 versi trial selama 30-hari ini secara gratis. Seluruh fitur-fitur utama sepenuhnya diaktifkan. Dengan kata lain, Office for Mac 2011 versi trial ini mampu membantu pekerjaan Anda bekerja selama satu bulan penuh tanpa batasan apapun.

Read more »

Nvidia GeForce GTX 590 Terbaru

Nvidia GeForce GTX 590 Terbaru Kemungkinan Hadir Februari 2011

NVIDIA dilaporkan sedang berencana memperkenalkan kartu grafis baru terbarunya yaitu GeForce GTX 590. Menguatkan kebocoran sebelumnya, kartu tersebut diduga akan mengintegrasikan GPU GF110 dual core dengan 1024 core CUDA dan memori 3GB, yang didapat dari NordicHardware. Informasi terbaru menunjukkan kebocoran lain, yang terkait nama GTX 595, yang mungkin menjadi prototipe dari GTX 590.

Kartu efektif akan menggandakan jumlah core CUDA dari varian yang sudah ada yaitu GTX 580, yang hanya mengintegrasikan GPU tunggal. Model baru dilaporkan membawa peningkatan yang berarti pada efisiensi, dengan tegangan yang lebih rendah dan kemungkinan penurunan pada frekuensi clock. Konfigurasi ini juga mengatakan dipasangkan dengan bus memori 2×384-bit.

GTX 590 ini telah dipasangkan dengan tanggal peluncuran bulan Februari, meskipun perusahaan tersebut belum mengkonfirmasi rincian kartu selengkapnya. (sumber)

Read more »

BERITA TEKNOLOGI

1. Asus U31SD Laptop Ramping & Ringan Terbaru dengan Intel Sandy Bridge

Asus memperkenalkan notebook dengan layar 13.3-inci terbaru yang tipis dan ringan bernama Asus U31SD. Laptop ini didukung oleh prosesor Core i3/i5 dengan arsitektur Intel Sandy Bridge generasi kedua . Notebook ramping ini memiliki desain elegan dan tebal bawah 1 inci . Notebook Asus ini didukung oleh prosesor Core i3 -2310M atau Core i5-2410M dengan grafis terintegrasi Intel GMA HD atau NVIDIA GeForce GT520M opsional dengan 1GB memori video.

Asus U31D dilengkapi kapasitas penyimpanan sampai 750GB untuk hard drive dan 5-in-1 card reader untuk tambahan penyimpanan juga mendukung WiFi 802.11b/g/n dan opsional Bluetooth 2.1, serta dilengkapi dengan speaker Altec Lansing dan webcam 0,3 Megapixel. NotebookAsus U31SD ini memiliki layar beresolusi 1366 × 768 13.3-inci LCD dan menawarkan output HDMI. (sumber)

2. Transcend StoreJet 25H3P HardDisk Eksternal Terbaru 1 TB dengan USB 3.0

Transcend menambah produk baru pada lini eksternal hard drive sebanyak dua biji yaitu 2 model baru. Yang pertama adalah StoreJet 25H3P yang telah menggunakan antarmuka SuperSpeed ​​USB 3.0, dan StoreJet 25H2P yang masih dengan USB 2.0, keduanya dilengkapi dengan kapasitas penyimpanan 1TB. Kedua harddisk eksternal StoreJet baru ini datang dengan casing keras diperkuat yang mendistribusikan kekuatan dampak dan menggunakan karet anti-slip. Menurut perusahaan, mereka telah lulus tes drop-test ala militer AS yang ketat.

StoreJet 25H3P menawarkan hingga 90MB / kecepatan transfer, berkat koneksi USB 3.0. Versi dengan USB 3.0 drive harga nya $ 205 sedangkan StoreJet 25H2P lebih murah yaitu $ 185. (sumber)

Read more »

Perbedaan WI-FI (802.11) DAN WIMAX (802.16)

A.WIFI 802.11

o Singkatan Wireless Fidelity, istilah untuk teknologi Wireless berbasis standar 802.11.
o 802.11 adalah spesifikasi standar yang dibangun oleh IEEE untuk mendefinisikan teknologi wireless LAN dan disetujui pada 1997.
o WLAN akronim Wireless Local Area Network. Sebuah jaringan lokal yang menggunakan frekuensi radio sangat tinggi untuk mentransmisikan data antar titik, menggantikan fungsi kabel pada jaringan konvensional.
o WiFi menggunakan standar komunikasi IEEE 802.11b dengan kecepatan 11 Mbps, hanya mencapai cakupan area tidak lebih dari ratusan meter saja.
o 802.11 adalah standar IEEE untuk W-LAN indoor

Keuntungan Wifi

oKeuntungan dari sistem WIFI adalah pemakai tidak dibatasi ruang gerak dan hanya dibatasi pada jarak jangkauan dari satu titik pemancar WIFI. Untuk jarak pada sistem WIFI mampu menjangkau area 100feet atau 30M radius.
o 802.11 sudah sangat murah perangkatnya, dibanding 802.16 yang masih bekerja di atas 3GHz

B.WIMAX (802.16)

o Worldwide Interoperability for Microwave Access (WiMAX) merupakan standar industri yang bertugas menginterkoneksikan berbagai standar teknis yang bersifat global menjadi satu kesatuan.
o Teknologi WiMAX lebih murah dibandingkan dengan teknologi broadband lain seperti digital subscriber line (DSL) atau kabel modem
o 802.16 untuk standar WLAN outdoor
o WiMAX merupakan saluran komunikasi radio yang memungkinkan terjadinya jalur internet dua arah dari jarak puluhan kilometer. Dengan memanfaatkan gelombang radio, teknologi ini bisa dipakai dengan frekuensi berbeda, sesuai dengan kondisi dan peraturan pemakaian frekuensi di negara user.
o Pada awalnya standard IEEE 802.16 beroperasi ada frekuensi 10-66 GHz dan memerlukan tower line of sight, tetapi pengembangan IEEE 802.16a yang disahkan pada bulan Maret 2004,menggunakan frekuensi yang lebih rendah yaitu sebesar 2-11 GHz, sehingga mudah diatur dan tidak memerlukan line-of-sight. Cakupan area yang dapat dicoverage sekitar 50 km dan kecepatan transfer data sebesar 70 Mbps.

Keuntungan WiMAX

o Operator telekomunikasi dapat menghemat investasi perangkat, karena kemampuan WIMAX dapat melayani pelanggannya dengan area yang lebih luas dan dengan kompatibilitas yang lebih tinggi.
o Pengguna akhir akan mendapatkan banyak pilihan dalam berinternet.WiMAX merupakan salah satu teknologi yang dapat memudahkan kita untuk koneksi dengan internet secara mudah dan berkualitas.
o Dari segi coverage-nya saja yang mencapai 50 kilometer maksimal, WiMAX sudah memberikan kontribusi yang sangat besar bagi keberadaan wireless MAN.
o Dapat melayani para subscriber, baik yang berada pada posisi line of sight (LOS) maupun yang memungkinkan untuk tidak line of sight (NLOS)

Untuk download lengkapnya berbentuk Docx,DISINI!!!

Referensi: http://denid3akatel.blogspot.com/2008/11/perbedaan-wi-fi-80211-wimax-80216.html

Read more »