status biru di facebook

Sekarang ini memang sedang musimnya membuat status biru melalui facebook, tapi sebagai pemakai komputer yang tidak hanya sekedar pemakai kita sebaiknya juga tahu bagaimana sebenarnya cara membuat status biru seperti yang sudah sering di lakukan oleh orang-orang. Berangkat dari rasa penasaran ku sendiri mengenai status biru ini, akhirnya akupun mencoba otak-atik statusku sendiri, walaupun melalui cara membuat status biru yang sudah ada. Trik yang akan aku share di sini bukan seperti yang sudah ada seperti yang kita lihat, kalau biasanya status biru yang sudah sering di bagikan langsung mengarah ke halaman tertentu, tapi dengan trik membuat status biru yang aku dapatkan ini kita bisa mengarahkan status biru tersebut ke profil kita sendiri, atau ke profil teman, atau bisa juga ke halaman yang sudah kita buat sendiri keren kan ?. Mau tahu triknya ? Pertama-tama ingat dulu script ini @@[0:[0:0:,,,]] tanda koma tersebut adalah tempat kita mengisi status Membuat status biru mengarah ke Profil sendiri untuk yang ini sangat gampang, caranya tinggal isi tanda koma tersebut dengan status yang kita inginkan, contoh : @@[0:[0:0:status biru mengarah ke profil]] Membuat Status Biru Mengarah ke Halaman Pertama masuk dulu ke halaman di mana kita ingin mengarahkannya kemudian copas kode yang tertera di address bar, lalu copy ke script tadi, jadi seperti ini : @@[0:[kode di sini:0:status di sini]] contohnya : https://www.facebook.com/pages/Simpel/160966683986149 (copy kode yang bergaris bawah) jadinya seperti ini : @@[0:[160966683986149:0:status di sini]] Untuk halaman yang tidak terlihat kodenya, buka foto/gambarnya, kemudian copy kode yang ada setelah titik (.), contoh https://www.facebook.com/photo.php?fbid=307280199282631&set=pu.114330915244228&type=1 (ambil kode yang bergaris bawah) jadinya seperti ini @@[0:[114330915244228:0:status di sini]] Membuat Status Biru mengarah ke Grup Caranya sama seperti membuat status biru mengarah ke halaman, Membuat Status Biru Mengarah ke Profil Teman Caranya juga sama dengan Membuat Status Biru Mengarah ke Halaman Catatan Penting ! : Untuk halaman sebaiknya kita like dulu halaman tersebut agar cara ini berhasil, begitu juga dengan grup, sebaiknya bergabunglah terlebih dahulu dengan grup tersebut, sama juga dengan mengarahkan status biru ke profil teman, bertemanlah dulu dengan pemilik account tersebut. Hendaknya saat mengambil kode yang ada di foto, sebaiknya pilih foto yang di upload sendiri oleh admin halaman atau grup tersebut, begitu juga dengan teman, ambil kode yang di upload sendiri oleh pemilik account facebook tersebut Terkadang kode yang di tampilkan bisa terlalu panjang, contohnya seperti ini :https://www.facebook.com/photo.php?fbid=1980908693669&set=a.1388785250953.2055869.1571745892&type=3 kalau seperti ini maka ambil kode yang paling terakhir tampil, dalam kasus ini maka ambil kode 1571745892, Tapi biasanya kalau sudah di album kodenya sudah terlihat jelas, hehe :p Bonus Tadi pas lagi otak atik status pake script, tiba-tiba saya nemu status tanpa kata-kata, gak tahu juga kenapa jadi begini, kalau mau tau langsung aja nih praktek, copy kode di bawah ini ke status kamu @[2206954784680:0] Bukan jebakan ini bro, tapi kalau yang di bawah ini baru jebakan betmen, hehehe @[100001675120071:0] kalau ada pertanyaan silahkan ke http://mrsimpel.blogspot.com/2011/11/bongkar-trik-membuat-status-biru-di.html soalnya aku cuma copas dari sana..hehehe..(cuma buat koleksi pribadi aja nih all.) Selengkapnya coy...

Adobe Flash Profesional CS3

Langsung aja download linknya dibawah ini Total 7 Parts Size 596 MB Mediafire Password for 3rd file : anymediafire.Flash.CS3 http://www.mediafire.com/?gmwjfairyto http://www.mediafire.com/?nyyj1gl4mcz http://www.mediafire.com/?fnonydz2555 http://www.mediafire.com/?zl0zhuzmwyh http://www.mediafire.com/?yn0ltdotdfw http://www.mediafire.com/?vndojyzzmgl http://www.mediafire.com/?d2hnjnhojnt Selengkapnya coy...

kumpulan aplikasi gratis buat belajar vb 6

contoh program2 sederhana vb 6 buat pembelajaran bagi pemula. termasuk aku gan..hehehe..masih belajar. silahkan di gasak.. 1. Hotel

http://www.ziddu.com/download/8895846/Aplikasi_Pengelolaan_Hotel.rar.html

2. Jasa Bengkel

http://www.ziddu.com/download/8895847/AplikasiServiceKendaraan.rar.html

3. Penyewaan DVD

http://www.ziddu.com/download/8895848/Rental_DVD.rar.html

4. Koperasi

http://www.ziddu.com/download/8895959/Koperasi.rar.html

5. Program Stok Obat

http://www.ziddu.com/download/8895960/SistemPersediaanObat.rar.html

6. SMS Manager

http://www.ziddu.com/download/8895958/SMSManager.rar.html

7. Toko Komputer

http://www.ziddu.com/download/8896289/Retail_computer.rar.html

8. Koleksi SMS Gateway

http://www.ziddu.com/download/8930202/IndoprogSMS.zip.html

http://www.ziddu.com/download/8930203/xsmsgateway.zip.html

http://www.ziddu.com/download/8930204/Smart-SMS.zip.html

http://www.ziddu.com/download/8930205/smsgateway.zip.html

9. Program Penerimaan Mahasiswa Baru

http://www.ziddu.com/download/8896291/Penerimaan_Mahasiswa_Baru.zip.html

10. Program Penjualan Tiket Pesawat

http://www.ziddu.com/download/8896290/Penjualan_Tiket_Pesawat.rar.html

11. Rental video

http://www.ziddu.com/download/8896287/Rental_Video.rar.html

12. Program Rental DVD

http://www.ziddu.com/download/8896586/SISTEM_APLIKASI_RENTAL_DVD.zip.html

13. Program Pasien

http://www.ziddu.com/download/8896585/SISTEM_INFORMASI_PASIEN.zip.html

14. Program Rumah Sakit/ Puskesmas

http://www.ziddu.com/download/8896583/Rumah_Sakit.rar.html

15. Billing

http://www.ziddu.com/download/8896584/Visual_Basic_Billing.zip.html

16. Sistem Informasi Persediaan Barang

http://www.ziddu.com/download/8896582/SistemInformasiPersediaanBaran.rar.html

17. Sistem Informasi Persediaan Sepatu

http://www.ziddu.com/download/8896587/SistemInformasiPersediaanSepat.rar.html

18. Software Akuntansi menggunakan Excel

http://www.ziddu.com/download/8896654/software_aplikasi_akuntansi_ex.rar.html

19. Sistem Supermarket

http://www.ziddu.com/download/8896653/Supermarke1732534122004.zip.html

20. Bar Rest

http://www.ziddu.com/download/8896652/BarRest.rar.html

21. Bel Sekolah

http://www.ziddu.com/download/8584512/BelSekolah.zip.html

22. Aplikasi Karyawan PLN

http://www.ziddu.com/download/8584514/AplikasiKaryawanPLN.zip.html

23. Pendaftaran Sekolah

http://www.ziddu.com/download/8584513/PendaftaranSekolah.zip.html

24. Aplikasi Penjualan Koran

http://www.ziddu.com/download/8584546/SistemAplikasiPenjualanKoran.zip.html

25. Aplikasi Rumah Sakit

http://www.ziddu.com/download/8584515/SistemInformasiRumahSakit.zip.html

26. Aplikasi Gaji Karyawan

http://www.ziddu.com/download/8584511/Penggajian.rar.html

27. Aplikasi sidik Jari

http://www.ziddu.com/download/8930118/FingerPrintdtbase.ZIP.html

28. Sistem Pakar

http://www.ziddu.com/download/8930117/expertsystem.rar.html

29. Penjualan Tunai Kredit

http://www.ziddu.com/download/8930120/735464501b4bce254493cf17c1d14f14.rar.html

30. Penjualan Toko Komputer

http://www.ziddu.com/download/8930116/penjualan.rar.html

31. Penjualan Toko Retail

http://www.ziddu.com/download/8930119/retail.zip.html Selengkapnya coy...

Video convert master v.8.11.25

yang mau convert segala macam format video silahkan di download software berikut ini.

link download Selengkapnya coy...

kode fungsi "msgbox"

The MsgBox function displays a message box, waits for the user to click a button, and returns a value that indicates which button the user clicked.

The MsgBox function can return one of the following values:

• 1 = vbOK - OK was clicked
• 2 = vbCancel - Cancel was clicked
• 3 = vbAbort - Abort was clicked
• 4 = vbRetry - Retry was clicked
• 5 = vbIgnore - Ignore was clicked
• 6 = vbYes - Yes was clicked
• 7 = vbNo - No was clicked

Note: The user can press F1 to view the Help topic when both the helpfile and the context parameter are specified.

Tip: Also look at the InputBox function.

Syntax

MsgBox(prompt[,buttons][,title][,helpfile,context])

Parameter	Description
prompt	Required. The message to show in the message box. Maximum length is 1024 characters. You can separate the lines using a carriage return character (Chr(13)), a linefeed character (Chr(10)), or carriage return–linefeed character combination (Chr(13) & Chr(10)) between each line
buttons	Optional. A value or a sum of values that specifies the number and type of buttons to display, the icon style to use, the identity of the default button, and the modality of the message box. Default value is 0 0 = vbOKOnly - OK button only 1 = vbOKCancel - OK and Cancel buttons 2 = vbAbortRetryIgnore - Abort, Retry, and Ignore buttons 3 = vbYesNoCancel - Yes, No, and Cancel buttons 4 = vbYesNo - Yes and No buttons 5 = vbRetryCancel - Retry and Cancel buttons 16 = vbCritical - Critical Message icon 32 = vbQuestion - Warning Query icon 48 = vbExclamation - Warning Message icon 64 = vbInformation - Information Message icon 0 = vbDefaultButton1 - First button is default 256 = vbDefaultButton2 - Second button is default 512 = vbDefaultButton3 - Third button is default 768 = vbDefaultButton4 - Fourth button is default 0 = vbApplicationModal - Application modal (the current application will not work until the user responds to the message box) 4096 = vbSystemModal - System modal (all applications wont work until the user responds to the message box) We can divide the buttons values into four groups: The first group  (0–5) describes the buttons to be displayed in the message box, the second group (16, 32, 48, 64) describes the icon style, the third group (0, 256, 512, 768) indicates which button is the default; and the fourth group (0, 4096) determines the modality of the message box. When adding numbers to create a final value for the buttons parameter, use only one number from each group
title	Optional. The title of the message box. Default is the application name
helpfile	Optional. The name of a Help file to use. Must be used with the context parameter
context	Optional. The Help context number to the Help topic. Must be used with the helpfile parameter

Selengkapnya coy...

fungsi terbilang pada vb 6

Seperti yang pernah rekan pembaca lakukan pada pembelian atau pembayaran atau menabung di bank, ada 'angka' yang menunjukkan banyaknya uang yang mau disetor tersebut, ada pula 'kalimat' yang menunjukkan banyaknya uang yang mau disetor tersebut, yang biasanya bertuliskan 'terbilang'.
Contoh:
100.000
Terbilang: Seratus ribu.

Untuk mahasiswa yang sedang ada tugas Visual Basic 6.0 yang berkaitan dengan kasus tersebut, silakan pelajari Script atau Source Code Visual Basic ini:

'Belajar Visual Basic 6.0
'Tambahkan: 1 TextBox, 1 CommandButton, 1 Label
'Riyan Hidayat Samosir in BeKaBe.BlogSpot.Com

Function SayNumber(nNumber As Variant, _
Optional SayKoma As Boolean = False) As String
Dim i As Long
Dim s As String
Dim s2 As Double
Dim x As String
Dim minus As Boolean
Dim nBulat As Double

If TypeName(nNumber) = "String" Then
If Trim(Mid$(nNumber, 1, 1) = "-") Then
minus = True
nNumber = Mid(nNumber, 2)
End If
x = Trim(CDbl(nNumber))

Else
If nNumber < 0 Then nNumber = Abs(nNumber) minus = True End If x = FormatNumber(nNumber, 2) End If s = SayN(Int(nNumber)) If minus Then SayNumber = "Minus " & s Else SayNumber = s End Function Function SayN(nNumber As Double) As String Dim z, s, a, c, x Dim ulang As Double Dim i As Byte Dim tampung(5) As String Dim n As String n = LTrim(RTrim(nNumber)) ulang = (Len(n) - 1) \ 3 + 1 For i = 1 To ulang If Len(n) > 3 Then
c = Mid$(n, Len(n) - 2, 3)
n = Mid$(n, 1, Len(n) - 3)
tampung(i) = c
Else
tampung(i) = n
End If
Next i

z = ""
If n = "0" Then
z = "Nol "
Else
i = ulang
Do
a = ""
x = ""
s = tampung(i)
While Len(s) < 3 s = "0" + s Wend 'digit ratusan If Mid$(s, 1, 1) <> "0" Then
If Mid$(s, 1, 1) = "1" Then
a = a + "Seratus "
Else
a = a + Nama(Mid$(s, 1, 1)) + "Ratus "
End If
End If

'digit 11-19
If Mid$(s, 2, 1) = "1" Then
If (Mid$(s, 3, 1) <> "1") And (Mid$(s, 3, 1) <> "0") Then
a = a + Nama(Mid$(s, 3, 1)) + "Belas "
End If
If Mid$(s, 3, 1) = "1" Then a = a + "Sebelas "
If Mid$(s, 3, 1) = "0" Then a = a + "Sepuluh "
End If

'digit puluhan
If (Mid$(s, 2, 1) <> "1") And _
(s <> "000") And (Mid$(s, 2, 1) <> "0") Then
a = a + Nama(Mid$(s, 2, 1)) + "Puluh "
End If

If (Mid$(s, 3, 1) <> "0") And (Mid$(s, 2, 1) <> "1") Then
a = a + Nama(Mid$(s, 3, 1))
End If

'perkecualian untuk seribu
If (i = 2) Then
If s = "001" Then a = "Se"
End If

If s <> "000" Then
If i = 1 Then x = ""
If i = 2 Then x = "Ribu "
If i = 3 Then x = "Juta "
If i = 4 Then x = "Miliar "
If i = 5 Then x = "Triliun "
End If
If a = "Se" Then x = LCase(x)
z = z + a + x
i = i - 1
Loop Until i = 0
End If
SayN = z
End Function

Private Function Nama(a As String) As String
Select Case a
Case "1": Nama = "Satu "
Case "2": Nama = "Dua "
Case "3": Nama = "Tiga "
Case "4": Nama = "Empat "
Case "5": Nama = "Lima "
Case "6": Nama = "Enam "
Case "7": Nama = "Tujuh "
Case "8": Nama = "Delapan "
Case "9": Nama = "Sembilan "
Case "0": Nama = ""
End Select
End Function

Private Sub Command1_Click()
Label1.Caption = SayNumber(Text1.Text)
End Sub
sumber: http://bekabe.blogspot.com/2011/04/visual-basic-membuat-fungsi-terbilang.html Selengkapnya coy...

Psychic Reading

Effect : Seorang penonton memikirkan nama suatu negara di dunia, lalu anda suruh juga memikirkan nama hewan. Anda berkonsentrasi untuk mendapatkan gelombang otaknya dan....akhirnya anda mendapatkannya. Anda lalu menebak kedua hal tersebut...penonton tercengang karena anda dengan TEPAT membaca pikirannya!

Secret : Sebenarnya anda melakukan forcing (memaksa dengan halus) jadi penonton tidak menyadarinya dengan syarat anda jangan mengatakan apa yang hendak anda lakukan! Adapun forcing yang saya maksud adalah rumus ilmu pasti yang gunanya membawa penonton ketujuan yang kita inginkan. Bingung? Untuk itu coba baca dan ikuti rutin di bawah ini (anggap anda adalah penonton dan saya pesulapnya) dengan begitu anda akan kaget dan sekaligus paham metode Mind Reading ini.

• Silahkan anda pilih angka antara 1-10...sudah?
• Sekarang kalikan angka rahasia anda dengan 2!
• Bila sudah tambahkan dengan 8, lakukan sekarang...sudah?
• Kini hasil tersebut anda bagi 2...oke saya beri waktu anda menghitungnya...
• Anda masih ingat angka rahasia anda diawal tadi? Nah kurangkan hasil perhitungan kita tadi dengan angka rahasia anda!
• Bila sudah kini anda rubah hasilnya tersebut ke abjad, begini maksud saya bila 1 maka jadi A, bila 2 jadi B, 3 jadi C, 4 jadi D, 5 jadi E....dan seterusnya, anda pahamkan?
• Kini anda telah memiliki abjad rahasia yang orang lain tidak mengetahuinya, termasuk saya...dan saya ingin anda memikirkan nama suatu negara di dunia dengan menggunakan abjad rahasia anda. Jadikan abjad tersebut sebagai huruf awal nama suatu negara...sudah?
• Bila sudah saya ingin anda pikirkan nama hewan, tapi tunggu dulu pilih nama hewan tersebut menggunakan huruf kedua dari nama negara yang anda pilih. Begini misalnya, nama negara yang saya pilih INdonesia, nah huruf keduanya adalah N maka hewan yang saya pilih adalah NURI (nuri adalah hewan dari jenis burung).
• Oke apakah anda sudah mendapatkan nama hewan yang sesuai dengan huruf kedua dari nama negara yang anda pilih?
• Benar sudah?...kalau belum saya akan menunggu anda.
• Oke kalau sudah silahkan pikirkan kedua hal tersebut dan kirimkan kelayar komputer anda...
• Saya tidak mengenal Anda, tapi percayakah Anda meski begitu saya tahu apa yang Anda Pikirkan?
• Saya kini telah mendapatkan gelombang pikiran anda, dan.................

Jawaban anda: Elang Selengkapnya coy...