Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

JUDUL SOAL : Latihan Listview Perhitungan Penjualan Barang

BERIKUT JAWABAN PROGRAM :

 

Public Class Form1

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

        kdbarang.Items.Add("TS001")

        kdbarang.Items.Add("TS002")

        kdbarang.Items.Add("VG001")

        kdbarang.Items.Add("VG002")

        buattabel()

    End Sub

    Sub buattabel()

        lv.Columns.Add("No. Pembeian", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Kode Barang", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Nama Barang", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Merk", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Harga", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Total Harga", 80, HorizontalAlignment.Center)

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim i As New ListViewItem

        i.Text = nopembelian.Text

        i.SubItems.Add(kdbarang.Text)

        i.SubItems.Add(namabarang.Text)

        i.SubItems.Add(merk.Text)

        i.SubItems.Add(harga.Text)

        i.SubItems.Add(jumlahbeli.Text)

        i.SubItems.Add(ttlharga.Text)

        lv.Items.Add(i)

    End Sub

    Sub smpn(ByVal t As Form)

        nopembelian.Text = ""

        kdbarang.Text = ""

        namabarang.Text = ""

        merk.Text = ""

        harga.Text = ""

        jumlahbeli.Text = ""

        ttlharga.Text = ""

    End Sub

    Private Sub kdbarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdbarang.SelectedIndexChanged

        Dim x As String

        x = Microsoft.VisualBasic.Left(kdbarang.Text, 2)

        Select Case x

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

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

        End Select

        Dim j As String

        j = Microsoft.VisualBasic.Right(kdbarang.Text, 3)

        Select Case j

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

            Case "002" : namabarang.Text = "Flashdisk 2GB"

        End Select

        Dim a As String

        a = Microsoft.VisualBasic.Mid(kdbarang.Text, 1)

        Select Case a

            Case "TS001" : harga.Text = "105000"

            Case "TS002" : harga.Text = "75000"

            Case "VG001" : harga.Text = "90000"

            Case "VG002" : harga.Text = "60000"

        End Select

    End Sub

    Private Sub simpankelist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpankelist.Click

        isitabel()

        smpn(Me)

    End Sub

    Private Sub hapussd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapussd.Click

        lv.Items.Clear()

    End Sub

    Private Sub hapusdataydp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusdataydp.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

        nopembelian.Text = ""

        kdbarang.Text = ""

        namabarang.Text = ""

        merk.Text = ""

        harga.Text = ""

        jumlahbeli.Text = ""

        ttlharga.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 jumlahbeli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlahbeli.KeyPress

        If Asc(e.KeyChar) = 13 Then

            ttlharga.Text = harga.Text * jumlahbeli.Text

        End If

    End Sub

End Class

GAMBAR TAMPILAN HASIL PROGRAM :

 

Read More

Mengenal Software RoboMind untuk pemrograman Robot

Mengenal Pemrograman Robot

Kata Robot pasti sudah tidak asing lagi untuk kita, secara mendasar Robot dapat di artikan sebagai alat mekanik yang dapat melakukan tugas fisik, baik menggunakan kontrol dari manusia, maupun menggunakan program yang sudah ditanam terlebih dahulu pada si robot agar dapat melakukan atau mengerjakan sesuatu hal.  

Istilah robot berawal bahasa Cheko yaitu “robota” yang berarti pekerja yang tidak mengenal lelah atau bosan. Robot biasanya digunakan untuk tugas yang berat, berbahaya, pekerjaan yang berulang-ulang dan kotor. Secara umum, kebanyakan robot industri digunakan dalam bidang produksi. Penggunaan robot lainnya termasuk untuk pembersihan limbah beracun, penjelajahan bawah air dan luar angkasa, pertambangan, pekerjaan seperti search and rescue, dan lain-lain, bahkan belakangan ini robot mulai memasuki pasaran konsumen dalam bidang hiburan, dan alat bantu dalam rumah tangga, seperti penyedot debu, dan pemotong rumput.

Di sini, saya akan memperkenalkan kepada kamu sebuah software atau perangkat lunak yang akan membantu kamu dalam mempelajari cara kerja, dan memahami logika sederhana dari cara kerja robot yang sering kita jumpai ini.

Yaitu : RoboMind, yaitu sebuah software yang dikembangkan oleh sebuah universitas di Belanda ini akan mempermudah serta menumbuhkan minat pada orang yang ingin belajar dan memahami cara kerja robot secara sederhana. 

Bagi kamu yang penasaran, silahkan unduh RoboMind melalui situs resminya berikut ini :

Homepage :  http://www.robomind.net/en/index.html

Download Page : http://researchkitchen.net/robomindstore/en/downloads/25-robomind-software-download.html

RoboMind untuk Windows (36MB) : http://www.robomind.net/downloads/robosetup.htm

Untuk saat ini RoboMind tersedia dalam dua versi, yaitu versi gratis dan berbayar, namun untuk sekedar bahanpembelajaran dasar, versi gratis sudah cukup untuk digunakan sebagai perangkat lunak yang mendukung untuk belajar memahami cara kerja secara sederhana dari robot.

Dengan menggunakan software seperti RoboMind tentu saja akan membantu kamu dalam membiasakan diri dengan dasar-dasar ilmu komputer dengan mencoba membuat program robot sendiri.

Sebuah bahasa pemrograman khusus pada RoboMind telah dibuat yang terdiri dari satu set aturan ringkas dan ditujukan untuk pemrograman robot yang bisa pula disisipkan aturan-aturan lain seperti struktur kendali percabangan (IF, IF-ELSE, IF – ELSEIF) dan perulangan (For, While, Do – While).

Dan apabila pengguna kurang familiar dengan bahasa pemrograman atau yang berbau script, kamu bisa langsung mencoba menggerakan robot dengan bantuan remote yang bisa di akses pada menu “Run” dan secara otomatisketika robot digerakkan dengan remote, script akan muncul sebagai perintah yang seharusnya digunakan sebagai perintah atau command untuk menggerakan.

Sebagai panduan dan langkah awal, ada baiknya kamu melihat video demo dan mempelajari terlebih dahulu RoboMind melalui documentation overview, karena dengan begitu kamu akan mendapatkan banyak pencerahan mulai dari instruksi awal (basic), struktur program, contoh script dan sebagainya.

Video Demo :  http://www.robomind.net/en/demo.html

Documentation Overview :  http://www.robomind.net/en/docOverview.htm

Dengan menggunakan RoboMind, tentu saja ini merupakan sebuah solusi bagi kamu yang tertarik dengan duniarobotik karena selain disediakan secara gratis, dengan bantuan software RoboMind ini kamu memiliki banyak kesempatan untuk membuat program sendiri sekaligus menerapkan prinsip-prinsip dasar pemrograman yang umumnya sudah ada di kebanyakan bahasa pemrograman lainnya. Semoga bermanfaat. :)

Read More

Skill Komputer sangat penting dalam dunia kerja

Pentingnya Skill Komputer 

Kemampuan komputer menjadi salah satu kemampuan softskill yang sangat dibutuhkan untuk menghadapi dunia kerja. Apalagi di era globalisasi seperti sekarang ini.Hal ini tentunya menjadi dasar pemikiran bagi para mahasiswa atau mahasiswi yang akan segera lulus untuk memperoleh kemampuan di bidang komputer. sebutlah beberapa program yang harus dikuasai sebagai dasar adalah Microsoft Office (Ms Word, Ms Excel dan jg Ms. Power Point) bahkan untuk saat ini Ms Power Point sudah digantikan dengan Flash.
Artinya, jika kita tidak menambah kemampuan kita di bidang komputer akan membuat kita sulit untuk mendapatkan pekerjaan.

Teknologi yang terus berkembang pesat dalam kehidupan semakin menunjukkan betapa pentingnya untuk memiliki skill komputer yang memadai. Tidak hanya pekerjaan yang berkaitan dengan teknologi saja yang membutuhkan kecakapan dalam menggunakan komputer, pekerjaan lain seperti administrasi, industri kreatif, penjualan, pemasaran dan lainnya relatif membutuhkan latar belakang kemampuan teknis agar dapat bersaing dalam dunia industri.

Dilansir dari Yahoo News, berikut 5 kemampuan teknis dasar yang paling sering dicari oleh perusahaan:

1. Media sosial
Di era sekarang ini, kemampuan menggunakan media sosial mutlak dibutuhkan dalam bidang apa pun untuk mengetahui informasi penting dan berinteraksi dengan pelanggan.

2. Microsoft Excel
Kemampuan menggunakan Microsoft Office kini tidak lagi dianggap sebagai keunggulan individu, namun sudah menjadi suatu ‘kewajiban’. Menurut Bob Myhal, CEO dari NextHire, perusahaan lebih menyukai pelamar yang memiliki kompetensi membuat dan menggunakan pivot tables pada Microsoft Excel.

3. Mobile development
Sedikit lebih teknis, pelamar yang menginginkan posisi di bidang komputer akan lebih disukai apabila ia memiliki kemampuan mobile development untuk perangkat iOS, Android, Windows Phone dan lainnya. Hal ini disebabkan karena semakin banyak perusahaan yang ingin memasuki sektor mobile untuk meningkatkan keuntungan.

4.Kemampuan menyelesaikan masalah teknis dasar
Perusahaan lebih menyukai karyawan yang mampu mengenali atau bahkan menyelesaikan masalah teknis dasar, karena karyawan tersebut dianggap memiliki pola pikir yang lebih kritis dan tidak akan membebani karyawan IT untuk masalah teknis yang sebenarnya sepele.

5. Melek teknologi
Perusahaan besar yang banyak berkecimpung dalam bidang teknologi baik sebagai dasar industri maupun untuk teknik pemasaran dan juga berbagai perusahaan startup akan lebih memilih pelamar yang terus mengikuti perkembangan teknologi terbaru. Mereka menganggap para kandidat tersebut memiliki rasa ingin tahu yang besar sehingga akan banyak bermanfaat untuk perkembangan perusahaan.

Read More