Sabtu, 21 Mei 2011


Hello world

Selamat pagi dunia
Published with Blogger-droid v1.6.9

Selasa, 31 Agustus 2010

Problem insttaling Adobe Reader Update on Windows Server 2008 R2, maybe Windows 7 too

This is Scurity settings of Windows server 2008, to not allowed all program accesing  system. So, to install Adobe update (for online user) follow these steps:
1. open C:\Program Files (x86)\Common Files\Adobe\ARM\1.0
2. Run AdobeARM.exe as Administrator
3. After pop up dispalyed, Like Adobe Reader Update. run it as usual

Jumat, 11 Juni 2010

Picture not present in MS Word

How to fix images not displaying in Microsoft Word 2007

Recently I've been hit by a bug (or what I thought was a bug) in Microsoft Word 2007: images embedded in the document did not display in any mode other than "Full Screen Reading". And since the editing ribbons are not available in that mode, it's hard to get work done. This all started when Word crashed on me one time; ever since then, images simply haven't been displaying correctly. I get a border where the image should be and white space inside. But when I send the file to other people and they open it, they can view the images just fine. I can even add images to documents; I just can't see them.

So I performed a Google search on this issue, but the only relevant "solution" was behind a paywall over at ExpertSexchange. After a few minutes of trying to figure it out on my own, I stumbled upon the solution, and to save everyone from the hell that is ExpertSexchange, here it is:

Click the Office Button (it's in the upper left corner of Word), select "Word Options", select "Advanced" in the left pane, scroll down to the "Show document content" subsection, and uncheck the "Show picture placeholders" option. Yes, it's that simple. Somehow, when Word crashes, this option can get turned on all by itself. It's really annoying because there's no clue that Word is intentionally hiding images from you; it just feels like a bug. And the reason for this insane option?

Word 2007 Options dialog

That's right, it's for performance. And it improves performance only at the expense of severely crippling usability. You'd think this option should never be able to get turned on accidentally, yet there it is. At least you know the solution now.

Jumat, 07 Mei 2010

Split Character di SQL Server

Contoh pemisahan karakter (seperti LEFT, RIght,Mid di Visual Studio):

/****** Object:  StoredProcedure [Reports].[Usp_RetrieveRPTDetailARAPB2B]    Script Date: 05/07/2010 15:39:29 ******/

-- =============================================
-- Author:        <Author,,Name>
-- Create date: <Create Date,,>
-- Description:    <Description,,>
-- =============================================

ALTER PROCEDURE [Reports].[Usp_RetrieveRPTDetailARAPB2B]
    -- Add the parameters for the stored procedure here   
@Company     varchar(6) ,
@InterDistrib varchar(6),
@CdJournalType  varchar(3),
@Channel varchar(30),
@Directorate varchar(6),
@Intermediary varchar(11)

--@company     ='z'
--@InterDistrib ='ALL'
--@CdJournalType  ='ALL'
--@Channel ='AGEN'
--@Directorate ='ALL'
--@Intermediary ='84938800'

    -- SET NOCOUNT ON added to prevent extra result sets from
    -- interfering with SELECT statements.
 company varchar(6) ,
 InterDistrib varchar(6), 
 Channel varchar(40)

@company1 varchar(6),
@InterDistrib1 varchar(6),
@Channel1 varchar(40)
INSERT INTO @TmpTABLE (company,InterDistrib,Channel)
SELECT  @company1, @InterDistrib1 ,@Channel1
SELECT @company1 = company ,@InterDistrib1 =InterDistrib , @Channel1 = Channel FROM @TmpTABLE
SELECT @company1 = CASE WHEN @company = 'ALL' THEN  '' ELSE @company END;
SELECT @InterDistrib1 = CASE WHEN @InterDistrib = 'ALL' THEN  '' ELSE @InterDistrib END;
SELECT @Channel1 = CASE WHEN @Channel = 'ALL' THEN  '' ELSE @Channel END;

 --IF @IsReady = 1
    -- Insert statements for procedure here
        ROW_NUMBER() OVER (ORDER BY [Company]) AS NO
        , Reports.Company.CompanyDescription AS Company
        , Reports.RPTDetailNoteData.CdJournalType AS CdJournalType
        , Reports.RPTDetailNoteData.CdSubJournalType AS CdSubJournalType
        , Reports.RPTDetailNoteData.NoteNumber AS NoteNumber
        , Reports.RPTDetailNoteData.PolicyNo AS PolicyNo
        , RPTDetailNoteData.OurRefNo AS [OurRefNo]
        , RPTDetailNoteData.[ClaimNo] AS [ClaimNo]
        , Reports.RPTDetailNoteData.ENDNo AS ENDNo
        , Reports.RPTDetailNoteData.Currency AS Currency
        , Reports.RPTDetailNoteData.InternalDistribution AS InterDistrib
        , Reports.Channel.ChannelDescription AS Channel
        , Reports.RPTDetailNoteData.CdProduct AS CdProduct
        , Reports.RPTDetailNoteData.MOUID AS MOUID
        , Reports.RPTDetailNoteData.Cd2W4W AS Cd2W4W
        , Reports.RPTDetailNoteData.CdSalesman AS CdSalesman
        , Reports.RPTDetailNoteData.ChassisNo AS ChassisNo
        , Reports.RPTDetailNoteData.EngineNo AS EngineNo
        , Reports.RPTDetailNoteData.CdPayer AS CdPayer
        , PayerName.CustomerDescription  AS PayerName
        , Reports.RPTDetailNoteData.CdCustomer AS CdCustomer
        , Reports.Customer.CustomerDescription AS CustomerName
        --, Reports.CustomerGroup.CustomerGroupCode + '-' + Reports.CustomerGroup.CustomerGroupDescription   AS CustomerGroup   
        --, Reports.IntermediaryGroup.IntermediaryGroupCode + '-' +Reports.IntermediaryGroup.IntermediaryGroupDescription AS IntermediaryGroup  
        --, Reports.RPTDetailNoteData.CustStatus + '-' +  CustomerStatus.CustomerStatusDescription AS CustomerStatus   
        , Reports.RPTDetailNoteData.DtStart AS DtStart
        , Reports.RPTDetailNoteData.DtEND AS DtEND
        , Reports.RPTDetailNoteData.DtDue AS DtDue
        , Reports.RPTDetailNoteData.CdCOB AS CdCOB
        , Reports.RPTARAPData.NYDAmount AS NYDAmount
        , Reports.RPTDetailNoteData.NoteAmount AS NoteAmount
        , CASE Reports.RPTARAPData.CdAging 
            WHEN 0 THEN RPTARAPData.ARAmount
            ELSE 0
        END AS 'Amount_1_30'
        , CASE RPTARAPData.CdAging
            WHEN 1 THEN RPTARAPData.ARAmount
            ELSE 0
        END AS 'Amount_31_60'

        ,CASE RPTARAPData.CdAging
            WHEN 2 THEN RPTARAPData.ARAmount
            ELSE 0
        END AS 'Amount_61_90'

        ,CASE RPTARAPData.CdAging
            WHEN 3 THEN RPTARAPData.ARAmount
            ELSE 0
        END AS 'Amount_91_120'

        ,CASE RPTARAPData.CdAging
            WHEN 4 THEN RPTARAPData.ARAmount
            ELSE 0
        END AS 'Amount_121_150'

        ,CASE RPTARAPData.CdAging
            WHEN 5 THEN RPTARAPData.ARAmount
            ELSE 0
        END AS 'Amount_151_180'

        ,CASE RPTARAPData.CdAging
            WHEN 6 THEN RPTARAPData.ARAmount
            ELSE 0
        END AS 'Amount_181_210'

        ,CASE RPTARAPData.CdAging
            WHEN 7 THEN RPTARAPData.ARAmount
            ELSE 0
        END AS 'Amount_211_240'

        ,CASE RPTARAPData.CdAging
            WHEN 8 THEN RPTARAPData.ARAmount
            ELSE 0
        END AS 'Amount_241_270'

        ,CASE RPTARAPData.CdAging
            WHEN 9 THEN RPTARAPData.ARAmount
            ELSE 0
        END AS 'Amount_271_300'

        ,CASE RPTARAPData.CdAging
            WHEN 10 THEN RPTARAPData.ARAmount
            ELSE 0
        END AS 'Amount_301_330'

        ,CASE RPTARAPData.CdAging
            WHEN 11 THEN RPTARAPData.ARAmount
            ELSE 0
        END AS 'Amount_331_360'

        ,CASE RPTARAPData.CdAging
            WHEN 12 THEN RPTARAPData.ARAmount
            ELSE 0
        END AS 'Amount_360'
        , Reports.RPTARAPData.ARAmount AS ARAmount
        , Reports.RPTARAPData.AmountGT30 AS AmountGT30
        , Reports.RPTARAPData.AmountGT60 AS AmountGT60
        , Reports.RPTARAPData.AmountGT120 AS AmountGT120
        , Reports.RPTARAPData.AmountGT180 AS AmountGT180
        , Reports.RPTDetailNoteData.GroupingNo AS GroupingNo
        , Reports.RPTDetailNoteData.ContractNo AS ContractNo
        , Reports.RPTDetailNoteData.ClientNo AS ClientNo
        , Reports.RPTDetailNoteData.PHolder AS PHolder
        , Reports.RPTDetailNoteData.DtProduction AS DtProduction
        , Reports.RPTDetailNoteData.UserEntry AS UserEntry
        , Reports.RPTDetailNoteData.ENDRmk AS ENDRmk
        , RPTLastSOANumberData.SOANo AS SOANo
        , RPTlastResultCategoryData.Modul AS Modul
        , Reports.OrderType.OrderTypeDescription AS OrderTypeName
        , Reports.RPTDetailNoteData.CdDealer AS CdDealer
        , ResultCategory.ResultCategoryDescription AS ResultCat
        , Reports.RPTDetailNoteData.DtDOL AS DtDOL
        , Reports.RPTDetailNoteData.CdIntermediary  AS CdIntermediary
        , Reports.RPTDetailNoteData.CdDirectorate AS CdDirectorate
        , Reports.RPTDetailNoteData.CdUnit + '-' + Unit.UnitDescription    AS CdUnit
        , Reports.RPTDetailNoteData.Partner AS Partners 
        , Reports.RPTARAPData.DtAsAt AS DtAsAt 

        INNER JOIN
        ON Reports.RPTDetailNoteData.Company = Reports.Company.CompanyCode
        INNER JOIN
        ON Reports.RPTDetailNoteData.FinanceNoteID = Reports.RPTARAPData.FinanceNoteID
        INNER JOIN
        ON Reports.RPTDetailNoteData.CdUnit= Reports.Unit.UnitCode
        INNER JOIN
        ON (SUBSTRING(Reports.RPTDetailNoteData.Channel,1,4)) = Reports.Channel.ChannelCode
        INNER JOIN
        ON Reports.RPTDetailNoteData.CdCustomer = Reports.Customer.CustomerCode
        INNER JOIN
             Reports.Customer AS PayerName
        ON Reports.RPTDetailNoteData.CdPayer = PayerName.CustomerCode
        INNER JOIN
        ON Reports.RPTDetailNoteData.OrderType = Reports.OrderType.OrderTypeCode
        INNER JOIN
             Reports.Customer AS Intermediary
        ON Reports.RPTDetailNoteData.CdIntermediary = Intermediary.CustomerCode
        INNER JOIN
             Reports.RPTlastResultCategoryData AS RPTlastResultCategoryData
        ON RPTlastResultCategoryData.FinanceNoteID = RPTDetailNoteData.FinanceNoteID
        INNER JOIN
            Reports.RPTLastSOANumberData AS RPTLastSOANumberData
        ON RPTLastSOANumberData.FinanceNoteID = RPTDetailNoteData.FinanceNoteID
        INNER JOIN
        ON  ResultCategory.ResultCategoryCode  = RPTlastResultCategoryData.ResultCategory
        INNER JOIN
            Reports.RPTSettlementData RPTSettlementData
         ON RPTDetailNoteData.FinanceNoteID = RPTSettlementData.FinanceNoteID   
                 INNER JOIN
         ON RPTDetailNoteData.CustStatus = CustomerStatus.CustomerStatusCode 


        --Reports.RPTDetailNoteData.Company LIKE '%' + @Company + '%' AND   
    (CASE WHEN ISNULL(@Company1, '')= '' THEN '' ELSE Company END)=ISNULL(@Company1, '') AND   
        --Reports.RPTDetailNoteData.InternalDistribution LIKE '%' + @InterDistrib + '%' AND Not(
    (CASE WHEN ISNULL(@InterDistrib1, '')= '' THEN '' ELSE RPTDetailNoteData.InternalDistribution END)=ISNULL(@InterDistrib1, '') AND NOT(
            RPTDetailNoteData.Channel='LEAS' AND
            RPTDetailNoteData.Partner IN ('ACC','TAF','FIF','SAF')) AND
        --Reports.RPTDetailNoteData.CdJournalType LIKE '%' + @CdJournalType + '%' AND  
    (CASE WHEN ISNULL(@CdJournalType, '')= '' THEN '' ELSE RPTDetailNoteData.CdJournalType END)=ISNULL(@CdJournalType, '') AND   
        --Reports.RPTDetailNoteData.Channel LIKE '%' + @Channel + '%'  AND
    (CASE WHEN ISNULL(@Channel1, '')= '' THEN '' ELSE Channel END)=ISNULL(@Channel1, '') AND       
        --Reports.RPTDetailNoteData.CdIntermediary  LIKE '%' + @CdInetermediary + '%' AND
    (CASE WHEN ISNULL(@Intermediary, '')= '' THEN '' ELSE CdIntermediary END)=ISNULL(@Intermediary, '') AND       
        --Reports.RPTDetailNoteData.CdDirectorate LIKE '%' + @CdDirectorate + '%'
    (CASE WHEN ISNULL(@Directorate, '')= '' THEN '' ELSE CdDirectorate END)=ISNULL(@Directorate, '')
    AND RPTDetailNoteData.TpNote = 'B2B' 

Kamis, 06 Mei 2010

How Do i Create Attachment from Stream Data

System.Net.Mail FAQ

3.4.2 How do I create an attachment from a stream? Printer Friendly

Something that is new in System.Net.Mail, is the capability to create attachments from streams. With this capability we can create an attachment from text, binary data, or from basically anything in memory. We simply need to make sure it is written to a stream.

The following example creates an attachment from some simple text, but it could have just as easily have come from Sql Server.

[ C# ]

static void AttachmentFromStream()

//create the mail message
MailMessage mail = new MailMessage();

//set the addresses
mail.From = new MailAddress("");

//set the content
mail.Subject = "This is an email";
mail.Body = "this content is in the body";

//Get some binary data
byte[] data = GetData();

//save the data to a memory stream
MemoryStream ms = new MemoryStream(data);

//create the attachment from a stream. Be sure to name the data with a file and
//media type that is respective of the data
mail.Attachments.Add( new Attachment( ms, "example.txt", "text/plain" ));

//send the message
SmtpClient smtp = new SmtpClient("");
static byte[] GetData()
//this method just returns some binary data.
//it could come from anywhere, such as Sql Server
string s = "this is some text";
byte[] data = Encoding.ASCII.GetBytes(s);
return data;

[ VB.NET ]
Sub AttachmentFromStream()

'create the mail message
Dim mail As New MailMessage()

'set the addresses
mail.From = New MailAddress("")

'set the content
mail.Subject = "This is an email"
mail.Body = "this content is in the body"

'Get some binary data
Dim data As Byte() = GetData()

'save the data to a memory stream
Dim ms As New MemoryStream(data)

'create the attachment from a stream. Be sure to name the data with a file and
'media type that is respective of the data
mail.Attachments.Add(New Attachment(ms, "example.txt", "text/plain"))

'send the message
Dim smtp As New SmtpClient("")
End Sub 'AttachmentFromStream

Function GetData() As Byte()
'this method just returns some binary data.
'it could come from anywhere, such as Sql Server
Dim s As String = "this is some text"
Dim data As Byte() = Encoding.ASCII.GetBytes(s)
Return data
End Function 'GetData

Kamis, 22 April 2010

Get Aero in Vista Home Basic

Start Menu > Click in the "Start Search" box > Type in "run" > Click on "Run" under the list of Programs found > Type "regedit" in the text box and click "Open" or press "Enter" key.

When the "Registry Editor" opens up, click and open the following folders:

"HKEY_CURRENT_USER" then "Software" then "Microsoft" then "Windows" and then "DWM".

Double click on "Composition" type "1" in the "Value data" field and click on the "OK" button.

Double click on "CompositionPolicy" type "2" in the "Value data" field and click on the "OK" button.

Exit out of the Registry Editor.

Start Menu > Click in the "Start Search" box > Type in "command prompt" > Click on "Command Prompt" under the list of Programs found > type in "net stop uxsms" press the "Enter" key > Wait for it to do its thing, then type in "net start uxsms" press "Enter" key.

Screen may flicker to set it up. Then right-click on your desktop and click on "Personalize" > Click on "Window Color and Appearance". You should be able to handle it from here.

Microsoft Windows Vista adalah sebuah sistem operasi yang unik

Microsoft Windows Vista adalah sebuah sistem operasi yang unik. Hal ini baru dapat kita rasakan apabila kita telah menggunakan sistem operasi ini. Banyak hal-hal baru yang akan kita dapatkan dari fitur-fitur terbaru yang terdapat di Windows Vista. Mungkin banyak opini orang yang mengakatakan bahwa windows vista adalah sistem operasi yang buruk. Tetapi setelah saya menggunakannya, ternyata yang saya rasakan tidak demikian. Dalam tugas sistem operasi ini akan saya bahas mengapa saya mengatakan windows vista adalah sistem operasi yang cukup bagus.
Windows Vista yang saya gunakan dirumah adalah Windows Vista Ultimate version. Mengapa saya memilih menggunakan Windows Vista Ultimate version, hal ini disebabkan karena versi inilah yang memiliki fitur paling komplit dari seluruh versi Windows Vista. Saya akan mulai dari penginstalan, pada Windows Vista pada saat penginstalan anda dapat langsung melakukan pempartisian hardisk sesuai yang anda inginkan. Waktu yang dibutuhkan untuk menginstal Windows Vista tidak terlalu lama, tidak lebih dari 30 menit. Setelah saya menginstal Wndows Vista, saya menginstal driver yang dibutuhkan motherboard dan kartu grafis dan hal yang saya temukan adalah hal yang sangat mengejutkan. Tidak seperti Sistem Operasi yang lain, Windows Vista dapat memilih driver yang mana saja dibutuhkan dan tidak (mungkin hal ini dikarenakan ada beberapa driver yang apabila dipakasakan akan menyebabkan crash pada sistem). Setelah penginstalan penuh maka kita akan merasakan banyak hal yang membuat sistem operasi ini berbeda dengan sistem operasi yang lain. Hal pertama yang akan muncul adalah welcome screen, disini kita dapat melihat score komputer kita (terlebih dahulu harus di update). Ketika saya melihat score yang diperoleh komputer saya, saya sangat terkejut karena hanya bernilai 5.0 (padahal spesifikasi komputer saya lumayan loh…). Ternyata ketika saya membaca keterangannya ternyata nilai 5.0 adalah nilai minimum untuk merasakan seluruh fitur Windows Vista (T.T). Saya akan menyertakan daftar spesifikasi saya agar anda bisa membayangkannya. Processor Intel Core 2 Duo E6320 1.86 Ghz (Score 5.0), Kartu Grafis ATI Radeon X1950 256 Mb GDDR3 (Score 5.9), Memory Patriot Extreme Dual Slot 2 x 1 Ghz (Score 5.8), dan Harddisk Western Digital 250 Gb SataII 8000 Rpm (Score 5.8). Setelah anda melihat spesifikasi komputer saya dapatkah anda bayangkan spesifikasi yang dibutuhkan untuk mencapai score 7.0 atau 8.0 ? (Bingung kan…).
Setelah saya melihat score komputer saya, hal yang saya lakukan adalah melihat performa komputer saya. Dan lagi-lagi saya dibuat terkejut oleh sistem operasi ini, hal yang saya temukan adalah Free Physical Memory yang terdapat didalam komputer saya adalah 0 (nol) padahal saya tidak sedang membuka aplikasi apapun. Kemudian saya bertanya-tanya “Kemana perginya physical memory saya sebanyak 2042 Mb ?”. Setelah saya selidiki, ternyata windows vista mengoptimalkan penggunaan physical memory untuk kartu grafis (Kartu grafis saya yang tadinya hanya memiliki memory sebesar 256 Mb sekarang menjadi 1024 Mb) dan proses yang dibutuhkan sehingga tidak akan ada memory yang terbuang percuma. Tetapi hal yang dilakukan oleh Windows Vista ini cukup aneh, hal ini dikarenakan kartu grafis yang saya gunakan tidak memiliki teknologi Hypermemory lalu bagai mana caranya Windows Vista dapat meningkatkan Memory pada kartu grafis saya ? (Cukup mencurigakan ya…). Sebenarnya kita dapat mengambil kesimpulan bahwa Windows Vista sangat mensuport HDT (High Definition Technology).
Sekarang saya akan membahas fitur-fitur yang telah saya coba gunakan pada Windows Vista Ultimate Version ini. Fitur yang pertama kali saya coba adalah Windows Media Center dan… Wow !!! Media center yang ditawarkan oleh Vista ternyata memiliki sangat banyak fungsi dimulai dari extended utility untuk home entertainment, burning, sampai maintenance (lho kok aneh ya, ada maintenance komputer di media center ??). Kemudian Fitur Lainnya adalah Windows Media Player 11, Windows DVD Maker, Internet Explorer 7, Windows Aero, dan masih banyak lagi. Sedangkan untuk keamanan Windows Vista memberikan Windows Defender, BitLocker dan Local Security Policy. Ada satu hal yang unik dari Windows Vista Ultimate, yaitu Windows Vista versi ini dapat menghandle beberapa Antivirus sekaligus melalui Windows Defender. Sedangkan BitLocker adalah Fitur yang digunakan untuk mengencrypt data pada hardisk, yang sayangnya saya sendiri tidak dapat menggunakannya karena harddisk yang dapat di encrypt hanya harddisk yang support dengan teknologi tersebut. Sekian mengenai fitur yang terdapat didalam Windows Vista yang saya bahas dalam karya tulis ini. Terima Kasih.

Join Milist Kami

style="border: 0px;"
alt="Click untuk join ke milisIT_07"/>

Click to join milisIT_07

Selasa, 13 April 2010

Menghentikan Kegiatan Facebook

Mungkin awal ketertarikan Anda terhadap Facebook dimulai dengan sesuatu yang simpel, yaitu agar tetap terhubung dengan teman-teman Anda, atau menambah jumlah teman Anda di dunia maya. Atau mungkin untuk mengisi waktu luang Anda agar tak bosan. Namun sekarang Facebook sudah menjadi sebuah duri dalam daging Anda, dan mungkin sudah menjadi hal yang bersifat candu. Jika Anda merasa sangat sukar untuk menghabiskan satu jam dari waktu Anda tanpa memikirkan tentang Facebook, mungkin Anda menginginkan sebauh jalan keluar. Maka Inilah jawabannya.

Langkah 1

Akui bahwa Anda memiliki permasalahan dan ingatlah apa-apa yang Anda lakukan dengan Facebook. Setelah semua sesi Facebook yang Anda lakukan, tanyakan pada diri Anda: "Apa yang telah Saya hasilkan dengan melihat Facebook?" Bukankah janggal, mungkin Anda log in hanya untuk melihat apakah Anda telah di poke, atau melihat update profil image teman Anda, menulis note baru, menambahkan daftar lagu baru pada favorite music, dan mengerjakan hal-hal kecil lain yang sebenarnya Anda bisa hidup tanpa melakukannya atau mengetahuinya. Namun semua itu mungkin hal-hal kecil yang membuat Anda terikat. Awalnya Anda mengkonfirmasi teman baru, kemudian Anda menghabiskan sejam waktu Anda untuk melihat semua profil orang-orang yang baru yang terhubung dengan Anda. Mencatat semua aktivitas Facebook Anda dapat membantu Anda untuk menyadari berapa banyak waktu yang Anda habiskan untuk melakukan hal-hal yang tidak bersifat konstruktif.

Langkah 2

Tentukan tujuan Anda ber-Facebook. Membuat sebuah daftar dari apa yang benar-benar Anda inginkan. Apa alasan Anda sign up di Facebook? Mungkin supaya Anda bisa mengingat hari ulang tahun teman Anda? Menemukan teman lama? Menemukan orang yang memiliki hobby sama? Apapun tujuan Anda, Anda perlu memastikan bahwa Anda mencurahkan waktu Anda di sana untuk menyelesaikan atau mengerjakan tujuan-tujuan tersebut, daripada keluar dari jalur yang tidak membawa Anda kepada hasil apapun. Jika Anda tidak memiliki tujuan apapun (contohnya: Jika Anda sign up hanya karena Anda tidak memiliki kerjaan lain), lewati saja langkah berikutnya.

Langkah 3

Buat dan ikuti jadwal kegiatan Facebook. Setelah tujuan-tujuan facebook tercapai, catatlah, berapa banyak waktu dan frekuensi yang Anda perlukan untuk mencapai tujuan-tujuan tersebut. Kemudian catatlah jumlah jam per minggu yang seharusnya Anda habiskan di Facebook. Jika kelihatannya terlalu banyak, sesuaikan aktivitas Anda. Mengikuti jadwal mungkin akan bisa mengatasi kecanduan Facebook Anda tanpa mengharuskan Anda berhenti.


  • Tetap terhubung dengan teman kuliah – cek setiap hari, habiskan tidak lebih dari 15 menit untuk merespon pesan hanya dari teman kuliah (1 jam per minggu).
  • Mengurus Group – Cek setiap pagi dan malam masing-masing selama 10 menit, hanya untuk menghapus spam atau junk. Ingatkan diri Anda: jangan merespon postingan-postingan yang ada, memberi komentar atau mengirim pesan selama sesi ini (2 jam, 20 menit per minggu).
  • Menjaga agar group tetap menarik – Habiskan 30 menit setiap hari membaca semua komentar dan repon. (2 jam per minggu).
  • Mencari teman baru – Lihat-lihat profil 30 menit, dua kali seminggu ( 1 jam per minggu).
  • Total waktu maksimum yang Saya rencanakan untuk kegiatan Facebook: 6 jam, 20 menit.

Langkah 4

Pikirkan hal lain yang dapat Anda lakukan jika Anda menghabiskan waktu di Facebook. Jika Anda menghabiskan, katakanlah 10 jam per minggu di Facebook, maka buatlah sebuah daftar hal-hal lain yang dapat Anda lakukan dengan waktu tersebut. Anda dapat:

  • Mengambil pekerjaan part time dan menginvestasikan hasilnya pada stock.
  • Mengajari anak Anda bagaimana bermain bola.
  • Melakukan fitness.
  • Mencari pacar.
  • Membaca buku.
  • Belajar bahasa Inggris.
  • dll.

Langkah 5

Tinggalkan Facebook. Jika Anda sudah membuat jadwal dan tidak dapat mematuhinya, atau Anda telah memutuskan bahwa waktu yang dihabiskan di Facebook itu percuma, mungkin Anda perlu meninggalkan dan stop dari Faceboo

Rabu, 07 April 2010

Tips memikat wanita

23 best tips to get a girlfriend!
1. When she asks how she looks, shrug and say "could be better." This will keep her on her toes, and girls love that.

2. Never hold her hand. This can be interpreted as a sign of weakness. If she grabs your hand, squeeze hers really, really hard until she cries. This will impress her by showing her what a strong man you are.

3. Once a month sneak up on her from behind and knock her over. Girls are like dogs. They love to be roughed up.

4. Call her in the middle of the night to ask if she's sleeping. If she is, say "you better be." Repeat this 4 or 5 times until morning. This will show her you care.

5. When she is upset about something, suggest to her that it might be her fault. This will pave the way for her own personal improvement, and every girl needs some improvement.

6. Recognize the small things; they usually mean the most. Then when she's sleeping, steal all her small things and break them. Because jewelry is for ~Censored~.

7. If you're talking to another girl, make sure she's looking. When she is, stare into her eyes, mouth the words '~censored~ you, ' and grab the other girl's ass. Girls love competition.

8. Tell her you're taking her out to dinner. Drive for miles so she thinks it's going to be really special. Then take her to a burning tire yard. When she starts to get upset tell her you were just kidding and now you're really going to take her to dinner. Then drive her home. When she starts crying and asks why you would do something like that lean over and whisper very quietly into her ear "...because I can."

9. Introduce her to your friends as "some chick". Women love those special nicknames.

10. Play with her hair. Play with it HARD.

11. Warm her up when she's cold... but not by giving her your jacket, because then you might get cold. Rather, look her in the eye and say, "If you don't stop ~censored~ about the cold right now, you're going to be ~censored~ about a black eye." The best way to get warm is with fear.

12. Take her to a party. When you get there she'll have to go to the bathroom (they always do). Leave immediately. Come back right when the party's dying and yell at her the whole way home for ditching you at the party.

13. Make her laugh. A good way to do this is if she has a small pet. Kick the pet. I always find stuff like that funny. Why shouldn't girls?

14. Let her fall asleep in your arms. When she's fast asleep, wait 10 minutes then JUMP UP AND SCREAM IN HER EAR! Repeat until she goes home and you can use your arms for more important things. Like basketball.

15. Spit often. I hear girls like guys that spit.

16. If you care about her, never ever tell her. This will only give her self confidence. Then you can never turn her into the object she deep down desires to be.

17. Every time you're in her house steal one of the following: shoes, earrings, or anything else that comes in pairs. Only take one of the pair. This way she'll go crazy.

18. Take her out to dinner. Right when she's about to order interrupt and say "No, she's not hungry". Make her watch you eat. Girls love a guy that speaks for her.

19. Look her in the eyes and smile. Then punch her. Girls love a spontaneous guy.

20. Give her one of your t-shirts... and make sure it has your smell on it. But not a sexy cologne smell. A bad smell. You know what I'm talking about.

22. If you're listening to music, and she asks to hear it, tell her no. This way she'll think you're mysterious.

23. Remember her birthday, but don't get her anything. Teach her material objects aren't important. The only thing that's important is that she keeps you happy. And your happiness is the greatest present she can ever get

Copas dari forum bule