wwhu

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. Read the rest of this entry »

Daftar Harga HP Nokia Terbaru 2014

Posted: February 24, 2014 in Uncategorized
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
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

Posted: March 14, 2013 in Uncategorized

RRR

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

Posted: March 14, 2013 in Uncategorized

GGGG

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

Posted: March 14, 2013 in Uncategorized
Capture
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

Posted: February 28, 2013 in Uncategorized

Properti test

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