Minggu, 15 Desember 2013

quis semester ganjil

quis no 1 Latihan list view Perhitungan penjualan Barang


                                    
Berikut Listing Program nya :
Public Class Form1

    Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress

        If Asc(e.KeyChar) = 13 Then
            THarga.Text = Val(Harga.Text) * Val(jumlahbeli.Text)
        End If
    End Sub

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

        kbarang.Items.Add("TS001")
        kbarang.Items.Add("TS002")
        kbarang.Items.Add("VG001")
        kbarang.Items.Add("VG002")
    End Sub

    Private Sub kbarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kbarang.SelectedIndexChanged
        Dim X As String
        Dim y As String

        X = Microsoft.VisualBasic.Left(kbarang.Text, 2)
        y = Microsoft.VisualBasic.Right(kbarang.Text, 3)
        Select Case X
            Case "TS" : Merk.Text = "Toshiba"
            Case "VG" : Merk.Text = "V-GEN"
        End Select
        Select Case y
            Case "001" : Nbarang.Text = "Flashdisk 4GB"
            Case "002" : Nbarang.Text = "Flashdisk 2GB"
        End Select

        If X = "TS" And y = "001" Then
            Harga.Text = 105000
        ElseIf X = "TS" And y = "002" Then
            Harga.Text = 75000
        ElseIf X = "VG" And y = "001" Then
            Harga.Text = 50000
        ElseIf X = "VG" And y = "002" Then
            Harga.Text = 80000

        End If

    End Sub


    Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
        nomor.Text = ""
        kbarang.Text = ""
        Nbarang.Text = ""
        Merk.Text = ""
        jumlahbeli.Text = ""
        Harga.Text = ""
    End Sub

    Private Sub btnhapussemuadata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemuadata.Click
        lv.Items.Clear()
    End Sub

    Private Sub nomor_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nomor.TextChanged

    End Sub

    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lv.SelectedIndexChanged

    End Sub

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

    Private Sub btnhapusdatayangdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdatayangdipilih.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub

    Private Sub btnsimpankelistview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpankelistview.Click
        isitabel()
        nomor.Text = ""
        kbarang.Text = ""
        Nbarang.Text = ""
        Merk.Text = ""
        jumlahbeli.Text = ""
        Harga.Text = ""

    End Sub

    Sub BuatTabel()
        lv.Columns.Add("Pembeli", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Kode Barang", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Nama Barang", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Merk", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Harga", 100, HorizontalAlignment.Left)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = nomor.Text
        lst.SubItems.Add(kbarang.Text)
        lst.SubItems.Add(Nbarang.Text)
        lst.SubItems.Add(Merk.Text)
        lst.SubItems.Add(jumlahbeli.Text)
        lst.SubItems.Add(Harga.Text)
        lst.SubItems.Add(THarga.Text)
        lv.Items.Add(lst)
    End Sub

    Private Sub THarga_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles THarga.TextChanged
        THarga.Text = (Harga.Text) * (jumlahbeli.Text)
    End Sub
End Class
Diposting oleh di Tidak ada komentar:

Minggu, 08 Desember 2013

MENGHITUNG TOTAL HARGA PHOTOCOPY
Diposting oleh di Tidak ada komentar:

tugas pemrograman visual studio

klik disini
MEMBUAT CONTOH PROGRAM SEDERHANA
DENGAN MENGGUNAKAN 
VB.Net.


Public Class Form2
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12110298")
        NPM.Items.Add("13111057")
        NPM.Items.Add("12111009")
        NPM.Items.Add("10111077")
        KodeDosen.Items.Add("982")
        KodeDosen.Items.Add("973")
        KodeDosen.Items.Add("957")
        KodeDosen.Items.Add("999")
        KodeMatakuliah.Items.Add("A23")
        KodeMatakuliah.Items.Add("A24")
        KodeMatakuliah.Items.Add("A25")
        KodeMatakuliah.Items.Add("A26")
        KodeMatakuliah.Items.Add("A27")
        KodeMatakuliah.Items.Add("A28")
        KodeMatakuliah.Items.Add("A29")
        Dim i As Byte
        For i = 1 To 100
            NilaiKehadiran.Items.Add(i)
            NilaiTugas.Items.Add(i)
            NilaiUTS.Items.Add(i)
            NilaiUAS.Items.Add(i)
        Next
    End Sub
    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Dim x, y As String
        x = Microsoft.VisualBasic.Left(NPM.Text, 3)
        y = Microsoft.VisualBasic.Right(NPM.Text, 3)
        Select Case NPM.Text
            Case "12110298"
                Nama.Text = "benny syahputra"
            Case "13111057"
                Nama.Text = "Bayu"
            Case "12111009"
                Nama.Text = "Rio"
            Case "10111077"
                Nama.Text = "Jayen"
        End Select
        Select Case x
            Case "131"
                Jenjang.Text = "DII"
            Case "121"
                Jenjang.Text = "S1"
            Case "121"
                Jenjang.Text = "S1"
            Case "101"
                Jenjang.Text = "DIII"
            Case Else
                Jenjang.Text = "_"
        End Select
        Select Case y
            Case "298"
                Jurusan.Text = "Teknik Informatika"
            Case "057"
                Jurusan.Text = "Managemen informatika"
            Case "009"
                Jurusan.Text = "Sistem Informasi"
            Case "077"
                Jurusan.Text = "Manajemen informatika"
            Case Else
                Jurusan.Text = "_"
        End Select
    End Sub
    Private Sub KodeDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeDosen.SelectedIndexChanged
        Select Case KodeDosen.Text
            Case "982"
                NamaDosen.Text = "M.Syahrizal, M.kom"
            Case "973"
                NamaDosen.Text = "Mesran S.Kom,M.Kom"
            Case "957"
                NamaDosen.Text = "Hotman S.kom"
            Case "999"
                NamaDosen.Text = "Yasir M.kom"
            Case Else
                NamaDosen.Text = "_"
        End Select
    End Sub
    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        NilaiAkhir.Text = 0.4 * NilaiUTS.Text + 0.6 * NilaiUAS.Text + 0.1 * NilaiKehadiran.Text + 0.15 * NilaiTugas.Text
        If NilaiAkhir.Text >= 80 Then
            NilaiHuruf.Text = "A"
        ElseIf NilaiAkhir.Text >= 70 Then
            NilaiHuruf.Text = "B"
        ElseIf NilaiAkhir.Text >= 60 Then
            NilaiHuruf.Text = "C"
        ElseIf NilaiAkhir.Text >= 50 Then
            NilaiHuruf.Text = "D"
        Else
            NilaiHuruf.Text = "E"
        End If
        If NilaiAkhir.Text >= 50 Then
            Keterangan.Text = "Lulus"
        Else
            Keterangan.Text = "Gagal"
        End If
        If Jenjang.Text = "1" Then
            Jenjang.Text = "Diploma 1"
        ElseIf Jenjang.Text = "3" Then
            Jenjang.Text = "Diploma 3"
        ElseIf Jenjang.Text = "4" Then
            Jenjang.Text = "Strata 1"
        End If
        If Jurusan.Text = "01" Then
            Jurusan.Text = "Manajemen Informatika"
        ElseIf Jurusan.Text = "02" Then
            Jurusan.Text = "Sistem Informatika"
        ElseIf Jurusan.Text = "03" Then
            Jurusan.Text = "Teknik komputer"
        ElseIf Jurusan.Text = "04" Then
            Jurusan.Text = "Akuntansi"
        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 = ""
        Jenjang.Text = ""
        Jurusan.Text = ""
        KodeDosen.Text = ""
        NamaDosen.Text = ""
        KodeMatakuliah.Text = ""
        NamaMatakuliah.Text = ""
        NilaiKehadiran.Text = ""
        NilaiTugas.Text = ""
        NilaiUTS.Text = ""
        NilaiUAS.Text = ""
        NilaiAkhir.Text = ""
        NilaiHuruf.Text = ""
        Keterangan.Text = ""
    End Sub
    Private Sub NilaiUAS_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NilaiUAS.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            Btnproses_Click(sender, e)
        End If
    End Sub
    Private Sub KodeMatakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeMatakuliah.SelectedIndexChanged
        Select Case KodeMatakuliah.Text
            Case "A23"
                NamaMatakuliah.Text = "Sistem Basis data"
            Case "A24"
                NamaMatakuliah.Text = "matriks linier transformasi"
            Case "A25"
                NamaMatakuliah.Text = "Programan visual"
            Case "A26"
                NamaMatakuliah.Text = "Teknik Informatika"
            Case "A27"
                NamaMatakuliah.Text = "Managemen Sistem"
            Case "A28"
                NamaMatakuliah.Text = "teknik digital"
            Case "A29"
                NamaMatakuliah.Text = "visual basic"
            Case Else
                NamaMatakuliah.Text = "_"
        End Select
    End Sub
    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        End
    End Sub
End Class
Diposting oleh di Tidak ada komentar:

Sabtu, 07 Desember 2013

Apple Ingin Lepas Ketergantungan Terhadap Samsung

Ditengah perseteruannya dengan Samsung, tampaknya Apple ingin mengurangi ketergantungannya terhadap komponen buatan Samsung. Namun, seorang analis mengatakan bahwa untuk melepas ketergantungan itu, Apple membutuhkan waktu 12-18 bulan.

Semakin memanasnya hubungan Apple dan Samsung telah memaksa raksasa dari Cupertino, California, AS itu berusaha untuk mencari pengganti manufaktur yang mampu memenuhi syarat dari segi kualitas dan jumlah.

Namun keinginan Apple untuk tidak lagi menggunakan Samsung sebagai pemasok komponen utamanya bukan persoalan mudah, karena prosesor manufaktur dan produksi amat rumit dan memakan waktu lama.


Dilansir BGR, analis teknologi dari firma RBC Capital, Amit Daryanani, memprediksikan bahwa Apple butuh waktu sekitar 12 hingga 18 bulan untuk mendapatkan manufaktur pengganti Samsung, karena prosesor manufaktur dan produksi amat rumit dan memakan waktu lama

Menurut kabar yang beredar selama ini, sudah ada dua kandidat vendor yang kemungkinan dapat menggantikan Samsung, yakni Intel dan Taiwan Semiconductor Manufacturing Company (TSMC). Kedua perusahaan ini sebelumnya memang telah menyatakan minatnya atas potensi kemitraan dengan Apple. (BGR,/ini)
Diposting oleh di Tidak ada komentar:

Ada Tiga Komponen BlackBerry Yang Ternyata Buatan Dari Indonesia



Sejumlah komponen perangkat keras yang terdapat pada ponsel BlackBerry ternyata dibuat di Indonesia. Menurut BlackBerry, ada tiga komponen yang dibuat di Indonesia, yakni earphone, baterai, dan motor yang berfungsi untuk menggetarkan ponsel (vibration).

Tiga komponen itu digunakan pada ponsel berbasis BlackBerry OS maupun BlackBerry 10. "Pelan-pelan kita mulai sourcing dari Indonesia," kata Managing Director BlackBerry Indonesia, Maspiyono Handoyo, dalam jumpa pers di Jakarta, pada hari Jumat tanggal 19 juli 2013.

Untuk pembuatan earphone, pabriknya berada di daerah Cileungsi, Bogor, Jawa Barat. Sementara baterai dan motor penggetar ponsel dibuat di Batam, Kepulauan Riau.

Namun, Maspiyono enggan mengungkap nama pabrik yang membuat komponen tersebut. "Kita belum dapat persetujuan untuk mengungkap nama pabrik itu," Ujarnya.

Ketiga komponen itu, lanjut Maspiyono, akan diekspor ke negara tempat perakitan ponsel BlackBerry, termasuk Meksiko dan Taiwan. Setelah melewati tahap pengontrolan kualitas, barulah ponsel-ponsel BlackBerry dikapalkan ke berbagai negara.

Selain itu, BlackBerry juga memanfaatkan tenaga kerja Indonesia untuk verifikasi sejumlah aplikasi-aplikasi yang hendak masuk ke toko aplikasi atau sering disebut BlackBerry World.

Perusahaan asal Kanada ini membangun kantor tim BlackBerry World di Denpasar, Bali, yang memiliki karyawan kurang belih sekitar 30 karyawan dan didominasi oleh warga negara Indonesia.
Diposting oleh di Tidak ada komentar:

tugas vb.net

MEMBUAT CONTOH PROGRAM SEDERHANA
DENGAN MENGGUNAKAN 
VB.Net.


Public Class Form2


    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12110298")
        NPM.Items.Add("13111057")
        NPM.Items.Add("12111009")
        NPM.Items.Add("10111077")

        KodeDosen.Items.Add("982")
        KodeDosen.Items.Add("973")
        KodeDosen.Items.Add("957")
        KodeDosen.Items.Add("999")


        KodeMatakuliah.Items.Add("A23")
        KodeMatakuliah.Items.Add("A24")
        KodeMatakuliah.Items.Add("A25")
        KodeMatakuliah.Items.Add("A26")
        KodeMatakuliah.Items.Add("A27")
        KodeMatakuliah.Items.Add("A28")
        KodeMatakuliah.Items.Add("A29")


        Dim i As Byte
        For i = 1 To 100
            NilaiKehadiran.Items.Add(i)
            NilaiTugas.Items.Add(i)
            NilaiUTS.Items.Add(i)
            NilaiUAS.Items.Add(i)
        Next
    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Dim x, y As String
        x = Microsoft.VisualBasic.Left(NPM.Text, 3)
        y = Microsoft.VisualBasic.Right(NPM.Text, 3)

        Select Case NPM.Text
            Case "12110298"
                Nama.Text = "benny syahputra"
            Case "13111057"
                Nama.Text = "Bayu"
            Case "12111009"
                Nama.Text = "Rio"
            Case "10111077"
                Nama.Text = "Jayen"
        End Select

        Select Case x
            Case "131"
                Jenjang.Text = "DII"
            Case "121"
                Jenjang.Text = "S1"
            Case "121"
                Jenjang.Text = "S1"
            Case "101"
                Jenjang.Text = "DIII"
            Case Else
                Jenjang.Text = "_"
        End Select

        Select Case y
            Case "298"
                Jurusan.Text = "Teknik Informatika"
            Case "057"
                Jurusan.Text = "Managemen informatika"
            Case "009"
                Jurusan.Text = "Sistem Informasi"
            Case "077"
                Jurusan.Text = "Manajemen informatika"
            Case Else
                Jurusan.Text = "_"
        End Select
    End Sub

    Private Sub KodeDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeDosen.SelectedIndexChanged
        Select Case KodeDosen.Text
            Case "982"
                NamaDosen.Text = "M.Syahrizal, M.kom"
            Case "973"
                NamaDosen.Text = "Mesran S.Kom,M.Kom"
            Case "957"
                NamaDosen.Text = "Hotman S.kom"
            Case "999"
                NamaDosen.Text = "Yasir M.kom"
            Case Else
                NamaDosen.Text = "_"
        End Select
    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        NilaiAkhir.Text = 0.4 * NilaiUTS.Text + 0.6 * NilaiUAS.Text + 0.1 * NilaiKehadiran.Text + 0.15 * NilaiTugas.Text

        If NilaiAkhir.Text >= 80 Then
            NilaiHuruf.Text = "A"
        ElseIf NilaiAkhir.Text >= 70 Then
            NilaiHuruf.Text = "B"
        ElseIf NilaiAkhir.Text >= 60 Then
            NilaiHuruf.Text = "C"
        ElseIf NilaiAkhir.Text >= 50 Then
            NilaiHuruf.Text = "D"
        Else
            NilaiHuruf.Text = "E"
        End If

        If NilaiAkhir.Text >= 50 Then
            Keterangan.Text = "Lulus"
        Else
            Keterangan.Text = "Gagal"
        End If

        If Jenjang.Text = "1" Then
            Jenjang.Text = "Diploma 1"
        ElseIf Jenjang.Text = "3" Then
            Jenjang.Text = "Diploma 3"
        ElseIf Jenjang.Text = "4" Then
            Jenjang.Text = "Strata 1"
        End If

        If Jurusan.Text = "01" Then
            Jurusan.Text = "Manajemen Informatika"
        ElseIf Jurusan.Text = "02" Then
            Jurusan.Text = "Sistem Informatika"
        ElseIf Jurusan.Text = "03" Then
            Jurusan.Text = "Teknik komputer"
        ElseIf Jurusan.Text = "04" Then
            Jurusan.Text = "Akuntansi"
        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 = ""
        Jenjang.Text = ""
        Jurusan.Text = ""
        KodeDosen.Text = ""
        NamaDosen.Text = ""
        KodeMatakuliah.Text = ""
        NamaMatakuliah.Text = ""
        NilaiKehadiran.Text = ""
        NilaiTugas.Text = ""
        NilaiUTS.Text = ""
        NilaiUAS.Text = ""
        NilaiAkhir.Text = ""
        NilaiHuruf.Text = ""
        Keterangan.Text = ""
    End Sub
    Private Sub NilaiUAS_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NilaiUAS.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            Btnproses_Click(sender, e)
        End If
    End Sub

    Private Sub KodeMatakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeMatakuliah.SelectedIndexChanged
        Select Case KodeMatakuliah.Text
            Case "A23"
                NamaMatakuliah.Text = "Sistem Basis data"
            Case "A24"
                NamaMatakuliah.Text = "matriks linier transformasi"
            Case "A25"
                NamaMatakuliah.Text = "Programan visual"
            Case "A26"
                NamaMatakuliah.Text = "Teknik Informatika"
            Case "A27"
                NamaMatakuliah.Text = "Managemen Sistem"
            Case "A28"
                NamaMatakuliah.Text = "teknik digital"
            Case "A29"
                NamaMatakuliah.Text = "visual basic"
            Case Else
                NamaMatakuliah.Text = "_"
        End Select
    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        End
    End Sub
End Class
Diposting oleh di Tidak ada komentar:
Langganan: Postingan (Atom)