Situokeh's Blog

Tips Ngajak jalan Cewek (meskipun ga selalu berhasil)

situokeh — Thu, 05 Mar 2009 08:23:54 +0000

berikut ini adalah percakapannya, jangan marah ya mba…. ini buat pembelajaran doang. piss ah… (semoga yang chat ama gw ga ngeliat)

crayonsinchan2007 (06/03/2009 2:21:43): sehat yu…

crayonsinchan2007 (06/03/2009 2:21:59): ikut yach…

Ayu lestari (06/03/2009 2:22:13): sabtu ya?

crayonsinchan2007 (06/03/2009 2:22:27): iya sabtu, trus nginep di villa dingin

crayonsinchan2007 (06/03/2009 2:22:41):

Ayu lestari (06/03/2009 2:22:53): nggak enak ma yg laen..

crayonsinchan2007 (06/03/2009 2:23:21): kok ga enak…

crayonsinchan2007 (06/03/2009 2:23:25): mang knapa?

Ayu lestari (06/03/2009 2:23:51): masa lo mo pcrn ma gw didepan anak2 sih

Ayu lestari (06/03/2009 2:23:55):

crayonsinchan2007 (06/03/2009 2:24:45): ya sekali kali.. sekalian minta ajarin cara pacaran yang benar ama masternya

Ayu lestari (06/03/2009 2:25:15):

Ayu lestari (06/03/2009 2:25:22): emang byr brp?

crayonsinchan2007 (06/03/2009 2:25:56): mbayar gocap

Ayu lestari (06/03/2009 2:26:55): takut ada yg terganggu dgn kehadiran gw..

crayonsinchan2007 (06/03/2009 2:27:05): gw ga terganggu kok…

crayonsinchan2007 (06/03/2009 2:27:09): gw malah seneng

Ayu lestari (06/03/2009 2:27:19): yg laen..

crayonsinchan2007 (06/03/2009 2:28:14): siapa sih yu…? trimo ga bawa cewek kok

crayonsinchan2007 (06/03/2009 2:28:35): gw juga ga bawa cewek (emang ga punya… ;D

Ayu lestari (06/03/2009 2:30:38): yang cewe ntar merasa tersaingi ma gw lg….

Ayu lestari (06/03/2009 2:30:42):

Ayu lestari (06/03/2009 2:31:23): itu kan temen seangkatan lo semua..

crayonsinchan2007 (06/03/2009 2:32:27): nggak kok mereka semua dah di upgrade, dan udah punya cowok masing masing

crayonsinchan2007 (06/03/2009 2:32:53): gw doang yang masih jomblo (Ngarep : Mode ON)

Ayu lestari (06/03/2009 2:34:46): mg kmrn sih gw ketemu ma akiun n trimo tp gak ngomong apa2 tuh…

Ayu lestari (06/03/2009 2:34:56): mksd lo ngarep ma gw…

Ayu lestari (06/03/2009 2:35:01):

crayonsinchan2007 (06/03/2009 2:35:04): iya

Ayu lestari (06/03/2009 2:35:05): kidding

crayonsinchan2007 (06/03/2009 2:35:23): ya namanya jodoh kan ga tau

crayonsinchan2007 (06/03/2009 2:35:35): nih trimo disamping gw

crayonsinchan2007 (06/03/2009 2:35:55): katanya dia kemaren buru2 mo ketemu Bpk Abdussy

Ayu lestari (06/03/2009 2:36:13): iiihhh..

Ayu lestari (06/03/2009 2:36:27): lo lgsg konfirmasi ma trimo ya?

Ayu lestari (06/03/2009 2:36:32):

crayonsinchan2007 (06/03/2009 2:37:00): manis banget lo yu…

crayonsinchan2007 (06/03/2009 2:37:06): jadi mo keramas gw!!

crayonsinchan2007 (06/03/2009 2:37:10):

Ayu lestari (06/03/2009 2:37:28): apaaan sih lo yud??

Ayu lestari (06/03/2009 2:37:32):

crayonsinchan2007 (06/03/2009 2:37:43): masih lom ngerti juga…

crayonsinchan2007 (06/03/2009 2:37:52): ntar dijelasin deh dipuncak

crayonsinchan2007 (06/03/2009 2:38:16): makanya ikut yach..

Ayu lestari (06/03/2009 2:38:25): hmmm…

crayonsinchan2007 (06/03/2009 2:38:27): tar diajarin berenang deh

Ayu lestari (06/03/2009 2:38:30): gmn yah???

Ayu lestari (06/03/2009 2:38:37): gak ah..

Ayu lestari (06/03/2009 2:38:43): gw ga suka renang..

Ayu lestari (06/03/2009 2:38:49): takut tenggelem gw..

Ayu lestari (06/03/2009 2:38:53):

crayonsinchan2007 (06/03/2009 2:38:58): ntar dibeliin jagung bakar deh

crayonsinchan2007 (06/03/2009 2:39:11): kebetulan gw bawa duit 9000

crayonsinchan2007 (06/03/2009 2:39:16): jadi pas buat ber-2

Ayu lestari (06/03/2009 2:39:30):

crayonsinchan2007 (06/03/2009 2:39:38): gw tadi dah nelp tukangnya, katanya harganya 4500

Ayu lestari (06/03/2009 2:39:42): aduh kasian bnr sih lo…

Ayu lestari (06/03/2009 2:39:52):

crayonsinchan2007 (06/03/2009 2:39:55): makanya lo mesti ikut

crayonsinchan2007 (06/03/2009 2:40:09): ntar kalo lo ga ikut, siapa yang beli aquanya

Ayu lestari (06/03/2009 2:40:22): yah …

Ayu lestari (06/03/2009 2:40:32): kok gw yg beli sih…

crayonsinchan2007 (06/03/2009 2:40:33): masa gw makan jagung ga pake minum

Ayu lestari (06/03/2009 2:40:40): gak asik ah..

Ayu lestari (06/03/2009 2:40:45):

crayonsinchan2007 (06/03/2009 2:41:01): ya udah deh gw minjem 2 rb ama trimo buat beli aqua botol

crayonsinchan2007 (06/03/2009 2:41:12): sedotannya 2 buat kita ber-2

Ayu lestari (06/03/2009 2:41:13):

Ayu lestari (06/03/2009 2:41:20): jayus ah lo…

crayonsinchan2007 (06/03/2009 2:41:29): ini serius yu…

Ayu lestari (06/03/2009 2:41:34): cape nih gw ketawa terus..

Ayu lestari (06/03/2009 2:41:45): sok serius ah…

crayonsinchan2007 (06/03/2009 2:41:47): ikut yach…

Ayu lestari (06/03/2009 2:41:58): nginep brp mlm?

crayonsinchan2007 (06/03/2009 2:42:26): 1 malem aja, kan duitnya cuma 9000 + 2000 dari trimo

crayonsinchan2007 (06/03/2009 2:42:44): tar kalo kita mo nerusin minjem rollies aja

crayonsinchan2007 (06/03/2009 2:42:52): gimana ?

crayonsinchan2007 (06/03/2009 2:42:59):

Ayu lestari (06/03/2009 2:43:16): apaan sih lo…..

Ayu lestari (06/03/2009 2:43:24): cape deh gw…

Ayu lestari (06/03/2009 2:43:32):

crayonsinchan2007 (06/03/2009 2:43:59): ya ga apa-apaan yu

crayonsinchan2007 (06/03/2009 2:44:10): masa lo lom ngerti juga

Ayu lestari (06/03/2009 2:44:34): maklum gw rada lemot kl soal ky gitu

crayonsinchan2007 (06/03/2009 2:44:35): masa lo lom ngerti juga perasaan gw yang lagi ehm… ini

Ayu lestari (06/03/2009 2:44:38):

crayonsinchan2007 (06/03/2009 2:47:54): jadi gimana nih.. ikut yach…

crayonsinchan2007 (06/03/2009 2:48:09): tar lo boleh jemput gw deh dirumah

Ayu lestari (06/03/2009 2:48:11): gmn yach?

Ayu lestari (06/03/2009 2:48:18): lho kok

Ayu lestari (06/03/2009 2:48:29): gak kebalik?

crayonsinchan2007 (06/03/2009 2:48:44): ya kalo maksa, dibalik juga ga papa

Ayu lestari (06/03/2009 2:49:12): maksa???

crayonsinchan2007 (06/03/2009 2:49:12): soalnya gw ga bisa bawa mobil yu…

crayonsinchan2007 (06/03/2009 2:49:33): tar kalo pake motor, lo masuk angin lagi…

Ayu lestari (06/03/2009 2:49:35): iya karena ga punya kan?

Ayu lestari (06/03/2009 2:49:39):

crayonsinchan2007 (06/03/2009 2:50:06): yes!!!!

crayonsinchan2007 (06/03/2009 2:50:08): ayu ikut

Ayu lestari (06/03/2009 2:50:18):

crayonsinchan2007 (06/03/2009 2:50:23): lo lom balik yu..?

Ayu lestari (06/03/2009 2:50:32): ntar bis magrib..

Ayu lestari (06/03/2009 2:50:39): lo juga tuh..

crayonsinchan2007 (06/03/2009 2:50:45): ya udah gw jemput sekarang yach

Ayu lestari (06/03/2009 2:50:59): kaya tau aja nih…

Ayu lestari (06/03/2009 2:51:02):

crayonsinchan2007 (06/03/2009 2:51:07): tau dong..

crayonsinchan2007 (06/03/2009 2:51:16): kan bentar lagi gw nanya

Ayu lestari (06/03/2009 2:51:24): dasar..

crayonsinchan2007 (06/03/2009 2:51:25): kantor lo dimana yu…?

Ayu lestari (06/03/2009 2:51:35): dicempaka putih..

Ayu lestari (06/03/2009 2:51:40): jauh kan..

crayonsinchan2007 (06/03/2009 2:52:27): namanya cinta mah.. ga pandang jauh yu

Ayu lestari (06/03/2009 2:52:44): aduh…

Ayu lestari (06/03/2009 2:52:47):

crayonsinchan2007 (06/03/2009 2:53:27): yo wis gw pulang dulu yach…

crayonsinchan2007 (06/03/2009 2:53:41): nama lo dah gw masukkin ke list

Ayu lestari (06/03/2009 2:53:41): ok

mohon yang baca dan yang kenal, jangan ampe dia tau yach….., dan jangan di copy paste. he..he….he…

Narik Email yahoo ke Email Lokal

situokeh — Wed, 03 Dec 2008 14:44:55 +0000

Setelah sukses dengan narik email dari Gmail, kini saya ingin narik email yahoo saya agar bisa saya baca melalui my Outlook, berikut ini langkah langkahnya. Yuuuu…Mari…

Download YPOPs dimari klik disini lalu install
Buka Outlook anda, kemudian pencet menu Tools à Account à Add à Mail
Isikan seperti dibawah ini sesuai dengan email anda

4. Trus tekan Tombol Toolsà Email Account à View or Change existing email account, trus setting seperti ini pada tab Advance

5. Klik Ok dan Close.

6. Kini Anda sudah dapat mengelola email Yahoo! seperti saat mengelola email POP lainnya. Klik Send/Recv untuk menarik email dari server Yahoo! dan mengirimkan draft email Anda.

Gampang bukan???? Jika anda mempunyai masalah silahkan email ke yuditampan@gmail.com

PAJ (Program Chatting)

situokeh — Wed, 19 Nov 2008 13:57:47 +0000

Ini adalah dasar dari pengembangan aplikasi chatting yang biasa digunakan untuk berkomunikasi antar komputer. Penerapan aplikasi ini yang sedang kita bahas disini menggunakan komponen WinSock pada Visual Basic 6.0 yang telah terintegrasi didalamnya. Tentunya pada implementasi aplikasi chatting disini harus memiliki lebih dari 1 socket yang mana socket yang 1 digunakan untuk listening dan yang lain untuk menghubungi program yang lain. Komunikasi socket ini membutuhkan sebuah port untuk berkomunikasi, layaknya sebuah gerbang untuk lalulintas agar si A dapat pergi ketempat si B. Port ditentukan dengan angka, tentunya port tersebut anda sendirilah yang menentukan untuk berkomunikasi. Namun ada baiknya ada mengenal terlebih dahulu beberapa port yang telah menjadi standarisasi penggunaannya, seperti port FTP pada port 20/21, port TCP/UPD pada port 19, POP3 port 110, HTTPS port 443 dan masih banyak lagi. Pertama-tama agar aplikasi chat ini dapat berkomunikasi tentunya socket harus membuka sebuah port, sebagai pintu gerbang bagi program lainnya dapat berkomunikasi dengan program ini. Baiklah tanpa perlu banyak berbasa-basi lagi, mulai saya sedikit beri contoh:
Option Explicit

Private Sub Form_Load()
‘inisialisasi sock untuk membuka port,
‘pertama cek apakah socket keadaan terbuka
‘jika iya maka socket ditutup, kemudian
‘buka port 1234 untuk berkomunikasi
If Winsock1.State = 2 Then Winsock1.Close
Winsock1.LocalPort = “1234″
Winsock1.Listen
End Sub
________________________________________________________________________

‘tombol perintah untuk koneksi ke komputer yang lain
‘di alamat 192.168.100.2
‘dengan port 1234
Private Sub Command2_Click()
On Error GoTo out
Winsock2.Close
Winsock2.Connect “192.168.100.2″,1234
Exit Sub
out:
MsgBox “Gagal kirim pesan!”, vbCritical
End Sub
________________________________________________________________________

‘tombol perintah untuk mengirim data kepada socket
‘yang terhubung dengan port yang ‘dibuka oleh windsock1 yaitu port 1234
Private Sub Command1_Click()
On Error GoTo out
Winsock1.SendData Text1.Text
Exit Sub
out:
MsgBox “Gagal kirim pesan!”, vbCritical
End Sub
________________________________________________________________________

‘event pada socket jika terjadi permintaan koneksi
Private Sub Winsock2_ConnectionRequest(ByVal requestID As Long)
Winsock2.Close ‘tutup socket
Winsock2.Accept requestID ‘kemudian baru terima request id
End Sub
________________________________________________________________________

‘event pada socket jika terjadi penerimaan data
Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
Dim dataz$
‘ambil data yang diterima disimpan pada variable dataz
Winsock2.GetData dataz
‘tampilkan hasil data yang telah diterima pada textbox
Text2.Text = Text2.Text + vbCrLf + CStr(Time) + “>>” + dataz
End Sub
________________________________________________________________________

‘event pada socket jika terjadi permintaan koneksi
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close ‘tutup koneksi
Winsock1.Accept requestID ‘kemudian baru terima request id
End Sub
________________________________________________________________________

‘event pada socket jika terjadi penerimaan data
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim dataz$
‘ambil data yang diterima disimpan pada variable dataz
Winsock1.GetData dataz
‘tampilkan hasil data yang telah diterima pada textbox
Text2.Text = Text2.Text + vbCrLf + CStr(Time) + “>>” + dataz
End Sub
________________________________________________________________________

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Winsock1.Close
End Sub
________________________________________________________________________

Tentunya penggunaan satu socket hanya untuk satu koneksi, jadi kalo kamu pengen dapat berkomunikasi lebih dari dua komputer, kamu bisa membuat array untuk object winsock kamu. Caranya ambil Winsock 1 saja letakkan di form, kemudian pada properti winsock di bagian index isikan 0. Kemudian pada setiap kamu mau melakukan komunikasi kamu harus meload object tersebut. Misal mau melakukan koneksi pada komputer 1 maka lakukan perintah
…..
Load Winsock(1)
Winsock(1).Connect “193.168.100.2″,1234

dan lakukan hal yang sama jika ingin berkomunikasi dengan komputer yang lain. Catatan, jika koneksi telah berakhir hendaklah mengunload object yang tidak terpakai, dengan tambahan pula ada baiknya sebuah variable yang mencatat objek index apa saja yang terpakai dan yang tidak terpakai. Misalkan dengan menggunakan variabel class Collection. Ya.. itu saja, semoga bisa membantu bagi kamu-kamu yang pengen buat aplikasi chatting sendiri ala kamu sendiri. Selamat mencoba. yuk…monggo sederek!!!

dicomot dari http://aobe.blogspot.com/

Saatnya Kita Quizzzz…………Tereng tereng tereng…3X deng4X..det

situokeh — Mon, 17 Nov 2008 14:26:39 +0000

Seperti kita ketahui bersama bahwa Pemrograman Borland Delphi mempunyai Database sendiri yaitu Database Paradox. Pada saat kita bekerja dengan Borland Delphi maka kita senantiasa menggunakan Database Paradox itu. Akan tetapi pertanyaan yang muncul “Apakah Borland Delphi bisa digandengkan dengan Database lain?” Jawabannya YA, BISA. Artikel saya kali ini, kita akan membahas bagaimana bekerja dengan Borland Delphi yang menggunakan Database Microsoft Access. Akan tetapi saya hanya akan membahas bagaimana cara koneksi databasenya saja dengan menggunakan komponen ADO. Tentang bagaimana bentuk listing programnya, silahkan anda kembangkan sendiri. Akan tetapi kita akan membuktikan nanti apakah koneksi yang kita inginkan benar-benar sudah berhasil atau tidak.

Berikut tampilan hasil kompilasi program yang akan kita buat :

Langkah pengerjaan :

1. Pertama-tama silahkan anda membuat sebuah Database dengan menggunakan Microsoft Access. Database apa saja. Saya kira saya tidak perlu menunjukkan langkah-langkah bagaimana cara membuat Database dengan Microsoft Access.

Pada kasus kita kali ini saya membuat Database Mahasiswa dan sebuah table Mahasiswa dengan ketentuan sebagai berikut :

Field Name	Data Type	Field Size
Nim	Text	9
Nama	Text	25
Alamat	Text	25
Prodi	Text	2

Setelah anda membuat desain tabelnya maka silahkan isi sekitar 4 data (Record)

2. Setelah selesai silahkan buka aplikasi Borland Delphi kemudian desain form seperi gambar dibawah ini :

Letakkan komponen ADO Connection, ADO Table, DataSource, Serta sebuah DBGrid. Komponen ADO Connection dapat diperoleh pada tab ADO , begitu pula dengan komponen ADO Table . Sedangkan untuk DataSource dapat diperoleh pada Tab Data Access dan DBGrid terdapa pada Tab Data Controls

3. Setelah anda mempersiapkan tampilan form diatas maka silahkan klik komponen ADO Connection dan pada Object Inspector Properties Pilih ConnectionString.

4. Setelah anda klik maka akan tampil kotak dialog seperti gambar dibawah ini :

5. Kemudian tekan tombol Build maka akan tambil kotak dialog seperti gambar dibawah ini :

6. Setelah itu pilih Microsoft Jet 4.0 OLE DB Provider (ini untuk koneksi menggunakan Database Ms. Access) kemudian klik tombol Next maka akan tampil kotak dialog seperti dibawah ini :

7. Setelah itu pilih lokasi Databasenya dengan menklik tombol pada elect or enter Database name kemudian cari database yang ingin kita koneksikan. Maka akan tampil kotak dialog seperti dibawah ini:

Pada projek ini nama database saya adalah database coba. Setelah anda pilih maka silahkan klik tombol Open.

8. Setelah itu maka akan tampil kotak dialo seperti gambar dibawah ini :

9. Klik OK, Jangan lupa pada properties cari properties “Login Prompt” dan beri nilai False. Fungsinya apa akan dijelaskan pada catatan dibawah.

10.Untuk komponen ADOTable silahkan di klik. Pada object Inspector Properties pilih Connection dan pilih ADOConnection1. Perhatikan gambar dibawah ini :

11.Setelah itu masih pada Object Inspector Properties pilih TableName kemudian pilih table yang sudah kita buat tadi.

12.Kemudian untuk komponen DataSource silahkan di klik, kemudian pada Object Inspector Properties, pilih DataSet lalu pilih ADOTable1 perhatikan gambar :

13. Kemudian Klik komponen DBGrid, pada Object Inspector Properties pilih DataSource kemudian Pilih “DataSource1”.

14. Sentuhan terakhir silahkan Klik Form, pada Object Inspector Properties pilih Tab Event kemudian. Lalu klik dua kali pada properties On Create. Perhatikan gambar :

15. Setelah itu pada halaman Coding, ketikkan Listing Program berikut ini :

procedure TForm1.FormCreate(Sender: TObject);

begin

ADOTable1.Active:=true;

end;

16. Jalankan program dengan menekan F9.

Gampang Bukan? Selamat Mencoba. Terus Belajar dan Kembangkan Project Diatas

Kalau ada pertanyaan silahkan Upload di Link Blog ini atau kirimkan E-mail ke : yuditampan@gmail.com

dipersunting dari blognya harryansyah

Hello world!

situokeh — Tue, 11 Nov 2008 14:45:30 +0000

Welcome to WordPress.com. This is your first post. Edit or delete it and start blogging!