cara membuat game spombox dengan delphi 7

Tutorial Membuat Game spongbob Vs Plankton Delphi 7

Game Spongbob Vs Plankton
Game  ini bercerita tentang spongbob dan plankton sedang berrebut burger dan musuh spongbob tidak hanya plankton tp juga ubur2 yang mgnejar spongbob,,,
skrang saya akan memposting cara membuat game tersebut.. . . . .. 

syaratya anda harus memiliki aplikasi delphi boleh versi 6 atau versi 7,,
Mulai dengan open new from
buat desain from sebagai berikut
kalau sudah membuat desain lalu kita memberi nama pada setip gambar
spongbob = image,name=spongbob
 plankton  = image,name=plankton
ubur1       = image,name=mungsuh
ubur2       = image,name=musuh2
burger      =image,name=point
kotak putih pada tanah adalah image =image,tanah
speedbutton      =sbatas,sbbawah,sbkanan,sbkiri

dibawah waktu tambah label dengan nama ldljam
dibawah bob tambah label dengan nama skorbob
dibawah plankton tambah label dengan nama sekorplankton

tambah variabel:
var
  Form1: TForm1;
   lima : Integer;
   lemah : Integer;
   vskorbob,vsekorplankton : Integer;
   menit , detik : Integer ;
   jamawal , jamakhir , ketpemenang : String ;

dan tambah kode from-> even -> OnCreate masukan kode

procedure TForm1.FormCreate(Sender: TObject);
begin
lima:= 10;
lemah:= 5;
vskorbob:= 0;
vskorbob:= 0;
menit:= 5;
detik:= 0;
ketpemenang:=TimeToStr(Now);
end
;


untuk menggerakan spongbob kearah atas
klik2x pada sbatas dan masukan kode 

procedure TForm1.sbatasClick(Sender: TObject);
begin
if spongbob.Top>=125 then
begin
       spongbob.Top:=spongbob.Top-10 ;
end
end;

untuk menggerakan spongbob kebawah atas
klik2x pada sbbawah dan masukan kode

procedure TForm1.sbbawahClick(Sender: TObject);
begin
if spongbob.Top+spongbob.Height<=Panel1.Height then
begin
      spongbob.Top:=spongbob.Top+10 ;
end
end;

untuk menggerakan spongbob kekanan atas
klik2x pada sbkanan dan masukan kode

procedure TForm1.sbkananClick(Sender: TObject);
begin
if spongbob.Left+spongbob.Width < Panel1.Width   then
 begin
    spongbob.Left:=spongbob.Left+10 ;
 end
end;
untuk menggerakan spongbob kekiri atas
klik2x pada sbkiri dan masukan kode
 
procedure TForm1.sbkiriClick(Sender: TObject);
begin

  if spongbob.Left >= Panel1.Left  then
  begin
       spongbob.Left:=spongbob.Left-10 ;
  end
end;

Untuk dapat menggerakan spongbob dengan keyboard pada from -> Even->OnKeyDown klik2x
lalu masukan kode

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key=VK_left then
        begin
                sbkiriClick(Owner);
        end;

        if Key=VK_right then
        begin
                sbkananClick(Owner);
        end;
        if Key=VK_up then
        begin
                sbatasClick(Owner);
        end;
        if Key=VK_down then
        begin
                sbbawahClick(Owner);
        end;
end;

ubur1 agar bisa bergerak maka pada timer1 klik2x masukan kode

procedure TForm1.Timer1Timer(Sender: TObject);
begin


 mungsuh.Left:=mungsuh.Left+3;
 mungsuh.top:=mungsuh.Top+lima;


 if mungsuh.Left> Panel1.Width then
 begin
      mungsuh.Left:=-100;
 end;

  if mungsuh.Top+mungsuh.Height>Panel1.Height then
    begin
       lima:=-lima;
    end;


 if mungsuh.Top<0 then
     begin
       lima:=-lima;
     end;

   if (spongbob.Left+spongbob.Width>poin.Left) and
      (spongbob.Left<poin.Left+poin.Width)     and
      (spongbob.Top+spongbob.Height>poin.Top) and
      (spongbob.Top<poin.Top+poin.Height) then
   begin

    Randomize;
    poin.Left:=random(Panel1.Width-poin.Height);
    poin.Top:=tanah.top+random(tanah.Height-poin.Height);
    vskorbob:=vskorbob+10;
   end ;


untuk agar ubur2 dapat berjgerak mengejar spongbob maka pada timer2 tmbahkan kode

if musuh2.Left+5>spongbob.Left then
      begin
        musuh2.Left := musuh2.Left-3;
      end
      else
      begin
        musuh2.Left := musuh2.Left+3;
      end;

    if musuh2.Top+musuh2.Height-5>=spongbob.Top then
    begin
      musuh2.Top:=musuh2.Top-2;
    end
    else
    begin
    musuh2.Top:=musuh2.Top+2;
    end;

    if (musuh2.Left+musuh2.Width>spongbob.Left) and
      (musuh2.Left<spongbob.Left+spongbob.Width)     and
      (musuh2.Top+musuh2.Height>spongbob.Top) and
      (musuh2.Top<spongbob.Top+spongbob.Height) then
   begin


    vskorbob:=vskorbob-1;
   end ;


menggerakan plankton pada timer2 tambah kode sbb:

if plankton.Left+5>poin.Left then
      begin
        plankton.Left := plankton.Left-4;
      end
      else
      begin
        plankton.Left := plankton.Left+4;
      end;

    if plankton.Top+plankton.Height-5>=poin.Top then
    begin
      plankton.Top:=plankton.Top-3;
    end
    else
    begin
    plankton.Top:=plankton.Top+3;
    end;

    if (plankton.Left+plankton.Width>poin.Left) and
      (plankton.Left<poin.Left+poin.Width)     and
      (plankton.Top+plankton.Height>poin.Top) and
      (plankton.Top<poin.Top+poin.Height) then
   begin

    Randomize;
    poin.Left:=random(Panel1.Width-poin.Height);
    poin.Top:=tanah.top+random(tanah.Height-poin.Height);
    vsekorplankton:=vsekorplankton+10;
   end ;



Untuk waktu game dan kondisi saat waktu habis pada timer2 tambah kode




jamakhir:=TimeToStr(now);
if jamawal<>jamakhir then
begin
detik:=detik-1;
if detik<0 then
begin
detik:=59;
menit:=menit-1;
end;
end;



if menit<0 then
  begin

    if vskorbob > vsekorplankton then
      begin
        ketpemenang:='Selamat Anda Menang';
      end
      else
      if vskorbob<vsekorplankton then
      begin
        ketpemenang:='Maaf anda kalah..';
      end
      else
      begin
        ketPemenang:='Permainan Seri';
      end;
        Timer1.Enabled:=false;
        Timer2.Enabled:=false;
        MessageDlg(ketpemenang,mtInformation,mbOKCancel,0);
        //running program berhenti
        Application.Terminate;
      end;
        jamawal:=jamakhir;
        ldlJam.Caption:='0'+IntToStr(menit)+':'+
        IntToStr(detik);
    if detik<10 then
      begin
        ldlJam.Caption:='0'+IntToStr(menit)+':'+
        '0'+IntToStr(detik);
      end;


end;





Selamat Mencoba

cara membuat hyperlink powerpoint 2007

Cara Membuat Hyperlink Powerpoint 2007- Hyperlink digunakan untuk mengontrol dan menghubungkan atau menggabungkan antar dokumen presentasi atau antara program presentasi dengan program aplikasi yang lain baik di dalam satu komputer, antarkomputer, atau internet.
Gambar 3.65. Hyperlink digunakan untuk menghubungkan dokumen yang satu dengan yang lainnya
Gambar 3.65. Hyperlink digunakan untuk menghubungkan dokumen yang satu dengan yang lainnya
Menu pilihan yang digunakan untuk menggabungkan dokumen presentasi adalah hyperlink dalam tab menu Insert. Proses pembuatan dan penggunaan hyperlink adalah sebagai berikut.
1. Buatlah presentasi baru sebagai slide pertama, misalnya sebagai berikut.
Gambar 3.66. Halaman utama untuk membuat hyperlink
Gambar 3.66. Halaman utama untuk membuat hyperlink
2. Pada slide pertama, bloklah teks bertuliskan “definisi” dan klik tab menu Insert. Kemudian, klik Hyperlink pada submenu Links.
3. Selanjutnya akan muncul tayangan sebagai berikut.
Gambar 3.67. Kotak dialog Insert Hyperlink
Gambar 3.67. Kotak dialog Insert Hyperlink
4. Klik Bookmark hingga muncul tampilan sebagai berikut.
Gambar 3.68. Kotak dialog proses pemilihan file hyperlink
Gambar 3.68. Kotak dialog proses pemilihan file hyperlink
5. Klik OK pada slide yang ditunjuk untuk dihubungkan, misalnya pada slide kedua, klik OK, maka pada teks yang Anda blok tadi akan bergaris bawah dan itu menunjukkan bahwa teks tersebut merupakan hyperlink. Perhatikan tampilan berikut.
Gambar 3.69. Tampilan hasil file hyperlink
Gambar 3.69. Tampilan hasil file hyperlink
6. Lakukan dengan langkah yang sama untuk melanjutkan hyperlink berikutnya.
Membuat Navigasi Powerpoint 2007
Navigasi terdiri dari tombol-tombol panduan untuk berpindah dari satu bagian dokumen ke dokumen yang lain dalam satu dokumen. Dengan menggunakan tombol navigasi tampilan slide dapat diatur dengan urutan, arah, dan tujuan sesuai dengan keinginan kita.
1. Pengendali/Pengatur (Navigator) Tampilan Slide dengan Tombol Aksi
Untuk mengatur tampilan slide dengan tombol aksi dilakukan dengan cara sebagai berikut.
a. Bukalah presentasi yang berisi sejumlah slide (yang akan diatur tampilannya).
b. Buka salah satu slide yang akan diatur urutan/arah tampilannya.
c. Klik tab menu Slide Show, kemudian muncul kotak dialog Action Setting/seting aksi.
d. Pilih Mouse click jika ingin menggunakan klik mouse untuk meng-gerakkan tampilan slide.
e. Pilihlah Hyperlink to untuk menentukan pilihan slide yang akan ditampilkan.
  1. Next slide, digunakan untuk memilih tampilan slide berikutya.
  2. Previous slide, digunakan untuk memilih tampilan slide sebelumnya.
  3. First slide, digunakan untuk menuju slide pertama.
  4. Last slide, digunakan untuk menuju slide terakhir.
  5. End show, digunakan untuk mengakhiri tampilan slide.
  6. Slide, digunakan untuk memilih tampilan slide tertentu/pilihan.
  7. Other PowerPoint Presentation, digunakan untuk memilih slide dari presentasi lain.
  8. Other file, digunakan untuk membuka file dari aplikasi program yang berbeda.
f. Klik OK.
Gambar 3.70. Action Settings untuk mengatur tampilan tombol aksi
Gambar 3.70. Action Settings untuk mengatur tampilan tombol aksi
1) Next slide, digunakan untuk memilih tampilan slide berikutya.
2) Previous slide, digunakan untuk memilih tampilan slide sebelumnya.
3) First slide, digunakan untuk menuju slide pertama.
4) Last slide, digunakan untuk menuju slide terakhir.
5) End show, digunakan untuk mengakhiri tampilan slide.
6) Slide, digunakan untuk memilih tampilan slide tertentu/pilihan.
7) Other PowerPoint Presentation, digunakan untuk memilih slide dari presentasi lain.
8) Other file, digunakan untuk membuka file dari aplikasi program yang berbeda.
f. Klik OK.
Materi/Bagian Slide sebagai Navigator
Untuk memanfaatkan materi/bagian slide sebagai navigator, dilakukan dengan cara sebagai berikut.
a. Bukalah presentasi yang berisi sejumlah slide (yang akan diatur tampilannya).
b. Buka salah satu slide yang akan diatur urutan/arah tampilannya.
c. Sorot atau blok materi/bagian slide yang akan digunakan sebagai navigator (pengatur arah/gerak).
d. Klik tab menu Slide Show, kemudian pilih Action Settings.
e. selanjutnya akan ditampilkan kotak dialog Action Settings.
f. Atur setting pengaturan yang diinginkan (seperti pada point di atas).
g. Klik OK.

cara upload video ke youtube

Cara Upload Video ke Youtube - Seperti yang anda ketahui youtube adalah situs berbagi video terbesar saat ini. Situs besar yang memiliki pengunjung hingga 800 juta orang perbulannya ini bisa dibilang situs terpopuler nomor 3 versi alexa. Bukan menjadi rahasia lagi kalau banyak orang yang sukses meraup ketenaran dari youtube. Sebut saja contohnya Norman Kamaru yang berhasil menjadi terkenal hanya karena video lypsing buatannya.
Oleh karena itu, kali ini saya akan memberitahukan bagaimana cara upload video anda ke youtube agar bisa di tonton oleh jutaan pengguna youtube di seluruh dunia. Siapa tahu saja anda beruntung dan bisa meraih ketenaran dari situs ini. 
Anda bisa mengupload video anda dari komputer anda maupun melalui rekaman langsung pada webcam anda. Untuk mengetahui lebih jelasnya, simak langkah-langkah berikut :
Cara Upload Video ke Youtube
  • Yang pasti anda haruslah memiliki sebuah akun google atau gmail dulu untuk bisa upload video ke youtube. Bila anda belum memilikinya silahkan ikuti panduan Cara Membuat Email Google - Gmail.
  • Bila sudah, silahkan buka Youtube.com dan login menggunakan akun anda.
  • Perhatikan di bagian atas, tepatnya di sebelah kolom search. Klik tombol yang bertuliskan UPLOAD (Perhatikan gambar dibawah !) 
Cara Upload Video ke Youtube
  • Jika ini kali pertama anda melakukan upload video ke youtube maka akan muncul pop up seperti dibawah ini. cukup klik tombol OKE, SAYA SIAP UNTUK MELANJUTKAN
Cara Upload Video ke Youtube
  • Sekarang tinggal menentukan file yang akan di upload. Seperti yang tadi sudah saya bilang, ada dua cara yaitu 
  1. Upload video dari komputer anda (Klik tombol yang ditunjuk oleh anak panah berwarna merah)
  2. Upload video yang anda rekam langsung dari webcam (Klik tombol yang ditunjuk oleh anak panah berwarna hijau) 

Cara Upload Video ke Youtube
  • Dalam tutorial saya kali ini saya akan upload video dari komputer saya. Berarti saya klik tombol yang di tunjuk oleh anak panah berwarna merah. Setelah itu pilih file video yang akan di upload. 
  • Muncul halaman baru. Di sana akan muncul 4 bagian penting yang terdiri dari :
  1. Proses Upload : Menunjukan proses dalam satuan persen (%) dari video yang sedang anda upload.
  2. Title : Bisa anda ganti dengan judul dari video yang anda sedang upload.
  3. Description : Isikan mengenai penjelasan dari video yang sedang anda upload.
  4. Tag : Berikan penanda dari video yang anda upload. Gunanya untuk memudahkan dalam pencarian.
Perhatikan gambar di bawah !
Cara Upload Video ke Youtube
  • Tunggu saja sampai proses upload selesai, maka setelah itu youtube akan memberikan anda link dari video tersebut. Anda bisa langsung mengunjungi halaman tersebut dan melihatnya.
Bila anda mengikuti semua langkah-langkah di atas, harusnya anda sudah berhasil mengupload video anda ke youtube. Selain upload, kita juga bisa mendownload video-video dari youtube. Sudah tahu caranya ? kalau belum silahkan baca disini Bagaimana Cara Download Video Dari Youtube ?
Baiklah saya rasa deimikian update saya kali ini mengenai Cara Upload Video ke Youtube semoga bermanfaat !

cara mempercepat kinerja komputer

Cara Mempercepat Kinerja Komputer

Follow Us to Update News :
Komputer merupakan salah suatu benda yang bisa melakukan berbagai jenis aktifitas dan dapat mempermudah pekerjaan anda. Kini komputer PC merupakan salah satu benda yang wajib dimiliki oleh setiap orang sebagai akibat dari perkembangan teknologi yang begitu pesat di era modern seperti sekarang ini. Jika komputer PC atau laptop yang anda punya terasa begitu berat dan lemot, anda akan kesal bukan?
Oleh karena itu sekarang saya akan memberikan Tips dan Trik tentang Cara Mempercepat Kinerja Komputer :

 .: Tips Trik Mempercepat Kinerja Komputer :.

  • Perhatikan Visual Grafis
Efek efek visual grafis komputer anda seringkali memberatkan kinerja komputer PC anda. Oleh karena itu anda harus memilih antara mementingkan visual grafis/tampilan dari komputer anda atau lebih mementingkan kualitas dan performa dari komputer PC anda. Bagaimana caranya? Ikuti langkah-langkah sebagai berikut :
 Klik kanan icon My Computer -> Klik Kanan -> Properties -> (Tab) Advance -> (Performance -> Setting) -> Visual Effects

Nah disitu kan ada pilihan antara mementingkan kualitas gambar atau performa komputer PC, anda pilih saja yang anda utamakan. Atau anda bisa pilih sendiri di menu custom, tinggal check/uncheck pilihan anda sesuai dengan keinginan dan kebutuhan anda.

  • Hindari Program-program yang Tidak Berguna
Seringkali anda hanya menginstall program untuk memenuhi isi komputer anda. Padahal semakin banyak program yang ada di komputer anda maka hardisk akan lebih penuh. Dan semakin banyak isi hardisk yang terpakai maka komputer anda akan berjalan lebih lambat pula. Oleh karena itu saya sarankan anda agar :

- Uninstall program-program yang tidak berguna
Caranya : Control Panel -> Add or Remove Programs
Nah disitu akan kelihatan mana program-program yang sering anda pakai dan mana yang tidak. Sebaiknya untuk program yang jarang anda pakai maka di hapus saja dari komputer PC anda.

- Lakukan Disk Cleanup
Disk Cleanup ini akan membersihkan file-file bekas yang sudah tidak dibutuhkan lagi sehingga dapat menghemat space hardisk anda.
Caranya : My Computer -> C: (sesuai dengan hardisk yang anda ingin bersihkan) -> Klik Kanan -> Properties -> Disk Cleanup

- Defragment Hardisk Berkala
Defragment ini juga bisa membersihkan hardisk dari data-data yang tidak berguna. Sehingga jika anda melakukan defragment hardisk ini akan menambah free spac penyimpananan hardisk anda.
Caranya : My Computer -> C: (sesuai dengan hardisk yang anda ingin bersihkan) -> Klik Kanan -> Properties -> (tab) Tools -> Defragment Now

  • Melakukan Tweaking dengan Software
Banyak software yang tersedia yang mampu meningkatkan performa komputer anda. Diantaranya Tune Up Utilities, CCleaner, RegCleaner dan masih banyak lagi. Tools-tools tersebut juga bisa membersihkan registry anda dari kesalahan-kesalahan / Error. Anda dapat mencari sofware - software tersebut di google maupun indowebster.

  • Optimalkan Virtual Memori
Caranya :
My Computer -> Klik Kanan -> Properties -> (Tab) Advance -> (Performance -> Setting) -> Advanced -> (Virtual Memori -> Change)
Nah disitu ada bagian custom size anda isi disitu sesuai dengan yang ada di Reccomended

  • Matikan beberapa fitur Start Up yang tidak berguna
Caranya :
  • Start Menu -> RUN -> Ketikan MSCONFIG -> OK / Enter -> Pilih menu Start Up >> Hilangkan semua centang pada Start up kecuali Program Anti virus
  • Klik Menu service -> Hilangkan centang pada Automatic Updates
  • Setelah itu tekan Apply lalu OK

Oke mudah-mudahan tips dan trik diatas dapat membantu anda untuk mempercepat kinerja dari komputer anda, sekian .. ^^

cara mengetahui bacsektor pada hardisk



Cara Mengetahui Bad Sector Pada Hardisk dan Memperbaikinya
Jum’at 22 maret 2013
Bisa jadi kita sering mengalami pada komputer kita bahwa ada beberapa file data yang hilang, tidak dapat dibaca atau rusak dan tidak dapat untuk mengakses file dan folder tertentu. Ini mungkin merupakan penyebab masalah bad sector. Sektor adalah ruangan penyimpanan pada hard disk. Dan bad sector adalah sektor pada disk dimana data tidak dapat ditulis atau dibaca karena kerusakan fisik atau inkonsistensi paritas dalam pemeriksaan bit pada disk.

Ada beberapa penyebab Bad sector antara lain :
  1. Melemahnya magnetik dari piringan hardisk dan kesalahan mekanis. Kemungkinan, daerah magnetik disk kehilangan magnet dan karenanya ketidakmampuan untuk menyimpan data.
  2. Akibat dari guncangan atau getaran, dimana saat anda mengoperasikan komputer, dan saat hardisk sedang melakukan proses baca dan tulis, bila terjadi goncangan atau getaran, dapat menyebabkan head akan menggesek piringan dari hardisk sehingga menyebabkan goresan pada piringan, sehingga terjadi bad sector.
  3. Daya listrik yang menurun secara tiba-tiba saat hardisk melakukan proses baca dan tulis, sehingga head akan terhenti mendadak dan bekerja mendadak saat daya listrik naik lagi secara tiba-tiba, dimana head dapat menggesek piringan hardisk
  4. Akibat dari susunan file pada hardisk tidak teratur, sehingga head tidak teratur dalam membaca urutan file yang dibutuhkan sebuah aplikasi, yang lama-kelamaan head dapat menggesek plater dari hardisk dan mengakibatkan bad sector pada hardisk
 Untuk mengetahui ada tidaknya bad sector pada hardisk kita, maka bisa dilakukan langkah-langkah berikut ini :

1. masuk ke command prompt. Start => Run => CMD
2. kemudian ketikkan perintah CHKDSK c: kemudian enter. ini untuk mengecek pada drive C. penulisan chkdsk bisa juga diketikkan huruf kecil.
3. maka system akan mulai proses menganalisa hardisk temen-temen. dan setelah selesai akan muncul keterangan seperti gambar di bawah ini :
bad-sector

dari keterangan di atas kita dapatkan informasi :

- Total Disk Space, menyatakan besaran kapasitas maksimum dari hard disk
- n Files, menyatakan n/Jumlah file yang berada di dalam satu drive
- Bad Sector, menyatakan jumlah bytes yang terkena bad sector dalam satu drive (jika 0(nol) bytes berarti hard disk anda adalah Sehat dan bilah lebih besar dari 0 (nol) maka hard disk kita sudah ada Bad Sector-nya jadi waspadalah karena dengan adanya bad sector kemungkinan terjadi kerusakan data dapat terjadi kapan saja)
- Available, menyatakan kapasitas hard disk dalam satu drive yang masih bisa digunakan untuk menyimpan data.

 Memperbaiki Bad Sector

1. Menggunakan fasilitas yang disediakan Windows
  • Double klik My Computer, kemudian klik kanan partisi hardisk anda, contohnya C, D atau E yang ingin anda periksa.
  • Kemudian Klik Properties, Lalu klik tombol Tools.
  • Selanjutnya klik Check now.
  • Dan pilihlah modus Repair

2. Menggunakan beberapa software seperti HDD Regenerator, atau software Low Level Format.

Namun apabila jumlah bad sector pada hardisk sudah terlalu banyak, maka bersiaplah untuk segera membackup file-file yang ada dan menggantinya dengan hardisk baru.

demikian semoga bermanfaat.

Translate

- Copyright © PENGHAYAL - Hatsune Miku - Powered by Blogger - Designed by Johanes Djogan -