Soal No 3 ( Dedi Muhardi "0911085 " )

LISTING PROGRAM Formlogin

Kasus mengenai penggajian karyawan/pegawai,, untuk mengetahui soal nya klik diSINI

Public Class Formlogin

    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click

        If username.Text = "Dedi Muhardi" And password.Text = "0911085" Then

            menuutama.Show()

            Me.Hide()

        Else

            MsgBox("maaf saudara, password yang anda masukkan tidak di temukan")

            username.Text = ""

            password.Text = ""

        End If

    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click

        End

    End Sub

End Class

HASIL PROGRAM Formlogin

 

LISTING PROGRAM menuutama

Public Class menuutama

    Private Sub gajipegawai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pegawai.Click

        gajipegawai.Show()

    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click

        End

    End Sub

End Class

HASIL PROGRAM menuutama

LISTING PROGRAM  gajipegawai

Public Class gajipegawai

        

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        nip.Items.Add("B10")

        nip.Items.Add("B11")

        nip.Items.Add("B12")

        jabatan.Items.Add("mandor")

        jabatan.Items.Add("kepala bagian")

        jabatan.Items.Add("staff")

        status.Items.Add("Belum Menikah")

        status.Items.Add("menikah")

        jalem.Items.Add("1")

        jalem.Items.Add("2")

        jalem.Items.Add("3")

        jalem.Items.Add("4")

        jalem.Items.Add("5")

        jalem.Items.Add("6")

        jalem.Items.Add("7")

        jalem.Items.Add("8")

        jalem.Items.Add("9")

        jalem.Items.Add("10")

        jalem.Items.Add("11")

        jalem.Items.Add("12")

        jalem.Items.Add("13")

        jalem.Items.Add("14")

        jalem.Items.Add("15")

        jalem.Items.Add("16")

        jalem.Items.Add("17")

        jalem.Items.Add("18")

        jalem.Items.Add("19")

        jalem.Items.Add("20")

        jalem.Items.Add("21")

        jalem.Items.Add("22")

        jalem.Items.Add("23")

        jalem.Items.Add("24")

    End Sub

Soal No 2 ( Dedi Muhardi "0911085 " )

LISTING PROGRAM HAL 32

untuk melihat soal nya klik diSINI

Public Class Form1

    Sub buattabel()

        Lv.Columns.Add("NPM", 80, HorizontalAlignment.Center)

        Lv.Columns.Add("NAMA", 180, HorizontalAlignment.Left)

        Lv.Columns.Add("JURUSAN", 90, HorizontalAlignment.Left)

        Lv.Columns.Add("JENJANG", 90, HorizontalAlignment.Left)

        Lv.Columns.Add("TAHUN MASUK", 110, HorizontalAlignment.Left)

        Lv.Columns.Add("NILAI ANGKA", 110, HorizontalAlignment.Left)

        Lv.Columns.Add("NILAI HURUF", 110, HorizontalAlignment.Left)

        Lv.Columns.Add("BOBOT", 80, HorizontalAlignment.Left)

        Lv.View = View.Details

        Lv.GridLines = True

        Lv.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = npm.Text

        lst.SubItems.Add(nama.Text)

        lst.SubItems.Add(jurusan.Text)

        lst.SubItems.Add(jenjang.Text)

        lst.SubItems.Add(tahunmasuk.Text)

        lst.SubItems.Add(angka.Text)

        lst.SubItems.Add(huruf.Text)

        lst.SubItems.Add(bobot.Text)

        Lv.Items.Add(lst)

    End Sub

Membuat Aplikasi Absensi Menggunakan Visual Basic

Membuat Aplikasi Absensi Menggunakan Visual Basic

Siapa yang enggak tahu  sih tentang absensi ?, sekolah  bahkan perusahan tak terlepas dari yang anamanya absensi ini ,  kalau biasanya absensi hanya menggunakan secarik kertas tapi kali ini kita coba aplikasikan dengan program komputer , ya …biar lebih keren lah,,,,he….he… .
Sebenernya Aplikasi ini bisa dibuat menggunakan banyak program
misalnya

Keindahan Pulau ACEH

Pulau Banyak Aceh Singkil

Aceh Singkil sebagai salah satu Kabupaten Daerah Tujuan Wisata di Provinsi Nanggroe Aceh Darussalam mempunyai potensi  yang cukup besar bagi pengembangan sektor pariwisata karena memiliki keindahan, kekayaan alam dan kehidupan sosial budaya serta peninggalan – peninggalan sejarah yang semuanya dapat dijadikan objek wisata. Alam Aceh Singkil yang begitu menakjubkan dan mempesona belum dapat di manfaatkan secara maksimal, banyak sekali potensi wisata yang selama ini terpendam, diantaranya adalah wisata bahari yang saat ini sudah mulai dikembangkan.

Perkembangan Intel

Perkembangan Intel

Perkembangan processor dimulai sejak diciptakannya dioda tabung oleh seorang ilmuwan Inggris Sir John Ambrose Fleming pada tahun 1904. Kemudian dikembangkan lagi oleh ilmuwan-ilmuwan lain. Namun pada tahun 1960-an ditemukan komponen semikonduktor (transistor) yang menggeser kedudukan dioda tabung saat itu.

Pada tahun 1968 Gordon Moore, Robert Noyce dan Andy Grove menemukan Intel Corp. untuk menjalankan bisnis “INTegrated ELectronics” yang semula bernama M&N Electronics yang merupakan singkatan dari Moore dan Noyce Produk pertama dari Intel adalah chip Static Random Acces Memory (SRAM) 3101 Schottky bipolar 64 bit pada akhir 1969-an.

Pertama kali processor dikenalkan pada tahun 1971 oleh Intel Company, yaitu intel 4040 4-bit yang didesain oleh Federico Faggin. Sebuah chip yang memiliki ukuran lebar seperdelapan inchi dan panjang seperenambelas inchi, terdiri dari 2.300 MOS (metal oxide semiconductor) transistors. Kemudian pada tahun 1972 processor jenis ini dikembangkan lagi menjadi intel 8080 8-bit dengan menggunakan 4.500 transistor dengan kinerja 10 kali lipat. Pada tahun 1978 diperkenalkan processor 16-bit intel 8086 dengan transistor sebanyak 29.000 buah. Yang kemudian berkembang menjadi intel 8087, 8088 dengan 8-bit bus.

Contoh Pemrograman Visual Basic

Contoh program sederhana dalam bahasa Visual Basic .NET yang dipakai untuk menghitung jumlah pembayaran dari m_item buah barang dengan harga m_price per item ditambah 5% pajak penjualan: ^[2].

  Dim m_item, m_price, tax, total As double
  m_item = double.Parse(textBox1.Text)
  m_price = double.Parse(textBox2.Text)
  tax = 0.05
  total = m_item * m_price * (1 + tax)
  label5.Text = total.ToString()
  MessageBox.Show("Well Done.")

Hubungan dengan Visual Basic klasik

Apakah Visual Basic .NET dianggap sebagai sebuah versi Visual Basic atau benar-benar bahasa yang berbeda merupakan sebuah topik perdebatan yang hangat. Hal ini dikarenakan sintaksis bahasa Visual Basic .NET tidak mengalami perubahan yang sangat drastis, dan hanya menambahkan beberapa dukungan fitur baru seperti penanganan eksepsi secara terstruktur dan ekspresi yang bisa di-short-circuit-kan.