WONG BODOH NGAKU PINTER

Senin, 16 Juli 2012

jalankan aplikasi menggunakan delphi

untuk menjalankan aplikasi lain dari delphi ..!! kita bisa menggunakan fungsi bawaan dari delphi ..!

function WinExec (lpCmdLine : PChar; uCmdShow : integer) : integer;

dalam fungsi itu terdapat dua parameter yaitu :

path dan nama file yang akan di eksekusi
behavior window mode untuk aplikasi yang akan dibuka

SW_SHOWNORMAL atau 1 : untuk window mode normal
SW_SHOWMINIMIZED atau 2 : untuk window mode minimized
SW_SHOWMAXIMIZED atau 3 : untuk window mode maximized

contoh penulisannya seperti ini :

procedure TForm1.Button1Click(Sender: TObject);

begin

WinExec('C:\Windows\notepad.exe','SW_SHOWNORMAL');

end;

atau

WinExec('C:\Windows\notepad.exe',1);

untuk contoh projectnya silakan lihat dibawah ini :

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    GroupBox1: TGroupBox;
    Snormal: TRadioButton;
    Smax: TRadioButton;
    Smin: TRadioButton;
    Button3: TButton;
    Button4: TButton;
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure SnormalClick(Sender: TObject);
    procedure SmaxClick(Sender: TObject);
    procedure SminClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  jendela : integer;
implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin
Snormal.Checked:=true;
jendela:=1; // jendela normal
end;

procedure TForm1.SnormalClick(Sender: TObject);
begin
jendela:=1; // jendela normal
end;

procedure TForm1.SminClick(Sender: TObject);
begin
jendela:=2; // jendela minimize
end;

procedure TForm1.SmaxClick(Sender: TObject);
begin
jendela:=3; // jendela maximize
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
WinExec('C:\Windows\notepad.exe',jendela);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
WinExec('C:\Program Files\Windows NT\Accessories\wordpad.exe',jendela);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
WinExec('C:\Windows\system32\cmd.exe',jendela);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
WinExec('C:\Windows\system32\mspaint.exe',jendela);

end;

end.

download source code

Minggu, 15 Juli 2012

bikin folder autorun.inf dengan delphi

kali ini saya pengen share cara bikin sebuah folder autorun.inf seperti punya smadav ..!!! ^,^

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    DriveComboBox1: TDriveComboBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
myfile1,myfile2 : textfile;
text,lokasi   : string ;
begin
lokasi:=DriveComboBox1.Drive+':\autorun.inf';
CreateDir(lokasi);

AssignFile(myfile1, lokasi+'\desktop.ini');
  Rewrite(myfile1);
    Writeln(myfile1, '[.ShellClassInfo]');
    Writeln(myfile1, 'CLSID={2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}');
CloseFile(myfile1);

AssignFile(myfile2, 'c:\folder_con.bat');
  Rewrite(myfile2);
    Writeln(myfile2, 'mkdir '+lokasi+'\con\');
    Writeln(myfile2, 'mkdir '+lokasi+'\con\aux\');
    Writeln(myfile2, 'mkdir '+lokasi+'\con\aux\nul\');
    Writeln(myfile2, 'del c:\folder_con.bat');
CloseFile(myfile2);

FileSetAttr(lokasi,faSysFile+faHidden);

WinExec('c:\folder_con.bat',SW_SHOWMINIMIZED);

end;

end.
</div>

download source code

tcolordialog to RGB delphi

cara merubah tcolor ke rgb adalah dengan cara memanfaatkan funsi

GetRValue(); GetGValue() GetBValue();

untuk penulisannya bisa dilihat dibawah :

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ColorDialog1: TColorDialog;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var red,green,blue : integer;
begin
if ColorDialog1.Execute then
begin
red:=GetRValue(ColorDialog1.Color);
green:=GetGValue(ColorDialog1.Color);
blue:=GetBValue(ColorDialog1.Color);
label1.Caption:='red[ '+IntToStr(red)+' ] / green[ '+IntToStr(green)+' ] / blue[ '+IntToStr(blue)+' ]';
end;
end;

end.

download source code

ambil username komputer yang aktif dengan delphi 7

cara mengetahui username yang sedang aktif di komputer dengan delphi

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const
  cnMaxUserNameLen = 254;
var
  sUserName     : string;
  dwUserNameLen : DWord;
begin
  dwUserNameLen := cnMaxUserNameLen-1;
  SetLength(sUserName, cnMaxUserNameLen);
  GetUserName(PChar(sUserName), dwUserNameLen);
  SetLength(sUserName, dwUserNameLen);
  Label1.Caption:=Trim(sUserName);
end;


end.

download source code

Kamis, 12 Juli 2012

draggable mask di flash

buka flash dan buat dokumen baru lalu import sebuah gambar sesuaikan ukuran gambar dengan luas stage lalu bikin lagi sebuah objek lingkaran ( "kecil saja" );
convert to symbol jadikan movie clip keduanya dan beri instance name gambar dan lingkaran
pilih movie clip lingkaran klik F9 untuk masuk panel ActionScript lalu masukan kode dibawah ini

Atau Copas Kode Dibawah

onClipEvent (load) {
 _root.gambar.setMask(_root.lingkaran);
}
onClipEvent (mouseMove) {
 startDrag(_root.lingkaran, true);
}

Download contoh

cari hari pasaran dengan delphi

karena iseng bongkar2 file lama ..!! akhirnya nemu bekas tugas kuliah pas jaman dulu ..!! yaitu mencari hari pasaran dengan applikasi delphi ..!! lihat screenshotnya

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MonthCalendar1: TMonthCalendar;
    Label1: TLabel;
    procedure MonthCalendar1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MonthCalendar1Click(Sender: TObject);
      var awal,cari : tdatetime;
          jml_hari,pilih_pasaran,pilih_hari : integer;
          tanggal,bulan,tahun : word ;
          hari,pasaran : string ;
begin
     tanggal :=StrToInt(FormatDateTime('d',MonthCalendar1.Date));
     bulan :=StrToInt(FormatDateTime('m',MonthCalendar1.Date));
     tahun :=StrToInt(FormatDateTime('yyyy',MonthCalendar1.Date));
     awal:=EncodeDateTime(1970,01,01,0,0,0,0);
     cari:=EncodeDateTime(tahun,bulan,tanggal,0,0,0,0);
     jml_hari:=daysbetween(awal,cari);
     pilih_pasaran:=jml_hari mod 5;
     case pilih_pasaran of
      0:pasaran :='wage';
      1:pasaran :='kliwon';
      2:pasaran :='legi';
      3:pasaran :='pahing';
      4:pasaran :='pon';
     end;
     pilih_hari:=jml_hari mod 7;
      case pilih_hari of
       0:hari :='kamis';
       1:hari :='jumat';
       2:hari :='sabtu';
       3:hari :='minggu';
       4:hari :='senin';
       5:hari :='selasa';
       6:hari :='rabu';
       end;
      Label1.Caption:=hari+' '+pasaran;
end;

end.

maaf jika scriptnya newbie .. untuk switch casenya sebenarnya bisa di kecilin dengan menggunakan array
maklum dulu emang baru belajar .. hehehe ..!! semoga bermanfaat ..!!

source code

Selasa, 10 Juli 2012

lihat nama dan ip lokal komputer dengan delphi

sekarang saya akan share cara mengetahui nama dan IP lokal komputer kita dengan menggunakan delphi , kebetulan saya juga menemukan skrip ini diinternet jadi skalian saya share langsung biar gak lupa ..!! ^,^ .

langsung aja bikin form kosong lalu tambahkan sebuah button dan sebuah label setelah itu masuk ke script editor .. hapus semua script yang ada .. dan copas dengan skript dibawah kalo sudah jalankan applikasi dengan klik F9

selamat mencoba..!!!

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function GetIPFromHost
(var HostName, IPaddr, WSAErr: string): Boolean; 
type 
  Name = array[0..100] of Char; 
  PName = ^Name; 
var 
  HEnt: pHostEnt;
  HName: PName;
  WSAData: TWSAData; 
  i: Integer; 
begin 
  Result := False;     
  if WSAStartup($0101, WSAData) <> 0 then begin 
    WSAErr := 'Winsock is not responding."'; 
    Exit; 
  end; 
  IPaddr := ''; 
  New(HName); 
  if GetHostName(HName^, SizeOf(Name)) = 0 then
  begin 
    HostName := StrPas(HName^); 
    HEnt := GetHostByName(HName^); 
    for i := 0 to HEnt^.h_length - 1 do 
     IPaddr :=
      Concat(IPaddr,
      IntToStr(Ord(HEnt^.h_addr_list^[i])) + '.'); 
    SetLength(IPaddr, Length(IPaddr) - 1); 
    Result := True; 
  end
  else begin 
   case WSAGetLastError of
    WSANOTINITIALISED:WSAErr:='WSANotInitialised'; 
    WSAENETDOWN      :WSAErr:='WSAENetDown'; 
    WSAEINPROGRESS   :WSAErr:='WSAEInProgress'; 
   end; 
  end; 
  Dispose(HName); 
  WSACleanup; 
end;
procedure TForm1.Button1Click(Sender: TObject);
var Host, IP, Err: string;
begin
if GetIPFromHost(Host, IP, Err) then begin
    label1.caption:='Name : '+Host+'  /  IP : '+IP;
  end
  else
    MessageDlg(Err, mtError, [mbOk], 0);
end;

end.

download source code

bikin text enskripsi sederhana dengan delphi 7

text enkripsi yang sangat sederhana menguunakan delphi ..!! disini saya hanya memanipulasi text inputan dengan cara merubah per karakter menjadi desimal trus dirubah menggunakan operasi aritmatika sederhana lalu dirubah lagi menjadi karakter yg berbeda .. oke lansung saja lihat screenshot dibawah ..!!

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  hasil,txt : string;
  pos : integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
hasil:='';
txt:=Memo1.Text;
for pos:=1 to length(txt) do begin
hasil:=hasil+chr((ord(txt[pos])* 2)-3);
end;
memo2.Text:=hasil;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
hasil:='';
  txt :=Memo2.Text;
  for pos:=1 to length(txt) do begin
  hasil:=hasil+chr((ord(txt[pos])+ 3)div 2);
  end;
  Memo1.Text:=hasil;
end;

end.

donwload Source Code

mencari proxy gratisan dengan Proxy Finder Enterprise Edition

oke langsung saja ..!! Proxy Finder Enterprise Edition adalah aplikasi kecil yang biasa digunakan untuk mencari proxy gratisan yang masih aktif yang tersebar diinternet .. cara penggunaannya juga sangat mudah kita tinggak klik menu find .!! maka aplikasi secara otomatis langsung melakukan scanning untuk mencari proxy yang ada diinternet ..!! kita tinggal tunggu hasilnya .. setelah selesai kita bisa menyimpannya di notepad untuk selanjutnya kita gunakan ..!!

tapi sebelumnya kita saring dulu kode proxy yang kita dapat untuk mencari proxy yang paling bagus ..
caranya kita kunjungi website http://www.checker.freeproxy.ru/checker/ lebih detilnya lihat gambar dibawah :

copy kode proxy yg kita simpan di notepad tadi .. lalu kita masukan kesitus http://www.checker.freeproxy.ru/checker/ seperti gambar diatas lalu kita pilih proxy typenya kita pilih saja all http proxies .. kalo sudah tinggal kita klik tombol Check Proxy setelah itu tinggal kita tunggu hasilnya ..!!

tidak semua proxy bisa digunakan jadi silakan dipilih sendiri cari yang bertuliskan proxy is working !

kalo proses diatas sudah selesai ..!! silakan coba kita pakai untuk browsing ^,^ sekian dulu yah ..!! semoga bermanfaat ..!!

download proxy finder

bikin applikasi chatting dengan client server delphi

oke disini aku akan berikan cara mudah bikin applikasi chatting server client yang menurut saya cukup mudah .. gak susah2 amat ..!! silakan lihat screenshot sederhana dibawah :

unit U_Server;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, XPMan, StdCtrls, ComCtrls, winsock, ExtCtrls;

type
  TForm1 = class(TForm)
    Button2: TButton;
    Memo2: TMemo;
    XPManifest1: TXPManifest;
    ServerSocket1: TServerSocket;
    Memo1: TRichEdit;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    procedure Button2Click(Sender: TObject);
    procedure ServerSocket1ClientError(Sender: TObject;
      Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
      var ErrorCode: Integer);
    procedure ServerSocket1ClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  user_klient : string;
implementation

{$R *.dfm}

function GetIPFromHost
(var HostName, IPaddr, WSAErr: string): Boolean; 
type 
  Name = array[0..100] of Char; 
  PName = ^Name; 
var 
  HEnt: pHostEnt; 
  HName: PName; 
  WSAData: TWSAData; 
  i: Integer; 
begin 
  Result := False;     
  if WSAStartup($0101, WSAData) <> 0 then begin 
    WSAErr := 'Winsock is not responding."'; 
    Exit; 
  end; 
  IPaddr := ''; 
  New(HName); 
  if GetHostName(HName^, SizeOf(Name)) = 0 then
  begin 
    HostName := StrPas(HName^); 
    HEnt := GetHostByName(HName^); 
    for i := 0 to HEnt^.h_length - 1 do 
     IPaddr :=
      Concat(IPaddr,
      IntToStr(Ord(HEnt^.h_addr_list^[i])) + '.'); 
    SetLength(IPaddr, Length(IPaddr) - 1); 
    Result := True; 
  end
  else begin 
   case WSAGetLastError of
    WSANOTINITIALISED:WSAErr:='WSANotInitialised'; 
    WSAENETDOWN      :WSAErr:='WSAENetDown'; 
    WSAEINPROGRESS   :WSAErr:='WSAEInProgress'; 
   end; 
  end; 
  Dispose(HName); 
  WSACleanup; 
end;


procedure TForm1.Button2Click(Sender: TObject);
var jumlah_koneksi,klient : integer;
begin
Memo1.Lines.Add('<Server> : '+Memo2.Text);
jumlah_koneksi:=ServerSocket1.Socket.ActiveConnections;
if jumlah_koneksi >= 1 then
begin
  for klient := 0 to jumlah_koneksi-1 do
  begin
  ServerSocket1.Socket.Connections[klient].SendText('<Server> : '+Memo2.Text);
  end;
end;
Memo2.Clear;
end;

procedure TForm1.ServerSocket1ClientError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
memo1.Lines.Add('<Error dari> '+IntToStr(ErrorCode));
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
memo1.Lines.Add(Socket.ReceiveText);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ServerSocket1.Port:=25;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
ServerSocket1.Open;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var Host, IP, Err: string;
begin
if GetIPFromHost(Host, IP, Err) then begin
    StatusBar1.Panels[0].Text:='Computer Name : '+Host+' / Computer IP : '+IP;
  end
  else
    MessageDlg(Err, mtError, [mbOk], 0);
    Timer1.Enabled:=false;
end;


end.

unit U_Client;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, XPMan, StdCtrls, ComCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo2: TMemo;
    XPManifest1: TXPManifest;
    ClientSocket1: TClientSocket;
    Edit1: TEdit;
    Button3: TButton;
    memo1: TRichEdit;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ClientSocket1Connect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket;
      ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
    procedure Button3Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormActivate(Sender: TObject);
     private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Math;

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Host:=Edit1.Text;
ClientSocket1.Port:=25;
ClientSocket1.Open;
//ClientSocket1.Active:=true;
Memo1.Clear;
Timer1.Enabled:=true;
//ClientSocket1.Socket.SendText(ClientSocket1.Host);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
memo1.Lines.Add('<'+Edit2.Text+'>   : '+Memo2.Text);
if (ClientSocket1.Socket.Connected) then
  begin
  ClientSocket1.Socket.SendText('<'+Edit2.Text+'>   : '+Memo2.Text);
  memo2.Clear;
   Button1.Visible:=false;
   //Button3.Caption:='Connected with [ '+ClientSocket1.Host+' ]';
   Button3.Visible:=true;
  end;
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
if Socket.RemoteHost <> '' then begin
memo1.Lines.Add('connected with '+Socket.RemoteHost+' success');
end else ShowMessage('koneksi gagal');


end;

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
memo1.Lines.Add('<'+Edit2.Text+'> error '+IntToStr(ErrorCode));
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin
Memo1.Lines.Add(Socket.ReceiveText);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
//if ClientSocket1.Socket.Connected then begin
 ClientSocket1.Close;
 //ClientSocket1.Active:=false;
 Button3.Visible:=false;
 Button1.Visible:=true;
 //end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   Button1.Visible:=false;
   Button3.Caption:='Disconnect';
   Button3.Visible:=true;
   StatusBar1.Panels[0].Text:='connected With Server [ '+ClientSocket1.Host+' ]';
   StatusBar1.Panels[1].Text:='Status : Connected';
   Timer1.Enabled:=False;

end;

procedure TForm1.FormActivate(Sender: TObject);
begin
StatusBar1.Panels[0].Text:='Not Connected With Server ';
StatusBar1.Panels[1].Text:='Status : Disconnected';
end;

end.

mohon maaf dikarenakan saya agak malas mengulas lebih rinci ..jadi disini saya share juga file source code nya silakan didownload dan di utak atik sendiri ..!! ^,^

source code

Sabtu, 29 Oktober 2011

10 Cara Untuk Fitness Sukses

Tak dapat dipungkiri kalau kebanyakan dari kita tak dapat menikmati fitness atau latihan. Juga sebuah kebenaran kalau setiap orang di dunia ini dapat keuntungan dari fitness dan program nutrisi yang tepat. Berikut 10 tips untuk mendapatkan latihan rutin Anda mulai hari ini.

1. Rancang Tujuan Ralistis Dan Nyata

Merancang tujuan sederhana seperti ingin mengurangi berat badan tidaklah efektif. Buat yang lebih spesifik. Sebagai contoh, ‘Aku ingin mengurangi 10 kg hingga 5 September.

2. Ukur Peningkatan Anda

Ukur setiap peningkatan dan lakukan secara rutin. Anda tak dapat mengukur seberapa besar berat badan Anda berkurang saat Anda tak mengukurnya pada permulaan.

3. Buat Data Untuk Tiap Latihan

Masing-masing dan tiap sesi latihan harusnya di data. Pertahankan ukuran latihan Anda dan ciptakan jurnal sukses Anda sendiri.

4. Padukan Kardio Anda

Buat sesi kardio beragam secara intensitas dan panjangnya. Coba kardio baru dan pertahankan tetap segar.

5. Latihan Keras Bukan Hanya Untuk Pria

Setiap orang boleh berlatih dengan keras. Latihan keras membangun otot dan meningkatkan kepadatan tulang. Latih semua grup otot utama setiap 1-3 kali per minggu.

6. Istirahat

Cukup tidur selama 7 hingga 9 jam tiap malam. Begitu pula istirahatkan otot Anda dengan tidak melakukan latihan selama 1 hingga 2 hari setiap minggu.

7. Pemanasan

Lakukan pemanasan selama 5 hingga 10 menit sebelum Anda melakukan latihan inti. Anda harus mengawali dengan menaikan suhu tubuh terlebih dahulu.

8. Pendinginan

Lakukan pendinginan dengan perenggangan pada keseluruhan tubuh. Ini akan membantu meningkatkan flesibelitas dan mengurangi sakit pada otot di hari berikutnya.

9. Nutrisi Merupakan Setengah Dari Pertempuran

Konsumsi makanan dengan layak sebagai imbangan dari latihan rutin Anda. Makan makanan sehat dan tinggalkan diet ketat selamanya dalam kehidupan Anda.

10. Terus Beri Motivasi

Ajak teman untuk ikut berlatih atau lakukan latihan dengan pelatih pribadi. Lakukan apapun untuk membuat Anda berkomitmen. Jika Anda mulai kendor, usir rasa bersalah dan lakukan kembali latihan rutin Anda secepat mungkin.

Demikian 10 tips untuk membangun fondasi dari program fitness yang aman dan efektif. Siapapun dapat mengurangi lemak-lemak di tbuh dengan melakukan latihan yang realistis dan paduan nutrisi cukup. Jika Anda memiliki masalah kesehatan, lebih baik hubungi dokter Anda sebelum memulai melakukan fitness. Lakukan latihan secara rutin dan Anda akan lebih sehat serta bahagia dari hari ke hari.

Sumber ; KapanLagi.Com

Cara Terlihat Oke Di Foto

Sering tidak puas ketika melihat hasil foto diri Anda. Mungkin alasan yang sering Anda ucapkan adalah Anda merasa tidak cantik atau tidak fotogenik. Well, menurut Denis Reggie seorang fotografer pernikahan, untuk menjadi fotogenik tidak harus memiliki paras cantik, Anda hanya jangan terintimidasi dengan kamera.

Tapi bagaimana caranya mengatasi agar tidak terintimidasi? Bagaimana Anda bisa tampil oke dan natural saat di foto? Berikut tipsnya :

	Terlalu kaku Agar Anda tidak terlihat kaku, alihkan pikiran Anda dari kamera. Atau Anda bisa mengajak teman, binatang atau seorang anak agar foto Anda tidak kaku. Jika Anda foto sendiri, alihkan tangan Anda pada sesuatu benda, entah itu kacamata, memegang gelas atau lipat. Jangan biarkan kedua tangan Anda berada pada sisi badan Anda.
	*Exaggerated Facial Features* (Wajah asimetris) Jika Anda memiliki wajah asimetris, misalnya satu mata lebih besar dari mata yang lain, sebaiknya Anda berpose dengan sedikit memutar kepala Anda ke samping sehingga kamera hanya menangkap 2/3 dari wajah Anda. Pose ini juga memiliki efek menguruskan karena foto mengambi angle horisontal dan bukan vertikal.
	Wajah datar Mudah. Anda jangan melihat langsung pada kamera. Fokuskan mata Anda pada titik di atas lensa kamera. Anda juga bisa mengikuti saran Jennifer Dupont, runner-up Miss America yaitu melihat titik di belakang lensa. Contohnya bahu si fotografer. Anda juga bisa menaikkan alis mata satu untuk menambah karakter.
	Senyum kaku Ini mungkin salah satu masalah klise yang sering terjadi jika Anda difoto sendiri atau foto studio. Tip-nya adalah minta fotografer Anda mengucapkan lelucon sambil mengambil foto Anda atau memikirkan sesuatu hal yang lucu sehingga ekspresi Anda terlihat natural. Sering-sering berlatih senyum di depan kamera juga bisa sangat membantu lho…
	Mata merah Beberapa dari Anda pasti pernah mengalaminya. Caranya menghindari ‘mata merah’ adalah memastikan pencahayaan pada saat Anda difoto cukup. Biasanya mata merah terjadi pada ruangan remang sehingga iris mata membuka lebar sehingga retina, yang merah karena aliran darah, bisa mendapatkan cahaya, dan proses tersebut tertangkap kamera. Ketika pupil mata mendapatkan cahaya cukup, ia akan mengecil dan mengurangi kemungkinan terjadi mata merah. Tips khusus: Untuk masalah gaya yang kaku, minta fotografer Anda untuk mengarahkan gaya untuk Anda. Masalah wajah mengkilat, keriput ataupun dagu yang terlihat dua, tak perlu kuatir, dengan make up tepat, masalah Anda tersebut tidak terlihat. Jika Anda kebetulan foto sendiri, tidak perlu takut, sudah banyak teknologi yang bisa menyamarkan kekurangan-kekurangan itu

sumber : conectique.com

Senin, 03 Oktober 2011

Stres nggak cuma diikuti oleh perasaan gelisah saja. Kalau kamu mengalami satu diantara 5 hal di bawah ini, sediakan sedikit waktu untuk pergi keluar, boleh berjalan kaki atau sekedar menelepon sahabat, saran Stevan E. Hobfoll, PhD, pemimpin departemen ilmu tingkah laku di Rush University Medical Center. Rasa pegal pada mulut.
Nyeri rahang bisa menjadi pertanda kalau kita mengidap teeth grinding (kebiasaan menggesek-gesekan gigi yang biasanya dilakukan secara tidak sadar), biasa terjadi saat tidur dan diperparah kalau kita sedang stres, jelas Matthew Messina, DDS, consumer advisor untuk American Dental Association.
Tidur tidak lelap.
Ketika bermimpi kita akan memiliki energi positif yang sangat besar saat kita tidur, dan itu menjadi alasan mengapa, saat terbangun kita akan memiliki mood yang lebih baik dibanding saat kita tertidur untuk memulai hari ini, jelas Rosalind Cartwright, PhD, profesor psikologi di Rush University Medical Center. Namun, ketika stres, biasanya kita akan terbangun lebih sering dan proses ini sangat mengganggu. Coba capai waktu tidur selama 7-8 jam semalam, dan hindari asupan kafein serta alkohol sebelum tidur. Karena memiliki habit tidur yang baik akan menghindarkan kita dari stres.
Gusi berdarah.
Menurut analisis terhadap 14 studi terdahulu di Brazil, orang yang stres akan memiliki risiko terkena penyakit periodontal lebih besar. Kondisi stres akan meningkatkan hormon kortisol yang akan merusak sistem kekebalam tubuh dan membiarkan bakteri menyerang gusi, ungkap para peneliti. Sering lembur? Dan sering menyantap makan malam di meja kerja? Pastikan sikat gigi selalu diletakkan pada tempat yang mudah dijangkau. Nggak cuma itu, lindungi juga kesehatan mulut dengan berolahraga dan tidur yang cukup. Sebab cara ini akan membantu kita menurunkan stres, kata Preston Miller, DDS, mantan presiden dari American Academy of Periodontology.
Jerawat dimana-mana.
Stres akan meningkatkan peradangan yang memicu jerawat, kata Gil Yosipovitch, MD, profesor dermatologi klinis di Wake Forest University. Haluskan kulit wajah dengan krim yang mengandung asam salisilat atau benzoil peroksida yang bisa pembunuh bakteri, plus pelembab non komedogenik yang akan membuat kulit tidak kering. Jika perawatan ini tidak menunjukkan respon dalam beberapa minggu, segera berkonsultasi dokter untuk mendapatkan perawatan yang tepat.

Suka yang manis-manis.
Jangan langsung menyalahkan kebiasaan ngemil manis pada hormon wanita kita, karena stres adalah faktor pemicu yang lebih tepat untuk disalahkan. Ketika para peneliti dari University of Pennsylvania mensurvei wanita pre dan postmenopause, mereka menemukan hanya terjadi pelonjakan kecil dalam prevelensi hasrat mengemil cokelat yang terjadi pada wanita yang menopause. Peneliti mengatakan stres, dan faktor lain bisa menjadi pemicu rasa lapar akan makanan manis tersebut, jadi bukan hanya masalah hormonal.

Sumber : Rileks.com

Cara Merawat Kulit Agar Tidak Cepat Tua Atau Berkeriput

Anda pasti sudah mendengar, bahwa terlalu banyak mengkonsumsi gula akan mengakibatkan kenaikan berat badan. Tetapi para ahli dan peneliti menemukan bahwa mengkonsumsi gula bisa mengakibatkan kulit berkeriput dan kusam.

Konon, proses alami yang mengakibatkan kondisi ini adalah proses yang disebut glycation. Ini merupakan kondisi ketika aliran darah terikat dengan protein untuk menciptakan molekul yang berbahaya dan disebut advanced glycation end products (AGEs). Semakin banyak gula yang Anda asup, makin banyak tubuh Anda menciptakan AGEs.

“Semakin AGEs terakumulasi, mereka akan merusak protein yang diperlukan dengan efek domino,” jelas Fredric Brandt, MD, dermatolog dan penulis 10 Minutes 10 Years. Yang paling rentan untuk rusak akibat proses ini adalah kolagen dan elastin, serat protein yang menjaga kulit tetap kencang dan elastis. Faktanya, kolagen adalah protein yang paling prevalen untuk tubuh. Sekalinya rusak, kolagen dan elastin yang seharusnya kenyal akan menjadi kering dan rusak, menciptakan kulit berkeriput dan lembek. Efek penuaan ini mulai sekitar usia 35 tahun, dan meningkat sangat cepat seiring pertambahan usia. Hal ini dilaporkan oleh British Journal of Dermatology.

Selain merusak kolagen, konsumsi gula berlebihan juga akan memengaruhi tipe kolagen apa yang akan Anda miliki. Kolagen terbanyak pada kulit adalah tipe I, II, dan III. Tipe III adalah yang paling stabil dan tahan lama. Glycation akan mengubah tipe III menjadi tipe I, yang adalah tipe paling rentan. Ketika ini terjadi, kulit akan terasa lembek, tak lagi kenyal. Sebagai tambahan lagi, AGEs menonaktifkan enzim antioksidan alami tubuh, membuat kulit Anda jadi lebih rentan rusak saat terkena paparan sinar matahari, yang merupakan penyebab utama penuaan kulit.

Jadi, upayakan untuk mengurangi asupan gula jika tak mau kulit terlihat lebih cepat tua.

Sumber : Kompas Female

Selasa, 23 Agustus 2011

Facebook: Google+ 'Tidak Menarik'

Jakarta (ANTARA News) - Baru dua bulan, laman jejaring sosial Google+ diluncurkan, kepala eksekutif senior Facebook mengkritik laman tersebut lantaran miskin orisinalitas, kurangnya pengguna dan pengembang perangkat lunak.

Sean Ryan, Direktur Kemitraan Permainan Facebook, mengatakan bahwa "Google telah mencotek aspek dari sistem kami, yang mana mereka berhak melakukannya. Kami harus menjadi lebih baik."

Laporan majalah Fortune itu juga memuat perbandingan yang dilakukan Ryan terhadap model pendapatan Facebook dan Google+ dengan pengembang game. Sementara, Facebook saat ini menguasai 30 persen sedangkan Google+ hanya menguasai lima persen.

"Google hanya 5 persen karena mereka tidak memiliki pengguna," kata Ryan.

Dia juga membandingkan taktik Google dengan McDonalds yang mencontek cara penjualan kopi Starbuck.

Saat ini, Google+ baru memiliki 25 juta pengguna. Pada 2004, Facebook mebutuhkan waktu sepuluh bulan untuk mencapai satu juta pengguna. Keberuntungan itu dipicu oleh pengumuman Google yang akan memasang permainan seperti Zynga Poker dan Angry Birds. Facebook pun mengumumkan akan meningkatkan layanan permainan dan pesan serta sejenisnya.

Pasar permainan kasual adalah kunci kesuksesan itu karena penjualan barang virtual diperkirakan akan mencapai 20,3 miliar dolar pada 2014, menurut perusahaan penelitian dan bank investasi ThinkEquity.

Eksekutif Facebook mengatakan jejaring sosial Google, Google +, kurang pengguna, orisinalitas dan pengaruh ekonomi, demikian Telegraph.

(Adm/S026)

Editor: Suryanto

First Media investasi naikkan bandwidth

Jakarta (ANTARA News) - PT First Media Tbk penyedia internet broadband dan TV berbayar berbasis kabel menginvestasikan 2,5 juta dolar AS untuk meningkatkan standardisasi kapasitas bandwidth pelanggan menjadi 3 Mbps pada tahun 2011.

"Investasi 2,5 juta dolar AS untuk membeli perangkat CMTS (cable modem termination systems) di lima tempat di Jabodetabek," kata Wakil Dirut First Media, Dicky Moechtar, dalam siaran pers di Jakarta, Selasa.

Dicky menjelaskan, upgrade dimulai sejak 24 Agustus dan diharapkan rampung akhir tahun 2011 seiring penambahan jaringan homepass (sambungan kabel) dari 400.000 menjadi 500.000 homepass di akhir tahun.

"Kami menargetkan First Media bisa menyediakan 1 juta homepass di 2015 nanti," kata Dicky.

Ia menjelaskan, dari 400.000 homepass yang tersedia saat ini sebanyak 360.000 di antaranya sudah merupakan pelanggan First Media.

"Dari jumlah tersebut sebanyak 3.000 sudah menggunakan tayangan konten siaran TV dengan kualitas high definition (HD). Kami memproyeksikan pengguna fitur HD First Media akan bertambah 10.000 menjadi sekitar 13.000 pelanggan HD," ujarnya.

Menurutnya dengan peningkatan kapasitas menjadi standard 3 Mbps, pelanggan tidak akan dikenakan biaya tambahan dalam berlangganan. "Ini komitmen kami menyediakan akses digital living di rumah-rumah. Dan 3 Mbps memang sudah menjadi standard dunia," katanya.

Dari sisi sisi biaya berlangganan, bandwidth yang ditawarkan First Media sudah menyamai kapasitas internet yang disediakan oleh negara tetangga.

"Tarif kami untuk 3 Mbps sebesar Rp335.000 ini sama dengan Singapura yang menawarkan biaya 35 dolar Singapura untuk akses 3 Mbps," ujar Dicky.

Pada kesempatan itu, First Media juga memperbaharui kerja samanya dengan Fox International Channel untuk memperkuat konten siaran di TV kabel berbayarnya. Tercatat sebanyak 15 kanal yang sudah HDTV ready dari Fox untuk pelanggan HD First Media.

Di sejumlah negara Asia termasuk Indonesia Fox mengoperasikan 27 saluran dengan berbagai genre hiburan dan berita seperti Starworld, Fox, National Geographic, Star Movies, V-Channel, dan lainnya.

"Saat ini sudah ready 10 kanal TV HD, selanjutnya 15 channel TV. Kita sendiri menargetkan akan seperti Singapura di mana mempunyai 20 channel TV HD," kata Dicky. (T.R017/Z002)

Editor: Suryanto

sumber : www.antaranews.com