Cara Hosting Subdomain ke IDHOSTINGER

Langkah-langkah mengalihkan domain blogspot ke subdomain IDHOSTINGER :

(a)

(b)

(c)

(d)

(e)

(f)

Selamat Mencoba..... :)

MEMBUAT PERGERAKAN OBYEK DENGAN DELPHI 7

unit uQuis;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, jpeg;

type
  TfrmQuis = class(TForm)
    imgPertama: TImage;
    imgKedua: TImage;
    imgKetiga: TImage;
    tmrEnter: TTimer;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure tmrEnterTimer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmQuis: TfrmQuis;

implementation

uses StrUtils;
 var kiri :boolean;
{$R *.dfm}

procedure TfrmQuis.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_RETURN then
     begin
      kiri := True;
      tmrEnter.Enabled := True;
      end
end;

procedure TfrmQuis.tmrEnterTimer(Sender: TObject);
begin
   if imgPertama.Top>=0 then
      begin
        imgPertama.Top := imgPertama.Top - 5;
        imgPertama.Left := imgPertama.Left + 5;
       end
       else
         begin
        imgPertama.Left := imgPertama.Left - 5;
         end;

         if imgKedua.Top>=0 then
         begin
        imgKedua.Top := imgKedua.Top - 5;
        end
        else
        begin
        imgKedua.Left := imgKedua.Left+ 5;
         end;

         if imgKetiga.Left >=0 then
         begin
        imgKetiga.Top := imgKetiga.Top - 5;
        imgKetiga.Left := imgKetiga.Left - 5;
         end
         else
         begin
        imgKetiga.Top := imgKetiga.Top + 5;
         end;

 end;
end.

DERET FIBONACCY DELPHI 7

unit tugas3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Menus;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Label1: TLabel;
    ListBox1: TListBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    MainMenu1: TMainMenu;
    fi1: TMenuItem;
    WAKTU1: TMenuItem;
    PARABOLA1: TMenuItem;
    FIBONACCI1: TMenuItem;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);

  private
    { Private declarations }
    function FiboIterasi(const pInput: Integer): Double;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function TForm1.FiboIterasi(const pInput: Integer): Double;
var
  i: Integer;
  a, b, hasil : Double;
begin
  // Inisialisasi variabel
  hasil := 0;
  a := 1;
  b := 0;

  // mulai iterasi
  for i:=1 to pInput do
  begin
    hasil := a+b;
    a := b;
    b := hasil;
  end;

  // kembalikan hasil ke pemanggil
  Result := hasil;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var i,input : integer;
begin

try
  if trim(edit1.Text) <> '' then
    input:=strtoint(trim(edit1.Text))
  else
    input:=-1;
except
   exit;
end;

if input <= 0 then
  begin
    messagedlg('Input deret yang valid',mtError,[MbOK],0);
    exit;
  end;

if input >= 31 then
  begin
    messagebox(self.Handle,'Dibatas sampai 30 saja biar tidak error','hati-hati mas',MB_OK + MB_ICONWARNING);
    edit1.Clear;
    edit1.SetFocus;
    exit;
  end;

for i:=1 to input do
  listbox1.Items.Add(floattostr(fiboIterasi(i)));
  bitbtn1.Enabled:=false;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
edit1.Clear;
listbox1.Clear;
edit1.SetFocus;
bitbtn1.Enabled:=true;
end;
end.

INCOME WITH INTERNASIONAL DIMEWORTH ASSURANCE GROUP

D.W.A long life dan selalu membantu semua orang untuk mencapai kebebasan financial. Bagi yang ingin mendapatkan penghasilan tambahan sendiri
✔ TANPA merekrut dapat profit 2.2% hingga 2.6% selama 70 hari
✔ Bonus binary 10% + bonus macthing $40 up to $150000
✔ Dapatkan spillover & spillunder bertubi" dari jaringan kami
✔ REAL dan LEGAL di jantung kota delaware
✔ Withdrawal cepat masuk ke rekening 

web support with Google translator : http://adverst.blogspot.com/
Join International group FB : https://www.facebook.com/groups/411314968989963/

Join di sini : http://more.sh/Nr1TXV
Panduan : http://adverst.blogspot.com/
Testimonial: http://adverst.blogspot.com/p/testimonial_2.html

 

(salah satu resi bentuk penarikan)

                                      (Gedung DIMEWORTH ASSURANCE GROUP)

MEMBUAT APLIKASI FORM SEDERHANA DENGAN DELPHI 7

unit uform;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, Menus, Buttons;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    edNBI: TEdit;
    Label2: TLabel;
    edNama: TEdit;
    Label3: TLabel;
    edAlamat: TEdit;
    cbJurusan: TComboBox;
    Label4: TLabel;
    rgKelamin: TRadioGroup;
    hobby1: TCheckBox;
    Label5: TLabel;
    hobby2: TCheckBox;
    hobby3: TCheckBox;
    hobby4: TCheckBox;
    btProses: TButton;
    btReset: TButton;
    btIF: TButton;
    btFor: TButton;
    btWhile: TButton;
    btRepeat: TButton;
    btCase: TButton;
    btPesan: TButton;
    MainMenu1: TMainMenu;
    FILE1: TMenuItem;
    PROSES1: TMenuItem;
    RESET1: TMenuItem;
    ACTION1: TMenuItem;
    btIF1: TMenuItem;
    btFor1: TMenuItem;
    bt1: TMenuItem;
    btRepeat1: TMenuItem;
    HELP1: TMenuItem;
    btCase1: TMenuItem;
    Image1: TImage;
    memo1: TMemo;
    Label6: TLabel;
    BitBtn1: TBitBtn;
    procedure btCaseClick(Sender: TObject);
    procedure btIFClick(Sender: TObject);
    procedure btForClick(Sender: TObject);
    procedure btWhileClick(Sender: TObject);
    procedure btRepeatClick(Sender: TObject);
    procedure btPesanClick(Sender: TObject);
    procedure btProsesClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btCaseClick(Sender: TObject);
var i, bil : integer;
begin

   //pengganti if   
   bil := StrToInt(edNBI.Text);
   case bil of
      1 :     edNama.Text := 'Bilangan  = 1 ';
      2 :     edNama.Text := 'Bilangan  = 2 ';
      3 :     edNama.Text := 'Bilangan  = 3 ';
      4 :     edNama.Text := 'Bilangan  = 4 ';
   end;

end;
procedure TForm1.btIFClick(Sender: TObject);
var bil : integer;
begin
   //end sebelum else , harus tanpa titik koma
   bil := StrToInt(edNBI.Text);

   if bil < 10 then
   begin
     edNama.Text := 'Bilangan kurang dari 10';
   end
   else
   begin
     edNama.Text := 'Bilangan lebih dari sama dengan 10';
   end;

end;

procedure TForm1.btForClick(Sender: TObject);
var i, bil : integer;
begin

   bil := StrToInt(edNBI.Text);

   for  i := 0 to bil - 1 do
   begin
     memo1.Lines.Add('looping ke ' + intToStr(i)) ;
   end;

end;

procedure TForm1.btWhileClick(Sender: TObject);
var i, bil : integer;
begin

   bil := StrToInt(edNBI.Text);
   i := 0;
   while i < bil do
   begin
     memo1.Lines.Add('looping ke ' + intToStr(i)) ;
     i := i+1;
   end ;

end;

procedure TForm1.btRepeatClick(Sender: TObject);
var i, bil : integer;
begin

   bil := StrToInt(edNBI.Text);
   i := 0;
   repeat
     memo1.Lines.Add('looping ke ' + intToStr(i)) ;
     i := i+1;
    until i>bil ;
end;

procedure TForm1.btPesanClick(Sender: TObject);
begin
  ShowMessage('Haloo Aku Informatika');
end;

procedure TForm1.btProsesClick(Sender: TObject);
begin
 memo1.Lines.Add('NBI = ' + edNBI.Text);
     memo1.Lines.Add('Nama  = ' + edNama.Text);
     memo1.Lines.Add('Alamat =' + edAlamat.Text);
     memo1.Lines.Add('Kelamin = ' + rgKelamin.Items[rgKelamin.ItemIndex]);
     memo1.Lines.Add('Jurusan = ' + cbJurusan.Items[cbJurusan.ItemIndex]);
     memo1.Lines.Add('No Jurusan = ' + intToStr(cbJurusan.ItemIndex) );

//cbJurusan.Items[0] = 'teknik industri'
//cbJurusan.Items[1] = 'teknik mesin'
//cbJurusan.Items[2] = 'teknik sipil'
//cbJurusan.Items[3] = 'teknik informatika'





     if  (hobby1.Checked=true) then
       memo1.Lines.Add(hobby1.Caption);
     if  (hobby2.Checked=true) then
       memo1.Lines.Add(hobby2.Caption);
     if  (hobby3.Checked=true) then
       memo1.Lines.Add(hobby3.Caption);
     if  (hobby4.Checked=true) then
       memo1.Lines.Add(hobby4.Caption);

     //ShowMessage(BoolToStr(cbHobi1.Checked));


end;

end.

JUAL JACKET DAN JINS PETERSAYSDENIM

Sewaktu masih duduk di bangku SMA, Peter Firmansyah, pria kelahiran Sumedang 4 Februari 1984, terbiasa mengubek-ubek tumpukan baju di pedagang kaki lima. Kini, ia adalah pemilik usaha yang memproduksi busana yang sudah diekspor ke beberapa negara.

Tak butuh waktu relatif lama. Semua itu mampu dicapai Peter hanya dalam waktu 1,5 tahun sejak ia membuka usahanya pada November 2008. Kini, jins, kaus, dan topi yang menggunakan merek Petersaysdenim, bahkan, dikenakan para personel kelompok musik di luar negeri.

Sejumlah kelompok musik itu seperti Of Mice & Man, We Shot The Moon, dan Before Their Eyes, dari Amerika Serikat, I am Committing A Sin, dan Silverstein dari Kanada, serta Not Called Jinx dari Jerman sudah mengenal produksi Peter. Para personel kelompok musik itu bertubi-tubi menyampaikan pujiannya dalam situs Petersaysdenim.

Pada situs-situs internet kelompok musik itu, label Petersaysdenim juga tercantum sebagai sponsor. Petersaysdenim pun bersanding dengan merek-merek kelas dunia yang menjadi sponsor, seperti Gibson, Fender, Peavey, dan Macbeth.

Hari ini saya menawarkan kepada Anda untuk bisa memilikinya :
INFO PEMESANAN BISA MELALUI CONTACT PERSON DI BAWAH INI :

085748269277 - STEVE
FACEBOOK : knight_of_santuary@yahoo.com

NB : Harga belum termasuk ongkos kirim!!

MEMBUAT KALKULATOR SEDERHANA BY STEVEN

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    Button16: TButton;
    Label1: TLabel;
    Button17: TButton;
    Button18: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  OP : char;
  hasil : real;
  nilai : real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:= Edit1.Text+Button1.Caption;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text := Edit1.Text+Button2.Caption;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Edit1.Text := Edit1.Text+Button3.Caption;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Edit1.Text := Edit1.Text+Button4.Caption;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
Edit1.Text := Edit1.Text+Button5.Caption;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
Edit1.Text := Edit1.Text+Button6.Caption;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
Edit1.Text := Edit1.Text + Button7.Caption;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
Edit1.Text := Edit1.Text+Button8.Caption;
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
Edit1.Text := Edit1.Text + Button9.Caption;
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
Edit1.Text := Edit1.Text + Button10.Caption;
end;

procedure TForm1.Button16Click(Sender: TObject);
begin
Edit1.Text := '';
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
Edit1.Text := Edit1.Text + '.';
end;

procedure TForm1.Button17Click(Sender: TObject);
begin
if OP ='*' THEN
begin
hasil := nilai * StrToFloat(Edit1.Text);
end
else if OP ='/' THEN
begin
hasil := nilai / StrToFloat(Edit1.Text);
end
else if OP ='+' THEN
begin
hasil := nilai + StrToFloat(Edit1.Text);
end
else if OP ='-' THEN
begin
hasil := nilai - StrToFloat(Edit1.Text);
end;

Edit1.Text := FloatToStr(hasil);
end;


procedure TForm1.Button12Click(Sender: TObject);
begin
OP := '*';
nilai := StrToFloat(Edit1.Text);
Edit1.Text := '';
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
OP := '/';
nilai := StrToFloat(Edit1.Text);
Edit1.Text := '';
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
OP := '+';
nilai := StrToFloat(Edit1.Text);
Edit1.Text := '';
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
OP := '-';
nilai := StrToFloat(Edit1.Text);
Edit1.Text := '';
end;

procedure TForm1.Button18Click(Sender: TObject);
var
kar : integer;
begin
kar := length (Edit1.Text);

if Edit1.Text ='' then
Edit1.Text:=''
else if kar = 1 then
Edit1.Text:=''
else
Edit1.Text := copy(Edit1.Text,1,kar-1);

end;

end.