PROGRAM INPUT HARGA FOTO COPY & Listview Perhitungan Penjualan Barang

Public Class Form1

    Private Sub jlh_lembar_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

        If jlh_lembar.Text >= 1 Then

            Harga_barang.Text = 50

        ElseIf jlh_lembar.Text >= 100 Then

            Harga_barang.Text = 70

        ElseIf jlh_lembar.Text >= 200 Then

            Harga_barang.Text = 100

        End If

        ttl_harga.Text = Harga_barang.Text * jlh_lembar.Text

    End Sub

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

        Dim halaman As Byte

        halaman = 1

        While halaman <= 200

            jlh_lembar.Items.Add(halaman)

            halaman = halaman + 1

        End While

    End Sub

End Class

Latihan Listview Perhitungan Penjualan Barang

 input data program

 Hasil program

Public Class Form2

    Sub buattabel()

        LV.Columns.Add("pembelian", 80, HorizontalAlignment.Center)

        LV.Columns.Add("kode barang", 80, HorizontalAlignment.Left)

        LV.Columns.Add("nama barang", 120, HorizontalAlignment.Left)

        LV.Columns.Add("merk", 80, HorizontalAlignment.Left)

        LV.Columns.Add("harga", 80, HorizontalAlignment.Left)

        LV.Columns.Add("jmlh beli", 80, HorizontalAlignment.Left)

        LV.Columns.Add("ttl harga", 80, HorizontalAlignment.Left)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub isitable()

        Dim lst As New ListViewItem

        lst.Text = pembelian.Text

        lst.SubItems.Add(kd_brg.Text)

        lst.SubItems.Add(nm_brg.Text)

        lst.SubItems.Add(merk.Text)

        lst.SubItems.Add(harga.Text)

        lst.SubItems.Add(jlh_beli.Text)

        lst.SubItems.Add(ttl_harga.Text)

        LV.Items.Add(lst)

    End Sub

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

        kd_brg.Items.Add("TS001")

        kd_brg.Items.Add("TS002")

        kd_brg.Items.Add("VG001")

        kd_brg.Items.Add("VG002")

        buattabel()

    End Sub

    Private Sub kd_brg_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd_brg.SelectedIndexChanged

        Dim X As String

        X = Microsoft.VisualBasic.Left(kd_brg.Text, 2)

        Select Case X

            Case "TS" : merk.Text = "TOSIBA"

            Case "VG" : merk.Text = "V-GEN"

        End Select

        X = Microsoft.VisualBasic.Right(kd_brg.Text, 5)

        Select Case X

            Case "TS001" : nm_brg.Text = "FLASDISK 4 GB" : harga.Text = "1050000"

            Case "TS002" : nm_brg.Text = "FLASDISK 2 GB" : harga.Text = "75000"

            Case "VG001" : nm_brg.Text = "FLASDISK 4 GB" : harga.Text = "90000"

            Case "VG002" : nm_brg.Text = "FLASDISK 2 GB" : harga.Text = "60000"

        End Select

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

        ttl_harga.Text = harga.Text * jlh_beli.Text

        isitable()

        pembelian.Text = ""

        kd_brg.Text = ""

        nm_brg.Text = ""

        merk.Text = ""

        harga.Text = ""

        jlh_beli.Text = ""

        ttl_harga.Text = ""

    End Sub

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

        Close()

    End Sub

    Private Sub hps_data_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hps_data.Click

        LV.Items.Clear()

    End Sub

    Private Sub hps_dipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hps_dipilih.Click

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

    Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click

    End Sub

End Class

Teknologi Laser: Sinar Laser Kini Dapat Dibelokkan

Teknologi Laser: Sinar Laser Kini Dapat Dibelokkan

 

Seperti yang sudah lama diketahui, cahaya laser adalah cahaya yang pola gelombangnya bersifat seragam yang terdiri dari berkas-berkas sinar yang berukuran lebih halus dan secara normal hanya bisa terpancar secara lurus, namun sudah sejak beberapa lama para ahli mengetahui bahwa pola superimpos pada laser dapat membuat laser tersebut berbelok. Pola tersebut dapat di disain dengan cara tertentu sehingga sejumlah garis pancaran cahaya yang menyusun sebuah sorotan laser dapat saling mempengaruhi satu sama lain sehingga tembakan laser tersebut berbelok. "Tetapi belokan tersebut tidak dapat membentuk sudut lebih dari 10 derajat, karena jika sudut belokan tersebut lebih dari 10 derajat maka cahaya terbut akan terdistorsi dan bentuknya berubah", demikian menurut Mordechai Sergev dari Technion-Israel Institute of Technology di Haifa. 

 Dia bersama sejumlah rekannya sedang terus berusaha meneliti lebih jauh tentang hal ini dengan mempelajari Maxwell's Equations yang merupakan hukum dasar tingkah laku gelombang elektromagnetik. Secara perhitungan teoritik, mereka menyimpulkan bahwa adalah sangat mungkin untuk membuat pola dasar agar dapat membelokkan cahaya laser lebih dari 180 derajat tanpa terjadi distorsi. Hasil ini telah dipublikasikan di Physical Review Letter dengan nomer dokumentasi DOI: 10.1103/PhysRevLett.108.163901. Tetapi ini masih berupa teori. 

 Sementara itu, tanpa mereka ketahui, sebuah tim peneliti yang dipimpin oleh John Dudley di University of Franche-Comte' Besancon Perancis telah melkukan uji praktek terhadap hal ini. 

 Sebuah tembakan cahaya laser yang mampu berbelok sendiri dengan membentuk sudut seperti bumerang berhasil dipancarkan di sebuah laboratorium optik di Perancis. Cahaya dengan ukuran diameter hanya beberapa mikrometer tersebut mampu merubah cara mengukir materi dalam ukuran mikroskopik dan diharapkan nantinya akan dapat membantu para ahli bedah dalam membuat sayatan yang sangat tipis di area yang harus dioperasi tetapi sulit dijangkau dengan sinar laser lurus pada tubuh pasien. 

 Tim peneliti Dudley berhasil menemukan cara agar sudut belokan laser tersebut bisa melampaui batas sudut 10 derajat. "Hal ini memeberikan ide kepada kami, bahwa kami akan bisa membuat kurva yang bersudut lebih besar lagi" ucap seorang rekan Dudley dari Francois Courvoisier. 

 Tim peneliti Dudley menembakkan cahaya berukuran beberapa mikrometer membentuk sudut lebih dari 60 derajat dengan menggunakan alat yang disebut dengan istilah "Spatial Light Modulator" untuk melakukan "superimpose" terhadap pola interferensi cahaya. 

 Hasil kerja ini akan dipaparkan dalam Journal Optics Letter yang akan datang. 

 Dalam percobaan mereka, tim peneliti Dudley menggunakan laser yang dapat dibelokan tersebut untuk mengukir dan membentuk lekukan-lekukan pada kaca."Hal ini akan sangat berguna untuk membuat prototipe disain baru peralatan optik seperti lensa mikro untuk kamera dan proyektor khusus sebelum Anda memproduksinya secara masal", kata John Dudley. Para ahli bedah pun dapat menggunakannya untuk menjangkau daerah-daerah operasi dibalik struktur sensitif di tubuh pasien mereka. 

 Segev mengungkapkan bahwa dia bersama timnya berharap akan dapat menggunakan tehnik tersebut untuk mengirimkan cahaya dalam belokan membentuk lingkaran penuh dan menggunakannya untuk memanipulasi nanopartikel yang dapat dimuati dengan obat yang kemudian dapat dibimbing untuk mengobati daerah tertentu dalam tubuh. Selama ini cahaya laser memang telah berhasil digunakan sebagai "perangkap optis" untuk mengontrol nanopartikel, tetapi dengan menggunakan laser yang dapat dibelokkan ini, maka kontrol terhadap nanopartikel akan dapat di kembangkan kederajat yang lebih tinggi. 

sumber

http://www.teknologiterbaru.com/home/sinarlaserkinidapatdibelokkan