Internet Gratis telkomsel Desember 2011

Setelah beberapa hari dalam masa kesibukan yang luar biasa, akhirnya pada hari ini ada juga waktu luang untuk sekedar share Trik Internet Gratis.

Jadwal kegiatan kuliah yang padat merayap menjelang ujian semester, ditambah dengan deadline kontes SEO "Disabilitas dan Pandangan Masyarakat" yang jatuh pada hari sabtu kemarin,, membuat saya kocar-kacir membagi waktu..

Masalah bukan hanya itu,, tiba2 HP saya rusak dan Modem Noebook pun ikut2an rusak,, itu membuat saya begitu Frustasi,,

dengan kondisi tersebut membuat saya 3 hari sangat2 kekurangan pasokan Internet. apalagi melihat kontes SEO tinggal 2 hari lagi, sementara artikel saya kena goyangan google panda, yang membuat artikle jadi gak terindex oleh google.

Akhirnya saya memutuskan untuk membuat artikel baru lagi, dan mengawali dari awal,,

sempat menyerah juga c.. tapi karena saya sungguh-sungguh membuat tuh artikel dan membuatnya dengan kualitas terbaik,, akhirnya pas di posting, baru 10 Menit ajah langsung posisi 3 SERP Google,,

Itu seperti mukjizat bagi saya,, akhirnya dengan sisa bilink warnet yang menunjukkan 1 jam terakhir,, satu jam itu saya manfaatkan untuk cari backlink yang berkualitas sajah,, dan akhirnya artikel saya langsung naik posisi satu SERP search engine google,, dan Bertahan hingga kontes SEO tersebut berakhir.. itu smua saya kerjakan dari warnet dan dalam waktu yang sangat terbatas,,. sebuah pengalaman yang menarik menurut saya mengikuti SEO yang diikuti ratusan blogger terkenal indonesia..

Lhoo,.. koq jadi curhat yah,.. :D

okedeh kembali ke topik......!

jika pada posting internet gratis xl & Internet Gratis 3 saya udah menjajikan akan share trik buat operator yang lain,,

maka dari itu saya postingkan disini,, Internet Gratis Telkomsel Update Desember 2011

Trik ini terupdate dan pas kebetulan hp saya udah di servis,, jadi saya coba modif2 dikit, eh berhasil dengan lancar deh triknya,, Lancar plus ngebutt gan,...

Pada moment kali ini saya akan berikan 3 trik sekaligus,, yakni Internet Gratis Opmin, Internet Gratis UCweb dan Internet Gratis Bolt..

okeh gan daripada basa basi lagi,, yuk kita intip ajah triknya di TKP!

Trik Internet Gratis telkomsel via Opmin Desember 2011

Download Triknya Disini

Trik Internet Gratis telkomsel via UCweb Desember 2011

Download Triknya Disini

Trik Internet Gratis telkomsel via Bolt Desember 2011

Download Triknya Disini

Catatan:

Usahakan pake pulsa minim yah sob,, soalnya trik internet gratis lebih suka jalan bila kondisinya kering pulsa,...

Mungkin segitu ajah Internet Gratis Telkomsel yang bisa saya berikan pada kesempatan kali ini,,

Untuk Internet Gratis Indosat dan Internet Gratis Axis, triknya nyusul yah sob,... :)

hmmm,, daripada bingung, nglamunin yang gak jelaz,, mending coba aja sob!

akhir kata,..

Salam sukses selalu,..!!

Hal-hal yang Dilarang Ketika Tidur

Hal-hal yang Dilarang Ketika Tidur

1. jangan tidur memakai jam tangan: jam tangan menimbulkan radioaktif, walau sedikit, kalo lama memakainya bisa bahaya


2. jangan tidur memakai bra: pemakaian BH diatas 12 jam dapat menyebabkan kanker payudara


3. jangan tidur membawa hape ke ranjang: gelombang magnet yg ditimbulkan hape dapat merusak sistem syaraf


4. jangan tidur memakai make up: hal ini menyebabkan kulit kita sulit bernafas



5. tidur dengan selingkuhan: hal ini menyebabkan anda bisa terkena berbagai penyakit(aids, sipilis, dsb) dan parahnya, kalau yang anda selingkuhi sudah unya pasangan dan ketahuan oleh pasangan itu, bisa2 anda tidak akan bangun2 lagi karena dibunuh.. hehehehe


6. jgan coba jadi polisi tidur: tau sendiri kan akibatnya?

XL GOYANG GAYUNG Video Contest

XL GOYANG GAYUNG Video Contest

Kali ini XL membuat kompetisi atau kontes yang berhadiah iPad2 dan 10 buah handphone.
Caranya sangat mudah, cukup like fanpage XL Rame (http://www.facebook.com/xlrame?sk=app_95936962634)
Buat video “GoyangGayung”versimu yg menarik/lucu/heboh (bisa dgn hape / kamera video). Durasi video maksimal 60 detik. Video akan melewati proses moderasi. Kontes akan berakhir tanggal 16 Desember 2011, ayo cepetan bikin video kreasimu!

Syaratdanketentuan :

1. Aplikasi dan semua informasi yang terdapat di dalamnya (termasuk partisipasi dalam kontes) hanya berlaku untuk fans Facebook XL Rame.
2. Semua materi yang diberikan oleh peserta akan dimoderasi terlebih dahulu.
3. Materi peserta tidak diperkenankan mengandung unsur SARA, pornografi dan melanggar norma kesusilaan, menjatuhkan, merusak nama baik, mengancam, melecehkan atau menghina orang lain, menyarankan tindakan melanggar hukum atau berdiskusi yang mengarah pada tindakan melanggar hukum. Bahwa pelanggaran yang dilakukan atas ketentuan ini menjadi tanggung jawab hukum dari masing-masing pihak yang mengirimkan materi.
4. Semua materi yang masukakan menjadi milik XL dan XL berhak mempergunakannya untuk keperluan promosi.
5. Panitia berhak menghapus keikutsertaan atau komentar atau input dari salah peserta, jika terdapat indikasi kecurangan di dalamnya atau pun melanggar hal yang disebutkan pada point 2 di atas, tanpa ada pemberitahuan kepada peserta.
6. Kontes ini tertutup bagi semua karyawan XL & agensi yang terlibat di dalam pembuatan kontes ini.
7. Keputusan juri adalah mutlak dan tidak bisa diganggu gugat.
8. Kontes ini tidak dipungut biaya apa pun.

Video yang masuk akan diseleksi dulu oleh pihak XL untuk memastikan tidak ada unsur SARA, pornografi dan lainnya yang tidak sesuai.

Cara Membuat Text Berjalan

Cara Membuat Text Berjalan | Text Berjalan VB – Buddies idesegar Fokus all this time we will learn to enhance the appearance of the Visual Basic programming. Without at length we will try to make text berjalan dengan aplikasi Visual Basic.
The trick is as follows.
1. In making this program, we only need a Label and Timer. label for
textnya itself and the timer to run the text. So it looks like the picture beside.

2. Type the following program listing on the code editor.
Private Sub Form_Load()
Label1.Caption = “Text Berjalan”
Timer1.Interval = “80”
End Sub
Private Sub Timer1_Timer()
Label1.Left = Label1.Left – 50
If Label1.Left<-5000 Then
Label1.Left = 8000
End If
End Sub
3.Save the Form and the Project.
4. Run the program by way of kQ Run menu in the menubar select Start or press F5 on the keyboard.
This simple program can menjawabpertanyaan earlier. If you do not like the look of the above programs, you can add or change yourself to your liking.
Note:
a). Text or numbers above the blue can be changed to your liking.
b). The greater the interval timer, it will be the slower running text. And vice versa.
c). The greater reduction (Label1.Left = Label1.Left -50), the faster the running text and vice versa.
Well how …. Hopefully there mamfaat for his buddies idesegar Focus all, and specifically on VB Depelover surely? Good Luck …!

Menggunakan X SMS Engine v4.1 Pada Visual Basic .NET

Menggunakan X SMS Engine v4.1 Pada Visual Basic .NET

X SMS Engine adalah komponen yang berfungsi untuk membantu dalam pembuatan program aplikasi berbasis SMS. Salah satu bahasa pemrograman yang dapat menggunakan komponen ini adalah Visual Basic.NET.
Untuk pemakaian di Visual Basic.NET, yang harus dilakukan terlebih dahulu adalah :
Menambahkan XSMSEngine4.OCX Pada Toolbox Visual Basic.NET, yaitu dengan cara menambahkan secara manual Active X Component tersebut pada Toolbox IDE Visual Basic.NET :
1. Click Kanan Pada Form ToolBox
2. Pilih Choose Items
3. Pilih Tab COM Components
4. Centang XSMSEngine4.SMSEngine
5. Click OK
XSMSEngine telah siap untuk anda gunakan di VB.NET anda.
Jangan lupa, XSMSEngine4.OCX sebelumnya harus sudah diregister ke sistem Windows
Contoh Program Pemanfaatan XSMSEngine Pada VB.NET
Tambahkan komponen X SMS Engine dari toolbox ke form, ganti namanya menjadi SMSEngine.

Setting Modem :

1	Public Sub SettingModem()

2	SMSEngine.Setting()

3

End Sub

Membaca SMS :

01	Public Sub BacaSMS()

02

03	Dim oReader As New XSMSEngine4.SMSDeliver

04	Dim oSMS As Object

05	Dim nIndex As Long

06

07	'Buka Komunikasi

08	'Dengan Device(Modem/Ponsel GSM)

09	If SMSEngine.DeviceOpen(1) Then

10	'Baca SMS Lama Dari Modem 1

11	oSMS = SMSEngine.ReadMessage(1, 1)

12

13	'Tampilkan SMS di listbox

14	For nIndex = 1 To oSMS.count

15	oReader.Decode(oSMS(nIndex).ToString)

16	ListBox1.Items.Add(oReader.PhoneNumber & " -> " & oReader.MessageText)

17

Next

18

19	'Tutup Koneksi Dengan Device

20	SMSEngine.DeviceClose(1)

21

Else

22	'Koneksi Dengan Device Gagal

23	MessageBox.Show("Koneksi Gagal")

24

End If

25

26

End Sub

Mengirim SMS :

01	Public Sub KirimSMS()

02

03	'Buka Komunikasi

04	'Dengan Device(Modem/Ponsel GSM)

05	If SMSEngine.DeviceOpen(1) Then

06	'Kirim SMS

07	If SMSEngine.SendMessage(1, "+62812150xxxxx", "Hallo SMS Ini dikirim menggunakan VB.NET") = "OK" Then

08	MessageBox.Show("Kirim SMS Berhasil")

09

Else

10	MessageBox.Show("Kirim SMS Gagal")

11

End If

12

13	'Tutup Koneksi Dengan Device

14	SMSEngine.DeviceClose(1)

15

Else

16	'Koneksi Dengan Device Gagal

17	MessageBox.Show("Koneksi Gagal")

18

End If

19

20

End Sub

Contoh Pemograman VB.NET

Contoh Pemrograman

Contoh program sederhana dalam bahasa Visual Basic .NET yang dipakai untuk menghitung jumlah pembayaran dari m_item buah barang dengan harga m_price per item ditambah 5% pajak penjualan: ^[2].

Dim m_item, m_price, tax, total As double
  m_item = double.Parse(textBox1.Text)
  m_price = double.Parse(textBox2.Text)
  tax = 0.05
  total = m_item * m_price * (1 + tax)
  label5.Text = total.ToString()
  MessageBox.Show("Well Done.")

Berikut ini adalah contoh lain dari program Visual Basic yang menggunakan objek CheckBox dan ComboBox untuk menghitung jumlah kredit mata kuliah yang diambil oleh seorang mahasiswa (masing-masing mata kuliah = 3 kredit):

Dim total As Integer
total = 0 ' awal dari jumlah kredit total
If (CheckBox1.Checked = True) Then 'boleh memilih semua checkbox
            total += 3
        End If
        If (CheckBox2.Checked = True) Then
            total = total + 3
        End If
        If (CheckBox3.Checked = True) Then
            total = total + 3
        End If
If (ComboBox1.SelectedIndex = 0) Then 'hanya bisa memilih satu
            total = total + 3
        ElseIf (ComboBox1.SelectedIndex = 1) Then
            total = total + 3
        ElseIf (ComboBox1.SelectedIndex = 2) Then
            total = total + 3 
        End If
Label3.Text = CStr(total) ' hasil kredit total yang diambil

Sejarah Visual Basic

Bill Gates, pendiri Microsoft, memulai bisnis perangkat lunak dengan mengembangkan interpreter bahasa Basic untuk Altair 8800, untuk kemudian ia ubah agar dapat berjalan di atas IBM PC dengan sistem operasi DOS. Perkembangan berikutnya ialah diluncurkannya BASICA (basic-advanced) untuk DOS. Setelah BASICA, Microsoft meluncurkan Microsoft QuickBasic dan Microsoft Basic (dikenal juga sebagai Basic Compiler).
Visual Basic adalah pengembangan dari bahasa komputer BASIC (Beginner’s All-purpose Symbolic Instruction Code). Bahasa BASIC diciptakan oleh Professor John Kemeny dan Thomas Eugene Kurtz dari Perguruan Tinggi Dartmouth pada pertengahan tahun 1960-an. Bahasa program tersebut tersusun mirip dengan bahasa Inggris yang biasa digunakan oleh para programer untuk menulis program-program komputer sederhana yang berfungsi sebagai pembelajaran bagi konsep dasar pemrograman komputer.
Sejak saat itu, banyak versi BASIC yang dikembangkan untuk digunakan pada berbagai platform komputer, seperti Microsoft QBASIC, QUICKBASIC, GWBASIC, IBM BASICA, Apple BASIC dan lain-lain.
Apple BASIC dikembangkan oleh Steve Wozniak, mantan karyawan Hewlett Packard dan teman dekat Steve Jobs (pendiri Apple Inc.).^[2] Steve Jobs pernah bekerja dengan Wozniak sebelumnya (mereka membuat game arcade “Breakout” untuk Atari). Mereka mengumpulkan uang dan bersama-sama merakit PC, dan pada tanggal 1 April 1976 mereka secara resmi mendirikan perusahaan komputer Apple. Popularitas dan pemakaian BASIC yang luas dengan berbagai jenis komputer turut berperan dalam mengembangkan dan memperbaiki bahasa itu sendiri, dan akhirnya berujung pada lahirnya Visual Basic yang berbasis GUI (Graphic User Interface) bersamaan dengan Microsoft Windows. Pemrograman Visual Basic begitu mudah bagi pemula dan programer musiman karena ia menghemat waktu pemrograman dengan tersedianya komponen-komponen siap pakai.
Hingga akhirnya Visual Basic juga telah berkembang menjadi beberapa versi, sampai yang terbaru, yaitu Visual Basic 2010. Bagaimanapun juga Visual Basic 6.0 tetap menjadi versi yang paling populer karena mudah dalam membuat programnya dan ia tidak menghabiskan banyak memori.
Sejarah BASIC di tangan Microsoft sebagai bahasa yang diinterpretasi (BASICA) dan juga bahasa yang dikompilasi (BASCOM) membuat Visual Basic diimplementasikan sebagai gabungan keduanya. Programmer yang menggunakan Visual Basic bisa memilih kode bahasa pemrograman yang dikompilasi atau kode yang harus bahasa pemrograman yang diinterpretasikan sebagai hasil porting dari kode VB. Sayangnya, meskipun sudah terkompilasi jadi bahasa mesin, DLL bernama MSVBVMxx.DLL tetap dibutuhkan. Namun karakteristik bahasa terkompilasi tetap muncul (ia lebih cepat dari kalau kita pakai mode terinterpretasi).