Looping string & memberikan tanggal di DELPHI

Khusus buat newbie, buat master-master Delphi dilarang buka…hehehhe 
1. Buat project baru.
2. Masukan komponen (TButton, TListBox,TLabel), biasanya ada di tab “Standard”…!!

Event masing-masing komponen:
TButton = OnClick
Form1 = OnActivate atau OnCreate
Berikut adalah script masing-masing komponen :
Button1:
procedure TForm1.Button1Click(Sender: TObject);
{membuat variable baru}
var
a: integer; {mendefinisikan a sebagai bilangan integer }
s: string; { Mendifinisikan s sebagai string atau text }
begin
{ Proses Looping }
for a:= 1 to 5 do
begin
s:= ' '+inttostr(a); {“ inttostr(a)” konversi dari bilangan integer ke text }
listbox1.items.add ('B0'+ s ); { menampilkan hasil Looping ke ListBox1 }
end;
end;

Untuk form activate scriptnya :
procedure TForm1.FormActivate(Sender: TObject);
begin
dateseparator:='-'; {membuat pembatas antara tanggal, bulan, dan tahun cth: 13-12-2010}
shortdateformat:='dd/mm/yyyy'; {Format Tanggal berdasarkan tanggal,Bulan,Tahun}
label1.caption:=datetostr(date); {Mengkonversi dari Tanggal ke Text kemudian Menampilkannya ke Label1}
end;

*Thanks..

Read more


Setting Dial Up Modem

  1. Install PC-Suit nya, lalu sambungkan ke Kompi anda!
  2. Setelah HP anda terhubung ke kompi anda, buka PC-Suite nya!! Lalu klik "Connect to the Internet ".
  3. Lalu klik setting, lalu klik NEXT
  4. Lalu Pilih "Configure the connection manually"……
  5. Terus isi, bagian ini:

    Accesspoint : indosatgprs (akses point ISP'a)

    Username :indosatgprs (Username ISP'a)

    Password :indosatgprs (Password ISP'a)

    Additional initialization command : (biarkan kosong)

Setelah itu klik Finish…

  1. Buka Control Panel -->Network Connection-->klik File-->New Connection-->klik Next-->klik connect to the internet --> klik Next….
  2. Setelah itu pilih option yang ke 2 " Set up my connection manually"
    --> Klik NexT
  3. Kemudian Pilih option yang pertama " Connect Using a Dial-up Modem"
    --->klik Next…
  4. Kemudian pada "ISP Name" isikan nama ISP nya bebas --> klik NEXT
  5. Lalu Pada "Phone Number" Isikan Phone Numbernya dengan : *99***1# -->klik Next….


  6. Isikan Uername dan Password ISP'a --> klik NEXT

    contoh :

    User name : indosatgprs

    Password : indosatgprs

    Confirm Password : indosatgprs


  7. Klik Finish, Jangan Lupa di beri tanda Check "Add a Shortcut to This Connection to My Desktop"
  8. Sekarang double klik Dial-Up nya, yg kita buat tadi….
  9. Lalu kli "Dial"
  10. Lalu akan muncul proses dial....


  1. Kalau konek di bagian bawah windows akan muncul seperti ini

  1. Untuk memastikannya kita lakukan ping , START --> Run --> lalu ketikan PING www.google.com -t



  2. Klo pas dial muncul error PPP blablbalbalbabala…. Coba klik kanan My Computer --> Properties --> Pilih Hardware --> Device Manager --> Modem --> klik tanda [+] pada Modem --> kemudian double klik device HP anda...
  1. Akan muncul Window Properties lalu pilih " Advance" , lalu ketikan command ini:

    +CGDCONT=1,"IP","indosatgprs"

    Klo gak bias juga coba cek pulsa anda….


    NB: Untuk HP Sony Ericson hanya Tinggal Instal PC-suit nya dan isikan Username dan Password nya klo perlu isikan juga Aksespointnya…

Read more