Kamis, 28 November 2013

Membuat form Mahasiswa dengan visual basic


   hari ini saya akan membuat postingan tentang cara membuat form mahasiswa dengan mengunakan visual basic.........
Hasilnya akan seperti  ini:

Langkah-langkahnya sebagai berikut:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("12110485")
        npm.Items.Add("12110020")
        npm.Items.Add("12110352")
        npm.Items.Add("10110478")
        kodedosen.Items.Add("KKTI01")
        kodedosen.Items.Add("KKTI02")
        kodedosen.Items.Add("KKTI03")
        kodedosen.Items.Add("KKTI04")

        kdmatakuliah.Items.Add("MT01")
        kdmatakuliah.Items.Add("MT02")
        kdmatakuliah.Items.Add("MT03")
        kdmatakuliah.Items.Add("MT04")

        Dim i As Integer
        For i = 10 To 100
            nk.Items.Add(i)
        Next i

        Dim j As Integer
        For j = 10 To 100
            nt.Items.Add(j)
        Next j

        Dim k As Integer
        For k = 10 To 100
            uts.Items.Add(k)
        Next k

        Dim l As Integer
        For l = 10 To 100
            uas.Items.Add(l)
        Next l

    End Sub


    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.Text
            Case "12110485"
                nama.Text = "Dezy Wandrio"
            Case "12110020"
                nama.Text = " Invandri Lubis"
            Case "12110352"
                nama.Text = "elda khairani"
            Case "12030478"
                nama.Text = "Park cu Yoon"

        End Select
        Dim i As String
        i = Microsoft.VisualBasic.Left(npm.Text, 2)
        If i = "12" Then
            jenjang.Text = "S1"
            jurusan.Text = "Teknik Informatika"
        ElseIf i = "11" Then
            jenjang.Text = "D3"
            jurusan.Text = "Manajemen Informatika"
        ElseIf i = "10" Then
            jenjang.Text = "D1"
            jurusan.Text = "Jaringan Komunikasi"
        ElseIf i = "10" Then
            jenjang.Text = "s1"
            jurusan.Text = "teknik informatika"
        End If
    End Sub

    Private Sub kodedosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodedosen.SelectedIndexChanged
        Select Case kodedosen.Text
            Case "KKTI01"
                nmdosen.Text = "Mesran,M.Kom"
            Case "KKTI02"
                nmdosen.Text = "Ahmad Zakir,St,M.Kom"
            Case "KKTI03"
                nmdosen.Text = " M.Syahrizal,S.Kom,M.kom"
            Case "KKTI04"
                nmdosen.Text = "Maranata,ST,M.Kom"
        End Select
    End Sub

    Private Sub kdmatakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdmatakuliah.SelectedIndexChanged
        Select Case kdmatakuliah.Text
            Case "MT01"
                matakuliah.Text = "struktur data"
            Case "MT02"
                matakuliah.Text = "Pemograman Visual"
            Case "MT03"
                matakuliah.Text = "Komunikasi Data"
            Case "MT04"
                matakuliah.Text = "Arsitektur Dan Organissi"
        End Select
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        na.Text = 0.1 * nk.Text + 0.15 * nt.Text + 0.3 * uts.Text + 0.45 * uas.Text
        If na.Text >= 80 Then
            nh.Text = "A"
            keterangan.Text = "Lulus"
        ElseIf na.Text >= 70 Then
            nh.Text = "B"
            keterangan.Text = "Lulus"
        ElseIf na.Text >= 60 Then
            nh.Text = "C"
            keterangan.Text = "Lulus"
        ElseIf na.Text >= 50 Then
            nh.Text = "D"
            keterangan.Text = "Gagal"
        Else
            nh.Text = "E"
            keterangan.Text = "Gagal"

        End If


    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        npm.Text = ""
        nama.Text = ""
        jurusan.Text = ""
        jenjang.Text = ""
        kodedosen.Text = ""
        nmdosen.Text = ""
        kdmatakuliah.Text = ""
        matakuliah.Text = ""
        nk.Text = ""
        nt.Text = ""
        uts.Text = ""
        uas.Text = ""
        na.Text = ""
        nh.Text = ""
        keterangan.Text = ""

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End

    End Sub
End Class

Senin, 25 November 2013

Contoh Program Sederhana Dengan VB.NET


Tugas  Belajar Bahasa Pemograman dari Sip 1203

nah disini ada beberapa cara menjalankan VB.NET
design Form :






Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("13111000")
        npm.Items.Add("13111001")
        npm.Items.Add("13111011")
        Me.Text = " FORM NILAI "
        Me.BackColor = Color.Blue
     
        kdosen.Items.Add("01")
        kdosen.Items.Add("02")
        kdosen.Items.Add("03")

        kode_mt.Items.Add("001")
        kode_mt.Items.Add("002")
        kode_mt.Items.Add("003")

        nk.Items.Add("40")
        nk.Items.Add("50")
        nk.Items.Add("60")
        nk.Items.Add("70")
        nk.Items.Add("80")
        nk.Items.Add("90")

        nt.Items.Add("40")
        nt.Items.Add("50")
        nt.Items.Add("60")
        nt.Items.Add("70")
        nt.Items.Add("80")
        nt.Items.Add("90")

        nu.Items.Add("40")
        nu.Items.Add("50")
        nu.Items.Add("60")
        nu.Items.Add("70")
        nu.Items.Add("80")
        nu.Items.Add("90")

        nuas.Items.Add("40")
        nuas.Items.Add("50")
        nuas.Items.Add("60")
        nuas.Items.Add("70")
        nuas.Items.Add("80")
        nuas.Items.Add("90")
    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.Text
            Case "13111000"
                nama.Text = "Andi Jost"
                jenjang.Text = "S1"
                jurusan.Text = "Tehnik Informatika"
                proses.BackColor = Color.Orange
                keluar.BackColor = Color.Red
                hapus.BackColor = Color.Green
                Me.BackColor = Color.Crimson
            Case "13111001"
                nama.Text = "Joko S"
                jenjang.Text = "D3"
                jurusan.Text = "Manajemen Informatika"
                proses.BackColor = Color.Green
                keluar.BackColor = Color.Magenta
                hapus.BackColor = Color.Blue
                Me.BackColor = Color.BlueViolet
            Case Else
                nama.Text = "Ani S"
                jenjang.Text = "D1"
                jurusan.Text = "design Grafis"
                Me.BackColor = Color.Orange
                proses.BackColor = Color.Red
                keluar.BackColor = Color.Gold
        End Select
    End Sub

    Private Sub kdosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdosen.SelectedIndexChanged
        If kdosen.Text = "01" Then
            ndosen.Text = "Mesran.net"
        ElseIf kdosen.Text = "02" Then
            ndosen.Text = "Taroni Zebua"
        Else
            ndosen.Text = "Aulia Ramadhan"
        End If
    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        npm.Text = ""
        nama.Text = ""
        jenjang.Text = ""
        jurusan.Text = ""
        kdosen.Text = ""
        ndosen.Text = ""
        kode_mt.Text = ""
        mkuliah.Text = ""
        nk.Text = ""
        nt.Text = ""
        nu.Text = ""
        nuas.Text = ""
        nakhir.Text = ""
        nhuruf.Text = ""
        keterangan.Text = ""
    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        Me.Close()
    End Sub

    Private Sub kode_mt_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_mt.SelectedIndexChanged
        Select Case kode_mt.Text
            Case "001"
                mkuliah.Text = "visuL Basic"
            Case "002"
                mkuliah.Text = "kalkulus"
            Case Else
                mkuliah.Text = "Matriks"
        End Select
    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        nakhir.Text = 0.1 * nk.Text + 0.15 * nt.Text + 0.3 * nu.Text + 0.45 * nuas.Text

        Dim a As Integer
        a = nakhir.Text
        Select Case a
            Case Is >= 50
                keterangan.Text = "lulus"
            Case Is <= 50
                keterangan.Text = "gagal"
        End Select

        If nakhir.Text >= 80 Then
            nhuruf.Text = "A"
        ElseIf nakhir.Text >= 70 Then
            nhuruf.Text = "B"
        ElseIf nakhir.Text >= 60 Then
            nhuruf.Text = "C"
        ElseIf nakhir.Text >= 50 Then
            nhuruf.Text = "D"
        ElseIf nakhir.Text <= 50 Then
            nhuruf.Text = "E"
        End If
    End Sub
End Class




selesai :) :)


Jumat, 08 November 2013

Artikel Pendidikan: Sejarah Perkembangan Teknologi

Sejarah Perkembangan Teknologi menarik untuk kita simak bersama mengingat perkembagan teknologi dari masa ke masa sangat penting bagi perkembangan peradaban manusia.Perkembangan peradaban manusia diiringi dengan perkembangan cara penyampaian informasi (yang selanjutnya dikenal dengan istilah teknologi informasi), mulai dari gambar-gambar yang tak bermakna di dinding-dinding gua, peletakan tonggak sejarah dalam bentuk prasasti, sampai diperkenalkannya dunia arus informasi yang dikenal dengan nama internet.

Sejarah Perkembangan Teknologi

1. Masa Prasejarah

Pada zaman ini, teknologi informasi dan komunikasi yang dilakukan oleh manusia berfungsi sebagai sistem untuk pengenalan bentuk-bentuk yang manusia kenal. Untuk menggambarkan informasi yang diperoleh, mereka menggambarkannya pada dinding-dinding gua tentang berburu dan binatang buruannya. Pada masa ini, manusia mulai mengidentifikasi benda-benda yang ada di sekitar lingkungan tempat tinggal mereka, kemudian melukiskannya pada dinding gua tempat tinggalnya. Awal komunikasi mereka pada zaman ini hanya berkisar pada bentuk suara dengusan dan menggunakan isyarat tangan.
Pada zaman prasejarah mulai diciptakan dan digunakan alat-alat yang menghasilkan bunyi dan isyarat, seperti gendang, terompet yang terbuat dari tanduk binatang, dan isyarat asap sebagai alat pemberi peringatan terhadap bahaya.

a. 3000 SM

Untuk yang pertama kali, tulisan digunakan oleh bangsa Sumeria dengan menggunakan simbol-simbol yang dibentuk dari piktografi sebagai huruf. Simbol atau huruf-huruf ini juga mempunyai bentuk bunyi (penyebutan) yang berbeda sehingga mampu menjadi kata, kalimat, dan bahasa.

b. 2900 SM

Pada 2900 SM, bangsa Mesir Kuno menggunakan huruf hieroglif. Hieroglif merupakan bahasa simbol, dimana setiap ungkapan diwakili oleh simbol yang berbeda. Jika simbol-simbol tersebut digabungkan menjadi satu rangkaian, maka akan menghasilkan sebuah arti yang berbeda. Bentuk tulisan dan bahasa hieroglif ini lebih maju dibandingkan dengan tulisan bangsa Sumeria.



c. 500 SM

Pada 500 SM, manusia sudah mengenal cara membuat serat dari pohon papyrus yang tumbuh di sekitar sungai Nil. Serat papyrus dapat digunakan sebagai kertas. Kertas yang terbuat dari serat pohon papyrus menjadi media untuk menulis atau media untuk menyampaikan informasi yang lebih kuat dan fleksibel dibandingkan dengan lempengan tanah liat yang sebelumnya juga digunakan sebagai media informasi.

d. 105 M

Pada masa ini, bangsa Cina berhasil menemukan kertas. Kertas yang ditemukan oleh bangsa Cina pada masa ini adalah kertas yang kita kenal sekarang. Kertas ini dibuat dari serat bambu yang dihaluskan, disaring, dicuci, kemudian diratakan dan dikeringkan. Penemuan ini juga memungkinkan sistem pencetakan yang dilakukan dengan menggunakan blok kayu yang ditoreh dan dilumuri oleh tinta atau yang kita kenal sekarang dengan sistem cap.

2. Masa Modern (1400 M s.d. Sekarang)

a. Tahun 1455
Pada 1455, untuk pertama kalinya Johann Gutenberg mengembangkan mesin cetak dengan menggunakan plat huruf yang terbuat dari besi dan dapat diganti-ganti dalam bingkai yang terbuat dari kayu.

b. Tahun 1830
Augusta Lady Byron menulis program komputer yang pertama di dunia. Ia bekerja sama dengan Charles Babbage menggunakan mesin analytical yang didesain sehingga mampu memasukkan data, mengolah data, dan menghasilkan bentuk keluaran dalam sebuah kartu. Mesin ini dikenal sebagai bentuk komputer digital yang pertama, walaupun cara kerjanya lebih bersifat mekanis daripada bersifat digital.

c. Tahun 1837
Samuel Morse mengembangkan telegraf dan bahasa kode morse bersama Sir William Cook dan Sir Charles Wheatstone. Morse menggunakan kode-kode sederhana untuk mewakili pesan-pesan yang ingin dikirimkan dengan menggunakan pulsa listrik melalui kabel tunggal. Namun sinyal-sinyal yang dapat dikirim dengan baik hanya berada dalam jarak 32 km. Untuk jarak yang lebih jauh, sinyal-sinyal yang diterima menjadi terlalu lemah untuk direkam. Kemudian, Morse membangun peralatan relai yang ditempatkan di setiap 32 km dari stasiun sinyal. Relai tersebut berfungsi untuk mengulangi sinyal yang diterima dan mengirimnya kembali ke 32 km berikutnya. Relai terdiri dari sakelar yang dioperasikan secara elektromagnetik. Sistem telegraf kemudian segera digunakan untuk bisnis yang membutuhkan pengiriman pesan secara cepat untuk jarak yang jauh, seperti surat kabar dan pesan untuk perjalanan kereta api.

d. Tahun 1877
Pada 1877, Alexander Graham Bell menciptakan dan mengembangkan telepon yang dipergunakan pertama kali secara umum. Pada 1879, sistem pemanggilan telepon mulai menggunakan nomor yang menggantikan sistem pemanggilan nama. Hal ini untuk mencegah operator yang tidak mengenal semua pelanggan. Sistem penomoran telepon menggunakan huruf dan angka, dimana nomor telepon menggunakan sistem dua huruf dan lima digit angka.

e. Tahun 1889
Pada 1889, Herman Hollerith menerapkan prinsip kartu perforasi untuk melakukan penghitungan. Tugas pertamanya adalah menemukan cara yang lebih cepat untuk melakukan perhitungan bagi Biro Sensus Amerika Serikat. Sensus yang dilakukan pada 1880 membutuhkan waktu tujuh tahun untuk menyelesaikan perhitungan. Dengan berkembangnya populasi, Biro Sensus tersebut memperkirakan bahwa dibutuhkan waktu sepuluh tahun untuk menyelesaikan perhitungan sensus.
Hollerith menggunakan kartu perforasi untuk memasukkan data sensus yang kemudian diolah oleh alat tersebut secara mekanik. Sebuah kartu dapat menyimpan hingga 80 variabel. Dengan menggunakan alat tersebut, hasil sensus dapat diselesaikan dalam waktu enam minggu. Selain memiliki keuntungan dalam bidang kecepatan, kartu tersebut berfungsi sebagai media penyimpan data. Tingkat kesalahan perhitungan juga dapat ditekan secara drastis.

f. Tahun 1931
Pada 1931, Vannevar Bush membuat sebuah kalkulator untuk menyelesaikan persamaan differensial. Mesin tersebut dapat menyelesaikan persamaan differensial kompleks yang selama ini dianggap rumit oleh kalangan pelajar dan mahasiswa. Mesin tersebut sangat besar dan berat karena ratusan gerigi dan poros yang dibutuhkan untuk melakukan perhitungan.

g. Tahun 1939
Pada 1939, Dr. John V. Atanasoff dan dibantu oleh Clifford Berry berhasil menciptakan komputer elektronik digital pertama. Sejak saat ini, komputer terus mengalami perkembangan sehingga menjadi semakin canggih. Mengenai sejarah perkembangan komputer ini akan dijelaskan pada bagian berikutnya.

h. Tahun 1973 – 1990
Pada masa ini, istilah internet diperkenalkan dalam sebuah paper tentang TCP/IP. Secara harfiah, internet (interconnected networking) diartikan sebagai rangkaian komputer yang terhubung di dalam beberapa rangkaian. Rangkaian pusat yang membentuk internet diawali pada 1969 sebagai ARPANET yang dibangun oleh ARPA (United States Department of Defense Advanced Research Projects Agency). Beberapa penyelidikan awal yang disumbang oleh ARPANET di antaranya adalah kaedah rangkaian tanpa pusat (decentralised network), teori queueing, dan kaedah pertukaran paket (packet switching).
Pada 1981, National Science Foundation mengembangkan backbone yang disebut CSNET dengan kapasitas 56 Kbps untuk setiap institusi dalam pemerintahan.
Pada 1 Januari 1983, ARPANET menukar protokol rangkaian pusatnya, dari NCP ke TCP/IP. Ini merupakan awal dari Internet yang kita kenal sekarang. Kemudian pada 1986, IETF mengembangkan sebuah server yang berfungsi sebagai alat koordinasi di antara DARPA, ARPANET, DDN, dan Internet Gateway. Pada 1990-an, internet telah berkembang dan menyambungkan banyak pengguna jaringan-jaringan komputer yang ada.

i. Tahun 1991 – Sekarang
Sistem bisnis dalam bidang IT pertama kali terjadi ketika CERN memungut bayaran dari para anggotanya untuk menanggulangi biaya operasionalnya. Pada 1992, mulai terbentuk komunitas internet dan diperkenalkannya istilah World Wide Web (www) oleh CERN. Pada 1993, NSF membentuk InterNIC untuk menyediakan jasa pelayanan internet menyangkut direktori dan penyimpanan data serta database (oleh AT&T), jasa registrasi (oleh Network Solution Inc), dan jasa informasi (oleh General Atomics/CERFnet). Pada 1994, pertumbuhan internet melaju dengan sangat cepat dan mulai merambah ke dalam berbagai segi kehidupan manusia dan menjadi bagian yang tidak dapat dipisahkan dari manusia. Pada 1995, perusahaan umum mulai diperkenankan menjadi provider dengan membeli jaringan di backbone. Langkah ini memulai pengembangan teknologi informasi, khususnya internet dan penelitian-penelitian untuk mengembangkan sistem dan alat yang lebih canggih.

Artikel kesehatan: Gejala dan Penyebab Stress

Stress adalah reaksi tubuh terhadap situasi yang tampak berbahaya atau sulit. Stres membuat tubuh untuk memproduksi hormone adrenaline yang berfungsi untuk mempertahankan diri. Stres merupakan bagian dari kehidupan manusia. Stres yang ringan berguna dan dapat memacu seseorang untuk berpikir dan berusaha lebih berpikir dan berusaha lebih cepat dan keras sehingga dapat menjawab tantangan hidup seharihari. Stres ringan bisa merangsang dan memberikan rasa lebih bergairah dalam kehidupan yang biasanya membosankan dan rutin. Tetapi stress yang terlalu banyak dan berkelanjutan, bila tidak ditanggulangi, akan berbahaya bagi kesehatan.


Gejala-gejala stress :
  • Menjadi mudah tersinggung dan marah terhadap teman, keluarga dan kolega. 
  • Bertindak secara agresif dan defensif
  • Merasa selalu lelah.
  • Sukar konsentrasi atau menjadi pelupa.
  • Palpitasi atau jantung berdebar-debar.
  • Otot-otot tegang.
  • Sakit kepala, perut dan diare.
Komplikasi stress
  • Tekanan darah tinggi dan serangan jantung. 
  • Sakit mental, hysteria.
  • Gangguan makan seperti hilang nafsu makan atau terlalu banyak makan.
  • Tidak bisa tidur (insomnia).
  • Migren/kepala pusing.
  • Sakit maag.
  • Serangan asma yang tambah berat.
  • Ruam kulit.
Penyebab stress
  • Kejadian hidup sehari-hari baik gembira dan sedih seperti: 
  • Menikah/mempunyai anak.
  • Mulai tempat kerja baru/pindah rumah/emigrasi.
  • Kehilangan orang yang dicintai baik karena meninggal atau cerai.
  • Masalah hubungan pribadi.
  • Pelajaran sekolah maupun pekerjaan yang membutuhkan jadwal waktu yang ketat, dan atau bekerja dengan atasan yang keras dan kurang pengertian.
  • Tidak sehat.
  • Lingkungan seperti terlalu ramai, terlalu banyak orang atau terlalu panas dalam rumah atau tempat kerja.
  • Masalah keuangan seperti hutang dan pengeluaran di luar kemampuan.
  • Kurang percaya diri, pemalu
  • Terlalu ambisi dan bercita-cita terlalu tinggi.
  • Perasaan negatif seperti rasa bersalah dan tidak tahu cara pemecahannya, frustasi.
  • Tidak dapat bergaul, kurang dukungan kawan.
  • Membuat keputusan masalah yang bisa merubah jalan hidupnya atau dipaksa untuk merubah nilai-nilai/prinsip hidup pribadi. Yang dapat anda lakukan
Bagaimana mencegah stress ?
  • Lihat/ukur kemampuan sendiri. Belajar untuk menerima apa adanya dan mencintai diri sendiri.
  • Temukan penyebab perasaan negatif dan belajar untuk menanggulanginya. Jangan memperberat masalah dan coba untuk sekali-kali mengalah terhadap orang lain meskipun mungkin anda di pihak yang benar.
  • Rencanakan perubahan-perubahan besar dalam kehidupan anda dalam jangka lama dan beri waktu secukupnya bagi diri anda untuk menyesuaikan dari perubahan satu ke yang lainnya.
  • Rencanakan waktu anda dengan baik. Buat daftar yang harus dikerjakan sesuai prioritas.
  • Buat keputusan dengan hati-hati. Pertimbangkan dengan masak-masak segi baik atau buruk sebelum memutuskan sesuatu.
  • Biarkan orang lain ikut memikirkan masalah anda. Ceritakan kepada pasangan hidup, teman, supervisor atau pemimpin agama. Mereka mungkin bisa membantu meletakkan masalah anda sesuai dengan proporsinya dan menawarkan cara-cara pemecahan yang berguna.
  • Bangun suatu sistim pendorong yang baik dengan cara banyak berteman dan mempunyai keluarga yang bahagia. Mereka akan selalu bersama anda dalam setiap kesulitan.Jaga kesehatan, makan dengan baik, tidur cukup dan latihan olahraga secara teratur.
  • Rencanakan waktu untuk rekreasi.
  • Tehnik relaksasi seperti napas dalam, meditasi atau pijatan mungkin bisa