BozDon

RFID Attendance (arduino mega 2560 + 16x2 LCD + RFID RC522) with python,mysql,php,java

2015-11-26T17:56:00.002+07:00

Ngoprek bikin RFID, googling sana sini sempat mentok pusing hahahahaha.... excited...

Sedikit info:

arduino mega 2560 dengan 16x2 LCD dan RFID RS522 ditabah buzzer dan led.

dengon koneksi sbb:

Aduino dan RFID:

--------------------------------------------------

MFRC522 Arduino

Reader/PCD Mega

Signal Pin Pin

--------------------------------------------------

* RST/Reset RST 9

* SPI SS SDA(SS) 53

* SPI MOSI MOSI 51

* SPI MISO MISO 50

* SPI SCK SCK 52

Arduino dan LCD:

* LCD RS pin to digital pin 7

* LCD Enable pin to digital pin 8

* LCD D4 pin to digital pin 3

* LCD D5 pin to digital pin 4

* LCD D6 pin to digital pin 5

* LCD D7 pin to digital pin 6

* LCD R/W pin to ground

* LCD VSS pin to ground

Arduino dan buzzer + led

* Buzzer -- pin 2

* LED - resistor - pin 2

Koneksi arduino dan raspberry pi via serial dengan python

Python baca serial dari arduino kemudian insert to mysql dan to file txt.

PHP dan java baca txt untuk di tampilkan.

Berikut code nya untuk arduino:

--------------------------------------------------------------------------------------------------------------------------

#include <LiquidCrystal.h>

#include <SPI.h>

#include <MFRC522.h>

#define RST_PIN 9 //

#define SS_PIN 53 //

MFRC522 mfrc522(SS_PIN, RST_PIN); // Create MFRC522 instance

LiquidCrystal lcd(7,8,3,4,5,6);

String val;

void setup() {

pinMode(2, OUTPUT);

digitalWrite(2, LOW);

Serial.begin(9600); // Initialize serial communications with the PC

while (!Serial); // Do nothing if no serial port is opened (added for Arduinos based on ATMEGA32U4)

SPI.begin(); // Init SPI bus

mfrc522.PCD_Init(); // Init MFRC522

//ShowReaderDetails(); // Show details of PCD - MFRC522 Card Reader details

//Serial.println(F("Scanning UID...."));

//establishContact();

lcd.begin(16,2);

}

void loop() {

lcd.clear();

lcd.setCursor(2,0);

lcd.print("Scanning for");

lcd.setCursor(6,1);

lcd.print("UID");

//read serial

if (Serial.available() >0)

{

val = Serial.readStringUntil('\n');

if (val != "unknown")

{

lcd.clear();

lcd.setCursor(0,0);

lcd.print("Welcome: ");

lcd.setCursor(1,1);

lcd.print(val);

delay(2000);

}

else

{

lcd.clear();

lcd.setCursor(1,0);

lcd.print("Unregister Card");

lcd.setCursor(1,1);

lcd.print("please report");

digitalWrite(2, HIGH);

delay(2000);

digitalWrite(2, LOW);

}

else //no input serial

{

// Prepare key - all keys are set to FFFFFFFFFFFFh at chip delivery from the factory.

MFRC522::MIFARE_Key key;

for (byte i = 0; i < 6; i++) {

key.keyByte[i] = 0xFF;

}

// Look for new cards

if ( ! mfrc522.PICC_IsNewCardPresent()) {

return;

}

// Select one of the cards

if ( ! mfrc522.PICC_ReadCardSerial()) {

return;

}

// Dump debug info about the card; PICC_HaltA() is automatically called

//mfrc522.PICC_DumpToSerial(&(mfrc522.uid));

int val1=(mfrc522.uid.uidByte[0]);

int val2=(mfrc522.uid.uidByte[1]);

int val3=(mfrc522.uid.uidByte[2]);

int val4=(mfrc522.uid.uidByte[3]);

String valA=String(val1);

String valB=String(val2);

String valC=String(val3);

String valD=String(val4);

String uID=valA+valB+valC+valD;

//lcd.clear();

Serial.println(uID);

digitalWrite(2, HIGH);

delay(300);

// Halt PICC

mfrc522.PICC_HaltA();

digitalWrite(2, LOW);

// Stop encryption on PCD

mfrc522.PCD_StopCrypto1();

//lcd.setCursor(0,0);

//lcd.print("Last UID SCANNED:");

//lcd.setCursor(2,1);

//lcd.print(uID);

}

--------------------------------------------------------------------------------------------------------------------------

Sedangkan untuk python php saya dapat reference dari sini:

Time & Attendance System with Raspberry and Phidgets

Silahkan di lihat, di modif dan dicoba hehehehehe

Dan berikut video hasilnya:

"No Offence No Heart Feelings"

Semoga Bermanfaat

..beberapa kisah dari ibu tentang ayah..

2015-02-26T09:35:00.004+07:00

Cerita ibuku saat kutanya bagaimana ayah bisa meninggal..
Sebelum ayahku pergi ke Surabaya kota kelahirannya, sebenarnya sudah dibilang sembuh dan sehat dari penyakitnya, tapi harus istirahat selama tiga tahun.. tapi beliau lelaki yang punya tanggung jawab..
Beliau pergi ke Surabaya meninggalkan anak istri demi impiannya.. dan disana beliau bekerja.. ya.. harusnya ayah istirahat namun malah kerja..
Tapi aku mengerti seandainya itu kualami pasti aku mengambil keputusan yang sama..
Di Surabaya ayah sudah kontrak rumah.. sudah di cat ulang.. di rapikan.. disiapkan untuk istri dan anaknya.. itu yang tertulis bangga di surat terakhirnya pada ibuku..
Namun ternyata yang beliau impikan tak pernah terwujud.. beliau dipanggil Tuhan sebelum ibu.. aku.. dan adikku diboyongnya kesana..
Yang kupelajari dari cerita ini bahwa aku pun akan selalu berjuang dan berusaha untuk impianku.. keluarga ku.. sampai ajal menjemput..

Cerita ibuku saat ayah di rumahsakit..
Saat sakit ayah dirawat di Rumah Sakit.. sampai pada satu waktu ayah dan ibuku kehabisan biaya.. tak ada lagi dana untuk biaya Rumah Sakit..
Dan mereka memutuskan untuk kabur.. seijin perawat yang memberikan ide untuk pergi saat dokter tidak ada.. (ini membuatku berfikir bahwa ayah di Rumah Sakit cukup lama, sampai ayah dan ibuku dekat dengan perawat tersebut..)
Dan saat waktunya tiba ayah dan ibuku kabur.. dan berhasil..
hmm... Lucu sekaligus Pilu..

Ada kalimat yang diingat ibuku yang pernah diucapkan ayahku padanya saat beliau sakit..
"Aku hanya takut tak dapat melihat anak anak tumbuh dewasa"
Dan ternyata benar.. itu menjadi kenyataan..

Internal Cash Flow dengan Vb.net dan excel

2013-09-23T12:22:00.000+07:00

Laporan pengeluaran dan pemasukan keluarga kadang ada yg di catat semua, detail dengan dalih agar lebih terkontrol. Saya pribadi sebenarnya tidakmelakukan itu, tapi istri saya melakukannya. Satu waktu ada seorang teman minta dibuatkan programnya. Agar tidak manual hihhi

Sebenarnya program ini simple saja, hanya laporan di excel hanya dengan menggunakan GUI dari aplikasi buatan dengan VB.net. Dengan tampilan seperti berikut:

hanya mencatat pemasukan dan pengeluaran, dengan adanya summary jumlah yang masuk dan keluar, sehingga lebih terlihat dan mudah di kontrol, baik harian, bulanan, atau tahunan..
Bisa di buat reportnya yang akan menghasilkan laporan dengan file excel..

jika mau coba dan pakai source nya ada di:
Source
Sedangkan untuk yang sudah jadi berupa installer ada di:
Installer
note: saat diinstall harap di arahkan agar di install di folder:
C:\Internal Cash-Flow
Agar program bisa berjalan. jika mau edit dan atau di tambahkan bisa download saja sourcenya..
Didalamnya menggunakan koneksi dengan excel seperti yang pernah saya post di blog ini sebelumnya..

Ma'af jika banyak kekurangan, itu hanya program sederhana, namun akan berarti untuk yang membutuhkan, baik program keseluruhan ataupun contoh syntax nya..
Berikut sedikit potongan syntax nya:

'xlApp = New Excel.ApplicationClass
'xlWorkBook = xlApp.Workbooks.Open("C:\Internal Cash-Flow\data.xlsx")
'xlWorkSheet = xlWorkBook.Worksheets("sheet1")
'xlWorkBook.Application.Visible = True
'xlWorkBook.Application.WindowState = Excel.XlWindowState.xlMinimized
lastrow = xlWorkSheet.UsedRange.Rows.Count
rng = lastrow

Dim rang As Excel.Range = xlWorkSheet.Cells(rng + 1, 2)
Dim row As Excel.Range = rang.EntireRow

If TextBox1.Text <> "" And TextBox4.Text = "" Then
row.Insert(Excel.XlInsertShiftDirection.xlShiftDown, False)
xlWorkSheet.Cells((rng + 1), 2) = rng - 1
xlWorkSheet.Cells((rng + 1), 3) = DateTimePicker1.Text
xlWorkSheet.Cells((rng + 1), 4) = TextBox1.Text
xlWorkSheet.Cells((rng + 1), 5) = TextBox2.Text
xlWorkSheet.Range("B" & rng + 1 & ":F" & rng + 1).Borders.Weight = 2
ElseIf TextBox1.Text = "" And TextBox4.Text <> "" Then
row.Insert(Excel.XlInsertShiftDirection.xlShiftDown, False)
xlWorkSheet.Cells((rng + 1), 2) = rng - 1
xlWorkSheet.Cells((rng + 1), 3) = DateTimePicker1.Text
xlWorkSheet.Cells((rng + 1), 4) = TextBox4.Text
xlWorkSheet.Cells((rng + 1), 6) = TextBox3.Text
xlWorkSheet.Range("B" & rng + 1 & ":F" & rng + 1).Borders.Weight = 2
ElseIf TextBox1.Text <> "" And TextBox4.Text <> "" Then
row.Insert(Excel.XlInsertShiftDirection.xlShiftDown, False)
xlWorkSheet.Cells((rng + 1), 2) = rng - 1
xlWorkSheet.Cells((rng + 1), 3) = DateTimePicker1.Text
xlWorkSheet.Cells((rng + 1), 4) = TextBox1.Text
xlWorkSheet.Cells((rng + 1), 5) = TextBox2.Text
xlWorkSheet.Range("B" & rng + 1 & ":F" & rng + 1).Borders.Weight = 2
row.Insert(Excel.XlInsertShiftDirection.xlShiftDown, False)
xlWorkSheet.Cells((rng + 2), 2) = rng
xlWorkSheet.Cells((rng + 2), 3) = DateTimePicker1.Text
xlWorkSheet.Cells((rng + 2), 4) = TextBox4.Text
xlWorkSheet.Cells((rng + 2), 6) = TextBox3.Text
xlWorkSheet.Range("B" & rng + 2 & ":F" & rng + 2).Borders.Weight = 2
End If

indah nya berbagi..
Semoga bermanfaat
"No Offence No Heart Feelings"

Simple Tutorial How To : Shutdown computer via command line / cmd

2012-12-11T15:57:00.000+07:00

Kadang kalau malam kita ketiduran pas lagi main game online pake bot, atau main forex pake auto..
Laptop / kompi ga sempat dimatiin.
Ada cara Simple untuk shutdown komputer via command line / cmd dengan tambahan opsi waktu dalam satuan detik.
tambahkan juga opsi force close program aplikasi yang running.
Bahkan bisa shutdown komputer lain yang bisa kita remote..

berikut yang sering saya pake kalo malem main game online, lagi vending.. maklum pake laptop masa dinyalain terus terusan hahahaha.. jadi saya setting shutdown komputer via command line / cmd dengan waktu beberapa ke menit ke depan, dan force / paksa closed aplikasi yang running.

shutdown -s -f -t 3600

Yang artinya shutdown komputer, dengan opsi force dan setting waktu 3600 detik.

adapun opsi untuk shutdown ini diantaranya:
-s
> shutdown

-r
> restart

-t xx
> time , setting waktu dalam detik

-f
> force / paksa closed applikasi yang running

-c "comment"
> commnet, untuk komentar shutdowm, max 127 karakter

-a
> abort, untuk cancel perintah shutdown yang berjalan

-m \\namakompi
> untuk shutdown remote komputer lain (kita haru punya akses ke dalam komputer yg di remote)

dan ada opsi lainya, bisa di lihat dengan perintah:
shutdown ?

Selamat mencoba cara shutdown komputer melalui command prom / cmd

Semaga Bermanfaat

"No Offence No Heart Feelings"

CARI DUIT via Internet, kerja ngetik

2012-12-05T14:49:00.001+07:00

Banyak cara cari duit via Internet, seperti yang pernah saya post sebelumnya
Ada juga yang kerja nya ngetik in capcha

Free untuk sign up
Kalo anda tiap hari depan internet, kadang ada saat bingung mau ngapain, ga ada salahnya iseng ikutan ini.. sekalian latihan ngetik cepet juga di bayar

emang ga gede n ga banyak, mayan kalo dikumpul ngisi waktu iseng sekali lagi sambil latihan ngetik cepet hehehhe

Saratnya ga rumit. cuma:
- ada koneksi internet
- bisa baca n ngetik
- untuk join pake invitation code

ga usah lama buka aja:
- MEGATYPERS
- SIGN UP (klik free sign up)
- Isi data-data nya, invitation code nya masukan: 515M
- Pembayarannya tiap minggu via PayPall atau Liberty Reserve, dengan minimun 3$

Selamat mencoba.. Iseng sambil latihan ngetik sambil cari duit via internet..

Tips ane kalo salah ngetik, kena kick mending istirahat dulu tar login lagi.. biar ga kena suspend..

Semoga Bermanfaat
"No Offence No Hearth Feelings"

menghasilkan uang online

2012-11-26T18:31:00.001+07:00

sekedar bagi informasi..
ada banyak cara untuk menghasilkan uang secara online melalui internet.
Bisa dilakukan tanpa modal, tanpa syarat, hanya membutuhkan komputer dan link internet.
Dua diantaranya adalah sbb:

1. Paid To Click - ClixSense-CARA CEPAT MENGHASILKAN UANG DARI INTERNET
Paid to click anda akan di bayar setiap mengklik web yang diberikan,
Saya ambil contoh (yang saya ikuti) melalui ClixSense
Disini anda diberi kesempatan setiap hari untuk klik Ads (web) dan dibayar per click sampai dengan 0,1 USD, juga bisa menghasilkan dari games, dimana disini random, ada 25 kesempatan tiap hari, atau juga melakukan task / tugas yang di berikan, seperti misalnya validasi web, mencari alamt web dan lainnya..
ClixSense adalah program periklanan yang membayar Anda sebagai membernya, untuk melakukan surving/melihat iklan-iklan sponsor dan bermain games, Anda akan dibayar perklik iklan untuk member standart $0.001-0.01 menampilkan 10-16 iklan lebih perhari, selain itu jumlah referral yang Anda rekrut tidak dibatasi dan juga Anda akan mendapatkan bonus langsung jika Anda beruntung menjadi winner dengan memainkan games yang disediakan ownernya CLIXSENSE, bonus tersebut langsung dimasukan ke saldo utama akun Anda, CLIXSENSE menggunakan pembayaran kepada membernya dengan metode payment processor PayPal (salahsatunya) dan mengirimkan Cek kepada membernya di seluruh dunia.
CLIXSENSE adalah salah satu situs bisnis online tanpa terlibat urusan SPAM, CLIXSENSE adalah salah satunya program PTC yang tertua dan yang sangat direkomendasikan, diluncurkan pada bulan february tahun 1997, dengan usianya cukup lama tersebut clixsense tetap semakin eksis dan digemari para clicker di seluruh dunia. Salah satu keunggulan dari PTC ini adalah bonus referral yang Anda terima hingga ke level 8, berarti peluang untuk mengeruk dollar pada PTC ini sangatlah besar.
Untuk mendaftar ClixSense silahkan klik link berikut:
ClixSense

2. PROFITCLICKING-CARA CEPAT MENGHASILKAN UANG DARI INTERNET
ProfitClicking merupakan situs gabungan antara google adwords dan investasi, mengapa bisa begitu?yaap karena kita selain bisa pasang iklan, kita juga dapat duit disini, bahkan disini anda diberi modal $10 gratis untuk membeli 1 paket ads (1 paket ads = $10) enak bukan? dan tiap hari anda bisa profit 2% dari paket ads yang anda beli tadi..bagaimana tidak enak anda disini tidak perlu mengeluarkan modal sepesrpun.
ProfitClicking adalah sub program dari Bisnis Justbeenpaid yang mulai bulan Agustus 2012 telah berubah menjadi ProfitClicking.com sebuah konsep bisnis yang indefinitely sustainable yakni bisnis profitclicking yang akan terus berkembang berkelanjutan tanpa batas.
Untuk mendaftar ProfitClicking silahkan klik link berikut:
ProfitClicking

Ma'af jika kurang lengkap menerangkan, untuk detail bisa buka link tersebut atau bisa tanya jawab disini..

Semoga Bermanfaat
"No Offence No Heart Feelings"

Simple Tutorila How To : Membaca file txt dengan VB.net

2012-10-19T14:54:00.004+07:00

Berdasarkan adanya permintaan, meski tanpa nama heheh saya posting simple turorial how to : membaca file txt dengan VB.net
untuk menulis pada file txt dengan VB.net bisa dengan sample pada posting sebelumnya:
Simple-Tutorial-How-To-:-Telnet-via-VB.net-dengan-plink.exe-dan-menyimpan-hasilnya-pada-file-txt

Masukan kode berikut sebelum Public (paling atas)

'~~> mendefine proses
Imports System.IO

Untuk membaca file txt dengan VB.net syntax adalah sbb:

Dengan contoh file txt nya adalah :C:\Sample\file.txt
Dan yang dibaca adalah baris pertama pada file txt, dan di munculkan pada textbox1

'~~> mendefine file txt yang akan di baca
Dim fileContents As String = System.IO.File.ReadAllText("C:\Sample\file.txt")
Dim lines() As String
Dim itung As Integer
fileContents = fileContents.Replace(ControlChars.CrLf, ControlChars.Lf)
lines = fileContents.Split(New Char() {ControlChars.Lf, ControlChars.Cr})
'~~> itung disini baris yang akan dibaca, untuk beberapa baris bisa gunakan looping untuk nilai variabel itung
itung = 0
'~~> menampilkan isi file txt pada textbox1
TextBox1.Text = lines(itung)

dan tada..... baris pertama file.txt akan dimunculkan di textbox1
untuk keperluan misalnya membaca semua baris, bisa gunakan looping untuk nilai variabel itung (pada contoh diatas menggunakan variable itung) dimana baris pertama adalah 0 (nol)

No Offence No Hearth Feelings
Semoga Bermanfaat

Simple Tutorial How To : Restore deleted files di File Manager cPanel

2012-09-26T10:44:00.000+07:00

Jika ada kesalahan atau ketidaksengajaan sehingga ada file atau folder yang terhapus di File Manager cPanel, dan anda tidak punya back-up di local komputer anda, berikut tips untuk me-restore-nya..

1. Log in ke cPanel
2. Cari Files > Backups

3. Pilih back-up kira" yang masih ada file yang anda cari

4. Save filenya (download), formatnya akan tar.gz
5. Extract file dan extract lagi, cari file yang anda cari. Jika memang yang anda pilih memang masih ada file nya, pasti akan anda temukan..

Saya share cara restore deleted files di File Manager cPanel ini karena saya mengalaminya, sempat bingung ga ada back-up di kompi, hehehehehehe

Simple tutorial how to : marque image (gambar bergerak dengan marque) dan simple galery photo

2012-09-24T20:13:00.000+07:00

Untuk membuat gambar bergerak dengan marque (marque image) cukup copas kode berikut pada tempat dimana image bergerak tersebut akan dimunculkan.

align bisa diganti dengan left atau right, sebagai posisi awal gambar akan bergerak, dan direction bisa diganti dengan up, down, right sebagai arah gambar akan bergerak.

Untuk membuat galery photo sederhana mode tambahkan kode css berikut:

.hoverbox
{
float:center;
width: 725px;
height: 510px;
cursor: default;
list-style: none;
}

.hoverbox a
{
cursor: default;
}

.hoverbox a .preview
{
display: none;
}

.hoverbox a:hover .preview
{
display: block;
position: absolute;
top: -30px;
left: -30px;
z-index: 1;
}

.hoverbox img
{
background: #fff;
border-color: #aaa #ccc #ddd #bbb;
border-style: solid;
border-width: 1px;
color: inherit;
padding: 2px;
vertical-align: top;
width: 100px;
height: 75px;
}

.hoverbox li
{
background: #eee;
border-color: #ddd #bbb #aaa #ccc;
border-style: solid;
border-width: 1px;
color: inherit;
display: inline-table;
float: left;
margin: 3px;
padding: 5px;
position: relative;
}

.hoverbox .preview
{
border-color: #000;
width: 400px;
height: 300px;
}

lalu pada html masukan kode berikut

<li>

<li>

<li>

<li>

<li>

<li>

<li>

<li>

<li>

</ul>

Image bisa ditambah atau dikurangi sesuai kebutuhan pada web.

No Offence No Hearth Feelings

Semoga Bermanfaat

Simple Tutorial How to : Telnet via VB.net dengan plink.exe dan menyimpan hasilnya pada file txt

2012-09-21T22:46:00.001+07:00

Untuk melakukan telnet via VB.net maka dibutuhkan aplikasi tambahan, yang saya gunakan adalah plink.exe
Plink.exe adalah interface command-line dari putty. Putty sendiri adalah aplikasi under OS Windows yang digunakan untuk SSH, Telnet, rlogin atau rcpt. Untuk mereka yang bergelut dengan network tentunya tidak asing dengan putty.

Plink.exe dapat didownload pada link berikut:
Plink-download

Untuk koneksi VB.net ke plink.exe untuk melakukan telnet, syntax nya adalah sbb:
Pada kode dibawah IP yang akan di telnet adalah 192.168.1.1, dengan user: userku

'~~> mendefine proses
Dim myprocess As New Process
Dim StartInfo As New System.Diagnostics.ProcessStartInfo
Dim ip As String

'~~> ip yang akan di telnet
ip = "192.168.1.1"
'~~> arahkan pada file plink.exe
StartInfo.FileName = "C:\Utility\plink.exe"
StartInfo.CreateNoWindow = True
StartInfo.WindowStyle = ProcessWindowStyle.Normal
StartInfo.RedirectStandardInput = True
StartInfo.RedirectStandardOutput = True
'~~> dibutuhkan untuk redirect
StartInfo.UseShellExecute = False
myprocess.StartInfo = StartInfo
'~~> melakukan perintah telnet dengan user
StartInfo.Arguments = "-telnet " + ip + " -l userku"
myprocess.Start()

Lalu kode berikut adalah untuk stream proses input dan outputnya, saya gunakan sleep untuk jaga-jaga jika koneksi agak lemot heheheh.
Dan perintah yang akan dieksekusi pada telnet saya contohkan adlaah memunculkan ip address router mikrotik.
Lalu menyimpan hasilnya pada file txt, dicontohkan file txt ada di C:\cobatelnet\ dengan nama file hasil.txt (file sudah dibuat dan dibiarkan kosong saja.)

Dim SR As System.IO.StreamReader = myprocess.StandardOutput
Dim SW As System.IO.StreamWriter = myprocess.StandardInput

Threading.Thread.Sleep(3000)
'~~> password untuk telnett
SW.WriteLine("passwordku")
Threading.Thread.Sleep(20000)
'~~> perintah memunculkan ip adress pada command line mikrotik
SW.WriteLine("ip address print")
Threading.Thread.Sleep(3000)
'~~> keluar telnet
SW.WriteLine("quit")

'~~> menyimpan hasil pada file txt
Dim objWriter As New System.IO.StreamWriter("C:\cobatelnet\hasil.txt")
objWriter.Write(SR.ReadToEnd)
'~~> clean up dan closing
objWriter.Close()
SW.Close()
SR.Close()

dan tada..... buka file txt nya, disitu ada hasil dari telnet via VB.net ke mikrotiknya dengan bantuan plink.exe

No Offence No Hearth Feelings
Semoga Bermanfaat

Little Information : KeyLogger

2012-09-21T18:26:00.001+07:00

Banyak orang-orang yang account social media nya kena hack, hmm.. coba ingat-ingat apa pernah login atau pake di PC yang digunakan banyak orang / warnet? Mungkin mereka kena KeyLogger..

KeyLogger adalah aplikasi atau software yang bisa merekam aktifitas pengguna dari komputer dimana KeyLogger itu terinstall, KeyLogger mencatat semua aktivitas yang terjadi pada keyboard.

keylogger ada yang berbentuk hardware, biasanya seukuran baterai ukuran AA. Keylogger jenis ini dipasangkan pada ujung keyboard, sehingga mencegat data yang dialirkan dari keyboard ke CPU. Ada juga yang berupa flashdisk yang dipasang pada USB (software kali yang ini masuknya ya? hehehe)

keylogger yang berbentuk software terinstall pada komputer dengan cara bekerja sembunyi.
Banyak metode yang di gunakan keylogger untuk merekam aktifitas pengguna komputer, ada yang berdasarkan key stroke (merekam langsung semua yang diketikan di keyboard), ada yang memantau clipboard Windows (merekam copy paste yang dilakukan pada komputer), dan ada juga keylogger yang secara terang-terangan memiliki interface yang cantik melalui aplikasi-aplikasi yang sederhana bahkan kompleks, padahal ternyata melakukan logging. Bahkan ada keylogger yang langsung mengirimkan data rekamannya via email ke si pemilik keylogger. Dan mungkin masih banyak lagi cara-cara “logging” aktifitas pengguna dengan memanfaatkan keylogger.

Sebenarnya manfaat keylogger bisa positif, misalnya untuk back-up, atau untuk merekam aktifitas pada komputer untuk karyawan pada perusahaan tertentu, namun banyak juga yang menjadi negatif dengan tujuan mencuri password misalnya seperti password account social media atau e-banking..

Apalagi sekarang aplikasi keylogger banyak yang gratisan tinggal download.. so... beware... hahahahha

Cara sederhana untuk menghindari dampak adanya keylogger jika memang terpaksa menggunakan komputer yang digunakan oleh banyak orang atau warnet maka jangan iseng buka aplikasi ga jelas hehehehe.. Dan jika membuka account yang menggunakan password gunakan fitur on-screen keyboard (jika windows OS nya hehehehe)
cara cepat nya di windows ==> run ketikkan osk.exe

Dan selalu bersihkan history browser, cara cepat dengan cntrl-shift-del

Untuk informasi lebih lengkap bisa buka link dibawah mengenai keylogger dari wikipedia:
keylogger-wikipedia

No Offence No Hearth Feelings
Semoga Bermanfaat..

Simple tutorial how to : Membuat SMS gateway dengan gammu dan the dude

2012-09-21T00:07:00.003+07:00

untuk monitoring jaringan anda, jika membutuhkan sms gateway. simple tutorial berikut adalah menggunakan aplikasi the dude dari mikrotik untuk monitoring jaringannya dan gammu untuk sms gateway nya.
jika ada link / perangkat yang mati/down maka akan mengirimkan alert sms ke no yg terdaftar.

Pertama tentunya dibutuhkan the dude dan gammu for windows, bisa di download pada link berikut:
gammu
thedude

Hardware yg digunakan bisa handphone atau modem, untuk melihat hardware yang anda gunakan supported by gammu atau tidak bisa dilihat dari link berikut:
daftar-supported-handphoe-modem

Yang terpenting adalah koneksi gammu dengan hardware nya, install dahulu driver untuk hardware yang anda gunakan dan pastikan bisa terkoneksi atau terdeteksi oleh windowsnya, bisa di lihat di my computer --> properties --> device manager
catat koneksi hardware ke ports (com) nomer berapa

Extrak gammu di C:/ (hal ini untuk membuat lebuh mudah saja, untuk advance bisa di ekstrak sesuai keinginan. berhubungan dengan setting pada the dude nya)

Edit file gammurc (gunakan wordpad saja), masukan port dan koneksi sesuai pada device manager tadi dan sesuai koneksi ke hardware yang anda gunakan. edit pada port dan connection saja cukup. untuk advance bisa di set untuk kebutuhan lainnya sesuai kebutuhan.
contoh:
port = com8:
#model = 6110
connection = at115200
#synchronizetime = yes
#logfile = gammulog
#logformat = textall
#use_locking = yes
#gammuloc = locfile
#startinfo = yes
#gammucoding = utf8
#rsslevel = teststable
#usephonedb = yes

Untuk mengetest koneksi gunakan perintah berikut pada cmd (estimate gammu for windows diekstrak di C:/)

C:\gammu.exe --identify

Jika sudah terkoneksi dengan baik akan muncul keterangan dari hardware
contoh:
Manufacturer : Wavecom
   Model       : unknown (MULTIBAND 900E 1800)
   Firmware    : 3.110 T (18-03-04)
   IMEI           : xxxxxxxxxxxxxxxxxxx
   SIM IMSI : xxxxxxxxxxxxxxxxxxxx

Untuk test kirim sms gunakan perintah berikut

C:\echo "boo" | gammu.exe --sendsms TEXT [nomer hp penerima]

contoh:

C:\echo "TEST KIRIM SMS" | gammu.exe --sendsms TEXT [081221888888888]

Kemudian pada the dude, buat service untuk kirim sms, pada setting--> polling --> edit list (notification) lalu add baru
isi name sesuai keinginan dan type > execute localy
kemudian edit perintahnya misal menjadi:

C:\echo "Service [Probe.Name] on [Device.Name] is now [Service.Status] ([Service.ProblemDescription])" | gammu.exe --sendsms TEXT [081221888888888]

Bisa di edit isi yang mau di kirimkan melalui sms, contoh diatas adalah default saja. Klik test saja dahulu untuk memastikan berfungsi atau tidaknya.

Lalu pada perangkat yang mau di set kirim sms pada service di add service yang dibuat tadi.

Tambahan:
Untuk cek pulsa gunakan perintah berikut:

C:\gammu.exe --getussd (no cek pulsa)

Untuk di koneksi dengan aplikasi lain cari aja yang bisa kasih perintah local heheh

No Offence Nohearth Feelings
Semoga Bermanfaat

Simple tutorial how to : Step by step konfigurasi Air Grid (Air OS) ubiquity

2012-09-20T14:46:00.002+07:00

Step by step konfig Air Grid

1.Setting IP laptop agar 1 subnet dengan IP default Air Grid
2.Buka browser, lalu panggil IP default radio Air Grid.
IP Default : 192.168.1.20
3.Muncul tampilan user login

4.Masukan user dan password default Air Grid
User : ubnt
Password : ubnt
5.Tampilan awal

6.Masuk ke tabulasi Wireless untuk konfig

Untuk konfigurasi satu sisi sebagai AP (Access Point) dan satu sisi sebagai Station
Gambar diatas adalah sebagai Access Point WDS,
dibuat WDS (Wireless Distribution System) karena link akan digunakan untuk bisa melewatkan broadcast IP dari bawahnya. Sebenarnya fungsi utama Wireless Distribution System (WDS) adalah sebuah system yang memungkinkan jaringan wireless dikembangkan menggunakan beberapa access point tanpa harus memerlukan backbone kabel jaringan untuk menghubungkan mereka, seperti cara tradisional (bridge biasa)

7.Setting SSID dengan nama yang mudah kita ingat, seperti dengan menggunakan nama site. Contoh : PIKSI_1
Ini akan jadi acuan saat konfig stationnya, untuk mencari AP yang dimaksud.
8.Country code gunakan saja United States
9.Mode gunakan A/N mixed
10.Channel Band width disesuaikan dengan kebutuhan dan situasi serta kondisi di lapangan, settingan ini mempengaruhi Band Width yang bisa di lewatkan serta interference. Semakin lebar semakin besar Band Width yang bisa dilewatkan juga semakin besar kemungkinan interference.
11.Channel shifting jika di enable maka pilihan channel akan banyak sampai keluar dari 5.8 GHz (jika yang digunakan adalah Air Grid 5,8GHz). Ada pilihan dari 5,1GHz – 5,3 GHz dan 5,7GHz – 5,8GHz.
12.Tentukan frequency yang akan di gunakan, akan lebih baik jika sebelumnya sudah dilakukan scanning freq. Jadi bisa kita setting dengan freq. Yang memang belum di gunaan di area tersebut, guna menghindari interference dan memudahkan untuk mengkoneksikan radio nya.
13.Tentukan power dari radio nya, jangan di contreng obey regulatory power, karena akan membuat power radio terbatas, sesuai aturan yang ada di negara yang di pilih di pilihan country code.
14.Max tx rate, Mbps di buat automatic saja, kecuali memang dibutuhkan untuk di set.
15.Untuk Wireless security di biarkan saja dulu tanpa security, nanti di set setelah terkoneksi saja.
16.Klik change di kiri bawah untuk mengaktifkan konfigurasi yang di set.
17. Masuk tabulasi Network, untuk setting network radio

18.Network mode di setting bridge, karena kebutuhan kita adalah bridging. Kecuali memang di butuhkan sebagai router, maka di set router.
19.Disable Network none saja, karena jika didisable berarti tidak di fungsikan.
20.Pilih static IP, lalu masukan IP address sesuai planning. Contreng STP (Spanning Tree Protokol). Yang berfungsi sebagai protocol untuk pengaturan koneksi dengan menggunakan algoritma spanning tree. Kelebihan STP dapat menyediakan system jalur backup & juga mencegah loop yang tidak diinginkan pada jaringan yang memiliki beberapa jalur menuju ke satu tujuan darisatu host.
21.Klik change di kiri bawah untuk mengaktifkan konfigurasi yang di set.
22.Setelah di rubah IP maka koneksi akan terputus, rubah IP pada laptop menjadi 1 subnet dengan IP baru radio, lalu panggil IP baru radio di browser. Dan login kembali
23.Untuk merubah user dan password masuk ke tabulasi system

24.Device name diisi nama untuk perangkat radio.
25.Untuk merubah user ganti Administraor User name.
26.Untuk mengganti Password masukan Password lama pada current password, dan masukan password baru di new password serta verify new password.
27.Setelah selesai maka kita konfig radio di sisi lainnya
28.Ulangi langkah 1 – 6 , lalu setting sebagai Station WDS

29.Samakan settingan frequency dan channel Bandwidth seperti pada Access Point tadi.
30.Klik Select disamping SSID

31.Pilih SSID yang kita setting pada Access Point, lalu klik select.
Jika belum ada maka pastikan arah antena sudah benar mengarah ke Access Point. Alu klik lagi scan. Sampai didapatkan SSID yang kita set tadi di Access Point.
32.Klik change di kiri bawah untuk mengaktifkan konfigurasi yang di set.
33.Jika terkoneksi maka tampilan Main adalah sbb:

34.Usahakan mendapat signal strength minimal -70dBm
35.Ulangi langkah no 17 – 26.
36.Setelah terkoneksi coba ping IP radio Access Point lalu panggil di browser, kita akan konfig wireless security nya.
37.Masuk ke tabulasi wireless, enablekan securitynya

38.Pilih mode security nya
39.Pilih open, karena kita menggunakan WDS
40.Piling length dan key type.
41.Lalu masukan security key nya
42.Klik change di kiri bawah untuk mengaktifkan konfigurasi yang di set
43.Setelah di apply maka link akan lepas, karena security nya tidak sama
44.Pada radio station masuk juga ke tabulasi wireless, dan samakan settingan wireless secutrity nya dengan settingan security di sisi Access Point tadi.
45.Klik change di kiri bawah untuk mengaktifkan konfigurasi yang di set
46.Jika settingan security sama maka link akan terkoneksi kembali
47.Tampilan Main widow jika berhasil terkoneksi adalah sbb:
ACCESS POINT

STATION

No Offence No Hearth Feelings
Semoga Bermanfaat

Cara Print ULANG Tiket Pesawat ONLINE Lion Air Berdasarkan Kode Booking

2012-09-20T13:44:00.000+07:00

Ini saya posting dengan harapan bisa membantu anda yang sedang bingung ketika kehilangan Tiket Pesawat Online pesawat Lion Air yang sudah anda print sebelumnya.
Saya pernah alami hal itu, sebenarnya tidak masalah karena bisa nanti di Bandara memberikan kode booking yang sebelumnya sudah di SMS kan ke saya, tetapi alangkah lebih mengetahui kebenaran dari Kode Booking tersebut agar nanti kalau ada kesalahan bisa dibenarkan lebih awal.

Kode Booking tiket pesawat online Lion Air biasanya ditandai seperti tulisan dibawah ini :

GEUKKQ, JT765

Dengan kode booking seperti diatas, kita bisa mengetahui bahwa Kode Booking tersebut milik siapa dan kapan jadwal pemberangkatannya. Dengan cara berikut:

1. Buka situs https://secure2.lionair.co.id/lionairpnr/RetrieveBooking.aspx
2. Masukkan kode booking anda pada kolom yang tersedia. Contoh saya memasukkan berdasarkan kode diatas :

Booking Reference (PNR) = Isi GEUKKQ
Flight Number = Isi JT765
Fist Name = Isi nama depan anda
Last Name = Isi nama belakang anda
Flight Date = pilih bulan, tahun, hari dan tanggal pemberangkatan

4. Klik tombol RETRIEVE
Jika benar maka anda akan mendapatkan Nama Penumpang Pesawat Lion Air berdasarkan Kode Booking tersebut. Sangat mudah bukan ?

Semoga bermanfaat dan anda bisa mengetahui jam pemberangkatan berdasarkan Kode Booking Tiket Pesawat Lion Air yang anda punya tanpa perlu repot-repot memintanya kembali ke Agen Tiket anda.

simple tutorial how to : membuat slide show image dengan jquery cycle

2012-09-16T17:24:00.000+07:00

Download dahulu jquery library dan jquery cycle plugin nya, bisa dari link berikut:

jquery-library
jquery-cycle-plugin

Masukan kode html berikut pada bagian akan dimunculkannya slide show, arahkan pada file image yang akan di munculkan bergantian pada slide show

Masukan kode css berikut

.slideshow {

width: 605px;

height: 325px;

position: relative;

overflow: hidden;

margin: 0px auto;

}

.slideshow img {

padding: 0px;

border: 1px solid #ccc;

background-color: #eee;

}

Sisipkan kode html berikut pada tag head, arahkan pada file jquery library dan jquery cycle plugin nya

Lalu kode berikut untuk memanggil fungsi jquery cycle plugin, masih pada tag head

$('.slideshow').cycle({

fx: 'fade',

speed: 300,

timeout: 3000,

next: '#s3',

pause: 1

});

</script>

Pada kode diatas menggunakan efek fade pada saat pergantian image, dengan kecepatan 300ms dan time out 3000ms, ada beberapa efek selain fade yang bisa digunakan, ubah saja kodenya sesuai keinginan.

Efek tersebut adalah:
-blindX
-blindY
-blindZ
-cover
-curtainX
-curtainY
-fade
-fadeZoom
-growX
-growY
-scrollUp
-scrollDown
-scrollLeft
-scrollRight
-scrollHorz
-scrollVert
-shuffle
-slideX
-slideY
-toss
-turnUp
-turnDown
-turnLeft
-turnRight
-uncover
-wipe
-zoom

Coba aja dengan mengganti fade dengan salah satu diatas

"No Offence No Hearth Feelings"

Semoga Bermanfaat

simple tutorial how to : VB.net and excel connection Part 2

2012-09-16T12:49:00.004+07:00

Lanjutan Part 1
Copy dan Paste Range

Copy Paste dalam satu sheet yang sama

Imports Excel = Microsoft.Office.Interop.Excel

Public Class Form1

Dim xlApp As New Excel.Application

Dim xlWorkBook As Excel.Workbook

Dim xlWorkSheet As Excel.Worksheet

Dim xlSourceRange, xlDestRange As Excel.Range

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

xlWorkBook = xlApp.Workbooks.Open("C:\vb dan excel\percobaan.xlsx")

xlApp.Visible = True

xlWorkSheet = xlWorkBook.Sheets("Sheet1")

'~~> sumber yg mau di copy

xlSourceRange = xlWorkSheet.Range("A1:B10")

'~~> tujuan atau mau dipaste

xlDestRange = xlWorkSheet.Range("D1")

'~~> Copy paste range

xlSourceRange.Copy(xlDestRange)

End Sub

End Class

Copy Paste dalam satu workbook yang sama beda worksheet

Imports Excel = Microsoft.Office.Interop.Excel

Public Class Form1

Dim xlApp As New Excel.Application

Dim xlWorkBook As Excel.Workbook

Dim xlWorkSheet, xlWsheet2 As Excel.Worksheet

Dim xlSourceRange, xlDestRange As Excel.Range

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

xlWorkBook = xlApp.Workbooks.Open("C:\vb dan excel\percobaan.xlsx")

xlApp.Visible = True

'~~> worksheet sumber

xlWorkSheet = xlWorkBook.Sheets("Sheet1")

'~~> worksheet tujuan

xlWsheet2 = xlWorkBook.Sheets("Sheet2")

'~~> Set sumber range

xlSourceRange = xlWorkSheet.Range("A1:B10")

'~~> Set range tujuan

xlDestRange = xlWsheet2.Range("A1")

'~~> Copy paste range

xlSourceRange.Copy(xlDestRange)

End Sub

End Class

Copy Paste beda workbook

Imports Excel = Microsoft.Office.Interop.Excel

Public Class Form1

Dim xlApp As New Excel.Application

Dim xlWorkBook, xlWorkBook2 As Excel.Workbook

Dim xlWorkSheet, xlWsheet2 As Excel.Worksheet

Dim xlSourceRange, xlDestRange As Excel.Range

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

'~~> Buka file sumber

xlWorkBook = xlApp.Workbooks.Open("C:\vb dan excel\percobaan.xlsx")

'~~> Buka file tujuan

xlWorkBook = xlApp.Workbooks.Open("C:\vb dan excel\percobaan1.xlsx")

xlApp.Visible = True

'~~> Set sumber worksheet

xlWorkSheet = xlWorkBook.Sheets("Sheet1")

'~~> Set tujuan worksheet

xlWsheet2 = xlWorkBook2.Sheets("Sheet1")

'~~> Set sumber range

xlSourceRange = xlWorkSheet.Range("A1:B10")

'~~> Set range tujuan

xlDestRange = xlWsheet2.Range("A1")

'~~> Copy paste range

xlSourceRange.Copy(xlDestRange)

End Sub

End Class

Merging/Unmerging Cells

Imports Excel = Microsoft.Office.Interop.Excel

Public Class Form1

'~~> Define your Excel Objects

Dim xlApp As New Excel.Application

Dim xlWorkBook As Excel.Workbook

Dim xlWorkSheet As Excel.Worksheet

Dim xlSourceRange, xlDestRange As Excel.Range

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

xlWorkBook = xlApp.Workbooks.Open("C:\vb dan excel\percobaan.xlsx")

xlApp.Visible = True

xlWorkSheet = xlWorkBook.Sheets("Sheet1")

'~~> Set range yg mau di merge

xlSourceRange = xlWorkSheet.Range("A1", "E1") \

'~~> Merge range

xlSourceRange.Merge()

'~~> Jika mau di set center alignment secara horizontal dan vertical g

xlSourceRange.HorizontalAlignment = Excel.Constants.xlCenter

xlSourceRange.VerticalAlignment = Excel.Constants.xlCenter

End Sub

End Class

Mencetak / Print

Imports Excel = Microsoft.Office.Interop.Excel

Public Class Form1

Dim xlApp As New Excel.Application

Dim xlWorkBook As Excel.Workbook

Dim xlWorkSheet As Excel.Worksheet

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

xlWorkBook = xlApp.Workbooks.Open("C:\vb dan excel\percobaan.xlsx")

xlApp.Visible = True

xlWorkSheet = xlWorkBook.Sheets("Sheet1")

'~~> Printing

xlWorkSheet.PrintOut(From:=1, To:=1, Copies:=1, Collate:=True)

End Sub

End Class

Save atau save as dan Keluar dari file excel

lagi.. syntaxnya aja ya heheheh

Save dan close

'~~> Save

xlWorkBook.Save()

'~~> Close

xlWorkBook.Close()

Saveas dan close

'~~> Save As

xlWorkBook.SaveAs(Filename:="C:\vb dan excel\percobaanNew.xlsx")

'~~> Close

xlWorkBook.Close()

Kirim file Excel menggunakan Outlook

jangan lupa add reference Microsoft Outlook nya

Imports Excel = Microsoft.Office.Interop.Excel

Imports Outlook = Microsoft.Office.Interop.Outlook

Public Class Form1

Dim objOutlook As New Outlook.Application

Dim objEmail As Outlook.MailItem

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim body As String

Dim ExcelFile As String = "C:\vb dan excel/percobaan.xlsx"

objOutlook = CType(CreateObject("Outlook.Application"), Outlook.Application)

objEmail = objOutlook.CreateItem(Outlook.OlItemType.olMailItem)

body = "Hello," & vbCrLf & vbCrLf

body += "Terlampir file excelnya" & vbCrLf & vbCrLf

body += "Terinakasih," & vbCrLf & "<Siapa aku>"

With objEmail

.Subject = "Kirim file excel via VB dan outlook"

.To = "tujuan@domain.com"

.Body = body

.Attachments.Add(ExcelFile)

'~~> jika ingin dimunculkan di monitor

.Display(True)

.Send()

End With

End Sub

End Class

Close Excel and Clean Up

jangan lupa untuk selalu membersihkan / clean up dan melepas object excelnya denga syntax berikut

'~~> Clean Up
releaseObject(xlApp)
releaseObject(xlWorkBook)

'~~> Release objects
Private Sub releaseObject(ByVal obj As Object)
Try
System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
obj = Nothing
Catch ex As Exception
obj = Nothing
Finally
GC.Collect()
End Try
End Sub

"No Offence No Hearth Feelings"

Semoga Bermanfaat

simple tutorial how to : VB.net dan excel connection Part 1

2012-09-16T12:47:00.001+07:00

Setting agar VB.Net bisa terkoneksi dengan excel

Pada project "Add reference" , masuk tabulasi "COM" lalu pilih Microsoft Excel Object Library

Masukan kode berikut sebelum Public (paling atas)

Imports Excel = Microsoft.Office.Interop.Excel

Membuat file excel baru

Berikut contohnya, dipasang pada button 1

Imports Excel = Microsoft.Office.Interop.Excel

Public Class Form1

'~~> mendefine object excel

Dim xlApp As New Excel.Application

Dim xlWorkBook As Excel.Workbook

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'~~> membuat WorkBook (file excel) baru

xlWorkBook = xlApp.Workbooks.Add

'~~> memumculkan file excel

xlApp.Visible = True

End Sub

End Class

Membuka file excel

Berikut contohnya, dipasang pada button2

Imports Excel = Microsoft.Office.Interop.Excel

Public Class Form1

Dim xlApp As New Excel.Application

Dim xlWorkBook As Excel.Workbook

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

'~~> membuka file excel, ganti path dan nama file nya sesuai kebutuhan

xlWorkBook = xlApp.Workbooks.Open("C:\vb dan excel\percobaan.xlsx")

xlApp.Visible = True

End Sub

End Class

Memasukan value pada file excel

Berikut contohnya, dipasang pada button1 membuat file baru dulu dan di insert

Imports Excel = Microsoft.Office.Interop.Excel

Public Class Form1

Dim xlApp As New Excel.Application

Dim xlWorkBook As Excel.Workbook

'~~> define untuk sheet excel nya

Dim xlWorkSheet As Excel.Worksheet

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

xlWorkBook = xlApp.Workbooks.Add

xlApp.Visible = True

'~~> menghubungkan pada sheet file excelnya

xlWorkSheet = xlWorkBook.Sheets("Sheet1")

With xlWorkSheet

'~~> contoh langsung memasukan nilainya ke field

.Range("A1").Value = "Hari"

.Range("A2").Value = "Senin"

.Range("A3").Value = "Selasa"

.Range("A4").Value = "Rabu"

.Range("A5").Value = "Kamis"

.Range("B1").Value = "Pengeluaran"

.Range("B2").Value = "1000"

.Range("B3").Value = "1500"

.Range("B4").Value = "1200"

.Range("B5").Value = "2500"

End With

End Sub

End Class

Memasukan formula (rumus)

Berikut contohnya, dipasang pada button1 membuat file baru dulu dan di insert

Dicontohkan memasukan formula untuk summary

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

xlWorkBook = xlApp.Workbooks.Add

xlApp.Visible = True

xlWorkSheet = xlWorkBook.Sheets("Sheet1")

With xlWorkSheet

.Range("A1").Value = "Hari"

.Range("A2").Value = "Senin"

.Range("A3").Value = "Selasa"

.Range("A4").Value = "Rabu"

.Range("A5").Value = "Kamis"

.Range("B1").Value = "Pengeluaran"

.Range("B2").Value = "1000"

.Range("B3").Value = "1500"

.Range("B4").Value = "1200"

.Range("B5").Value = "2500"

'~~> Memasukan tulisan total pengeluaran

.Range("A6").Value = "Total Pengeluaran"

'~~> memasukan formula

.Range("B6").Formula = "=Sum(B2:B5)"

End With

End Sub

Mengatur format text

Berikut contohnya, dipasang pada button1 membuat file baru dulu dan di insert

Dicontohkan diatur agar autofit colums, mengatur background hitam dan tulisan putih pada field nilai angka dan membuat garis tabelnya

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

xlWorkBook = xlApp.Workbooks.Add

xlApp.Visible = True

xlWorkSheet = xlWorkBook.Sheets("Sheet1")

With xlWorkSheet

.Range("A1").Value = "Hari"

.Range("A2").Value = "Senin"

.Range("A3").Value = "Selasa"

.Range("A4").Value = "Rabu"

.Range("A5").Value = "Kamis"

.Range("B1").Value = "Pengeluaran"

.Range("B2").Value = "1000"

.Range("B3").Value = "1500"

.Range("B4").Value = "1200"

.Range("B5").Value = "2500"

'~~> Memasukan tulisan total pengeluaran

.Range("A6").Value = "Total Pengeluaran"

'~~> memasukan formula

.Range("B6").Formula = "=Sum(B2:B5)"

'~~> menghitamkan bacground dan text putih

With .Range("A1:B1,A6:A7")

.Interior.ColorIndex = 1 '<~~ Cell Back Color menjadi hitam

With .Font

.ColorIndex = 2 '<~~ Font Color menjadi putih

.Size = 8

.Name = "Tahoma"

.Underline = Excel.XlUnderlineStyle.xlUnderlineStyleSingle

.Bold = True

End With

'~~> membuat garis tabel

With .Range("A1:B7")

With .Borders(Excel.XlBordersIndex.xlEdgeLeft)

.LineStyle = Excel.XlLineStyle.xlDouble

.ColorIndex = 0

.TintAndShade = 0

.Weight = Excel.XlBorderWeight.xlThin

End With

With .Borders(Excel.XlBordersIndex.xlEdgeTop)

.LineStyle = Excel.XlLineStyle.xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = Excel.XlBorderWeight.xlThin

End With

With .Borders(Excel.XlBordersIndex.xlEdgeBottom)

.LineStyle = Excel.XlLineStyle.xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = Excel.XlBorderWeight.xlThin

End With

With .Borders(Excel.XlBordersIndex.xlEdgeRight)

.LineStyle = Excel.XlLineStyle.xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = Excel.XlBorderWeight.xlThin

End With

With .Borders(Excel.XlBordersIndex.xlInsideVertical)

.LineStyle = Excel.XlLineStyle.xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = Excel.XlBorderWeight.xlThin

End With

With .Borders(Excel.XlBordersIndex.xlInsideHorizontal)

.LineStyle = Excel.XlLineStyle.xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = Excel.XlBorderWeight.xlThin

End With

'~~> auto fit tulisan pada kolom

.Columns("A:B").EntireColumn.AutoFit()

End With

End Sub

Mencari sheet yang akan digunakan

Disebutkan sebelumnya bahwa file yg dibuka yang digunakan adalah sheet1, jika sheetnya banyak maka bisa dengan pencarian seperti contoh berikut

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim SheetNameToCheck As String = "sheetyangdipakai"

Dim xs As Excel.Worksheet

xlWorkBook = xlApp.Workbooks.Open("C:\vb dan excel\percobaan.xlsx")

xlApp.Visible = True

'~~> looping pencarian

For Each xs In xlWorkBook.Sheets

If xs.Name = SheetNameToCheck Then

MessageBox.Show("sheet " & SheetNameToCheck & " ditemukan.")

End If

End Sub

Menambah / menghapus sheet

Berikut hanya syntaxnya saja, untuk validasi bisa menggunakan looping diatas untuk pencarian nama sheet dimaksud ada atau tidak

'~~> Menambah
xlWorkSheet = xlWorkBook.Sheets.Add

'~~> Menghapus

xlWorkSheet.Delete()

Bersambung di Part 2 heheheh

simple tutorial how to : configure management bandwidth dengan queue tree PCQ

2012-09-15T19:26:00.002+07:00

Langsung aja gan..

Asumsikan internetnya sudah jalan (settingan IP public, private dan NAT sudah)
saya kasih contekan konfigurasi management bandwidth dengan queue pcq, biar agan bisa langsung copas ke teminal nya mikrotik kalo menggunakan IP yang nya sama..
Contohnya pake IP private 192.168.0.0/24 (ether2)
Gateway di mikrotik 192.168.0.254 (ether1)
ada 10 PC client dari IP 1 sampai 10
layanan 2Mbps

buat mangle nya dulu pada mikrotik untuk marking koneksi dan packet dari tiap PC client, contoh berikut IP PC client 192.168.0.1 sampai 192.168.0.10

/ ip firewall mangle
add chain=forward protocol=!icmp src-address=192.168.0.1 action=mark-connection new-connection-mark=PC1-con passthrough=yes disabled=no
add chain=forward protocol=!icmp connection-mark=PC1-con action=mark-packet new-packet-mark=PC1 passthrough=no disabled=no
add chain=forward protocol=!icmp src-address=192.168.0.2 action=mark-connection new-connection-mark=PC2-con passthrough=yes disabled=no
add chain=forward protocol=!icmp connection-mark=PC2-con action=mark-packet new-packet-mark=PC2 passthrough=no disabled=no
add chain=forward protocol=!icmp src-address=192.168.0.3 action=mark-connection new-connection-mark=PC3-con passthrough=yes disabled=no
add chain=forward protocol=!icmp connection-mark=PC3-con action=mark-packet new-packet-mark=PC3 passthrough=no disabled=no
add chain=forward protocol=!icmp src-address=192.168.0.4 action=mark-connection new-connection-mark=PC4-con passthrough=yes disabled=no
add chain=forward protocol=!icmp connection-mark=PC4-con action=mark-packet new-packet-mark=PC4 passthrough=no disabled=no
add chain=forward protocol=!icmp src-address=192.168.0.5 action=mark-connection new-connection-mark=PC5-con passthrough=yes disabled=no
add chain=forward protocol=!icmp connection-mark=PC5-con action=mark-packet new-packet-mark=PC5 passthrough=no disabled=no
add chain=forward protocol=!icmp src-address=192.168.0.6 action=mark-connection new-connection-mark=PC6-con passthrough=yes disabled=no
add chain=forward protocol=!icmp connection-mark=PC6-con action=mark-packet new-packet-mark=PC6 passthrough=no disabled=no
add chain=forward protocol=!icmp src-address=192.168.0.7 action=mark-connection new-connection-mark=PC7-con passthrough=yes disabled=no
add chain=forward protocol=!icmp connection-mark=PC7-con action=mark-packet new-packet-mark=PC7 passthrough=no disabled=no
add chain=forward protocol=!icmp src-address=192.168.0.8 action=mark-connection new-connection-mark=PC8-con passthrough=yes disabled=no
add chain=forward protocol=!icmp connection-mark=PC8-con action=mark-packet new-packet-mark=PC8 passthrough=no disabled=no
add chain=forward protocol=!icmp src-address=192.168.0.9 action=mark-connection new-connection-mark=PC9-con passthrough=yes disabled=no
add chain=forward protocol=!icmp connection-mark=PC9-con action=mark-packet new-packet-mark=PC9 passthrough=no disabled=no
add chain=forward protocol=!icmp src-address=192.168.0.10 action=mark-connection new-connection-mark=PC10-con passthrough=yes disabled=no
add chain=forward protocol=!icmp connection-mark=PC10-con action=mark-packet new-packet-mark=PC10 passthrough=no disabled=no
/

Buat queue type yg PCQ nya dulu, penjelasan PCQ apa agan bisa googling

queue type add name=Client-DL kind=pcq pcq-classifier=dst-address
queue type add name=Client-UL kind=pcq pcq-classifier=src-address

Buat queue tree parent nya, contoh berikut adalah untuk layanan 2Mbps, di setting DL = 2Mbps dan UL = 512Kbps (untuk internet biasanya UL : DL = 1 : 4)

queue tree add name=Client-DL parent=ether2 max-limit=2048k
queue tree add name=Client-UL parent=ether1 max-limit=512k

Buat queue tree untuk DownLink tiap PC, contoh disini dibuat dengan limit setiap PC 512Kbps dengan max limit 1Mbps dan bisa burst sampai 2Mbps jika BW kosong selama 10 detik

queue tree add name=PC1-DL packet-mark=PC1 parent=Client-DL queue=Client-DL limit-at=512k max-limit=1024k burst-limit=2048k burst-time=10
queue tree add name=PC2-DL packet-mark=PC2 parent=Client-DL queue=Client-DL limit-at=512k max-limit=1024k burst-limit=2048k burst-time=10
queue tree add name=PC3-DL packet-mark=PC3 parent=Client-DL queue=Client-DL limit-at=512k max-limit=1024k burst-limit=2048k burst-time=10
queue tree add name=PC4-DL packet-mark=PC4 parent=Client-DL queue=Client-DL limit-at=512k max-limit=1024k burst-limit=2048k burst-time=10
queue tree add name=PC5-DL packet-mark=PC5 parent=Client-DL queue=Client-DL limit-at=512k max-limit=1024k burst-limit=2048k burst-time=10
queue tree add name=PC6-DL packet-mark=PC6 parent=Client-DL queue=Client-DL limit-at=512k max-limit=1024k burst-limit=2048k burst-time=10
queue tree add name=PC7-DL packet-mark=PC7 parent=Client-DL queue=Client-DL limit-at=512k max-limit=1024k burst-limit=2048k burst-time=10
queue tree add name=PC8-DL packet-mark=PC8 parent=Client-DL queue=Client-DL limit-at=512k max-limit=1024k burst-limit=2048k burst-time=10
queue tree add name=PC9-DL packet-mark=PC9 parent=Client-DL queue=Client-DL limit-at=512k max-limit=1024k burst-limit=2048k burst-time=10
queue tree add name=PC10-DL packet-mark=PC10 parent=Client-DL queue=Client-DL limit-at=512k max-limit=1024k burst-limit=2048k burst-time=10

Buat queue tree untuk UpLink tiap PC, contoh disini dibuat dengan limit setiap PC 128Kbps dengan max limit 256Kbps dan bisa burst sampai 512Kbps jika BW kosong selama 10 detik.

queue tree add name=PC1-UL packet-mark=PC1 parent=Client-UL queue=Client-DL limit-at=128k max-limit=256k burst-limit=512k burst-time=10
queue tree add name=PC2-UL packet-mark=PC2 parent=Client-UL queue=Client-DL limit-at=128k max-limit=256k burst-limit=512k burst-time=10
queue tree add name=PC3-UL packet-mark=PC3 parent=Client-UL queue=Client-DL limit-at=128k max-limit=256k burst-limit=512k burst-time=10
queue tree add name=PC4-UL packet-mark=PC4 parent=Client-UL queue=Client-DL limit-at=128k max-limit=256k burst-limit=512k burst-time=10
queue tree add name=PC5-UL packet-mark=PC5 parent=Client-UL queue=Client-DL limit-at=128k max-limit=256k burst-limit=512k burst-time=10
queue tree add name=PC6-UL packet-mark=PC6 parent=Client-UL queue=Client-DL limit-at=128k max-limit=256k burst-limit=512k burst-time=10
queue tree add name=PC7-UL packet-mark=PC7 parent=Client-UL queue=Client-DL limit-at=128k max-limit=256k burst-limit=512k burst-time=10
queue tree add name=PC8-UL packet-mark=PC8 parent=Client-UL queue=Client-DL limit-at=128k max-limit=256k burst-limit=512k burst-time=10
queue tree add name=PC9-UL packet-mark=PC9 parent=Client-UL queue=Client-DL limit-at=128k max-limit=256k burst-limit=512k burst-time=10
queue tree add name=PC10-UL packet-mark=PC10 parent=Client-UL queue=Client-DL limit-at=128k max-limit=256k burst-limit=512k burst-time=10

Settingan angka-angka di atas baik itu IP ataupun limit BW bisa agan rubah sesuai kebutuhan..

"No Offence No Hearth Feelings"
Semoga bermanfaat..

simple tutorial how to : configure firewall mikrotik

2012-09-15T19:25:00.001+07:00

langsung aja gan..

Sebenarnya ini sudah banyak sih artikel tentang configure firewall mikrotik, ane cuma mau share dan kalau ada yang mau menambahkan.
script nya di copas aja di terminal, firewall berikut untuk block port" yang sering di pake virus, dan juga akses ke mikrotik di batasi hanya untuk ip-ip di address-list aour network

Kita buat dulu address-list dgn nama ournetwork, diisi IP yang di ijinkan untuk akses mikrotik agan

/ ip firewall address-list
add list=ournetwork address=x.x.x.x/x disabled=no
add list=ournetwork address=192.168.0.0/24 disabled=no
/

Trus kita masukin script firewall nya:

/ ip firewall filter
add chain=forward connection-state=established action=accept comment="allow established connections" disabled=no
add chain=forward connection-state=related action=accept comment="allow related connections" disabled=no
add chain=virus protocol=udp dst-port=135-139 action=drop comment="Drop Messenger Worm" disabled=no
add chain=forward connection-state=invalid action=drop comment="drop invalid connections" disabled=no
add chain=virus protocol=tcp dst-port=135-139 action=drop comment="Drop Blaster Worm" disabled=no
add chain=virus protocol=tcp dst-port=1433-1434 action=drop comment="Worm" disabled=no
add chain=virus protocol=tcp dst-port=445 action=drop comment="Drop Blaster Worm" disabled=no
add chain=virus protocol=udp dst-port=445 action=drop comment="Drop Blaster Worm" disabled=no
add chain=virus protocol=tcp dst-port=593 action=drop comment="________" disabled=no
add chain=virus protocol=tcp dst-port=1024-1030 action=drop comment="________" disabled=no
add chain=virus protocol=tcp dst-port=1080 action=drop comment="Drop MyDoom" disabled=no
add chain=virus protocol=tcp dst-port=1214 action=drop comment="________" disabled=no
add chain=virus protocol=tcp dst-port=1363 action=drop comment="ndm requester" disabled=no
add chain=virus protocol=tcp dst-port=1364 action=drop comment="ndm server" disabled=no
add chain=virus protocol=tcp dst-port=1368 action=drop comment="screen cast" disabled=no
add chain=virus protocol=tcp dst-port=1373 action=drop comment="hromgrafx" disabled=no
add chain=virus protocol=tcp dst-port=1377 action=drop comment="cichlid" disabled=no
add chain=virus protocol=tcp dst-port=2745 action=drop comment="Bagle Virus" disabled=no
add chain=virus protocol=tcp dst-port=2283 action=drop comment="Drop Dumaru.Y" disabled=no
add chain=virus protocol=tcp dst-port=2535 action=drop comment="Drop Beagle" disabled=no
add chain=virus protocol=tcp dst-port=2745 action=drop comment="Drop Beagle.C-K" disabled=no
add chain=virus protocol=tcp dst-port=3127 action=drop comment="Drop MyDoom" disabled=no
add chain=virus protocol=tcp dst-port=3410 action=drop comment="Drop Backdoor OptixPro" disabled=no
add chain=virus protocol=tcp dst-port=4444 action=drop comment="Worm" disabled=no
add chain=virus protocol=udp dst-port=4444 action=drop comment="Worm" disabled=no
add chain=virus protocol=tcp dst-port=5554 action=drop comment="Drop Sasser" disabled=no
add chain=virus protocol=tcp dst-port=8866 action=drop comment="Drop Beagle.B" disabled=no
add chain=virus protocol=tcp dst-port=9898 action=drop comment="Drop Dabber.A-B" disabled=no
add chain=virus protocol=tcp dst-port=10000 action=drop comment="Drop Dumaru.Y, sebaiknya di didisable karena juga sering digunakan utk vpn atau webmin" disabled=yes
add chain=virus protocol=tcp dst-port=10080 action=drop comment="Drop MyDoom.B" disabled=no
add chain=virus protocol=tcp dst-port=12345 action=drop comment="Drop NetBus" disabled=no
add chain=virus protocol=tcp dst-port=17300 action=drop comment="Drop Kuang2" disabled=no
add chain=virus protocol=tcp dst-port=27374 action=drop comment="Drop SubSeven" disabled=no
add chain=virus protocol=tcp dst-port=65506 action=drop comment="Drop PhatBot, Agobot, Gaobot" disabled=no
add chain=forward action=jump jump-target=virus comment="jump to the virus chain" disabled=no
add chain=input connection-state=established action=accept comment="Accept established connections" disabled=no
add chain=input connection-state=related action=accept comment="Accept related connections" disabled=no
add chain=input connection-state=invalid action=drop comment="Drop invalid connections" disabled=no
add chain=input protocol=udp action=accept comment="UDP" disabled=no
add chain=input protocol=icmp limit=50/5s,2 action=accept comment="Allow limited pings" disabled=no
add chain=input protocol=icmp action=drop comment="Drop excess pings" disabled=no
add chain=input protocol=tcp dst-port=21 src-address-list=ournetwork action=accept comment="FTP" disabled=no
add chain=input protocol=tcp dst-port=22 src-address-list=ournetwork action=accept comment="SSH for secure shell" disabled=no
add chain=input protocol=tcp dst-port=23 src-address-list=ournetwork action=accept comment="Telnet" disabled=no
add chain=input protocol=tcp dst-port=80 src-address-list=ournetwork action=accept comment="Web" disabled=no
add chain=input protocol=tcp dst-port=8291 src-address-list=ournetwork action=accept comment="winbox" disabled=no
add chain=input protocol=tcp dst-port=1723 action=accept comment="pptp-server" disabled=no
add chain=input src-address-list=ournetwork action=accept comment="From Datautama network" disabled=no
add chain=input action=log log-prefix="DROP INPUT" comment="Log everything else" disabled=no
add chain=input action=drop comment="Drop everything else" disabled=no
/

Kalo port-port tersebut memang ada yang agan pake bisa di tambah selain our network di firewall port yang bersangkutan..
Buat para master kalo mau menambahkan atau koreksi silahkan.
Ma'af kalo ada yang salah, silahkan di koreksi, disini tempat berbagi...

"No Offence No Hearth Feelings"
Semoga bermanfaat..

Back to Blog

2012-09-15T19:23:00.001+07:00

Lama ga nge-blog...
Baca-baca yg lama.. busyet..
Bertanya dalam hati: "Darimana dapat kata" itu??"

Lanjut ngeblog buat nulis yg sering kucari ulang, padahal dah pernah solved.. sekalian share..

sedikit bagi2.. buat yg teman2 perempuan yg dipaksa nikah..

2007-09-21T20:21:00.000+07:00

Meski sekarang katanya jaman modern..
Tapi masih banyak yang suka menjodoh-jodaohkan anaknya..
entah itu untuk kepentingan apa dibaliknya..
Yg pasti menurut kakang BozDon mah angger we harus ditanya dulu orang yg mo dijodohinnya mau ga...
dan cari2 ternyata ada tuh hadist yg bisa jadi pegangan..
Read carrefully..

Pertanyaan.
Syaikh Abdul Aziz bin Baz ditanya : Apakah boleh bagi seorang ayah memaksa putrinya menikah dengan
lelaki yang tidak ia suka ?
Jawaban.
Tidak ada hak bagi seorang ayah ataupun yang lain memaksa putrinya menikah dengan lelaki yang tidak
disukainya, melainkan harus berdasarkan izin darinya, karena Rasulullah Shallallahu ‘alaihin wa sallam telah
bersabda.
“Artinya : Wanita janda tidak boleh dinikahkan sebelum dimintai pendapat, dan wanita gadis tidak boleh
dinikahkan sebelum dimintai izin darinya”. Para sahabat bertanya, “Ya Rasulullah, bagaimana izinnya ?”
Beliau menjawab : “Ia diam” [Riwayat Al-Bukhari dan Muslim]
Di dalam redaksi lain beliau bersabda : “Dan izinnya adalah diamnya”
Redaksi lain menyebutkan.
“Artinya : Dan perempuan gadis itu dimintai izin oleh ayahnya mengenai dirinya, dan izinnya adalah
diamnya”.
Adalah kewajiban seorang bapak meminta izin kepada putrinya apabila ia telah berusia sembilan tahun ke atas.
Demikian pula para wali tidak boleh menikahkan putri-putrinya kecuali dengan izin dari mereka. Inilah yang
menjadi kewajiban semua pihak ; barangsiapa yang menikahkan putrinya tanpa seizin dari dia, maka nikahnya
tidak sah, sebab diantara syarat nikah adalah kesukaan (keridhaan) dari keduanya (laki-laki dan perempuan).
Maka apabila ia dinikahkan tanpa keridhaan darinya, namun dipaksa di bawah ancaman berat atau hukuman
pisik, maka nikahnya tidak sah ; kecuali pemaksaan ayah terhadap putrinya yang berusia kurang dari sembilan
tahun, maka itu boleh, dengan alasan Rasulullah Shallallahu ‘alaihi wa sallam menikahi Aisyah tanpa izin
darinya yang pada saat itu masih berumur kurang dari sembilan tahun, sebagaimana dijelaskan dalam hadits
shahih [Al-Bukhari dan Muslim].
Adapun jika ia telah berusia sembilan tahun ke atas maka tidak boleh dinikahkan kecuali berdasarkan izin dari
dia, sekalipun yang akan menikahkannya itu adalah bapaknya sendiri. Dan kepada pihak laki-laki (calon
suami) jika mengetahui bahwa perempuan yang ia inginkan tidak menyukai dirinya, maka hendaknya jangan
maju terus untuk menikahinya sekalipun bapaknya bersikap penuh toleran kepadanya.
Hendaklah selalu bertaqwa kepada Allah dan tidak maju untuk menikahi perempuan yang tidak menyukai
dirinya, sekalipun mengaku bahwa bapaknya tidak melakukan pemaksaan. Ia wajib waspada terhadap hal-hal
yang diharamkan oleh Allah, karena Rasulullah Shallallahu ‘alaihi wa sallam telah memerintahkan agar
meminta izin (terlebih dahulu kepada si permpuan yang dimaksud). Dan kami berpesan kepada perempuan
yang dilamar agar selalu bertaqwa kepada Allah dan menyetujui keinginan bapaknya untuk menikahkannya
jika lelaki yang melamarnya adalah lelaki ta’at beragama dan baik akhlaknya, karena pernikahan itu
menyimpan banyak kebaikan dan maslahat yang sangat besar, sedangkan hidup membujang itu banyak
mengandung bahaya. Maka yang kami pesankan kepada semua remaja putri adalah menyetujui lamaran lelaki
yang sepadan (dengan dirinya) dan tidak membuat alasan “masih ingin belajar” atau “ingin mengajar” atau
alasan-alasan lainnya.

[Disalin dari. Kitab Al-Fatawa Asy-Syar’iyyah Fi Al-Masa’il Al-Ashriyyah Min Fatawa Ulama Al-Balad
Al-Haram, edisi Indonesia Fatwa-Fatwa Terkini, hal 431-433 Darul Haq]

Untuk teman-temanku

2007-08-22T17:54:00.000+07:00

Untuk temanku yang masih sendiri.
Cinta itu seoerti kupu-kupu, semakin dikejar, semakin
jauh. Tapi, jika kamu membiarkannya terbang, dia akan
datang dengan sendirinya. Cinta dapat membuatmu bahagia,
tapi cinta juga sering menyakitkan. Tapi cinta akan
menjadi special ketika kamu memberikannya pada orang yang
pantas mendapatkannya. Jadi, santai saja dan pilih yang
terbaik.

Untuk temanku yang masih menunggu kepastian.
Cinta bukanlah menjadi orang lain yang sempuran. Cinta
adalah menemukan seseorang yang menuntunmu menjadi yang
terbaik.

Untuk temanku yang suka mempermainkan cinta.
Jangan pernah katakan "Aku cinta kamu" jika kamu tak
peduli.
Jangan pernah bicara soal perasaan jika perasaan itu tak
ada.
Jangan pernah menyentuh hati seseorang jika kamu hanya
menyakitinya.
Jangan pernah melihat matanya jika semua yang lakukan
adalah bohong.
Hal yang paling jahat yang bisa laki-laki lakukan pada
peremupan adalah membiarkannya jatuh, tetapi laki-laki
tidak benar-benar ingin menangkapnya. Dan itu terjadi pada
keduanya.

Untuk temanku yang telah menikah.
Cinta bukanlah soal "Ini salahmu", tetapi "Aku minta
maaf". Bukan "Dimana kau", tetapi "Aku disini". Bukan
"Bagaimana ini bisa terjadi", tetapi "Aku mengerti". Bukan
juga "Andai kau ada disini", tetapi "Syukurlah kau ada".

Untuk temanku yang bertunangan.
Kecocokan bukan dikur dari berapa lama berhubungan. Tapi
seberapa kalian mengerti satu sama lain.

Untuk temanku yang patah hati.
Patah hati itu tergantung padamu. Patah hati akan
dirasakan selama kamu memang mau, dan dalam sedalam kamu
membiarkannya. Tantangannya, adalah bukan bertahan atas
patah hati, tapi bagaimana bisa belajar darinya.

Untuk temanku yang naif.
Cara untuk jatuh cinta adalah, jatuhlah tapi jangan
terjun. Konsisten tapi janga persisten. Berbagilah dan
adillah. Mengertilah dan jangan coba meminta. Sakitlah,
tapi jangan pernag menahan rasa sakit itu.

Untuk temanku yang posesif.
Akan sangat sakit melihat orang yang kita cintai bahagia
bersama orang lain. Tapi akan lebih menyakitkan lagi
ketika tahu bahwa orang yang kamu cintai tidak bahagia
bersamamu.

Untuk temanku yang takut mengakui.
Cinta menyakitkan jika kamu memutuskan cinta. cinta lebih
menyakitkan jika seseoarang memutuskanmu. Tapi cinta
paling menyakitkan ketika orang yang kamu cintai tidak
tahu perasaanmu.

Untuk temanku yang masih bertahan.
Hal yang menyedihkan tentang hidup adalah ketika kamu
bertemu seseorang, dan kamu jatuh cinta kepadanya, tapi
pada akhirnya, cinta itu tidak benar-benar ada. Dan kamu
telah menyia-nyiakan waktumu bersama orang yang tidak
pantas mendapatkan cintamu. Jika dia tidak pantas, dia
juga tidak akan pantas mendapatkannya

Words from some one

2007-08-02T12:54:00.000+07:00

Some one gives me this words:

Kenangi sebuah pertemuan
karena..
Disitu terciptanya kemesraan
Sayangi sebuah persahabatan
karena..
Disitu terciptanya kerinduan

Persahabatan..
Seperti tangan dengan mata..
Saat tangan terluka mata menangis
Saat mata menangis tangan menghapusnya...

Nice right????

The Meaning of CINTA he..he..he..

2007-07-20T09:35:00.001+07:00

Di suatu tempat aku dapatkan kata-kata ini:

Seperti kata kata berikut
Cinta tak pernah akan begitu indah jika tanpa persahabatan.....
yang satu selalu menjadi penyebab yang lain
dan prosesnya...adalah irreversible......
Seorang pecinta yang terbaik adalah sahabat yang terhebat.
Jika kamu mencintai seseorang, jangan berharap bahwa seseorang itu akan
mencintai kamu persis sebaliknya dalam kapasitas yang sama.
Satu diantara kalian akan memberikan lebih,
yang lain akan dirasa kurang...........
Begitu juga dalam kasus. kamu yang mencari, dan yang lain akan menanti......
Jangan pernah takut untuk jatuh cinta....
mungkin akan begitu menyakitkan,
dan mungkin akan
menyebabkan kamu sakit dan menderita.....
tapi jika kamu tidak mengikuti kata hati,
pada akhirnya kamu akan menangis.......
jauh lebih pedih...
karena saat itu menyadari...
bahwa kamu tidak pernah memberi cinta itu sebuah jalan.
Cinta bukan sekedar perasaan, tapi sebuah komitmen....
Perasaan bisa datang dan pergi begitu saja......
Cinta tak harus berakhir bahagia.....
karena cinta tidak harus berakhir.....
Cinta sejati mendengar apa yang tidak dikatakan....
dan mengerti apa yang tidak dijelaskan, sebab
cinta tidak datang dari bibir dan lidah atau pikiran.........
melainkan dari HATI......
Ketika kamu mencintai, jangan mengharapkan apapun sebagai imbalan
karena jika kamu demikian, kamu bukan mencintai
melainkan.....investasi.
Jika kamu mencintai, kamu harus siap untuk
menerima penderitaan.
Karena jika kamu mengharap kebahagiaan
kamu bukanmencintai....melainkan memanfaatkan.
Lebih baik kehilangan harga diri dan egomu bersama seseorang yang kamu cintai
dari pada kehilangan seseorang yang kamu cintai, karena egomu yang tak berguna itu........
Bagaimana aku akan berkata " SELAMAT TINGGAL "....
kepada seseorang yang tidak pernah aku miliki ???????
Kenapa tetes air mata jatuh demi seseorang yang tidak pernah menjadi kepunyaanku ?????
Kenapa aku merindukan seseorang yang tidak pernah bersamaku dan kubertanya,
Kenapa aku mencintai seseorang yang cintanya tidak pernah untukku ????
Sangat sulit bagi dua orang yang mencintai satu sama lain ketika mereka
tinggal dalam dua dunia yang berbeda..........
Tapi ketika kedua dunia ini melebur dan menjadi satu
Itulah yang disebut KEAJAIBAN !!!!!
Jangan mencintai seseorang seperti bunga,karena
bunga mati kala musim berganti,
Cintailah mereka seperti sungai, sebab
Sungai mengalir selamanya........
Cinta mungkin akan meninggalkan hatimu
bagaikan kepingan2 kaca....
tapi tancapkan dalam pikiranmu...
bahwa Ada seseorang yang akan bersedia
untuk menambal lukamu
dengan mengumpulkan kembali pecahan2 kaca itu.....
Sehingga kamu akan menjadi utuh kembali......

Nice right ??

2007-07-18T11:22:00.000+07:00

He..he..he..he..
Akhirnya.. berakhir sudah..
Kesendirian dan kesunyian..
Tak ada lagi keresahan..
Semua kembali indah..
Matahari bersinar terang saat siang
Rembulan indah saat malam
Serta bintang yang bersinar
Kabut mendung tlah berlalu..
Aral, rintang dan halangan tlah hilang..

Separuh diriku tlah kembali..
Separuh jiwaku kembali menyatu..

Ah naun ieu teh lah..
Pujangga ge lain..
Yang penting.. Ada dech..
Life is beautifull..
ya ga??
peace Yo..!!

Keep Rock the World...