Program Shutdown Timer (Komputer mati sendiri)

Program Shutdown Timer (Komputer mati sendiri)
hari ini adalah hari yang cerah , ketika ku sedang mencari data-data di laptop, bos ku datang..dengan muka yang di tekuk sepertinya akan marah, dengan sangar dia berkata.
Bos : jay kenapa komputer masih ada yang nyala semalam…. harusnya komputer di matiin, bilangin user jangan lupa matiin komputer klo sudah selesai klo gak kamu kasih SP saja..
Jay : Iya pak siap (saya akan laksanakan perintah bapak)
Bos : Pokoknya saya gak mau liat ada komputer yang gak dimatiin klo sudah selesai kerja, ngerti kamu..!!!bilang bos dengan wajah membara (hi..serem)
Jay :ok pak nanti saya bilangin usernya...
Bos : Bukan apa-apa nanti klo ada petir bahaya...
yah inilah sedikit percakapan ( ini bukan percakapan tapi di omelin ) saya dengan bos..
mungkin klo dibilangin sudah, tapi alasan nya pasti lupa...yah gitu deh tabiat manusia kadang lupa kadang lupa lagi mungkin harus cari akal biar user tuh matiin komputernya
setelah menghayal sedikit dikamar menerawang ( bukan bayangin jorok loh…!! ) akhir nya buat program pake Visual Basic, mumpung bisa VB dikit ya udah tak buat program dari VB aja gimana caranya..biar tuh komputer mati terscheduled
disini saya buat program vb mudah kok cuma ada 2 tombol dan timer mundur, jadi program ini di schedulkan pada jam tertentu misalnya klo dikantor ku ada 20 komputer dan di schedulkan mati pada jam 17.30 karena biasanya user pasti dah pulang jam segitu
dan satu lagi jam 23.15 karena namanya di perkebunan kelapa sawit kadang gak ada kerjaan mereka biasanya ngantor sampai malam. untuk lebih jelasnya ini dia programnya




Jadi cara kerjanya pada jam – jam yang sudah di schedulkan program akan di execute , timer akan menghitung mundur dari hitungan 99 detik hingga 0 jadi apabila hitungan sudah 0 komputer akan shutdown.dan apabila user yang ingin melanjutkan pekerjaannya cukup tekan tombol batalkan nanti akan ada message box seperti berikut ini.




Program ini harus di buat always on top alias selalu di atas agar apabila program lain berjalan , ,_timer ini akan selalu diatas sehingga memaksa user untuk menekan tombol batal apabila ingin melanjutkan pekerjaan, gunanya always on top adalah apabila user secara tidak sengaja mengklik program lain user tersebut tidak tau kalau program shutdown_timer ini berjalan dan akan langsung menshutdown komputer sedangkan user sedang mengerjakan kerjaan kantor..
Program sederhana sih tapi yah lumayan buat ngeringanin kerjaan , klo mau download programnya download aja di “ download me “ aku tak upload program jadi dan source
Ini source programnya.

------------------------------------------------------------------------------------------------------
'ini biar program always on top (selalu di atas)
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Const HWND_TOPMOST = -1
Const SWP_SHOWWINDOW = &H40

Dim a As String

Private Sub Command1_Click()
Shell "shutdown.exe -s -f -t 00"
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
MsgBox "Jangan Lupa setelah selesai kerja, matikan komputer anda", vbInformation, "Fairco Agro Mandiri"
Unload Me
'End If
End Sub

Private Sub Form_Load()
Form1.Visible = True
Dim TempValue As Long
Dim MyWidth As Long, MyHeight As Long
Dim MyTop As Long, MyLeft As Long


MyWidth = (Screen.Width / 2.9)
MyWidth = MyWidth / Screen.TwipsPerPixelX
MyHeight = Screen.Height / 3
MyHeight = MyHeight / Screen.TwipsPerPixelY

MyLeft = Screen.Width / (2.7 * Screen.TwipsPerPixelX)
MyTop = Screen.Height / (4 * Screen.TwipsPerPixelY)
'Call SetWindowPos API function
TempValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, MyLeft, MyTop, MyWidth, MyHeight, SWP_SHOWWINDOW)
End Sub



Private Sub Timer1_Timer()
If Label2.Caption <= 0 Then
Shell "shutdown.exe -s -f -t 00"
Else
Label2.Caption = Label2.Caption - 1
End If
End Sub

Simple aja program nya gak ribet kok….
Kisah berlanjut
Akhirnya tak ada omelan lagi yang masuk kuping ini, hari ini adalah hari yang indah

An Internet Speed Test Can Tell You

Internet Speed Test provided by Speedtest.net

Speedtest.net provides a very sound and simple way to test the download speed of your Internet connection. The results of the speed test will be in Kbps (kilobits per second).

* Your browser requests the speed test page from a web server
* The web page instructs your browser to record the "start time"
* An image file is immediately downloaded from the speed test server
* As soon as the download is done the "end time" is recorded
* The transfer speed is calculated and sent to the results page

Note: Your web browser must support JavaScript 1.1 or higher to run this test.

An Internet Speed Test Can Tell You:

* How does your Internet connection stack up against others forms of access?
* Is your present high speed Internet access provider truly as fast as they say?
* How much faster will DSL or Cable be over your current dialup connection?
* Can your computer's Operating System truly be slowing down your downloads?

A simple Internet speed test can show you whether or not your Internet connection is as fast as it could be, or if it might be time to find a faster Internet service provider. For more articles, tips, and reviews on High Speed Internet, return to the home page.

kumpulan keluh-kesah yang disampaikan pelanggan

Kumpulan Keluhan Terhadap Internet Service Provider

--------------------------------------------------------------------------------

Internet Service Provider biasa disingkat ISP.
Quote:
ISP adalah perusahaan atau badan yang menyelenggarakan jasa sambungan internet dan jasa lainnya yang berhubungan. Kebanyakan perusahaan telepon merupakan penyelenggara jasa internet, contohnya Telkomsel, Indosat, fastnet, dan Excelcomindo.
sumber: wiki
Berikut ini adalah kumpulan keluh-kesah yang disampaikan pelanggan hingga sindiran masyarakat terhadap perkembangan teknologi di Indonesia. Di luar negeri, internetnya sangat cepat. Begitu mencoba koneksi internet di Indonesia, hasilnya mual-mual nggak karuan. promosinya menjebakkan.

ISP Lintasarta
saya baru pake lintasarta, dedicated 512 Kbps. dapetnya 66.71 KB/sec. menurut saya memuaskan. (Tiara)

isp fastnet
Layanan FastNet dari First Media semakin kacau.Saya berlangganan FastNet dengan nomor pelanggan 408112, mengalami masalah: ping ke server lokal seperti server biznet, cbn, dan indogamers sangat lambat, di atas 130 ms. Untuk server luar negeri seperti google ataupun yahoo lebih parah lagi, di atas 200 ms. Koneksi internet yang dijanjikan 384 kbps, ternyata hanya sampai 280kbps.
Sedangkan yang paling parah ketika modem baru dinyalakan susah sekali mendapat status *online*. Harus menunggu 10 menit sampai 3 jam. Sedangkan untuk menelepon *customer service* (CS) saya sudah lelah. (Haryadi)

ISP LC net
wah kapok dech pake warnet yang langganan di LC net. apalagi nge-net di ramanet yang jelas2 punya LC net. udah jadi rahasia umum dech, klo langganan dari provider LC net pasti sering down. Coba dech main2 ke dedengkot warnet lama yang ada di jakal. mesti pada kapok pake LC net. emang sich harganya murah bgt, tapi koneksinya gak stabil.
Sory jurangan bukannya mo jelek2 in.tapi cuma berbagi info aja. matur thank u jurangan. (engsel_pintu)

Telkom Speedy
Setelah tarif Paket Unlimited turun menjadi Rp. 750 ribu (sekitar US$ 84 dengan asumsi US$ 1 = Rp. 9000) per bulan dan adanya Paket Time Based, saya merasa koneksi Internetnya terasa semakin lambat.
Per 9 Mei 2007 9.45-10.19 PM WIB (GMT+7), saya berusaha mengetes lagi kualitas kecepatannya. Menurut rata-rata perhitungan di Sijiwae, kecepatan koneksi adalah 270. 75 Kbps (33.8 KBps). Sementara untuk koneksi di luar IIX, menggunakan Speakeasy, didapat nilai rata-rata 178.6 Kbps (22.33 KBps) untuk download speed. Hmm, cukup lambat. (Amir Karimuddin)

ISP nETZAP
gw make netzap jUga ni.. dah lmayan lama, ampir 1 taon lebih.
cm menurut gw akhir2 ini servicenya menurun... mulai dari nggak bisa download file dr rapidshare sama skali, ispny suka down, main game apa lagi, browsing kadang suka lemot. pheww.. malay bgt yah..
rencana seh mao ganti provider baru dlm dekat ini, net-zap sucks ;( (fakers)

Esia Wimode
Saya make Wimode yang diluncurkan esia sejak 4 bulan lalu, lokasi saya di padang yang GPRSnya lumayan bagus.
Setelah baca banyal iklan, saya memutuskan untuk make Wimode, yang katanya 10 x lebih cepat dibanding telkomnet
Eh Ternyata malah 10 x Lebih lambat dibanding Telkomnet.
Pulsa dipotong terus dan terus sementara KOneksinya ditahan-tahan, Call Center yang gak bersahabat, uh.... Pusing aku, Nyesal dan sangat nyesal aku beli Wimode. dasar Bakrie Telkom! entah knapa biaya koneksi indonesia sangat mahal, dan sampe kapan terus begini, Capek dech... (MAVERO)

XL CBN
kok CBN kalah sama Telkomnet Instant ya? katanya, CBN Mobile 3G merupakan hasil kerjasama antara CBN dengan XL. kecepatan maksimum 384 Kbps (dalam jaringan 3G). (klompencapir_telco)

Indosat IM2
Dulu IM2 banyak yang merekomendasikan, tp sekarang banyak yang nyuruh mikir2 dulu pake IM2, termasuk saya yang benar2 nyesel banget beli IM2 yg dibundling ama modem 3.5G. Koneksi yg kepake 3.5G (sinyal 2-3 bar) tp kecepatan telkomnet instan. Trs tiap bulan harus nyetor biaya langganan ke IM2. what the ****! (Arta)

Telkomsel Flash
Kecepatan telkomsel flash macam semut aja. 125 ribu untuk paket unlimited sudah murah, tapi koneksi nya persis kita berak putus2…
pernah 'kan berak putus?
macam itulah koneksinya Telkomsel Flash!

ada pula yang mengeluarkan cletukan:
Quote:
carilah provider dengan paket paling mahal, hasilnya besar bandwidth koneksi (ISP) tidak akan lebih besar dari 1 MB/s.

Ada yang punya pengalaman dengan ISP lainnya yang belum disebutkan di atas? Tulis saja, lengkap dengan nama perusahaannya. Bukan apa-apa, biar calon pelanggan bisa membandingkan. Atau yang ingin berbagi cerita tentang ISP, silahkan gabung di sini!

FUCK KABELVISION.....!!!!!

Yeah, I’m so pissed off at my connection right now. Well, who wouldn’t be when they’re on dial-up connection?? >>;;. I hate kabelvision, because they kept making me waiting and lied so many times to me.. Bleh! Why are there only kabelvision that providing a cable connection?? why is Indonesia still being a poor+stupid country? yes, I said it by the truth..
Nothing much happened today..But I’m trying to complete the Perfume PVs.. I almost finished my h!p collection.. The rests are only nakazawa yuko’s and melon kinenbi’s (but I don’t really like Melon Kinenbi that much, so maybe I’d skip it?). People are saying that Perfume’s PVs are great, specially the latest 3 ones.. Yep, I think I’d agree, because their latest 3 singles are great, and I don’t really like their indies ones =P. Dunno, maybe they’re too underrated or maybe too -usual-, like the other girlbands (except h!p, of course.. hah).
What else? well, I heard that Ai Otsuka’s new single is already out =O. Wow.. Need to download it once I finish downloading all of the Perfume’s PVs.. why? because it’s 40mb or so, so I can’t do it now -_-;;. Damn, I want a faster connection!!