Nanoteknologi mencakup pengembangan teknologi dalam skala nanometer, biasanya 0,1 sampai100 nm (satu nanometer sama dengan seperseribu mikrometer atau sepersejuta milimeter). Istilahini kadangkala diterapkan ke teknologi sangat kecil. Artikel ini membahas nanoteknologi, ilmunano, dan nanoteknologi molekular “conjecture”. Istilah nanoteknologi kadangkala disamakandengan nanoteknologi molekul (juga dikenal sebagai “MNT”), sebuah conjecture bentuk tinggi nanoteknologi dipercayai oleh beberapa dapat dicapai dalam waktu dekat di masa depan, berdasarkan nanosistem yang produktif.

(jelajahunik) Hidup di jaman sekarang adalah hal yang sangat menyenangkan. Pasalnya banyak sekali teknologi baru yang bermunculan setiap harinya. Bahkan beberapa dari teknologi tersebut mungkin tidak pernah terlintas di pikiran kita satu dekade yang lalu.

Sekarang, berbagai konsep teknologi masa depan sudah banyak bermunculan di sekitar kita dan bukan hal yang mustahil jika beberapa tahun ke depan kita sudah bisa menikmati teknologi tersebut. Apa sajakah teknologi tersebut? 


1. Mesin Pembaca Pikiran

Teknologi selanjutnya yang mungkin akan membuat Anda tercengan adalah mesin pembaca pikiran. Beberapa waktu yang lalu, beberapa peneliti dari Gallant Lab melakukan uji coba dengan menempatkan seseorang pada sebuah mesin MRI selama beberapa jam. Selama di dalam mesin MRI, para peneliti itu merekam semua aktivitas otak orang tersebut untuk kemudian merekonstruksikannya menjadi sebuah gambar. Hasilnya, secara menakjubkan gambar yang dihasilkan ternyata mirip seperti apa yang dipikirkan oleh orang tersebut. dengan begitu maka secara tidak langsung mesin tersebut telah berhasil membaca pikiran orang itu.

Perkembangan teknologi sekarang ini sangatlah cepat. Teknologi yang dulunya hanyalah candaan sekarang sudah diwujudkan sebagai sesuatu yang nyata. Tapi di antara hal tersebut masih ada teknologi yang belum terwujud. Pada artikel ini kita akan melihat 10 penemuan teknologi masa depan yang ditunggu-tunggu oleh kebanyakan orang. Mana yang sudah berada di depan mata, dan mana yang masih dalam impian belaka?
10. Mobil Tanpa Pengemudi (Driverless Car)

 

 Anda adalah orang modern yang sangat sibuk. Anda sering berpergian dengan mobil pribadi, tetapi Anda juga sibuk dengan aktivitas seperti makan, mengerjakan tugas, membaca, teks, berbicara di telepon, gunting kuku, makeup dan sebagainya. Singkatnya, Anda membutuhkan mobil tanpa pengemudi atau Driverless Car.

1) Teknologi produksi makanan dan obat-obatan
Bagi kamu yang makanan pokoknya nasi tentu tiap hari makan nasi.
Pernahkah kamu berpikir dari mana nasi yang kamu makan tiap hari itu berasal? Untuk dapat menikmati sepiring nasi ternyata prosesnya cukup panjang. Nasi berasal dari beras, beras berasal dari tanaman padi. Pernahkan kamu melihat orang menanam padi di sawah?
Sebelum ditanami biasanya lahan digemburkan dulu. Pada masa lalu penggemburan tanah dilakukan dengan dicangkul atau dibajak.
Mencangkul benar-benar menggunakan tenaga manusia sedangkan membajak sudah dibantu tenaga sapi atau kerbau. Para petani di masa kini, untuk menggemburkan tanah sudah dapat menggunakan alat bermesin. Alat ini disebut traktor. Dengan traktor kegiatan menggemburkan tanah dapat lebih ringan, mudah dan cepat. Meskipun demikian saat ini masih ada petani yang menggemburkan sawah dengan cangkul dan bajak.

Percayakah Sobat ? TV masa depan selain bersuara, berwarna, juga bisa beraroma. Otak manusia membagi aroma menjadi 30 lebih jenis, misalnya aroma kayu, aroma bunga, aroma rumput dan lain sebagainya. Itulah perkembangan produk teknologi di masa depan.
Majalah Inggris, New Scientist, sebagaimana
dikutip Epoch Times, Selasa, 3 Februari 2009, meramalkan akan hadirnya 10 produk iptek besar yang diharapkan terjadi dalam 30 tahun ke depan. , dari ruang laboratorium melangkahkan kakinya ke rumah Anda, menjadi produk umum seperti halnya handphone (HP).
Ke-10 iptek besar tersebut termasuk alat pendeteksi tembus dinding, mantel penyirna tubuh ala Harry Potter, peralatan panjat dinding ala spiderman yang membuat orang mampu memanjat dinding, pesawat terbang pribadi super, pesawat antariksa pribadi dan TV yang dapat menebarkan aroma dan lain-lain.
Ada yang berpendapat ramalan tersebut terlalu muluk-muluk, betul-betul sulit dipercaya. Namun coba kita kilas balik ke-30 tahun yang lampau, pada 1979 tatkala perusahaan Jepang, NET berhasil mengembangkan HP internet pertamanya di seluruh dunia, banyak orang masih mengira berjalan sambil berbicara di telepon adalah hal yang mustahil, tetapi bagi manusia zaman sekarang HP telah menjadi barang bawaan yang harus ada. Seiring dengan perkembangan iptek, siapa bilang impian tersebut tak dapat menjadi kenyataan?
Harian Daily Mail Inggris dengan rinci menjelaskan “10 produk iptek besar masa depan” sebagai berikut:
1. Dinamo dari tubuh manusia
Nyaris setiap orang zaman sekarang memiliki HP, iPod dan alat elektronik lainnya, akan tetapi berbicara dengan HP dan mendengarkan iPod agak lama sedikit begitu baterai habis padahal kita sedang di luar, tentu tak dapat mengisi ulang, lantas bagaimana?
Andaikan saja dari pergerakan tubuh manusia bisa setiap saat di-pergunakan untuk pembangkit listrik, betapa bagusnya hal itu!
Kini ilmuwan di laboratorium sudah merealisir harapan tersebut. Wang Zhonglin seorang ilmuwan keturunan Tionghoa dari Politeknik Georgia, AS, menggunakan teknik Nano dan Piezoelectrik effect guna membangkitkan listrik. Dia berhasil membuat semacam pakaian serat fiber berdinamo dari bahan campuran serat logam super halus. Setiap kali fiber ditekan atau ditekuk, bisa menghasilkan aliran listrik. Yang disebut dengan Piezoelectrik effect adalah ketika materi tertentu tatkala menerima tekanan bisa menghasilkan listrik.

    Mungkin saat ini anda masih bingung belajar bahasa pemrograman !!!Tapi saya berusaha utk memahami bahasa pemrograman ini,Karena bahasa pemrograman ini sangat penting untuk kita ke depan nya.

Mesran[dot]Net merupakan website yang membantu anda khususnya yang ingin selalu belajar tentang pembahasan materi
bahasa pemrograman, karena di Mesran[dot]Net kita bisa banyak belajar tetang bahasa pemrogaman, mulai dari Bahasa Pemrograman Pascal, Pemrograman C/C++, Pemrograman VB6, Pemrograman Visual Basic.Net, dan disamping itu juga
anda bisa mengetahui tips/trik bagaimana cara belajar bahasa pemrograman.

    DiMesran[dot]Net juga kita bisa menambah ilmu atau pun pengetahuan tentang Bahasa Pemrograman yang kurang kita pahami ketika saat belajar-mengajar diruangan kampus. Jadi menurut saya anda jangan takut ataupun tidak bisa
dalam belajar bahasa pemrograman.

Bagi yang ingin belajar tentang bahasa Pemrograman,jangan ragu lagi segera kunjungi website Mesran.Net,website ini bisa menjadi salah satu referensi dalam mempelajari bahasa pemrograman yang dapat membantu menjadikan anda seorang programer yang handal.
       Demikianlah menurut  postingan saya kali ini,semoga bisa bermanfaat.

latihan listview perhitungan penjualan barang.

Desain awal :

Daftar Syntax Program :

Public Class Form2

    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 = pembeli.Text

        lst.SubItems.Add(kdbrg.Text)

        lst.SubItems.Add(nmbrg.Text)

        lst.SubItems.Add(merk.Text)

        lst.SubItems.Add(jmlbeli.Text)

        lst.SubItems.Add(harga.Text)

        lv.Items.Add(lst)

    End Sub

    Private Sub kdbrg_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdbrg.SelectedIndexChanged

        Dim X As String

        Dim y As String

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

        y = Microsoft.VisualBasic.Right(kdbrg.Text, 3)

        Select Case X

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

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

        End Select

        Select Case y

            Case "001" : nmbrg.Text = "Flashdisk 4GB"

            Case "002" : nmbrg.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 Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        BuatTabel()

        kdbrg.Items.Add("TS001")

        kdbrg.Items.Add("TS002")

        kdbrg.Items.Add("VG001")

        kdbrg.Items.Add("VG002")

    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click

        pembeli.Text = ""

        kdbrg.Text = ""

        nmbrg.Text = ""

        merk.Text = ""

        jmlbeli.Text = ""

        harga.Text = ""

    End Sub

    Private Sub btnhps_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhps.Click

        End

    End Sub

    Private Sub pembeli_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pembeli.TextChanged

    End Sub

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

    End Sub

    Private Sub hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapussemua.Click

        lv.Items.Clear()

    End Sub

    Private Sub hapusdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusdipilih.Click

        lv.Items.Remove(lv.SelectedItems(0))

    End Sub

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

        isitabel()

        pembeli.Text = ""

        kdbrg.Text = ""

        nmbrg.Text = ""

        merk.Text = ""

        jmlbeli.Text = ""

        harga.Text = ""

    End Sub

End Class

Hasil Desain :

Demikilahlah postingan saya 

 Nama : Bambang Fahruddin

 NPM : 1111378
Selamat Pemrograman VB NET