Pages

Rabu, 27 Mei 2015

Sejarah Singkat Komputer

Sejarah awal munculnya komputer terjadi pada tahun 1822  diawali dengan terciptanya sebuah  alat hitung bernama Difference engine yang pertama kali dibuat oleh seorang pakar matematika berdarah Inggris yang bernama bernama Charles Babbage. Ia telah menciptakan sebuah alat hitung yang dapat digunakan untuk menghitung sebuah table-tabel matematik.

Kemudian, beberapa tahun setelah munculnya alat hitung tersebut tepatnya pada tahun 1833, Charles Babbage telah berhasil menyempurnakan Difference Engine miliknya dengan konsep yang lebih mendalam dan umum yang kemudain ia beri nama Analytical Engine. Alat ini diberi kemampuan agar dapat menghitung berbagai kalkulasi apa saja, sehingga untuk pertama kalinya alat ini dikenal dengan sebutan Purpose Digital Komputer.

Penemuan besar Charles Babbage ini merupakan sebuah sumbangan besar bagi dunia perkomputeran sekarang ini, pasalnya prinsip kerja dari kedua alat penemuan Charles Babbage merupakan prinsip yang menjadi sebuah dasar yang melandasi terciptanya komputer saat ini. karena penemuan besarnya ini Charles Babbage diuluki sebagai “Bapak Komputer Modern”.

Kemudian tak kurang dari lima tahun setelah diperkenalkannya Analytical Engine, seorang ahli di bidang matematika Prof. Howard Aikem dari Universitas Harvard mulai merancang sebuah komputer yang didalamnya terdapat program yang memungkinkannya melakukan operasi logika dan aritmatika secara otomatis yang dapat diselesaikan secara mekanik elektronik pada tahun 1937. Namun berkat bantuan dan dukungan dari pihak Perusahaan IBM alat itu dapat terselesaikan secara elektronik yang kemudian di beri nama “Harard Mark I Automatic Sequence-Controlled Calculator (ASCC) pada tahun 1944.

sejarah komputer
Komputer ini adalah sebuah impian Charles Babbage yang kemudian berhasil di realisasikan oleh Howard Aikem. Komputer buatan Prof. Howard Aikem tersebut langsung menjadi populer pada masa itu, namun apabila dibandingkan dengan komputer pada zaman sekarang ini komputer buatan Howard Aikem sudah jelas mempunyai beragam perbedaan yang begitu mencolok baik dari segi fisik, fitur, maupun kecepatannya.

Demikianlah sejarah singkat terlahirnya sebuah mesin yang menjadi teman kita setiap hari yang bernama Komputer. Somoga postingan ini dapat menambah wawasan kita mengenai sejarah komputer bagi semua orang. (Baca juga tentang: Pengertian Speaker Komputer dan Fungsinya)

Selasa, 26 Mei 2015

Pengertian Speaker Komputer dan Fungsinya

Speaker komputer merupakan piranti yang kedudukannya hampir tidak bisa dipisahkan lagi dengan komputer. Sebab, speaker memiliki peran penting dalam mengeluarkan hasil pemrosesan dari perangkat pemroses yang berupa suara. Tentu, kebanyakan pengguna komputer menyukai musik atau video sehingga membutuhkan speaker untuk mendukung keinginan tadi.

Speakerkomputer dapat berfungsi sebagaimana mestinya apabila didukung perangkat keras bernamakan sound card atau pemroses audio/suara. Sementara untuk modelnya, speaker memiliki beragam bentuk, fitur dan juga ukuran. Dari beberapa ulasan pengantar tadi, dapat disimpulkan bahwa speaker komputer merupakan perangkat keras output yang berfungsi mengeluarkan hasil pemrosesan oleh CPU berupa audio/suara.

Speaker Komputer
Selanjutnya mari membahas mengenai fungsi speaker komputer. Dalam konteks komputerisasi, speaker memiliki fungsi sebagai alat untuk mengubah gelombang listrik yang mulanya dari perangkat penguat audio/suara menjadi gelombang getaran yaitu berupa suara itu sendiri. Proses dari perubahan gelombang elektromagnet menuju ke gelombang bunyi tersebut bermula dari aliran listrik yang ada pada penguat audio/suara kemudian dialirkan ke dalam kumparan.

Dalam kumparan tadi terjadilah pengaruh gaya magnet pada speaker yang sesuai dengan kuat-lemahnya arus listrik yang diperoleh maka getaran yang dihasilkan yaitu pada membran akan mengikuti. Dengan demikian, terjadilah gelombang bunyi yang dalam keseharian dapat kita dengar.

Menilik lebih lanjut mengenai speaker komputer, kali ini penulis akan membahas untuk bagian-bagian speaker komputer:

Sekat rongga (conus). Berfungsi untuk menghasilkan gelombang tekanan yang diakibatkan oleh gerakan udara di sekitarnya dari pergerakan kumparan. Gelombang tekanan tersebutlah yang sehari-hari kita dengarkan sebagai suara.
Membran. Berfungsi untuk menerima proses induksi dari magnet yang kemudian menghasilkan bunyi yang diakibatkan oleh getarannya (induksi).
Magnet. Berfungsi melakukan induksi terhadap membran dan juga untuk menghasilkan medan magnet.
Kumparan. Berfungsi mengalirkan energi gerak menuju ke conus atau sekat rongga. Perubahan yang terjadi dalam medan magnet speaker menyebabkan geraknya kumparan yang diakibatkan oleh interaksi antara kumparan dengan medan konstan magnet.
Casing. Berfungsi untuk melindungi seluruh bagian dalam speaker. Model casing sendiri cukup beraneka ragam, seperti misalnya berbahan kertas, plastik, logam, ataupun bahan campuran yang disebut composite.

Demikianlah ulasan singkat mengenai pengertian perangkat keras speaker beserta fungsi sekaligus bagian-bagiannya. Semoga pembaca yang budiman dapat mengambil intisari sehingga memahami apa yang penulis jelaskan dalam tulisan ini. Tetap semangat belajar komputer dan semoga bermanfaat. (Baca juga tentang: Penyebab Komputer Lemot dan Cara Mengatasinya)

Minggu, 24 Mei 2015

Cara Belajar Komputer

Pada era globalisasi keberadaan komputer kini menjadi sebuah kebutuhan pokok yang sangatlah dibutuhkan. Faktanya komputer merupakan sebuah alat yang dapat mempermudah pekerjaan manusia. Komputer sangatlah dibutuhkan oleh berbagai kalangan tanpa memandang usia, dari yang muda hingga yang tua hampir semua membutuhkan keberadaan komputer. Maka tak ayal dari hari ke hari pengguna komputer semakin mewabah dan tak sedikit pula yang ingin mempelajari belajar mengoperasikan alat yang satu ini. Namun lambat laun fungsi pokok dari sebuah komputer kian bergeser dari yang semula untuk meringankan pekerjaan kini beralih pada kepuasan pribadi.

Sebelum kita mulai mempelajari apa itu komputer, sebaiknya kita bertanya kepada diri pribadi kita sendiri. Apakah yang membuat kita tertarik untuk mempelajari komputer? Pasti tiap orang mempunyai jawaban yang beragam dalam menanggapi pertanyaan tersebut, seperti karena tuntutan kerja, iseng, sekedar belajar, ingin menjadi ahli komputer, tak ingin dibilang ketinggalan zaman dan setumpuk alasan lainnya.

cara belajar komputer dengan benar
Berikut adalah tips cara belajar komputer yang mungkin dapat berguna bagi kita yang ingin atau sedang mempelajari komputer:

Bisa Menggunakan Komputer Secara Mandiri
Balajar komputer akan lebih nyaman apabila menggunakan komputer pribadi, sebab dengan memiliki komputer secara pribadi kita akan lebih berkonsentrasi dan bisa berbuat sesuka hati dengan komputer yang kita miliki, kapan pun waktu yang kita inginkan dan tentunya juga tidak diselimuti rasa takut membuat rusak dan harus mengganti rugi atas komputer yang kita pinjam.

Tentukan Tujuan Penggunaan
Seperti yang sudah disinggung di atas, karena apabila tujuan kita belajar komputer lebih terarah maka kita akan lebih cepat dalam menguasai dunia komputer. Jadi menetapkan target dalam belajar komputer juga merupakan sebuah fatkor yang penting. Jadi apabila satu target sudah tercapai kita bisa menentukan target yang akan kita capai selanjutnya.

Pahami Bidang yang Akan Kita Belajari
Dalam belajar komputer tidak bisa dengan mencapur aduk antara bidang yang satu dengan bidang yang lain, jadi kita harus menentukan satu bidang dahulu untuk kita kuasai, misalnya kita memilih di bidang desain grafis seterusnya kita harus mempelajari bidang tersebut beserta softwarenya sampai minimal kita memahami cara menggunakannya barulah kita dapat beralih pada bidang selanjutnya yang kita inginkan. 

Mempunyai Materi Sebagai Dasar untuk Belajar
Referensi juga dibutuhkan dalam proses belajar komputer. Sebab apabila pada suatu saat kita tidak ada yang membimbing dalam proses belajar kita bisa membaca referensi sambil mempraktekkannya langsung di komputer kita.

Sering Berlatih
Belajar komputer sebenarnya tidakla terlalu rumit, namun kemampuan kita akan bertambah secara sendirinya seiring seringnya kita berlatih dan mempergunakannya. Seperti halnya pisau yang tajam, apabila tidak pernah diasah lama kelamaan pasti juga akan tumpul.

Sebenarnya masih banyak tips lain yang dapat kita pelajari dalam rangka belajar untuk mengoperasikan komputer, namun cara belajar komputer yang paling utama adalah hal-hal yang telah diuraikan di atas. Semoga bermanfaat bagi ingin memulai cara belajar komputer.
(Baca juga tentang: Cara Cerdas Menentukan Spesifikasi Komputer Server yang Baik )

Google Talk XMPP VB.Net

Google Talk XMPP VB.NetBuat sobat yang pengin mendapatkan project yang telah admin buat silahkan kunjungi link berikut ini google talk vb.net. Sekian dari admin, tolong bantu untuk share ke teman-teman yang lain, siapa tau akan bermanfaat juga buat mereka, dan pastinya sobat akan mendapatkan pahala juga, aamiin... :)

Google talk in VB.Net


Imports agsXMPP
Imports agsXMPP.protocol.client

Public Class Form1

    Dim objXmpp As New XmppClientConnection
    Dim Jid As Jid
    Dim Receiver As String
    Dim _wait As Boolean
    Private WithEvents TmrContact As New Timer

    Private Sub BtnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogin.Click
        BtnLogin.Enabled = False
        Application.DoEvents()

        If Not LCase(txtJid.Text).Contains("@gmail.com") Then txtJid.Text &= "@gmail.com"

        Jid = New Jid(txtJid.Text)

        With objXmpp
            .Server = "gmail.com" 'Jid.Server
            .ConnectServer = "talk.google.com"
            .Username = Jid.User
            .Password = txtPassword.Text
            '.Resource = String.Empty
            '.Priority = CInt(numPriority.Value)
            '.Port = Integer.Parse(txtPort.Text)
            .AutoResolveConnectServer = True
            .UseStartTLS = True

            'If (chkRegister.Checked) Then
            '    .RegisterAccount = True
            'Else
            '    .RegisterAccount = False
            'End If

            .Open()
            AddHandler .OnAuthError, AddressOf OnAuthError
            AddHandler .OnLogin, AddressOf OnLogin
            AddHandler .OnPresence, AddressOf OnPresence
            AddHandler .OnMessage, AddressOf MsgReceived
            AddHandler .OnClose, AddressOf OnClose
            AddHandler .OnError, AddressOf OnError
        End With
    End Sub

    Private Sub OnAuthError(ByVal sender As Object, ByVal e As agsXMPP.Xml.Dom.Element)
        Control.CheckForIllegalCrossThreadCalls = False
        LblStatus.Text = "OnAuthError"
        LblStatus.ForeColor = Color.Red
    End Sub

    ' Is raised when login and authentication is finished 
    Private Sub OnLogin(ByVal sender As Object)
        Control.CheckForIllegalCrossThreadCalls = False
        _wait = False
        LblStatus.Text = "Logged In"
        LblStatus.ForeColor = Color.Green
        With TmrContact
            .Interval = 1000
            .Start()
        End With
    End Sub

    'get contacts
    Private Sub OnPresence(ByVal sender As Object, ByVal pres As Presence)
        Control.CheckForIllegalCrossThreadCalls = False
        'If LBContacts.Items.Count = 0 Then
        LBContacts.Items.Add(pres.From.User & "@" & pres.From.Server)
        '    Return
        'End If
    End Sub

    Private Sub ShowMsg(ByVal Text As String)
        Control.CheckForIllegalCrossThreadCalls = False
        TxtMsgIn.Text = TxtMsgIn.Text.Insert(0, Text & vbCrLf & vbCrLf)
    End Sub

    Private Sub MsgReceived(ByVal sender As Object, ByVal msg As Message)
        Dim arrUser() As String
        arrUser = msg.From.ToString.Split("/")
        Receiver = arrUser(0)

        If msg.Body = "" Then Return
        ShowMsg(Receiver & " <" & Now & "> :" & vbCrLf & msg.Body)

        Me.Focus()

        ''======================
        ''BUAT AUTO REPLY
        'Dim chatMessage() As String
        'chatMessage = msg.From.ToString.Split("/")
        'jid = New Jid(chatMessage(0))
        'Dim autoReply As Message
        'autoReply = New Message(jid, MessageType.chat, txtMsgOut.Text & " : http://gtalkautoreply.codeplex.com/")
        'objXmpp.Send(autoReply)
        ''======================
    End Sub

    Private Sub OnClose(ByVal sender As Object)
        Control.CheckForIllegalCrossThreadCalls = False
        LblStatus.Text = "Logout"
        LblStatus.ForeColor = Color.Red
    End Sub

    Private Sub OnError(ByVal sender As Object, ByVal ex As Exception)
        Control.CheckForIllegalCrossThreadCalls = False
        LblStatus.Text = "OnError"
        LblStatus.ForeColor = Color.Red
    End Sub

    Private Sub TmrContact_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TmrContact.Tick

        TmrContact.Stop()
        AddHandler objXmpp.OnPresence, AddressOf OnPresence
        TmrContact.Start()

    End Sub

    Private Sub BtnLogout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogout.Click
        objXmpp.Close()
        LBContacts.Items.Clear()
        TxtMsgIn.Clear()
        TxtTo.Clear()
        TxtMsgOut.Clear()
        BtnLogin.Enabled = True
    End Sub

    Private Sub BtnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSend.Click
        Try
            objXmpp.Send(New Message(New Jid(TxtTo.Text), MessageType.chat, TxtMsgOut.Text))
            ShowMsg(txtJid.Text & " <" & Now & "> :" & vbCrLf & TxtMsgOut.Text)
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, Text)
        End Try
    End Sub

    Private Sub LBContacts_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles LBContacts.DoubleClick
        TxtTo.Text = LBContacts.SelectedItem
        TxtMsgOut.Focus()
    End Sub
End Class

GTalk Source Code VB Net

GTalk Source Code VB Net - Ini adalah cara termudah dan tercepat membuat gtalk client sendiri. Sobat dapat memanfaatkan metode ini untuk develop aplikasi sendiri, baik itu sebagai gateway atau untuk personal chating.

Berbicara mengenai aplikasi gateway yang menggunakan gtalk, hal ini biasanya banyak digunakan oleh para developer program server pulsa, teknik ini biasa dinamakan H2H (host to host) melalui jaringan internet dengan perantara gtalk. Selain menggunakan gtalk, yahoo messenger (ym) pun dapat dimanfaatkan untuk H2H antar server, untuk tutorialnya silahkan kunjungi Login to Yahoo Messenger With VB.Net.

gtalk source code vb net

Source code gtalk vb.net ini admin kembangkan dengan menggunakan protokol xmpp, dan untuk mengetahui lebih lanjut apa itu xmpp silahkan sobat googling sendiri :D. Oke langsung aja kita lihat source codenya dibawah ini.

Imports agsXMPP
Imports agsXMPP.protocol.client

Public Class Form1

    Dim objXmpp As New XmppClientConnection
    Dim Jid As Jid
    Dim Receiver As String
    Dim _wait As Boolean
    Private WithEvents TmrContact As New Timer

    Private Sub BtnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogin.Click
        BtnLogin.Enabled = False
        Application.DoEvents()

        If Not LCase(txtJid.Text).Contains("@gmail.com") Then txtJid.Text &= "@gmail.com"

        Jid = New Jid(txtJid.Text)

        With objXmpp
            .Server = "gmail.com" 'Jid.Server
            .ConnectServer = "talk.google.com"
            .Username = Jid.User
            .Password = txtPassword.Text
            '.Resource = String.Empty
            '.Priority = CInt(numPriority.Value)
            '.Port = Integer.Parse(txtPort.Text)
            .AutoResolveConnectServer = True
            .UseStartTLS = True

            'If (chkRegister.Checked) Then
            '    .RegisterAccount = True
            'Else
            '    .RegisterAccount = False
            'End If

            .Open()
            AddHandler .OnAuthError, AddressOf OnAuthError
            AddHandler .OnLogin, AddressOf OnLogin
            AddHandler .OnPresence, AddressOf OnPresence
            AddHandler .OnMessage, AddressOf MsgReceived
            AddHandler .OnClose, AddressOf OnClose
            AddHandler .OnError, AddressOf OnError
        End With
    End Sub

    Private Sub OnAuthError(ByVal sender As Object, ByVal e As agsXMPP.Xml.Dom.Element)
        Control.CheckForIllegalCrossThreadCalls = False
        LblStatus.Text = "OnAuthError"
        LblStatus.ForeColor = Color.Red
    End Sub

    ' Is raised when login and authentication is finished 
    Private Sub OnLogin(ByVal sender As Object)
        Control.CheckForIllegalCrossThreadCalls = False
        _wait = False
        LblStatus.Text = "Logged In"
        LblStatus.ForeColor = Color.Green
        With TmrContact
            .Interval = 1000
            .Start()
        End With
    End Sub

    'get contacts
    Private Sub OnPresence(ByVal sender As Object, ByVal pres As Presence)
        Control.CheckForIllegalCrossThreadCalls = False
        'If LBContacts.Items.Count = 0 Then
        LBContacts.Items.Add(pres.From.User & "@" & pres.From.Server)
        '    Return
        'End If
    End Sub

    Private Sub ShowMsg(ByVal Text As String)
        Control.CheckForIllegalCrossThreadCalls = False
        TxtMsgIn.Text = TxtMsgIn.Text.Insert(0, Text & vbCrLf & vbCrLf)
    End Sub

    Private Sub MsgReceived(ByVal sender As Object, ByVal msg As Message)
        Dim arrUser() As String
        arrUser = msg.From.ToString.Split("/")
        Receiver = arrUser(0)

        If msg.Body = "" Then Return
        ShowMsg(Receiver & " <" & Now & "> :" & vbCrLf & msg.Body)

        Me.Focus()

        ''======================
        ''BUAT AUTO REPLY
        'Dim chatMessage() As String
        'chatMessage = msg.From.ToString.Split("/")
        'jid = New Jid(chatMessage(0))
        'Dim autoReply As Message
        'autoReply = New Message(jid, MessageType.chat, txtMsgOut.Text & " : http://gtalkautoreply.codeplex.com/")
        'objXmpp.Send(autoReply)
        ''======================
    End Sub

    Private Sub OnClose(ByVal sender As Object)
        Control.CheckForIllegalCrossThreadCalls = False
        LblStatus.Text = "Logout"
        LblStatus.ForeColor = Color.Red
    End Sub

    Private Sub OnError(ByVal sender As Object, ByVal ex As Exception)
        Control.CheckForIllegalCrossThreadCalls = False
        LblStatus.Text = "OnError"
        LblStatus.ForeColor = Color.Red
    End Sub

    Private Sub TmrContact_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TmrContact.Tick

        TmrContact.Stop()
        AddHandler objXmpp.OnPresence, AddressOf OnPresence
        TmrContact.Start()

    End Sub

    Private Sub BtnLogout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogout.Click
        objXmpp.Close()
        LBContacts.Items.Clear()
        TxtMsgIn.Clear()
        TxtTo.Clear()
        TxtMsgOut.Clear()
        BtnLogin.Enabled = True
    End Sub

    Private Sub BtnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSend.Click
        Try
            objXmpp.Send(New Message(New Jid(TxtTo.Text), MessageType.chat, TxtMsgOut.Text))
            ShowMsg(txtJid.Text & " <" & Now & "> :" & vbCrLf & TxtMsgOut.Text)
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, Text)
        End Try
    End Sub

    Private Sub LBContacts_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles LBContacts.DoubleClick
        TxtTo.Text = LBContacts.SelectedItem
        TxtMsgOut.Focus()
    End Sub
End Class

Nah itulah sedikit ulasan mengenai google talk xmpp vb.net semoga dapat bermanfaat buat kita semua. Untuk project beserta sourcenya yang telah admin buat, silahkan kunjungi halaman create gtalk in vb.net.

Video create gtalk using vb.net