Pariwisata Kabupaten Pringsewu { LAMPUNG }

MAKAM KYAI GHOLIB

Kyai Gholib merupakan seorang ulama dan pejuang pada masa perjuangan melawan penjajahan Belanda. Beliau mendirikan pesantren yang berjarak sekitar 15 menit dari kota Pringsewu ke arah Kecamatan Pulau Panggung. Beliau dimakamkan tidak jauh dari pesantren yang berliau dirikan. Selain sebagai tempat pendidikan keagamaan, tempat ini juga biasa dikunjungi oleh para peziarah.

GOA BUNDA MARIA

Tempat ini terletak di Padang Bulan Pringsewu, dari arah barat kota Bandar Lampung sekitar 3 km dari Pringsewu arah Kabupaten Tanggamus. Berada disebelah kanan jalan lokasi tersebut, terdapat Rumah retret La Verna yang juga merupakan penginapan bagi para peziarah. Obyek wisata ziarah ini biasa dikunjungi oleh umat Nasrani dari dalam maupun dari luar Lampung.

Daftar Harga HP Nokia Terbaru 2014

	Nokia Lumia 520
	Harga Baru	Rp 1.605.000
	Harga Bekas	–
	Spesifikasi : Layar 4″ IPS Touchscreen, Windows Phone 8, Kamera 5MP, Dual Core  Qualcomm MSM8227, RAM 512MB, Baterei 1430 mAh

	Nokia Lumia 620
	Harga Baru	Rp 2.429.000
	Harga Bekas	–
	Spesifikasi : Layar 3,8″ IPS Touchscreen, Windows Phone 8, Kamera 5MP, Dual Core  1Ghz Snapdragon S4, RAM 512MB, Baterei 1300 mAh

	Nokia Lumia 710
	Harga Baru	Rp 1.660.000
	Harga Bekas	–
	Spesifikasi : Layar 3,7″ TFT Touchscreen, Windows Phone 7.5 Mango, Kamera 5MP, Prosesor 1,4GHz Scorpion, RAM 512MB, Baterei 1300 mAh

	Nokia Lumia 720
	Harga Baru	Rp 3.395.000
	Harga Bekas	–
	Spesifikasi : Layar 4.3″ Gorilla Glass, Windows Phone 8, Kamera 6.1MP, Dual Core  Qualcomm Snapdragon S4, RAM 512MB, Baterei 2000 mAh

	Nokia Lumia 820
	Harga Baru	Rp 4.789.000
	Harga Bekas	–
	Spesifikasi : Layar 4.3″ AMOLED Touchscreen, Windows Phone 8, Kamera 8MP, Dual Core Qualcomm MSM8960, RAM 1GB, Baterei 1650 mAh

	Nokia Lumia 900
	Harga Baru	Rp 3.999.000
	Harga Bekas	–
	Spesifikasi : Layar 4.3″ AMOLED Touchscreen, Windows Phone 7.5, Kamera 8MP, Prosesor Scorpion 1,4 GHz, RAM 512MB, Baterei 1830 mAh

	Nokia Lumia 925
	Harga Baru	Rp 5.700.000
	Harga Bekas	–
	Spesifikasi : Layar 4.5″ IPS LCD, Windows Phone 8, Kamera 8.7 MP, Dual Core Qualcomm MSM8960, RAM 1GB, Baterei 2000 mAh

	Nokia 206 Dual GSM
	Harga Baru	Rp 710.000
	Harga Bekas	–
	Spesifikasi : Layar 2,4″ TFT, OS Nokia Symbian, Kamera 1,3MP, Dual GSM, Baterei 1100 mAh

	Nokia Asha 210
	Harga Baru	Rp 745.000
	Harga Bekas	–
	Spesifikasi : Layar 2,4″, OS Nokia, Kamera 2MP, Dual GSM, RAM 32MB, Baterei 1200 mAh

	Nokia Asha 305
	Harga Baru	Rp 730.000
	Harga Bekas	–
	Spesifikasi : Layar 3″, Symbian S40, Kamera 2MP, Dual GSM, Baterei 1110 mAh

	Nokia Asha 311
	Harga Baru	Rp 1.135.000
	Harga Bekas	–
	Spesifikasi : Layar 3″ Gorilla Glass, OS Nokia, Kamera 3,2MP, Single SIM, Baterei 1100 mAh

	Nokia Asha 501
	Harga Baru	Rp 878.000
	Harga Bekas	–
	Spesifikasi : Layar 3″, OS Nokia, Kamera 3,15MP, Dual GSM, Baterei 1200 mAh

Cara Mendapatkan Chip Texas Holdem Poker dengan Gratis

Sudah lama sekali saya tidak posting di blog ini. Mohon maaf atas sobat-sobat blogger yang blogwalking dan singgah meninggalkan jejak dibuku tamu sebelah kanan postingan ini yang telah menyapa dan berkunjung karena saya lama tidak membuka blog ini jadi saya tidak bisa membalas kunjungannya. Tetapi mulai sekarang saya akan berusaha semaksimal mungkin membalas kunjungan sobat-sobat sekalian.

Kali ini saya akan share cara mendapatkan chip poker texas holdem poker, game yang sangat populer di dunia maya saat ini.

Jika anda dan sobat blogger semua menggunakan search angine di mbah google dengan key word “cara mendapatkan chip texas holdem poker dengan gratis”  maka banyak sekali web dan blog yang membahas masalah ini (dan sayapun merasa sudah jauh ketinggalan karena barus saat ini memposting tips ini). Tetapi rata-rata cara mendapatkan chip poker tersebut disuguhkan dengan memberikan sebuah program yang harus pengunjung download dan instal dulu di komputer anda. BOHONG besar jika anda dan sobat blog semua mendownload program tersebut yang ada hanyalah ulah para hacker yang ingin mengambil chip anda karena biasa ketentuannya chip anda harus ada minimal 1 s/d 5 M pada acount poker anda. Maka berhati-hatilah!

Baiklah sekrang kita mulai cara mendapatkan chip poker dengan gratis tersebut.

Intinya seperti ini, Texas Holdem Poker merupakan usaha/bisnis dari perusahaan Zynga yang pastinya sebuah perusahaan mencari keuntungan atau pundi-pundi dolar. Oleh karena itulah, chip tersebut dijual kepada para penggemarnya. Transaksi chip baik menjual atau membeli chip dari pihak ketiga (selain dari pihak Zynga) akan dianggap melanggar aturan zynga yang sudah otomatis disetujui oleh pemain poker saat pertama kali bermain poker di Zynga maka akan di banned.

Atas dasar transaksi pembelian chip pada zynga inilah maka kita harus mempunyai pundi-pundi dolar untuk untuk membelinya. Dengan kita membeli chip pada zynga dengan cara yang sah maka kita akan aman bermain poker tanpa adanya banned atau DOH oleh pihak Zynga.

Pertanyaannya dimanakah kita mendapatkan pundi-pundi dolar tersebut?

caranya mudah tapi butuh perjuangan (hehehe…)

Langkah pertama anda dan sobat blogger semua harus daftar dulu Paypal untuk mendapatkan acount paypal yang selanjutnya digunakan untuk berbelanja online dalam hal ini membeli chip poker pada pihak Zynga. Cara mendaftar Paypal silahkan anda search di mbah google, banyak banget artikel mengenai cara mendaftar paypal bahkan disertai dengan gambar visualisasinya.

Langkah selanjutnya adalah anda hanya tinggal mengisi rekening paypal tersebut dengan dollar! (kalau punya dollar silahkan masukkan saja langsung kerekening paypalnya menggunakan credit card trus beli langsung chip pada Zynga…hehehe…tuh namanya sama aja tidak gratis :D). Nah bagaimana agar rekening paypal kita tersebut terisi dolar secara gratis?

Silahkan anda dan sobat blogger mencoba trik dibawah ini:

1. Untuk review website menuju LINK INI
2. Link tersebut adalah sebuah website yang menyediakan dollar secara gratis tetapi untuk mendapatkan lebih banyak lagi anda juga harus berusaha juga. Web tersebut cara kerjanya adalah dengan meREVIEW website yang web tersebut sediakan. Mereview disini adalah memberikan komentar (tapi komentarnya harus dalam bahasa inggris ya! klw gak bisa bahasa inggris gunakan google translate..heheh), setiap kita mereview sebuah web makan akan mendapatkan pundi-pundi dolar yang dicantumkannya pada web tersebut. Hanya itu saja ko’ tapi jika anda dan sobat ingin lebih banyak mendapatkan dolarnya anda dan sobat harus menshare dan mempromosikan link web tersebut di blog, forum, atau dimanapun dan tambahan dolar lagi jika ada yang mendaftar melalui link web milik anda itu.
3. Sudah jelas penjelasan websitenya pada point kedua, selanjutnya anda dan sobat dipersilahkan mendaftar dan cara mendaftarnya sangat mudah cukup hanya modal e-mail.
4. Jika acount anda pada web tersebut sudah mencapai $75 nah barulah anda bisa mentransfernya ke rekening paypal yang anda daftar sebelumnya tersebut.
5. Jika sudah berhasil (biasanya butuh waktu hingga 5 hari) dan rekening anda sudah berisi pundi-pundi dolar, maka dengan mudah anda berbelanja secara online.

PT.Pulang Petang Setiap Hari

Private Sub Command1_Click()
Dim S As String
S = Mid(Text11.Text, 1, 4)
v4.Text = S

S = Mid(Text11.Text, 5, 1)
If S = “A” Then
Text1.Text = “A”
Text5.Text = “Manajer”
Text7.Text = “4000000″
Text8.Text = “1025000″
Text9.Text = (Val(Text7.Text) + Val(Text8.Text))
ElseIf S = “B” Then
Text1.Text = “B”
Text5.Text = “Ka. Seksi”
Text7.Text = “3500000″
Text8.Text = “975000″
Text9.Text = (Val(Text7.Text) + Val(Text8.Text))
ElseIf S = “C” Then
Text1.Text = “C”
Text5.Text = “Staff”
Text7.Text = “3000000″
Text8.Text = “925000″
Text9.Text = (Val(Text7.Text) + Val(Text8.Text))
End If

S = Mid(Text11.Text, 7, 1)
If S = “S” Then
Text2.Text = “S”
Text3.Text = “Single”
ElseIf S = “M” Then
Text2.Text = “M”
Text3.Text = “Menikah”
ElseIf S = “J” Then
Text2.Text = “J”
Text3.Text = “Janda”
ElseIf S = “D” Then
txtAdi2.Text = “D”
Text3.Text = “Duda”
End If
S = Right(txtAdi11.Text, 3)
If S = “KEU” Then
Text6.Text = “Accounting”
ElseIf S = “ADM” Then
Text6.Text = “Administrasi”
ElseIf S = “SDM” Then
Text6.Text = “General Affair”
ElseIf S = “EDP” Then
Text6.Text = “IT Unit”
ElseIf S = “SPM” Then
Text6.Text = “Security”
End If
End Sub

Private Sub Command2_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
Text9.Text = “”
Text10.Text = “”
Text11.Text = “”
Text10.SetFocus
End Sub

Private Sub Command3_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
Text9.Text = “”
Text10.Text = “”
Text11.Text = “”
Text10.SetFocus
End Sub

Private Sub Command4_Click()
End
End Sub

Data Buku STMIK PRINGSEWU

Private Sub Command1_Click()
Dim S As String
S = Mid(Combo1.Text, 3, 3)
If S = “SIM” Then
Text1.Text = “Sistem Informasi Manajemen”
Text2.Text = “Yati Nur Oktavia”
Text5.Text = 75900
ElseIf S = “EDP” Then
Text1.Text = “Elektronik Data Processing”
Text2.Text = “Imam Tarmizi”
Text5.Text = 62000
ElseIf S = “MNJ” Then
Text1.Text = “Manajemen”
Text2.Text = “Valentina Mariana Adiwiyanti”
Text5.Text = 42000
ElseIf S = “CDR” Then
Text1.Text = “Corel Draw”
Text2.Text = “Riyan Suhandi”
Text5.Text = 53000
ElseIf S = “RLP” Then
Text1.Text = “Rekayasa Perangkat Lunak”
Text2.Text = “Sinta Umpu Singa”
Text5.Text = 83000
End If
S = Left(Combo1.Text, 1)
If S = “A” Then
Text4.Text = “Andi Offset Yogyakarta”
ElseIf S = “I” Then
Text4.Text = “Indah Surabaya”
ElseIf S = “S” Then
Text4.Text = “Salemba Empat”
ElseIf S = “E” Then
Text4.Text = “Elek Media Komputindo”
ElseIf S = “M” Then
Text4.Text = “Maxicom”

End If
S = Right(Combo1.Text, 2)
If S = “01″ Then
Text3.Text = “2001″
ElseIf S = “02″ Then
Text3.Text = “2002″
ElseIf S = “03″ Then
Text3.Text = “2003″
ElseIf S = “04″ Then
Text3.Text = “2004″
ElseIf S = “05″ Then
Text3.Text = “2005″
End If
End Sub

Private Sub Command2_Click()
Combo1.Text = “”
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text1.SetFocus
End Sub

Private Sub Command3_Click()
Combo1.Text = “”
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text1.SetFocus
End Sub

Private Sub Command4_Click()
End
End Sub

Private Sub Form_Load()
Combo1.AddItem “A-SIM-01″
Combo1.AddItem “I-EDP-02″
Combo1.AddItem “S-MNJ-03″
Combo1.AddItem “E-CDR-04″
Combo1.AddItem “M-RLP-05″
End Sub

Data Mahasiswa

Private Sub Command1_Click()
Dim S As String
Text5.Text = "20" & Left(Text2.Text, 2)
S = Mid(Text2.Text, 3, 1)
If S = "1" Then
Text3.Text = "Sistem Informasi"
ElseIf S = "2" Then
Text3.Text = "Manajemen Informatika"
ElseIf S = "3" Then
Text3.Text = "Tehnik Informatika"
ElseIf S = "4" Then
Text3.Text = "Manajemen & Komp. Akuntansi"
End If
S = Mid(Text2.Text, 4, 2)
If S = "01" Then
Text4.Text = "Strata Satu"
ElseIf S = "02" Then
Text4.Text = "Diploma Tiga"
ElseIf S = "03" Then
Text4.Text = "Diploma Empat"
ElseIf S = "04" Then
Text4.Text = "Diploma Dua"
End If
Text6.Text = Right(Text2.Text, 3)
End Sub

Private Sub Text1_KEYPRESS(KEYASCII As Integer)
If KEYASCII = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub

Private Sub Command3_Click()
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub

Private Sub Command4_Click()
End
End Sub

Properti Tes

Source Kode :

Private Sub Command1_Click()
Label2.Caption = Text1.Text
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Option1_Click()
Label2.ForeColor = vbBlue
End Sub

Private Sub Option2_Click()
Label2.ForeColor = vbRed
End Sub

Private Sub Check1_Click()
Label2.FontBold = Check1.Value
End Sub

Private Sub Check2_Click()
Label2.FontItalic = Check2.Value
End Sub

Data Mahasiswa

Source Kode :

Private Sub Command1_Click()
Dim S As String
Text5.Text = “20″ & Left(Text2.Text, 2)
S = Mid(Text2.Text, 3, 1)
If S = “1″ Then
Text3.Text = “Sistem Informasi”
ElseIf S = “2″ Then
Text3.Text = “Manajemen Informatika”
ElseIf S = “3″ Then
Text3.Text = “Tehnik Informatika”
ElseIf S = “4″ Then
Text3.Text = “Manajemen & Komp. Akuntansi”
End If
S = Mid(Text2.Text, 4, 2)
If S = “01″ Then
Text4.Text = “Strata Satu”
ElseIf S = “02″ Then
Text4.Text = “Diploma Tiga”
ElseIf S = “03″ Then
Text4.Text = “Diploma Empat”
ElseIf S = “04″ Then
Text4.Text = “Diploma Dua”
End If
Text6.Text = Right(Text2.Text, 3)
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
End Sub

Private Sub Command3_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
End Sub

Private Sub Command4_Click()
End
End Sub

Private Sub Text1_KEYPRESS(KEYASCII As Integer)
If KEYASCII = 13 Then
Text2.SetFocus
End If
End Sub

Perhitungan Diskon

Source Kode :

Private Sub Combo1_Click()
Combo1.AddItem “ABA”
Combo1.AddItem “AMIK”
Combo1.AddItem “AKA”
End Sub

Private Sub Combo2_Click()
If Combo2 = “MI-0101-KTI” Then
Text4.Text = “Konsep Teknologi Informasi”
Text5.Text = “4″
Text6.Text = “20000″
Text6.SetFocus
Else
End If

If Combo2 = “MI-0102-PA” Then
Text4.Text = “Penghantar Akutansi”
Text5.Text = “4″
Text6.Text = “25000″
Text6.SetFocus
Else
End If

If Combo2 = “MI-0103-LA” Then
Text4.Text = “Logika ALgoritma”
Text5.Text = “3″
Text6.Text = “30000″
Text6.SetFocus
Else
End If

If Combo2 = “MI-0104-MD” Then
Text4.Text = “Matematika Dasar”
Text5.Text = “2″
Text6.Text = “15000″
Text6.SetFocus
Else
End If

If Combo2 = “BA-0101-LS” Then
Text4.Text = “Listening”
Text5.Text = “4″
Text6.Text = “25000″
Text6.SetFocus
Else
End If

If Combo2 = “BA-0101-SP” Then
Text4.Text = “speaking”
Text5.Text = “3″
Text6.Text = “40000″
Text6.SetFocus
Else
End If

If Combo2 = “BA-0101-CV” Then
Text4.Text = “Conversation”
Text5.Text = “2″
Text6.Text = “35000″
Text6.SetFocus
Else
End If
End Sub

Private Sub Command1_Click()
Text9.Text = Val(Text7.Text) – Val(Text8.Text)
End Sub

Private Sub Form_Load()
Combo1.AddItem “ABA”
Combo1.AddItem “AMIK”
Combo1.AddItem “AKA”
Combo2.AddItem “MI-0101-KTI”
Combo2.AddItem “MI-0102-PA”
Combo2.AddItem “MI-0103-LA”
Combo2.AddItem “MI-0104-MD”
Combo2.AddItem “BA-0101-LS”
Combo2.AddItem “BA-0101-SP”
Combo2.AddItem “BA-0101-CV”
End Sub

Private Sub Option1_Click()
Text8.Text = Val(Text7.Text) * 0.5
End Sub

Private Sub Option2_Click()
Text8.Text = Val(Text7.Text) * 0.1
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Font & Warna

Private Sub optRed_Click()
'membuat teks berwarna merah
lblTeks.ForeColor = vbRed
End Sub

Private Sub optGreen_Click()
'membuat teks berwarna Hijau
lblTeks.ForeColor = vbGreen
End Sub

Private Sub optBlue_Click()
'membuat teks berwarna biru
lblTeks.ForeColor = vbBlue
End Sub

Private Sub optYellow_Click()
'membuat teks berwarna Kuning
lblTeks.ForeColor = vbYellow
End Sub

Private Sub chkBold_Click()
'membuat teks tebal
If chkBold.Value = 1 Then
    lblTeks.FontBold = True
Else
    lblTeks.FontBold = False
End If
End Sub

Private Sub chkItalic_Click()
'membuat teks miring
If chkItalic.Value = 1 Then
    lblTeks.FontItalic = True
Else
    lblTeks.FontItalic = False
End If
End Sub

Private Sub chkUnder_Click()
'membuat teks bergaris bawah
If chkUnder.Value = 1 Then
    lblTeks.FontUnderline = True
Else
    lblTeks.FontUnderline = False
End If
End Sub

Private Sub chkStrike_Click()
'membuat teks bergaris tengah
If chkStrike.Value = 1 Then
    lblTeks.FontStrikethru = True
Else
    lblTeks.FontStrikethru = False
End If
End Sub

Private Sub cmdExit_Click()
End
End Sub