MEMBUAT KARAKTER PASSWORD

============================================================
Contoh From Karakter Password
============================================================


============================================================
Coding di From Password
============================================================
Dim rspwd As ADODB.Recordset

Function CariData()
    Dim SQLCari As String
    If rspwd.State = adStateOpen Then rspwd.Close
    rspwd.CursorLocation = adUseClient
    rspwd.Open " Select * From tbpwd Where password = '" & TxtPwdLama.Text & "' ", Conn, adOpenKeyset, adLockOptimistic
End Function


Private Sub Form_Activate()
    TxtPwdLama.SetFocus
End Sub

Private Sub Form_Load()
    Skn.LoadSkin App.Path + "\skin\new.skn"
    Skn.ApplySkin Me.hwnd
    Set rspwd = New ADODB.Recordset
    rspwd.CursorLocation = adUseClient
End Sub



Private Sub Frame1_Click()
    Unload Me
End Sub


Private Sub TxtPwdBaru_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        TxtPwdUlang.SetFocus
    End If
End Sub

Private Sub TxtPwdLama_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        CariData
        If rspwd.EOF Then
            MsgBox "Password Tidak Cocok....", vbCritical, "Error...."
            rspwd.Close
            TxtPwdLama.Text = ""
            TxtPwdLama.SetFocus
        Else
            TxtPwdBaru.SetFocus
        End If
    End If
End Sub



Private Sub TxtPwdUlang_KeyPress(KeyAscii As Integer)
Dim jawaban As Integer
    If KeyAscii = 13 Then
        If TxtPwdBaru.Text = TxtPwdUlang.Text Then
            MsgBox "Password Berhasil Diganti"
            Conn.Execute "update tbpwd set Password='" & TxtPwdBaru & "' where " _
            & "'" & TxtPwdBaru.Text & "' = '" & TxtPwdUlang.Text & "'"
           
            Unload Me
        Else
            MsgBox "Password Baru Tidak Sesuai", vbCritical, "Error!!!"
            TxtPwdUlang.Text = ""
            TxtPwdUlang.SetFocus
        End If
    End If
End Sub

Private Sub XPFrame1_Click()
Unload Me
End Sub

MEMBUAT TAMPILAN SKIN dan BACKGROUND

===========================================================
 Coding di Form Menu
 ===========================================================

Dim Addres As String

Private Sub Form_Load()
    Addres = App.Path + "\Backgrounds"
    On Error Resume Next
    ImgBackGound.Picture = LoadPicture(Addres + "\Background.jpg")
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    MnExit_Click
End Sub

Private Sub MnCariB_Click()
  On Error GoTo 1
    Kill App.Path & "foto.jpg"
    DoEvents
1
    On Error Resume Next
  
    cDialog.Filter = "jpg|*.jpg"
    cDialog.ShowOpen
    ImgBackGound = LoadPicture(cDialog.filename)
    SavePicture ImgBackGound.Picture, (Addres + "\Background.jpg")
    Exit Sub
salah:
    MsgBox "Format gambar tidak sesuai" & vbCrLf & "" _
    & "Silakan pilih gambar dengan format GIF,BMP atau JPG", vbCritical, "Proses Pending"
End Sub

Private Sub MnCariS_Click()
    Dim filename As String
    filename = ShowFileDialog
    If filename <> "" Then
        Skn.LoadSkin filename
        Skn.ApplySkin Me.hwnd
    End If
End Sub

Private Sub MnChizh_Click()
If MnChizh.Checked = False Then
    Skn.RemoveSkin (Me.hwnd)
    Skn.LoadSkin App.Path + "\skin\chizh.skn"
    Skn.ApplySkin Me.hwnd
    Skn.SaveSkin App.Path + "\skin\new.skn"
    Sky
    MnChizh.Checked = True
End If
End Sub

Private Sub MnExit_Click()
Dim jawaban As Integer
    jawaban = MsgBox("Apa Anda yakin akan keluar???", vbYesNo + vbQuestion, "Peringatan!!!")
    If jawaban = vbYes Then
    Conn.Execute "update tbuser set status=0 where KdUser='" & MUtama.MKode & "'"
    End
    End If
End Sub

Private Sub MnGalaxy_Click()
If MnGalaxy.Checked = False Then
    Skn.RemoveSkin (Me.hwnd)
    Skn.LoadSkin App.Path + "\skin\GALAXY.skn"
    Skn.ApplySkin Me.hwnd
    Skn.SaveSkin App.Path + "\skin\new.skn"
    Sky
    MnGalaxy.Checked = True
End If
End Sub

Private Sub MnGreen_Click()
If MnGreen.Checked = False Then
    Skn.RemoveSkin (Me.hwnd)
    Skn.LoadSkin App.Path + "\skin\GREEN.skn"
    Skn.ApplySkin Me.hwnd
    Skn.SaveSkin App.Path + "\skin\new.skn"
    Sky
    MnGreen.Checked = True
End If
End Sub

Private Sub MnMedia_Click()
If MnMedia.Checked = False Then
    Skn.RemoveSkin (Me.hwnd)
    Skn.LoadSkin App.Path + "\skin\MEDIA.skn"
    Skn.ApplySkin Me.hwnd
    Skn.SaveSkin App.Path + "\skin\new.skn"
    Sky
    MnMedia.Checked = True
End If
End Sub

Private Sub MnMetallic_Click()
If MnMetallic.Checked = False Then
    Skn.RemoveSkin (Me.hwnd)
    Skn.LoadSkin App.Path + "\skin\METALLIC.skn"
    Skn.ApplySkin Me.hwnd
    Skn.SaveSkin App.Path + "\skin\new.skn"
    Sky
    MnMetallic.Checked = True
End If
End Sub

Private Sub MnPaper_Click()
If MnPaper.Checked = False Then
    Skn.RemoveSkin (Me.hwnd)
    Skn.LoadSkin App.Path + "\skin\PAPER.skn"
    Skn.ApplySkin Me.hwnd
    Skn.SaveSkin App.Path + "\skin\new.skn"
    Sky
    MnPaper.Checked = True
End If
End Sub

Private Sub MnPwd_Click()
frmPwd.Show 1
End Sub

Private Sub MnSmart_Click()
    ImgBackGound.Picture = LoadPicture(Addres + "\mahirSmart.jpg")
    SavePicture ImgBackGound.Picture, (Addres + "\Background.jpg")
End Sub

Private Sub MnStatus_Click()
FrmStatus.Show 1
End Sub

Private Sub Sky()
    MnStudio.Checked = False
    MnChizh.Checked = False
    MnGalaxy.Checked = False
    MnGreen.Checked = False
    MnMedia.Checked = False
    MnMetallic.Checked = False
    MnPaper.Checked = False
    MnTopSecret.Checked = False
    MnWeb.Checked = False
    MnWina.Checked = False
    MnZelezo.Checked = False
End Sub

Private Sub MnStudio_Click()
If MnStudio.Checked = False Then
    Skn.RemoveSkin (Me.hwnd)
    Skn.LoadSkin App.Path + "\skin\B-Studio.skn"
    Skn.SaveSkin App.Path + "\skin\new.skn"
    Skn.ApplySkin Me.hwnd
    Sky
    MnStudio.Checked = True
End If

End Sub

Private Sub MnTopSecret_Click()
If MnTopSecret.Checked = False Then
    Skn.RemoveSkin (Me.hwnd)
    Skn.LoadSkin App.Path + "\skin\TOPSECRET.skn"
    Skn.ApplySkin Me.hwnd
    Skn.SaveSkin App.Path + "\skin\new.skn"
    Sky
    MnTopSecret.Checked = True
End If
End Sub

Private Sub MnUser_Click()
frmKar.Show 1
End Sub

Private Sub MnWeb_Click()
If MnWeb.Checked = False Then
    Skn.LoadSkin App.Path + "\skin\WEB-II.skn"
    Skn.ApplySkin Me.hwnd
    Skn.SaveSkin App.Path + "\skin\new.skn"
    Sky
    MnWeb.Checked = True
End If
End Sub

Private Sub MnWina_Click()
If MnWina.Checked = False Then
    Skn.LoadSkin App.Path + "\skin\WINAQUA.skn"
    Skn.ApplySkin Me.hwnd
    Skn.SaveSkin App.Path + "\skin\new.skn"
    Sky
    MnWina.Checked = True
End If
End Sub

Private Sub MnZelezo_Click()
If MnZelezo.Checked = False Then
    Skn.LoadSkin App.Path + "\skin\ZHELEZO.skn"
    Skn.ApplySkin Me.hwnd
    Skn.SaveSkin App.Path + "\skin\new.skn"
    Sky
    MnZelezo.Checked = True
End If
End Sub
============================================================
Coding di Form Lain
============================================================
Private Sub Form_Load()
    Skn.LoadSkin App.Path + "\skin\new.skn"
    Skn.ApplySkin Me.hwnd
End Sub   









============================================================



Contoh Form Menu

MEMBUAT FORM LOGIN DENGAN VB 6.0

======================> ISI MODULE <=====================

Public Conn As New ADODB.Connection

Public RsCari As New ADODB.Recordset

Public mRs As New ADODB.Recordset

Public RsUser As New ADODB.Recordset

Public strConn As String

Public MUser As String

Public MKode As String

Public MOtoritas As String

Public MAlamatFoto As String

Public sQl As String
-------------------------------------------------------------------------------------

Private Sub Main()

Dim Strs As String

Set mRs = New ADODB.Recordset

Strs = "DSN=dsnsimpin"

Set Conn = New ADODB.Connection

Conn.CursorLocation = adUseClient

Conn.Open Strs

FrmLogin.Show

End Sub
-------------------------------------------------------------------------------------

======================> LOGIN ç========================

Option Explicit

Public M_oper As String

Public m_Lokasi As String

Dim ri, gi, bi, Rc, bc, gc, X

==================> MENCARI PASSWORD <=================

Function CariData()

 Dim SQLCari As String

 If RsUser.State = adStateOpen Then RsUser.Close

 RsUser.CursorLocation = adUseClient

 RsUser.Open “ Select * From tbuser Where NmUser = ‘” & TxtKsr.Text & “’ “, Conn, adOpenKeyset, adLockOptimistic

End Function

Private Sub cmdOK_Click()

CariData

==========> MENCARI USER MSH ONLINE / OFFLINE <==========

If Not RsUser.EOF Then

If RsUser!Status = 1 Then

MsgBox “User Sedang OnLine..”, , “Info....”

TxtKsr.SetFocus

Exit Sub

End If

==============> MENCOCOKAN PASSWORD <================

If TxtPassword.Text = RsUser!Password Then

Mutama.Motoritas = RsUser!Otoritas

Mutama.MKsr = TxtKsr.Text

Mutama.Mkode = RsUser!KdUser

Unload Me

Mutama.MalamatFoto = App.Path + “\Foto”

       

==================> UPDATE STATUS <======================

Conn.Execute “update tbuser set status=1 where KdUser=’” & Mutama.Mkode & “’”

FrmMenu.Show

Else

MsgBox “Pwd Salah .... , Coba lagi!”, , “Login”

TxtPassword.Text = “”

TxtPassword.SetFocus

End If

End If

End Sub

Private Sub Form_Load()

Set RsUser = New ADODB.Recordset

RsUser.CursorLocation = adUseClient

 Dim Mpath As String

Mpath = “C:\Windows\system\mysis.sys”

On Error Resume Next

If Dir(Mpath, vbNormal Or vbReadOnly Or vbHidden Or vbSystem Or vbArchive) = “” Then

Unload Me

End If

End Sub

Private Sub TxtUser_KeyPress(KeyAscii As Integer)

KeyAscii = Asc(Ucase(Chr(KeyAscii))) ==è MENGUBAH HURUF MJD BESAR

If KeyAscii = 13 Then

CmdOk.Enabled = False

CariData

==========> MENCARI USER MSH ONLINE / OFFLINE <===========

If Not RsUser.EOF Then

If RsUser!Status = 1 Then

MsgBox “User Sedang OnLine..”, , “Info....”

TxtUser.SetFocus

Exit Sub

End If

                                RsUser.Close

                                TxtPassword.SetFocus

                Else

                                MsgBox “Data User tidak ditemukan”, , “Info....”

                                RsUser.Close

                                TxtUser.Text = “”

TxtUser.SetFocus

                 End If

End If

End Sub

Sup Bayi Manusia Di China Dan Proses Pembuatannya

 Aneh Tapi Nyata

Sebetulnya informasi ini sudah lama sih dan sebagian dari kalian pasti sudah pada tau. Buat yang belum tau, sekarang deh saya kasi tau yaa
Kalau sup buntut, sup kikil, sip kambing, sup ayam, sup jagung.. Wajar dan sudah biasalah kita dengan sehari-hari. Sup kelinci, sup ular, sup kuda, sup kalajengking, yaa… walaupun aneh tapi masih sanggup di terima mata dan telinga. Tapi, kalau Sup Bayi Manusia ? Jangan bilang aneh, di China Sup Bayi Manusia bukanlah hal yang aneh.
Manusia yang dibilang sebagai mahluk paling mulia dan paling tinggi derajatnya, tapi ternyata ada juga yang tidak mempunyai hati nurani. Bahkan melebihi binatang.

Di China, gosipnya kaldu dari janin/orok/bayi manusia dapan menambah kekuatan dan stamina tubuh pria. Bahkan karena itu, di China, Sup Bayi Manusia ini diberi nama “Healthy Soup”. Seakan-akan Sup yang terbuat dari janin bayi manusia berumur 6–8 bulan ini adalah halal.
Menurut testimoni dari salah seorang pengusaha pemilik pabrik di daerah Tong Wan, Taiwan, berumur 62 tahun yang mengaku sebagai pengkonsumsi tetap “Healthy Soup”, menjelaskan khasiat “Healthy Soup” ini dapat mempertahankan kemampuannya untuk dapat berhubungan seks beberapa kali dalam semalam. Wew…
Pengusaha itu tidak menyebutkan berapa harga belinya. Hanya saja dia bilang harga tergantung besar kecilnya bayi, serta bayi hidup atau mati dan sebagainya.
Salah satu restoran yang menyediakan “Healthy Soup” ada di kota Fu San-Canton. Dan jika ingin memesan “Healthy Soup” tersebut di restoran tersebut harus menggunakan kata sandi BAIKUT.
Kabarnya, bahan makanan “Healthy Soup” ini disajikan secara fresh, bukan frozen. Yang artinya, benar-benar bayi yang baru di aborsikan…. Yaiks…. Selain menggunakan bayo sebagai bahan sup, restoran ini juga menyediakanari-ari bayi (plasenta) sebagai bahan sup, yang dipercaya dapat meningkatkan gairah seksual dan juga obat awet muda.
Cara pembuatan “Healthy Soup”

Gambar diatas adalah salah satu janin yang siap dijadikan santapan “Healthy Soup”. Janin yang berumur 5 bulan tersebut, setelah dicuci, di taruh diatas papan potong. Bumbu-bumbu seperti Pachan, Tongseng, Tongkui, Keichi, Jahe, daging ayam dan Baikut, sudah disiapkan. Dan kalian lihat sendiri saja di gambar itu bagaimana prosesnya.

Menurut beberapa sumber lainnya, janin yang dikonsumsi sebagai “Healthy Soup” itu, semuanya adalah janin bayi perempuan. Apakah ini merupakan akibat kebijaksanaan pemerintah China untuk mewajibkan satu anak dalam satu keluarga yg berlaku sampai sekarang atau hanya karena kegemaran orang akan makanan sehat sudah mencapai kondisi yang sangat terkutuk. Yang jelas tindakan ini adalah tindakan tidak beradab.

Contoh Surat Lamaran Pekerjaan

                                                                                  Purwokerto, 09 Januari 2011

Kepada Yth,

PT. DURORINDO SURYA GEMILANG

Di tempat,

Dengan hormat,

Sebagai aktualisasi diri atas keterampilan dan pengetahuan yang saya miliki, saya mengajukan permohonan untuk menjadi salah satu karyawan di perusahaan Bapak. Bersama ini saya lampirkan beberapa berkas sebagai bahan pertimbangan lebih lanjut.

Besar harapan saya bisa menjadi bagian dari komunitas di perusahaan Bapak. Hanya dengan dedikasi tinggi, saya yakin bisa bekerja dengan baik di perusahaan Bapak dan pantang menyerah adalah prinsip hidup yang saya yakini. Semoga perusahaan Bapak selalu sukses ke depan. 

 

                                                                                           Hormat saya,



                                                                                           MIFTAHUDDIN
                                                                                        (Kandidat karyawan)

Lampiran : 

1. Foto berwarna ukuran 3x4
2. Foto Copy KTP
3. Foto Copy Keterangan Sehat
4. Foto Copy SKCK
5. Fotocopy IJAZAH
6. Fotocopy Transkrip Nila
7. Daftar Riwayat Hidup
8. Surat Rekomendasi

Edgar Davids Tinggalkan The Eagles

Mantan gelandang Timnas Belanda Edgar Davids sedang memainkan bola ketika berlatih untuk "Tim Oranye".

 

Crystal Palace resmi menceraikan mantan bintang Ajax Amsterdam, AC Milan, dan Juventus, Edgar Davids. Praktis hanya sekitar tiga bulan pemain yang tercatat bermain 74 kali untuk Belanda ini kembali bermain di Championship Division (kasta kedua liga sepak bola di Inggris) setelah lama menganggur.

Davids, 37 tahun, bergabung dengan Palace dengan kontrak berbayar per pertandingan yang dimainkan pada Agustus silam. Davids sebelumnya menganggur sejak 2008 setelah meningalkan Ajax.

“Hari ini, Senin (8/11), saya memutuskan mengakhiri perjalanan karierku sebagai pemain Crystal Palace,” demikian pernyataan Davids melalui laman pribadinya. Sejak bergabung dengan The Eagles, julukan Palace, Davids bermain tujuh kali sebagai starter. Ia menambahkan, rasa terima kasih kepada orang-orang yang telah memberinya kesempatan bergabung.

Davids yang juga pernah memperkuat Tottenham Hotspur merupakan pemain binaan sekolah sepak bola Ajax. Bersama Patrick Kluivert, Edwin van der Sar, Clarence Seedorf, dan Finidi George, Davids membawa Ajax menjuarai Liga Champions. Ia kemudian hijrah ke Italia, bergabung dengan AC Milan.

Tetapi Davids tidak mampu mengulang performa apiknya dengan Rossoneri. Ia hanya bermain 15 kali dalam satu musim sebelum ditransfer ke Juventus. Pemain kelahiran Suriname ini mendapat tempat utama dengan Bianconeri dan bermain 135 kali. Pada 2004, Davids bermain untuk Barcelona dan mengambil pengalaman singkat dengan Inter Milan.

Di pertengahan 2005, ia bergabung dengan Tottenham dan memperkuat klub dari London timur itu sebanyak 40 kali di Liga Premier. Davids akhirnya kembali ke Ajax di 2007. Setahun bermain, kontrak Davids tidak lagi diperpanjang.(DIM/BBC)

Kumpulan Cerpen Lucu

Hello kawan-kawan..:) Ada beberapa cerita-cerita lucu nih..Silahkan dinikmati, resapi, dan kalo gak lucu silahkan dibaca dengan gaya kepala dibawah, kaki diatas..jiahhhhhh..:)

Salah Nurunin Resleting

Tumini seorang wanita dewasa pegawai sebuah kantor swasta asing pagi itu mau berangkat kerja dan lagi menunggu bus kota di mulut gang rumahnya. Seperti biasa pakaian yang dikenakan cukup ketat, roknya semi-mini, sehingga bodinya yang seksi semakin kelihatan lekuk likunya.

Bus kota datang, tumini berusaha naik lewat pintu belakang, tapi kakinya kok tidak sampai di tangga bus. Menyadari keketatan roknya, tangan kiri menjulur ke belakang untuk menurunkan sedikit resleting roknya supaya agak longgar.

Tapi, ough, masih juga belum bisa naik. Ia mengulangi untuk menurunkan lagi resleting roknya. Belum bisa naik juga ke tangga bus. Untuk usaha yang ketiga kalinya, belum sampai dia menurunkan lagi resleting roknya, tiba-tiba ada tangan kuat mendorong pantatnya dari belakang sampai Marini terloncat dan masuk ke dalam bus.

Tumini melihat ke belakang ingin tahu siapa yang mendorongnya, ternyata ada pemuda gondrong yang cengar-cengir melihat Tumini.

“Hei, kurang ajar kau. Berani-beraninya nggak sopan pegang-pegang pantat orang!”

Si pemuda menjawab kalem, “Yang nggak sopan itu situ, Mbak. Masak belum kenal aja berani-beraninya nurunin resleting celana gue.”

Pemeras Kecil

Seorang anak kecil yang bandel melihat kakaknya dicium oleh teman lelakinya. Esok harinya, ia menemui lelaki itu.

“Abang semalam mencium kakakku bukan?”
“Ya, tapi jangan keras-keras. Ini seribu untuk tutup mulut!”
“Terima kasih, ini uang kembaliannya lima ratus!”
“Lho, kok pakai uang kembalian segala?”
“Saya tidak mau nakal, Bang. Semua orang yg mencium kakak juga saya tagih lima ratus!”
“???!!!”

Sakit kanker ato Aids??

Seorang penderita kanker di beritahukan oleh dokternya bahwa hidupnya tidak lama lagi hanya sekitar 2 minggu lagi. Mendengar khabar tak mengenakkan hati, ia memberitahukan anaknya untuk segera mengadakan pesta besar perpisahan.

Ditengah kawan-kawannya ia menyatakan : “Maaf teman-teman, Saya mengumpulkan Kalian agar tahu bahwa Saya tak lama lagi akan meninggalkan Kalian, AIDS telah merongrong tubuh Saya.”

Anaknya dengan heran bertanya : “Ayah, mengapa Ayah berbohong atas penyebab kematian Ayah?”

Ayahnya menjawab : “Sssst, aku tak mau salah seorang dari mereka akan tidur dengan Ibumu yang cantik setelah aku meninggal kelak !”

Kalo Kerja Pake Ini

Kerja pake ini Di suatu pinggiran kota, hiduplah seorang nyonya yang cukup (sedikit mampu) dengan pembantunya yang selalu buat masalah.

Suatu hari, pembantu itu memecahkan piring untuk kesekian kalinya... akhirnya nyonya itu memanggil pembantunya sambil memaki berkata," Minah....kamu ini gimana...dasar org goblok, makanya kalau kerja itu jangan pake ini (sambil nunjuk lututnya) tapi pake ini (sambil nunjuk kepalanya, otak-red)...kamu saya pecat.."akhirnya pembantunya pergi...

5 tahun kemudian, di suatu Supermarket..si Nyonya ketemu dengan pembantunya yang dulu tapi dengan pakaian yang mewah dengan banyak perhiasan emas...

Si-nyonya memanggil," Minah, kok kamu sekarang berubah..menjadi kaya...kok bisa????
Si-pembantunya menjawab," makanya Bu, kalau kerja itu jangan pake ini (sambil nunjuk kepalanya, otak-red) tapi pake ini donk (sambil nunjuk dii antara pahanya)...."?#$#@"

Kalau Main Dokter-Dokteran Jangan di Ruang Tamu

Sepasang suami istri tertangkap basah oleh anak mereka ketika sedang melakukan hubungan badan di ruang tamu. Pasangan suami istri itu berusaha menjelaskan kepada anak mereka yang setengah remaja itu, bahwa mereka sedang bergurau dan bermain dokter-dokteran.

Dengan santai si anak menasihati orang tuanya itu, "Kalau mau main dokter-dokteran jangan di ruang tamu, nanti kalau ada orang ngeliat kan disangka sedang melakukan hubungan suami-istri....!"

Langkah-Langkah Instalasi

              Windows XP adalah suatu sistem pengoperasian (operating system) yang paling banyak dipakai sampai saat ini karena selain kemudahan dalam pemakaiannya Windows XP digunakan sebagai standarisasi pembelajaran yang di pakai oleh sekolahan-sekolahan dan perguruan tinggi pada umumnya.

Untuk melakukan penginstalan windows xp diperlukan ketelitian dan kesabaran dalam prosesnya karena memerlukan waktu yang lumayan lama.

Ada beberapa jenis windows xp diantaranya windows xp professional, Home Edition, Media Center Edition, Tablet PC Edition, Starter Edition, Professional x64 Edition, Professional 64-bit Edition For Itanium.

berikut langkah-langkah yang mudah dan lengkap cara menginstal windows xp

Baca selengkapnya >>>

Jenis-Jenis Prosesor

Perkembangan teknologi prosesor begitu pesatnya akhir-akhir ini. Dalam setahun bisa muncul beberapa jenis prosesor yang baru.
Hal ini dipicu oleh
Pertama oleh tuntutan pengembangan itu sendiri
kedua oleh persaingan sengit antara 2 raksasa produsen prosesor, Intel dan AMD.

Sebagai orang awam, tentu kita tidak paham masalah-masalah teknis, itu adalah bagian orang IT. Tapi setidaknya kita harus tahu jenis prosesor apa saja yang ada saat ini, sehingga saat kita akan membeli komputer kita, sedikit banyak, tahu apa yang kita beli.


Baca Selengkapnya >>>

Akibat Merapi, Muntilan Jadi Kota Mati

 

 

Kota Muntilan di sisi barat gunung Merapi seperti kota mati akibat guyuran abu vulkanik, Kamis (4/11). Merapi meletus hebat pada Rabu (3/11) siang dan terus-menerus menyemburkan awan panas hingga Kamis (4/11). Para pemilik toko di Muntilan memilih menutup usahanya akibat guyuran abu vulkanik Merapi yang menyesakkan pernafasan. TEMPO/Heru CN

TEMPO Interaktif, MUNTILAN - Semuanya kena. Tak ada yang tersisa dari hujan abu. Atap rumah, jalan, ladang dan pepohonan, semua terlihat kelabu terguyur debu. Sore hari itu, Jumat (5/11), di Desa Ngadipuro Kecamatan Dukun Magelang, yang tersisa hanya gulita. “Listrik padam sejak tiga hari kemarin,” kata Wawan, seorang warga.

Rumah-rumah disana kini sepi tak berpenghuni. Warganya telah mengungsi sejak semalam, saat Merapi kembali memuntahkan awan panasnya berkali-kali. Terletak di jarak 12 kilometer dengan puncak Merapi, Desa itu kini telah sepi.

Sebelumnya, di Desa itu terdapat barak pengungsi. Namun sejak Kamis (4/11) malam kemarin, mereka mulai dievakuasi. Dampak bencana letusan Merapi memang meluas di Magelang. Dari awalnya hanya daerah dalam radius 15 kilometer dari Merapi kini meluas menjadi 20 Kilometer. Akibatnya para pengungsi pun takut terkena bahaya bencana.

Tak hanya Ngadipuro, hampir semua desa di lereng Merapi kini pun sepi. Tak ada penghuni lagi. Takut terkena bahaya Merapi, mereka mengungsi ke tempat yang lebih rendah. Akibatnya, desa-desa itu pun seperti kota mati. Rumah tak berpenghuni, listrik padam dan pohon bertumbangan di sepanjang jalan menjadi pemandangan sehari-hari.

Kondisi itu diperparah dengan sisa abu yang menumpuk tebal di ruas jalan. Akibat terguyur air hujan, jalanan pun menjadi banjir lumpur. Kondisi itu kian mempersulit mobilitas warga di daerah bencana. Di Muntilan misalnya, aktifitas perekonomian pun lumpuh. “Sampai sekarang pun listrik masih mati,” kata Devi (25) seorang warga Muntilan, malam ini.

Di kota kecil yang menjadi pusat perekonomian Kabupaten Magelang itu, sebagian sekolah diliburkan tadi siang. Demikian pula bank yang berhenti beroperasi. Adapun hingga malam ini, pasar tradisional, toko dan perkantoran masih tutup. “Gelap dimana-mana,” kata dia.

Di jalan-jalan, kendaraan bermotor lambat melaju. Lumpur sisa debu merapi bercampur air hujan, membuat jalan becek dan licin. Terlebih kendaraan roda dua, hanya melaju dalam kecepatan tak lebih dari 20 kilometer per jam. Mereka takut terpeleset dan terpelanting dari atas motornya.

Pesawat meledak di atas Batam

Foto: dtc/ist

BATAM - Pesawat komersial Australia, Qantas Airbus 380, meledak di udara di atas kawasan Batam, pukul 09.15 WIB, pagi tadi. Suara ledakan terdengar keras di Bandara Hang Nadim, Batam, Kamis (4/11). Serpihan pesawat pun berjatuhan di sekitar Bandara Hang Nadim.

”Itu pesawat dari Singapura, ada beberapa bagiannya yang jatuh di sekitar Batam. Pesawat  holding di Singapura,” kata Dirjen Hubungan Udara Dephub Herry Bakti.
Kapolda Kepulauan Riau Brigjen Pol Budi Winarso mengatakan, pesawat yang berasap dan sebagian tubuhnya jatuh di Batam adalah milik maskapai penerbangan Australia, Qantas. Pesawat rute Singapura-Australia itu kini telah kembali ke Singapura (return to base/RBT). ”Pesawat Qantas terbang dari Singapura menuju ke Australia,” ujarnya.

Kepala Keselamatan Penerbangan Bandara Hang Nadim Batam, Elfi, membenarkan adanya pesawat yang mengalami gangguan di dekat Bandara Hang Nadim Batam.
”Kita sudah mendapatkan informasi dari Bandara Changi Singapura bahwa ada pesawat Australia Qantas sedang mengalami gangguan dan sedang berputar-putar di Selat Malaka untuk menghabiskan fuel,” ujar Elfi.

Menurutnya, ada warga di sekitar Batam Center telah menemukan serpihan pesawat dan mendengar suara menggelegar di udara.  Laporan dari warga, mereka telah menemukan serpihan dan pecahan sayap yang diperkirakan berasal dari sebuah pesawat terbang. Serpihan yang diduga berasal dari sebuah pesawat berceceran di sekitar Simpang Kara, Legenda Malaka, Kecamatan Batam Kota. Di Legenda Malaka, serpihan pesawat menimpa seorang warga hingga megalami luka-luka serius.

Sementara itu seperti dimuat situs Sydney Morning Herald, Kamis (4/11)  pesawat Qantas tersebut bernomor QF32 rute Singapura-Sydney, membawa 500 penumpang terpaksa kembali ke Bandara Changi, Singapura karena adanya insiden ledakan.

Pihak Qantas menyampaikan, pesawat  mengalami masalah di bagian mesin nomor dua. Pilot terpaksa mematikan mesin nomor dua, namun juru bicara Qantas mengaku tak tahu mengapa mesin pesawat harus dimatikan.

Sementara, seperti dimuat situs News.com.au, dilaporkan pesawat tersebut telah mendarat dengan selamat di Bandara Changi, setelah sempat berputar-putar di udara. dtc/ant/yan

SEJARAH KOMPUTER

            Komputer adalah alat yang dipakai untuk mengolah data menurut prosedur yang telah dirumuskan. Kata computer semula dipergunakan untuk menggambarkan orang yang perkerjaannya melakukan perhitungan aritmatika dengan atau tanpa alat bantu, tetapi arti kata ini kemudian dipindahkan kepada mesin itu sendiri. Asal mulanya, Pengolaha informasi hampir eksklusif berhubungan dengan masalah aritmatika, tetapi komputer modern dipakai untuk banyak tugas yang tidak berhubungan dengan matematika.

             Secara luas, Komputer dapat didefinisikan sebagai suatu peralatan elektronik yang terdiri dari beberapa komponen, yang dapat bekerja sama antara komponen satu dengan yang lain untuk menghasilkan suatu informasi berdasarkan program dan data yang ada. Adapun komponen komputer adalah meliputi : Layar Monitor, CPU, Keyboard, Mouse dan Printer (sbg pelengkap). Tanpa printer komputer tetap dapat melakukan tugasnya sebagai pengolah data, namun sebatas terlihat dilayar monitor belum dalam bentuk print out (kertas).

             Dalam definisi seperti itu terdapat alat seperti slide rule, jenis kalkulator mekanika mulai dari abakus dan seterusnya, sampai semua komputer elektronik yang komputer Istilah lebih baik yang cocok untuk arti luas seperti "komputer" adalah "yang memproses informasi" atau "sistem pengolah informasi"

             Saat ini, komputer sudah semakin canggih. Tetapi, sebelumnya komputer tidak sekecil, secanggih, sekeren dan seringan sekarang. Dalam sejarah komputer, ada 5 generasi dalam sejarah komputer.

Generasi komputer

Generasi Pertama

              Dengan terjadinya Perang Dunia Kedua, negara-negara yang terlibat dalam perang tersebut berusaha mengembangkan komputer untuk mengeksploit potensi strategis yang dimiliki komputer. Hal ini meningkatkan pendanaan pengembangan komputer serta mempercepat kemajuan teknik komputer. Pada tahun 1941, Konrad Zuse, seorang insinyur Jerman membangun sebuah komputer, Z3, untuk mendesain pesawat terbang dan peluru kendali.

               Pihak sekutu juga membuat kemajuan lain dalam pengembangan kekuatan komputer. Tahun 1943, pihak Inggris menyelesaikan komputer pemecah kode rahasia yang dinamakan Colossus untuk memecahkan kode rahasia yang digunakan Jerman. Dampak pembuatan Colossus tidak terlalu mempengaruhi perkembangan industri komputer dikarenakan dua alasan. Pertama, Colossus bukan merupakan komputer serbaguna(general-purpose computer), ia hanya didesain untuk memecahkan kode rahasia. Kedua, keberadaan mesin ini dijaga kerahasiaannya hingga satu dekade setelah perang berakhir.

                Usaha yang dilakukan oleh pihak Amerika pada saat itu menghasilkan suatu kemajuan lain. Howard H. Aiken (1900-1973), seorang insinyur Harvard yang bekerja dengan IBM, berhasil memproduksi kalkulator elektronik untuk US Navy. Kalkulator tersebut berukuran panjang setengah lapangan bola kaki dan memiliki rentang kabel sepanjang 500 mil. The Harvard-IBM Automatic Sequence Controlled Calculator, atau Mark I, merupakan komputer relai elektronik. Ia menggunakan sinyal elektromagnetik untuk menggerakkan komponen mekanik. Mesin tersebut beropreasi dengan lambat (ia membutuhkan 3-5 detik untuk setiap perhitungan) dan tidak fleksibel (urutan kalkulasi tidak dapat diubah). Kalkulator tersebut dapat melakukan perhitungan aritmatik dasar dan persamaan yang lebih kompleks.

                Perkembangan komputer lain pada masa kini adalah Electronic Numerical Integrator and Computer (ENIAC), yang dibuat oleh kerjasama antara pemerintah Amerika Serikat dan University of Pennsylvania. Terdiri dari 18.000 tabung vakum, 70.000 resistor, dan 5 juta titik solder, komputer tersebut merupakan mesin yang sangat besar yang mengkonsumsi daya sebesar 160kW.

                Komputer ini dirancang oleh John Presper Eckert (1919-1995) dan John W. Mauchly (1907-1980), ENIAC merupakan komputer serbaguna (general purpose computer) yang bekerja 1000 kali lebih cepat dibandingkan Mark I.

                Pada pertengahan 1940-an, John von Neumann (1903-1957) bergabung dengan tim University of Pennsylvania dalam usaha membangun konsep desain komputer yang hingga 40 tahun mendatang masih dipakai dalam teknik komputer. Von Neumann mendesain Electronic Discrete Variable Automatic Computer (EDVAC) pada tahun 1945 dengan sebuah memori untuk menampung baik program ataupun data. Teknik ini memungkinkan komputer untuk berhenti pada suatu saat dan kemudian melanjutkan pekerjaannya kembali. Kunci utama arsitektur von Neumann adalah unit pemrosesan sentral (CPU), yang memungkinkan seluruh fungsi komputer untuk dikoordinasikan melalui satu sumber tunggal. Tahun 1951, UNIVAC I (Universal Automatic Computer I) yang dibuat oleh Remington Rand, menjadi komputer komersial pertama yang memanfaatkan model arsitektur Von Neumann tersebut.

                Baik Badan Sensus Amerika Serikat dan General Electric memiliki UNIVAC. Salah satu hasil mengesankan yang dicapai oleh UNIVAC dalah keberhasilannya dalam memprediksi kemenangan Dwilight D. Eisenhower dalam pemilihan presiden tahun 1952.

                Komputer Generasi pertama dikarakteristik dengan fakta bahwa instruksi operasi dibuat secara spesifik untuk suatu tugas tertentu. Setiap komputer memiliki program kode biner yang berbeda yang disebut "bahasa mesin" (machine language). Hal ini menyebabkan komputer sulit untuk diprogram dan membatasi kecepatannya. Ciri lain komputer generasi pertama adalah penggunaan tube vakum (yang membuat komputer pada masa tersebut berukuran sangat besar) dan silinder magnetik untuk penyimpanan data.

Generasi Kedua

                Pada tahun 1948, penemuan transistor sangat mempengaruhi perkembangan komputer. Transistor menggantikan tube vakum di televisi, radio, dan komputer. Akibatnya, ukuran mesin-mesin elektrik berkurang drastis.

                Transistor mulai digunakan di dalam komputer mulai pada tahun 1956. Penemuan lain yang berupa pengembangan memori inti-magnetik membantu pengembangan komputer generasi kedua yang lebih kecil, lebih cepat, lebih dapat diandalkan, dan lebih hemat energi dibanding para pendahulunya. Mesin pertama yang memanfaatkan teknologi baru ini adalah superkomputer. IBM membuat superkomputer bernama Stretch, dan Sprery-Rand membuat komputer bernama LARC. Komputer-komputer ini, yang dikembangkan untuk laboratorium energi atom, dapat menangani sejumlah besar data, sebuah kemampuan yang sangat dibutuhkan oleh peneliti atom. Mesin tersebut sangat mahal dan cenderung terlalu kompleks untuk kebutuhan komputasi bisnis, sehingga membatasi kepopulerannya. Hanya ada dua LARC yang pernah dipasang dan digunakan: satu di Lawrence Radiation Labs di Livermore, California, dan yang lainnya di US Navy Research and Development Center di Washington D.C. Komputer generasi kedua menggantikan bahasa mesin dengan bahasa assembly. Bahasa assembly adalah bahasa yang menggunakan singkatan-singakatan untuk menggantikan kode biner.

                Pada awal 1960-an, mulai bermunculan komputer generasi kedua yang sukses di bidang bisnis, di universitas, dan di pemerintahan. Komputer-komputer generasi kedua ini merupakan komputer yang sepenuhnya menggunakan transistor. Mereka juga memiliki komponen-komponen yang dapat diasosiasikan dengan komputer pada saat ini: printer, penyimpanan dalam disket, memory, sistem operasi, dan program.

               Salah satu contoh penting komputer pada masa ini adalah 1401 yang diterima secara luas di kalangan industri. Pada tahun 1965, hampir seluruh bisnis-bisnis besar menggunakan komputer generasi kedua untuk memprosesinformasi keuangan.

              Program yang tersimpan di dalam komputer dan bahasa pemrograman yang ada di dalamnya memberikan fleksibilitas kepada komputer. Fleksibilitas ini meningkatkan kinerja dengan harga yang pantas bagi penggunaan bisnis. Dengan konsep ini, komputer dapat mencetak faktur pembelian konsumen dan kemudian menjalankan desain produk atau menghitung daftar gaji. Beberapa bahasa pemrograman mulai bermunculan pada saat itu. Bahasa pemrograman Common Business-Oriented Language (COBOL) dan Formula Translator (FORTRAN) mulai umum digunakan. Bahasa pemrograman ini menggantikan kode mesin yang rumit dengan kata-kata, kalimat, dan formula matematika yang lebih mudah dipahami oleh manusia. Hal ini memudahkan seseorang untuk memprogram dan mengatur komputer. Berbagai macam karier baru bermunculan (programmer, analis sistem, dan ahli sistem komputer). Industr piranti lunak juga mulai bermunculan dan berkembang pada masa komputer generasi kedua ini.

Generasi Ketiga

               Walaupun transistor dalam banyak hal mengungguli tube vakum, namun transistor menghasilkan panas yang cukup besar, yang dapat berpotensi merusak bagian-bagian internal komputer. Batu kuarsa (quartz rock) menghilangkan masalah ini. Jack Kilby, seorang insinyur di Texas Instrument, mengembangkan sirkuit terintegrasi (IC : integrated circuit) di tahun 1958. IC mengkombinasikan tiga komponen elektronik dalam sebuah piringan silikon kecil yang terbuat dari pasir kuarsa. Pada ilmuwan kemudian berhasil memasukkan lebih banyak komponen-komponen ke dalam suatu chip tunggal yang disebut semikonduktor. Hasilnya, komputer menjadi semakin kecil karena komponen-komponen dapat dipadatkan dalam chip. Kemajuan komputer generasi ketiga lainnya adalah penggunaan sistem operasi (operating system) yang memungkinkan mesin untuk menjalankan berbagai program yang berbeda secara serentak dengan sebuah program utama yang memonitor dan mengkoordinasi memori komputer.

Generasi Keempat

                 Setelah IC, tujuan pengembangan menjadi lebih jelas: mengecilkan ukuran sirkuit dan komponen-komponen elektrik. Large Scale Integration (LSI) dapat memuat ratusan komponen dalam sebuah chip. Pada tahun 1980-an, Very Large Scale Integration (VLSI) memuat ribuan komponen dalam sebuah chip tunggal.

                Ultra-Large Scale Integration (ULSI) meningkatkan jumlah tersebut menjadi jutaan. Kemampuan untuk memasang sedemikian banyak komponen dalam suatu keping yang berukurang setengah keping uang logam mendorong turunnya harga dan ukuran komputer. Hal tersebut juga meningkatkan daya kerja, efisiensi dan keterandalan komputer. Chip Intel 4004 yang dibuat pada tahun 1971membawa kemajuan pada IC dengan meletakkan seluruh komponen dari sebuah komputer (central processing unit, memori, dan kendali input/output) dalam sebuah chip yang sangat kecil. Sebelumnya, IC dibuat untuk mengerjakan suatu tugas tertentu yang spesifik. Sekarang, sebuah mikroprosesor dapat diproduksi dan kemudian diprogram untuk memenuhi seluruh kebutuhan yang diinginkan. Tidak lama kemudian, setiap piranti rumah tangga seperti microwave, oven, televisi, dan mobil dengan electronic fuel injection (EFI) dilengkapi dengan mikroprosesor.

                 Perkembangan yang demikian memungkinkan orang-orang biasa untuk menggunakan komputer biasa. Komputer tidak lagi menjadi dominasi perusahaan-perusahaan besar atau lembaga pemerintah. Pada pertengahan tahun 1970-an, perakit komputer menawarkan produk komputer mereka ke masyarakat umum. Komputer-komputer ini, yang disebut minikomputer, dijual dengan paket piranti lunak yang mudah digunakan oleh kalangan awam. Piranti lunak yang paling populer pada saat itu adalah program word processing dan spreadsheet. Pada awal 1980-an, video game seperti Atari 2600 menarik perhatian konsumen pada komputer rumahan yang lebih canggih dan dapat diprogram.

                 Pada tahun 1981, IBM memperkenalkan penggunaan Personal Computer (PC) untuk penggunaan di rumah, kantor, dan sekolah. Jumlah PC yang digunakan melonjak dari 2 juta unit di tahun 1981 menjadi 5,5 juta unit di tahun 1982. Sepuluh tahun kemudian, 65 juta PC digunakan. Komputer melanjutkan evolusinya menuju ukuran yang lebih kecil, dari komputer yang berada di atas meja (desktop computer) menjadi komputer yang dapat dimasukkan ke dalam tas (laptop), atau bahkan komputer yang dapat digenggam (palmtop).

                 IBM PC bersaing dengan Apple Macintosh dalam memperebutkan pasar komputer. Apple Macintosh menjadi terkenal karena mempopulerkan sistem grafis pada komputernya, sementara saingannya masih menggunakan komputer yang berbasis teks. Macintosh juga mempopulerkan penggunaan piranti mouse.

                 Pada masa sekarang, kita mengenal perjalanan IBM compatible dengan pemakaian CPU: IBM PC/486, Pentium, Pentium II, Pentium III, Pentium IV (Serial dari CPU buatan Intel). Juga kita kenal AMD k6, Athlon, dsb. Ini semua masuk dalam golongan komputer generasi keempat.

                Seiring dengan menjamurnya penggunaan komputer di tempat kerja, cara-cara baru untuk menggali potensial terus dikembangkan. Seiring dengan bertambah kuatnya suatu komputer kecil, komputer-komputer tersebut dapat dihubungkan secara bersamaan dalam suatu jaringan untuk saling berbagi memori, piranti lunak, informasi, dan juga untuk dapat saling berkomunikasi satu dengan yang lainnya. Jaringan komputer memungkinkan komputer tunggal untuk membentuk kerjasama elektronik untuk menyelesaikan suatu proses tugas. Dengan menggunakan perkabelan langsung (disebut juga Local Area Network atau LAN), atau [kabel telepon, jaringan ini dapat berkembang menjadi sangat besar.

Generasi Kelima

               Mendefinisikan komputer generasi kelima menjadi cukup sulit karena tahap ini masih sangat muda. Contoh imajinatif komputer generasi kelima adalah komputer fiksi HAL9000 dari novel karya Arthur C. Clarke berjudul 2001: Space Odyssey. HAL menampilkan seluruh fungsi yang diinginkan dari sebuah komputer generasi kelima. Dengan kecerdasan buatan (artificial intelligence atau AI), HAL dapat cukup memiliki nalar untuk melakukan percapakan dengan manusia, menggunakan masukan visual, dan belajar dari pengalamannya sendiri.

               Walaupun mungkin realisasi HAL9000 masih jauh dari kenyataan, banyak fungsi-fungsi yang dimilikinya sudah terwujud. Beberapa komputer dapat menerima instruksi secara lisan dan mampu meniru nalar manusia. Kemampuan untuk menterjemahkan bahasa asing juga menjadi mungkin. Fasilitas ini tampak sederhana. Namun fasilitas tersebut menjadi jauh lebih rumit dari yang diduga ketika programmer menyadari bahwa pengertian manusia sangat bergantung pada konteks dan pengertian ketimbang sekedar menterjemahkan kata-kata secara langsung.

               Banyak kemajuan di bidang desain komputer dan teknologi yang semakin memungkinkan pembuatan komputer generasi kelima. Dua kemajuan rekayasa yang terutama adalah kemampuan pemrosesan paralel, yang akan menggantikan model non Neumann. Model non Neumann akan digantikan dengan sistem yang mampu mengkoordinasikan banyak CPU untuk bekerja secara serempak. Kemajuan lain adalah teknologi superkonduktor yang memungkinkan aliran elektrik tanpa ada hambatan apapun, yang nantinya dapat mempercepat kecepatan informasi.

              Jepang adalah negara yang terkenal dalam sosialisasi jargon dan proyek komputer generasi kelima. Lembaga ICOT (Institute for new Computer Technology) juga dibentuk untuk merealisasikannya. Banyak kabar yang menyatakan bahwa proyek ini telah gagal, namun beberapa informasi lain bahwa keberhasilan proyek komputer generasi kelima ini akan membawa perubahan baru paradigma komputerisasi di dunia.