Selasa, 10 Juli 2012

Percabangan Pada Delphi




Percabangan dalam Delphi merupakan suatu sintaks dalam bahasa Pascal yang mensyaratkan suatu kondisi tertentu supaya statement atau kode program tersebut dapat dijalankan. Terdapat 2 jenis percabangan yang harus kita ketahui.

A. IF THEN

If Then merupakan bentuk percabangan yang membandingkan dua variabel atau lebih, dan atau antara satu variabel dengan beberapa nilai tertentu yang sudah didefinisikan. Percabangan dalam bentuk If Then lebih dinamis untuk dipergunakan, operasi perbandingan kondisi yang digunakan lebih luas dengan penggunaan tipe data yang juga lebih bervariatif.


B. CASE OF

Case Of merupakan bentuk percabangan yang membandingkan suatu variabel dengan beberapa value atau nilai yang berasal dari variabel tersebut.


Antara percabangan yang berbentuk IF THEN dan CASE OF, dalam implementasinya memang tidak menimbulkan perbedaan yang signifikan dalam hal lamanya proses eksekusi (loading time) maupun hasilnya. Yang membedakan hanyalah sintaks dan lebih kompleksnya jenis percabangan yang bisa ditanganinya, yang dalam hal ini IF THEN dapat diimplementasikan secara bertingkat dengan menggunakan percabangan di dalam percabangan.


SINTAKS

Sintaks atau aturan penulisan kode program percabangan secara garis besar dapat ditunjukkan sebagai berikut:

IF THEN
Bentuk dasar percabangan IF THEN adalah sebagai berikut:


If <kondisi1> Then
   <statement1>
Else If <kondisi2> Then
   <statement2>
.......................
.......................
Else
<statement3>;


dari sintaks dasar di atas, terdapat istilah kondisi yang dipastikan ada pada setiap penggunaan kata If. Kondisi dalam hal ini merupakan perbandingan antar variabel atau perbandingan antara variabel dengan suatu value tertentu. Secara umum, di dalam setiap kondisi dikenal dua istilah, yaitu operand dan operator. Operand merupakan variabel atau nilai yang dibandingkan, sedangkan operator merupakan pembanding dari operand yang ada. Operator dalam sintaks If terdiri dari simbol =, <, >, <>, <=, dan >=. Selain itu juga terdapat operator tambahan, yaitu AND dan OR. Sebagai contoh, suatu kondisi dapat dilihat seperti tampak di bawah ini:

If (nilai_1>50) AND (nilai_1 <=100) then 

Dengan kondisi tersebut, program akan melakukan pengecekan apakah isi atau value dari variabel nilai_1 tersebut lebih besar dari 50 dan lebih kecil sama dengan 100. Beberapa kelebihan dari penggunaan sintaks If adalah bahwa kondisi yang bisa dibandingkan, tipe datanya lebih variatif, baik itu berupa angka, huruf, kata atau yang lain. Selain itu, sintaks if juga mengenal dan mengimplementasikan penggunaan if bertingkat, yaitu penggunaan if di dalam if, sehingga proses filtering dari suatu nilai dapat lebih mendalam sesuai kebutuhan.


CASE OF
Bentuk dasar dari percabangan Case Of adalah sebagai berikut:


Case <variabel> Of
value_1:<statement>;
value_2:<statement>;
value_3:begin
        <statement>;
        <statement>;
        end;
..................
..................
Else
     <statement>;
End; 


Dari sintaks di atas dapat kita lihat bahwa Case of hanya membandingkan suatu variabel dengan beberapa isi atau value tertentu. Kelebihan dari penggunaan Case Of terletak pada kemudahan dan minimnya penulisan kode yang diberikan. Adapun tipe data yang didukung oleh Case Of hanyalah data dengna tipe ordinal atau angka, sehingga proses pemilihan kondisinya tidak se-variatif If Then.

Untuk contoh program yang menggunakan percabangan If Then KLIK DISINI dan Case Of  KLIK DISINI.

Minggu, 08 Juli 2012

Tips Cara Transfer Pulsa Smart


Fitur baru buat Smart Kirim Pulsa, dulu bingung mau manfaatin gratisan internet smart tiap isi 50 ribu kan asyik tu ngisiin pulsa temen sambil dapet bonusan quota nya, sekarang asyik bener ada transfer pulsa antar smart, pulsa bisa dikirim ke sesama smart, caranya gampang kok sbb :

Langkah paling mudah untuk berbagi pulsa dengan teman dan relasi kamu.

Caranya?
Ketik KIRIM (titik) nomor tujuan (titik) jumlah pulsa
Contoh:
KIRIM.08811450405.50000
Kirim ke 879

Untuk mengecek status pengiriman pulsa
ketik CEKKIRIM
Kirim ke 879

Detail Spesifikasi layanan

  • Besaran nilai pulsa yang ditransfer minimal Rp 1.000 sampai dengan Rp 100.000 (open denom)
  • Minimum sisa pulsa pengirim setelah melakukan transfer Rp. 5.000
  • Setiap transaksi kirim pulsa dan cekkirim dikenakan biaya Rp 500/sms
  • Status pengirim harus aktif penerima juga harus aktif atau berada pada masa isi ulang (grace period)
  • Setiap transaksi transfer pulsa tidak merubah status masa aktif ataupun masa isi ulang (grace period)
  • Jika penerima dalam status masa isi ulang, pulsa yang ditransfer baru dapat digunakan setelah penerima melakukan isi ulang untuk mengaktifkan kembali kartunya

Kamis, 28 Juni 2012

Membuat Kalkulator Sederhana dengan Delphi7





Setelah kita mengetahui Tipe Data dan Operator pada Delphi, saya ingin memberikan contoh program kalkulator serderhana. Contoh program kalkulator serderhana ini sangat mudah dibuat dengan menggunakan program delphi, terutama bagi programming pemula (seperti saya). Ok langsung saja, cara membuat kalkulator sederhana seperti di bawah ini.

1. Buat project baru dengan nama sembarang dan masukkan 6 buah Button (untuk +, -, x, /, Bersihkan dan Keluar), 3 buah Data Edit dan label. Tata seperti gambar dibawah ini.


2. Double klik pada Button " + " lalu masukkan code di bawah ini.

var A:integer;
    B:integer;
    C:integer;
begin
  A:=strtoint(edit1.Text);
  B:=strtoint(edit2.Text);
  C:=A+B; //operasi penjumlahan

  Edit3.Text:=floattostr(C);
end;

3. Double klik pada Button " - " lalu masukkan code di bawah ini.

var A:integer;
    B:integer;
    C:integer;
begin
  A:=strtoint(edit1.Text);
  B:=strtoint(edit2.Text);
  C:=A-B; //operasi pengurangan

  Edit3.Text:=floattostr(C);
end;

4. Double klik pada Button " x " lalu masukkan code di bawah ini.

var A:integer;
    B:integer;
    C:integer;
begin
  A:=strtoint(edit1.Text);
  B:=strtoint(edit2.Text);
  C:=A*B; //operasi perkalian

  Edit3.Text:=floattostr(C);
end;

5. Double klik pada Button " / " lalu masukkan code di bawah ini.

var A:integer;
    B:integer;
    C:integer;
begin
  A:=strtoint(edit1.Text);
  B:=strtoint(edit2.Text);
  C:=A div B; //operasi pembagian

  Edit3.Text:=floattostr(C);

end;

6. Double klik pada Button " Bersihkan " lalu masukkan code di bawah ini.

begin
Edit1.Text:='0';
Edit2.Text:='0';
Edit3.Text:='0';
end;

7. Double klik pada Button " Keluar " lalu masukkan code di bawah ini.

begin
close;
end;

Selesai, tinggal tes programnya dengan klik Run atau tekan F9. Hasil akhirnya seperti gambar di bawah.


Jika ingin melihat source code projectnya dan contoh program kalkulator serderhana dengan delphi7  secara detail bisa di download DI SINI.Password : bloganakkomputer.blogspot.com


Selamat mencoba.
D4V1D


    Selasa, 26 Juni 2012

    FIX error rundll32.exe c:\windows\system32\NvCpl.dll,NvStartup


    Apakah komputer anda terasa sangat lambat saat pertama kali dinyalakan?? Saat klik kanan saja, jam pasir pun lama sekali berputar? Atau muncul keterangan eror seperti gambar di bawah ini?



    Eror di atas artinya driver NVidia control panel gagal untuk di load/di jalankan. Solusinya bisa anda download driver VGA NVidia  anda dan re-install kembali. Tapi jika masih saja muncul seperti gambar di atas ikuti tips berikut ini.

    Berikut caranya agar Rundll.32 …..NvCpl.dll tidak muncul lagi di startupnya.

    1. masuk ke start – run

    2. ketikkan services.msc dan Ok

    3. pada “NVIDIA Display Driver Service” di klik 2 kali (doble click)

    4. pada tab log On klik “disable”


    Dan pada tab  General pada bagian Startup type pilih  Disabled.

    5. pada tab General Klik “stop” kemudian apply dan Ok

    6. Lalu masuk pada Run – ketik msconfig – pada tab startupnya hilangkan centang  pada NvCpl. Ok.

    6. Restart PC nya

    Setalah restart, jika berhasil maka komputer anda akan berjalan normal kembali, tanpa loading dan pesan  eror nvcpl yang missing.

    Selamat  mencoba.
    D4V1D

    Selasa, 12 Juni 2012

    Tips Mengisi Tinta pada CL-811


    Sedikit share nie kawan-kawan, yang belum tahu caranya mengisi tinta pada cartridge CL-811 serta susunan warna nya seperti berikut:

    • Buka cover depan printer
    • Copot Catridge dari tempatnya sesuai dengan prosedur
    • Buka label merek dan temukan lobang udara pada atas catridge.
    • Urutan warna / susunan warna  pada cartridge cl811 tiap lobang dari kiri ke kanan seperti pada gambar adalah Cyan Magenta Yellow ( CMY) seperti gambar di atas.
    • Perbesar lobang catridge dengan Bor Mini, Skrup Kecil di putar mengarah ke dalam menggunakan obeng, atau gunakan paku kecil atau paku untuk papan triplex.
    • Ambil tinta menggunakan suntikan berjarum



    • Sebelum di suntik pastikan tak ada udara pada ujung jarum keluarkan semua udara pada unjung jarum dengan mendorong suntikan menghadap ke atas ( seperti saat dokter melakukan suntikan )
    • Suntikan tinta kedalam Catridge ( Catridge PG 811 maksimal 4 ml, PG 810 XL 6ml pada setiap warnanya )
    • !!! Pengisian sebaiknya tidak melebihi takaran untuk menghindari luber !!!
    • Goyang-goyang catridge sebentar saja agar tinta turun ke bawah.
    • Pasang kembali catridge ke tempatnya.
    • Jika muncul error ink have run out maka anda perlu menekan tombol resume pada printer IP 2770 atau tombol stop/reset pada seri MP atau seri MX.
    • Jika cetakan kurang baik/ bergaris coba clean max 3 kali pada normal cleaning.
    • Jika hasil masih kurang sempurna maka anda sebaiknya menganti catridge anda.
    Sekian sedikit share dari saya....

    Rabu, 06 Juni 2012

    CARA MENDAPATKAN BETA KEY DoTA2


    Ok kawan-kawan KaLo agan ingin maen DOTA2 Agan harus Mempunyai "KEY"nya duLu , Nah cara untuk mendapatkan KEYnya spt Di bawah ini :

    Cara mendapatkan beta key dota 2
    ...
    1. MELALUI SURVEY

    Info resmi dari http://blog.dota2.com/2011/10/the-sleeping-dragon-wakes/ anda bisa dapat invite beta key dari valve dengan mengikuti surveynya dan dua beta key tambahan akan diberikan. Langkah mengikuti Dota 2 Survey adalah sebagai berikut:

    #. Install Steam di PC
    (http://store.steampowered.com/about/?snr=1_4_4__11) hingga finish total termasuk juga update
    a.Pake aplikasi dari link bawah ini untuk mengikuti survey secara otomatis
    http://www.dota2.com/survey/experience   Lalu piLih : Click here to launch the survey.

    b.atau dg cara manual
    1. Hapus Client.Registry.Blob Setelah Exit dari Steam
    2. Buka ulang Steam, setelah masuk (signed) kemudian tekan Windows Key+R dan copas “steam://takesurvey/1/” setelah itu tekan enter.
    3. Ikuti survey hingga finish

    TINGGAL MENUNGGU SURAT CINTA YG BERISI KEY DARI ICEFROG


    2.MELALUI PLAYDOTA/GETDOTA

    Ok brader siap ya, MeLalui playdota sangat mudahhhhhh Buanggeettt Loh dapet Keynya," TAPI" yah ada tapinya Jika melaLui PLAYDOTA ada syaratnya Loh -_- Yahh kok ada syarat sihhh 

    Pasti KaLian brtanya emang syaratnya apaan?? Nah jika dari syarat2 di bawah ini KaLian sudah Terpenuhi .. "GW JAMIN DEH PASTI DAPET BETA KEYNYA" , TinggaL yg tersisa ke-HOKIAN KaLian dan DOA yg buanYaaak biar cepet di kirimiin Keynya ,waLaupun trkadang nunggunya ambe 1 buLan Loh bahkan Lebih ... wah Lama yah' taekLah , tapi pasti dapet kok !!!...
    Ini syaratnya:

    #-Anda hanya perlu Post atau mereplay di thread tersebut, terserah anda mau tulis apa yang penting anda telah post ke thread tersebut dan jika anda beruntung maka anda akan mendapatkan beta key dari bot playdota.com
    #-ID PLAYDOTA.com yang dpt mengikuti undian ini hanya id yang dibuat sebelum tanggal 04/05/2012
    #-Setiap harinya BOT playdota.com akan Merandom 180 id Playdota yang mengikuti kontes undian ini.. bagi yang beruntung akan mendapatkan 3 buah beta key PER ID.
    #-Undian akan dilaksanakan setiap jam 11 malam WIB (waktu indonesia bagian barat)

    Buruan sebelum undian ini ditutup!!
    oh ia Link Thread Undian Betakey Playdota.com:



    3. MELALUI FACEBOOK

    Loh emang ada??? ada donk" , KaLian hanya tinggaL mengeLike "LIKE" FB di bawah ini :

    SiLahkan deh MuLai Ngemis-Ngemis ampe Nangis hehe ^_^
    Eh mintanya jgn brLebihann ya spt coment berLebihan/JUNK eeq , Ntar g di tanggapin deh coment kaLian KaLo caranya bgitu...
    SLamat brjuang ya... AGAN-AGAN

    --- SLANJUTNYA TAHAP SETELAH MENDAPATKAN BETA KEY ---
    1. Buka steamnya
    2. PiLih menu "GAMES"
    # Menu games terletak di Kiri atas SebeLahan dg Menu Friend, HeLp
    3. PiLih "Activate a product on steam"
    4. Product Vaction, Next, i Agree, Masukkan Keynya, instaL DoTA2nya
    Lewat steam Langsung,,,


    SUMBER : http://www.facebook.com/pages/DoTA-DoTA2/357515430949443#!/pages/DoTA-DoTA2/357515430949443?sk=info

    Sabtu, 28 April 2012

    Tipe Data dan Operator Pada Delphi


    Tipe Data
    Tipe Data adalah suatu aturan dalam delphi untuk menentukan jenis dari sebuah variabel. 
    Berikut dijelaskan secara singkat beberapa tipe data yang dikenal dalam borland Delphi.

    # Tipe data Integer
    Adalah bentuk tipe data untuk variabel yang mempunyai nilai bilangan bulat. Perhatikan tabel dibawah ini.
    Tipe
    Jangkauan
    ShortInt
    -128 s/d 127
    SmallInt
    -32768 s/d 32767
    LongInt
    -21474836448 s/d 21474836447
    Int64
    -2 x E+63 s/d 2 x E-63-1
    Byte
    0 s/d 255
    Word
    0 s/d 65535

     
    # Tipe Data Real
    Adalah bentuk tipe data untuk variabel yang mempunyai nilai pecahan desimal. Lihat tabel.

    Tipe
    Jangkauan
    Real48
    2.9 x E-39 s/d 1.7 x E+38
    Single
    1.5 x E-45 s/d 3.4 x E+38
    Double
    5.0 x E-324 s/d 1.7 x E+308
    Extended
    3.6 x E-4951 s/d 1.1 x E+4932
    Comp
    -2^63+1 s/d 2^63-1
    Currency
    -922337203685477.5808 s/d 922337203685477.5807

     
    #Tipe Data Boolean
    Adalah tipe data yang mempunyai nilai true dan false.

    Tipe
    Penyimpanan memori
    Boolean
    1
    ByteBool
    1
    WordBool
    2
    LongBool
    4

     
    #Tipe Data String
    Adalah bentuk tipe data yang menyimpan karakter atau tulisan.

    Tipe
    Jangkauan
    ShortString
    255 karakter
    AnsiString
    -2^31 karakter
    WideString
    -2^30 karakter

     
    Operator 
    Operator adalah bentuk-bentuk penugasan pada sebuah ekspresi program, sebagai contoh:
    Diberikan sebuah ekspresi sebagai berikut "2+4" maka yang disebut operatornya adalah tanda (+).
    Dibawah ini dijelaskan beberapa operator yang dikenal dalam Borland Delphi.

    #Operator Aritmatik
    Operator aritmatik adalah jenis operator yang berfungsi untuk melakukan operasi matematika.seperti perkalian, pembagian, penjumlahan, pengurangan, sisa bagi dan pembagian pada bilangan bulat.
    Operator Aritmatik seperti  +,-,*,/,mod,div
    Dimana 'div' adalah pembagian bilangan bulat. seperti contoh 7 div 2 = 3
    dan mod adalah sisa hasil bagi. seperti contoh 7 mod 2 = 1

    #Operator Pembanding
    Adalah suatu bentuk operator yang berfungsi untuk membandingkan dua buah nilai. Hasil perbandingan dua buah nilai ini menghasilkan nilai true atau false.

    Operator
    Keterangan
    contoh penggunaan
    '>'
    Lebih dari
    4>2 hasilnya T. 4>4 hasilnya F
    '>='
    Lebih dari sama dengan
    4>=2 hasilnya T. 4>=4 hasilnya T
    '<'
    Kurang dari
    2<4 hasilnya T. 2<2 hasilnya F
    '<='
    Kurang dari sama dengan
    2<=4 hasilnya T. 2<=2 hasilnya T
    '='
    sama dengan
    2=4 hasilnya F. 2=2 hasilnya T
    '<>'
    Tidak sama dengan
    2<>4 hasilnya T. 2<>2 hasilnya F

    #Operator Logikal
    Bentuk operator Logikal yaitu AND (pernyataan DAN), OR (pernyataan ATAU), dan NOT (pernyataan TIDAK). Ketiga operator ini merupakan bentuk dari operator logikal yang akan menghasilkan nilai true dan false saat digunakan.
    sumber:http://andry-pein.blogspot.com