Cuma mau berbagi cerita sebagai Warga Negara Indonesia.

Asli ku Betawi hehehehe banget gito lohhh
Ini pengalaman ku bekerja di luar negri, pertama kali aku hanya staff pengajar dari sebuah perguruan tinggi di djakarta yang membuka cabangnya di luar negri.
Lama disana tuhan memberiku kesempatan untuk bekerja pada perusahaan baru yang bergerak di pengiriman uang.
Bermula dari pekerjaan itu aku sering berkunjung kenegara lain tapi masih ASIA sih :) untuk bertemu dengan rekan rekan bisnis, dari sini aku punya pengalaman di keluar masuk negara orang, ugh sungguh tidak menyenangkan menjadi orang indonesia selalu di lecehkan dan dipertanyakan oleh imigrasi negara bersangkutan. mungkin ini hanya perasaan ku saja, tapi setiap aku jalan bersama bos ku dia orang EROPA, tidak ada pihak imigrasi yang bertanya ke dia langsung di Cap dan OK. apa lagi berkunjung ke negara tentangga kita sendiri sangat menyebalkan setiap kesana selalu dipertanyakan masalah UANG, "How Much you have in your pocket" menurut ku itu pertanyaan melecehkan walaupun waktu itu aku menggunakan Singapure airlines dengan bangku executive ( karena sudah tidak bangku yang kosong makanya terpaksa company ku membayar untuk kelas executive hehehehe ). Sudah berulang kali aku kesana tetapi masih juga di pertanyakan uh padahal aku hanya stay paling lama 3 - 4 hari.
Ini hanya berbagi pengalaman saja kenapa seh indonesia terkenal dengan pengekspor pembantu dengan nama kerennya Domestik Helper dan kenapa sih Indonesia sangat nista di mata mareka? Bangsa kita BESAR bangsa Kita KAYA kenapa mareka merendahkan kita? dan untuk informasi saja dari sumber yang belum terpercaya, APARTEMEN Mewah dinegara tersebut 80% milik warga indonesia saja dan saya dapat keterangan dari mareka bahwa bangsa indonesia yang membeli apartemen di negara tersebut tidak pernah Menawar hahahahah itu membuktikan bahwa bangsa kita kaya, tapi kenapa bangsa kita seperti bangsa KULI atau Pembantu di mata mareka, siapa yang pantas menjawab ? kuserahkan kepada Tuhan Yang Maha Esa.

saya tidak menyebutkan nama negaranya untuk mengantisipasi agar saya tidak disebut provokator, cuma ingin bertanya dan berbagi saja :) nothing offense

Regards

Yodi

Buat Program SMS pake borland delphi memang susah susah susah kalau buat saya sebagai beginer Delphi. sedikt saja saya mau share ke kalian gmana seh coding nya di delphi 7.
Pertama kalian harus install komponen Com Port > saya tidak akan menjelaskan lebih detail tentang instal komponen COM PORT
langsung aja deh codingnya :D tapi jangan di ketawain yah karena ini coding kampung karena saya tidak pernah punya pengalaman bekerja di software House, jadi nggak tau standarisasi hukum pengcodingan gmana dalam dunia persilatan.
Dan saya menggunakan HP SE T610 maklum cuma itu yang saya punya dan koneksi ke komputer menggunakan bantuan gigi biru

langsung dehhhhhhhh

procedure TForm1.Button13Click(Sender: TObject);
var
smsc, tipe, pengirim, bentuk, skema, tanggal, batas, isi, nomer, s,str : string;
sok,sERROR:string;
n : textfile;
waktu: TDateTime;
i,X,Z : integer;
begin
Label3.Caption :=TIMETOSTR(NOW);
Z:=1;

ComPort1.WriteStr('AT'+#13#10); //1. cek koneksi
waktu := now;
repeat
comport1.ReadStr(str,comport1.inputcount);
s := str;
until (pos('OK', s) > 0) or (pos('ERROR', s) > 0) or (SecondsBetween(waktu,now) > 180);

ComPort1.WriteStr('AT+cmgf=1'+#13#10);//2. cek supert text atau tidak
waktu := now;
repeat
comport1.ReadStr(str,comport1.inputcount);
s := str;
until (pos('OK', s) > 0) or (pos('ERROR', s) > 0) or (SecondsBetween(waktu,now) > 180);

ComPort1.WriteStr('AT+cmgw="'+nomor telpnya+'"'+#13#10); //3 . masukan nomor telp yang di uju
Sleep(500); // kasih delay karena modem biasanya responya lambretta
ComPort1.WriteStr('pesanya disiniiiii'+#26);//4. pesannya nehhh
waktu := now;
comport1.ReadStr(str,comport1.inputcount);



for i := 0 to 1 do begiN
ComPort1.WriteStr('AT+cmss=1'+#13#10); //5. kirim dehhh
comport1.ReadStr(str,comport1.inputcount);
waktu := now;
repeat
comport1.ReadStr(str,comport1.inputcount);
until (pos('OK', STR) > 0) or (pos('ERROR', STR) > 0) or (SecondsBetween(waktu,now) > 180);


ComPort1.WriteStr('AT+cmgd=1'+#13#10); //5. hapus deh dari HP comport1.ReadStr(str,comport1.inputcount);
waktu := now;
repeat
comport1.ReadStr(str,comport1.inputcount);
until (pos('OK', s) > 0) or (pos('ERROR', s) > 0) or (SecondsBetween(waktu,now) > 180);
END;
end;


Selesai dehhhh
Coding ini hanya saya ambil dari beberapa sumber dan saya sempurnakan atau malah tambah di rusakan yah.
anyway semoga membantu

coding ini setelah anda pastikan kalau HP anda sudah terhubungan dengan komputer

Take Decision Of my Life

1. Choose for married with my lovely lady
2. Choose for have a child
3. Chosse for resign the job
4. Choose for look like happy in front of my love family
5. Choose for take care all responsibility

Some choice it's not suppose to be choose but if choosed what i am doing?
the best think is make the best for all your choice cause live is many wonderful choice if you can not make a choice better if you just pray and silent don't be argue of anything. Feb 26 2008