| MUHAMMAD SYAHRIL

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

Posted by Unknown Minggu, 02 Juni 2013

Selesaikanlah Kasus Berikut :

SOAL 1 : Buatlah program untuk menampilkan hasil ke listview untuk kasus latihan listview perhitungan penjualan barang

Berikut Jawaban Program :

Design Data Perhitungan Penjualan Barang Dengan Menggunakan Listview Pada Pemrograman Visual Basic.Net

Listing Programnya :

Public Class Form1

Sub BuatTabel()

LV.Columns.Add("No Pembelian", 120, HorizontalAlignment.Center)

LV.Columns.Add("Kode Barang", 120, HorizontalAlignment.Center)

LV.Columns.Add("Nama Barang", 120, HorizontalAlignment.Center)

LV.Columns.Add("Merk", 100, HorizontalAlignment.Center)

LV.Columns.Add("Harga", 100, HorizontalAlignment.Center)

LV.Columns.Add("Jumlah Beli", 120, HorizontalAlignment.Center)

LV.Columns.Add("TotalHarga", 100, HorizontalAlignment.Center)

LV.View = View.Details

LV.GridLines = True

LV.FullRowSelect = True

End Sub

Sub IsiTable()

Dim Lst As New ListViewItem

Lst.Text = no.Text

Lst.SubItems.Add(kode.Text)

Lst.SubItems.Add(nama.Text)

Lst.SubItems.Add(merk.Text)

Lst.SubItems.Add(harga.Text)

Lst.SubItems.Add(jumlah.Text)

Lst.SubItems.Add(total.Text)

LV.Items.Add(Lst)

End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged

Dim x As String

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

If x = "TS" Then

merk.Text = "Thosiba"

ElseIf x = "VG" Then

merk.Text = "V-Gen"

End If

x = Microsoft.VisualBasic.Right(kode.Text, 3)

If x = "001" Then

nama.Text = "Flashdisk 4GB"

ElseIf x = "002" Then

nama.Text = "Flashdisk 2GB"

End If

If kode.Text = "TS001" Then

harga.Text = "105000"

ElseIf kode.Text = "TS002" Then

harga.Text = "75000"

ElseIf kode.Text = "VG001" Then

harga.Text = "90000"

ElseIf kode.Text = "VG002" Then

harga.Text = "60000"

End If

End Sub

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

BuatTabel()

kode.Items.Add("TS001")

kode.Items.Add("TS002")

kode.Items.Add("VG001")

kode.Items.Add("VG002")

End Sub

Private Sub total_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles total.TextChanged

End Sub

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

Dim tombol As Integer = Asc(e.KeyChar)

If tombol = 13 Then

total_TextChanged(sender, e)

total.Text = jumlah.Text * harga.Text

End If

End Sub

Private Sub jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah.TextChanged

End Sub

Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click

IsiTable()

No.Text = ""

kode.Text = ""

nama.Text = ""

merk.Text = ""

harga.Text = ""

jumlah.Text = ""

total.Text = ""

End Sub

Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click

LV.Items.Clear()

End Sub

Private Sub BtnData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnData.Click

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

End Sub

Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click

No.Text = ""

kode.Text = ""

nama.Text = ""

merk.Text = ""

harga.Text = ""

jumlah.Text = ""

total.Text = ""

End Sub

Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click

End

End Sub

End Class

Berikut Hasil Program Data Perhitungan Penjualan Barang Dengan Menggunakan Listview Pada Pemrograman Visual Basic.Net

SOAL 2 : Buatlah program vb net untuk menampilkan output seperti dibawah ini :

Buatlah program untuk mencari total pembayaran tv

PENJUALAN TV. SONY
--------------------------------------------
Nama Barang       :   ?
Harga        :   ?
Jumlah Jual    :   ?
Total Harga    :
Discount    :
Total Pembayaran:
--------------------------------------------

Proses
    Total Harga = Harga * Jumlah Jual
    Jika Total Harga > 2500000 maka
Discount = 10% * Total Harga
atau
Discount = 0
    Total Pembayaran = Total Harga - Discount

Berikut Jawaban Program :

Design Data Penjualan Tv Dengan Menggunakan Listview Pada Pemrograman Visual Basic.Net

Listing Programnya :

Public Class Form1

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

NamaBarang.Items.Add("sony")

NamaBarang.Items.Add("LG")

NamaBarang.Items.Add("Panasonic")

NamaBarang.Items.Add("Politron")

End Sub

Private Sub NamaBarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NamaBarang.SelectedIndexChanged

Select Case NamaBarang.Text

Case "Sony" : Harga.Text = 1750000

Case "LG" : Harga.Text = 2500000

Case "Panosinic" : Harga.Text = 3250000

Case "Politron" : Harga.Text = 1000000

End Select

End Sub

Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click

Total.Text = Harga.Text * jmlh.Text

If Total.Text > 2500000 Then

Disc.Text = 0.01 * Total.Text

Else : Disc.Text = 0

End If

Pembayaran.Text = Val(Total.Text) - Val(Disc.Text)

End Sub

Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click

NamaBarang.Text = ""

Harga.Text = ""

jmlh.Text = ""

Total.Text = ""

Disc.Text = ""

Pembayaran.Text = ""

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

End

End Sub

End Class

Berikut Hasil Program Data Penjualan Tv Pada Pemrograman Visual Basic.Net

Demikilahlah postingan saya, Nama : Muhammad Syahril NPM : 1111110

Selamat Belajar Pemrograman Vb.Net

Olahraga Yang Cocok Dilakukan di Kantor

Posted by Unknown Kamis, 23 Mei 2013

Kalau sudah stress atau ngantuk banget di kantor, ada baiknya menyempatkan waktu sejenak untuk melakukan senam ini.

TAKE TIME ! 7 menit dan matikan telepon seluler Anda, ayo ikuti senam ringan ini… gerakan yang benar…

–mulai–

ini ala TAICHI sedikit .. sebagai intro & warming up..

tirukan gaya seperti ini… untuk mengendurkan otot bahu dan leher..

wa..wa.. aku lah pahlawan bertopeng, gerakan tebar pesona...

gerak ke kanan kemudian ke kiri.. syuuut syuuut….

gerak ke kiri kemudian ke kanan… biar imbang balik in lagi arahnya…

ikuti aja … jangan banyak comment...

setelah itu buat gerakan tangan dan badan… buat gaya happy aja.. jangan lupa senyum biar enak di liat….

kemudian goyang-goyang kaki dan badan … memperlancar sendi bahu…. namanya goyang rege sebagian… cik..cik..bum..cik..cik..

buat secara aggresive pula… jangan peduli apa orang lain bilang.. lepaskan semua beban….. “lepas…lepas…lepas….”

buat execise tambahan putar kepala … ” membuang sedikit beban yang tertingal di kepala” tahap akhir sekali, tahap manggil hokie.. “hoki…hoki.. lai…. lai….hoki hoki lai…. “

Semoga segala penat jadi hilang rezeki pun datang...

Demikian artikel ini saya posting, semoga bermanfaat bagi kita, ^_^

Sumber: referensidunia

Tugas Pemrograman Visual Basic.Net

Posted by Unknown Selasa, 14 Mei 2013

Design Daftar Gaji Dengan Menggunakan Listview Pada Pemrograman Visual Basic.Net

Listing Programnya :

Public Class Form1

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

Nik.Items.Add("001")

Nik.Items.Add("002")

Nik.Items.Add("003")

jabatan.Items.Add("mandor")

jabatan.Items.Add("kepala bagian")

jabatan.Items.Add("staf")

status.Items.Add("menikah")

status.Items.Add("tidak menikah")

buattabel()

End Sub

Sub isitabel()

Dim lst As New ListViewItem

lst.Text = Nik.Text

lst.SubItems.Add(nama.Text)

lst.SubItems.Add(jabatan.Text)

lst.SubItems.Add(gaji.Text)

lst.SubItems.Add(status.Text)

lst.SubItems.Add(tunjkeluarga.Text)

lst.SubItems.Add(pajak.Text)

lst.SubItems.Add(Total.Text)

Lv.Items.Add(lst)

End Sub

Sub buattabel()

Lv.Columns.Add("Nik", 50, HorizontalAlignment.Left)

Lv.Columns.Add("Nama", 70, HorizontalAlignment.Left)

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

Lv.Columns.Add("Gaji", 60, HorizontalAlignment.Left)

Lv.Columns.Add("Status", 90, HorizontalAlignment.Center)

Lv.Columns.Add("Tunjangan keluarga", 130, HorizontalAlignment.Left)

Lv.Columns.Add("Pajak", 60, HorizontalAlignment.Left)

Lv.Columns.Add("Total Gaji", 90, HorizontalAlignment.Left)

lv.View = View.Details

lv.GridLines = True

End Sub

Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged

Select Case jabatan.Text

Case "mandor" : gaji.Text = 1750000

Case "kepala bagian" : gaji.Text = 2500000

Case "staf" : gaji.Text = 1250000

End Select

pajak.Text = 0.15 * gaji.Text

End Sub

Private Sub Nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nik.SelectedIndexChanged

Select Case Nik.Text

Case "001" : nama.Text = "oncom"

Case "002" : nama.Text = "udin"

Case "003" : nama.Text = "ujang"

End Select

End Sub

Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged

Select Case status.Text

Case "menikah" : tunjkeluarga.Text = 0.15 * gaji.Text

Case "tidak menikah" : tunjkeluarga.Text = 0

End Select

End Sub

Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click

isitabel()

Nik.Text = ""

nama.Text = ""

jabatan.Text = ""

gaji.Text = ""

status.Text = ""

tunjkeluarga.Text = ""

pajak.Text = ""

Total.Text = ""

End Sub

Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click

Total.Text = Val(gaji.Text) + Val(tunjkeluarga.Text) - Val(pajak.Text)

End Sub

Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click

Lv.Items.Clear()

End Sub

Private Sub BtnDataDiPilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDataDiPilih.Click

Lv.Items.Remove(Lv.SelectedItems(0))

End Sub

Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click

End

End Sub

Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click

Nik.Text = ""

nama.Text = ""

jabatan.Text = ""

gaji.Text = ""

status.Text = ""

tunjkeluarga.Text = ""

Total.Text = ""

pajak.Text = ""

End Sub

End Class

Form Gaji Saat Di Input Data

Berikut Hasil Program Daftar Gaji Dengan Menggunakan Listview Pada Pemrograman Visual Basic.Net

Tugas Pemrograman Visual Basic.Net, Silakan Klik Di Sini

Pengurutan Bubble Sort Dengan Visual Basic 6.0

Posted by Unknown Senin, 06 Mei 2013

Algoritma bubble sort dalam metode pengurutan data secara sederhana bisa diibaratkan seperti halnya gelembung udara (bubble). Algoritma ini akan menggeser nilai yang terkecil atau terbesar (sesuai dengan jenis pengurutan, ascending atau descending) ke posisi ujung dari daftar. Demikian seterusnya hingga semua daftar dalam keadaan terurut.

Berikut saya memberikan contoh program dengan menggunakan Visual Basic untukprogram penggurutan Bubble Sort ini, yaitu :

Komponen :

Textbox1 --> bil
Textbox2 --> n
Textbox3 --> hasil
Command1 --> nama nya tetap Command1

Private Sub Command1_Click()
    Dim bila() As String
    Dim i As Integer
    Dim temp As String
    bila = Split(Bil.Text, ",")

    For i = 1 To n
        j = n - 1
        Do While j >= i
            If Val(bila(j)) < Val(bila(j - 1)) Then
                temp = bila(j)
                bila(j) = bila(j - 1)
                bila(j - 1) = temp
            End If
            j = j - 1
        Loop
    Next i

    Hasil.Text = ""
    For i = 0 To n - 1
        If i = 0 Then
            Hasil.Text = Hasil.Text & bila(i)
        Else
            Hasil.Text = Hasil.Text & "," & bila(i)
        End If
    Next i
End Sub

Private Sub Form_Load()
    Bil = ""
    Hasil = ""
    n = ""
End Sub

ini hasilnya :

Sumber : http://mesran.net/berita-490-pengurutan-bubble-sort-menggunakan-visual-basic.html

Penggunaan Listview Pada Pemrograman Visual Basic

Posted by Unknown Minggu, 05 Mei 2013

Listview sering membantu dalam pemrograman visual basic. Dengan adanya listview kita mampu menampilkan beberapa data sekaligus dalam suatu objek yang di kenal listview.

Penggunaan listview ternyata sangat mudah, lihat saja program berikut ini :)

Design penggunaan listview pada pemrograman visual basic

Listing program.

Dim lst As ListItem

Private Sub cmdbersihkan_Click()
    ListView1.ListItems.Clear
End Sub

Private Sub cmdhapus_Click()
    NPM.Text = ""
    Nama.Text = ""
    Jenjang.Text = ""
    Jurusan.Text = ""
    Tahun.Text = ""
    NPM.SetFocus
End Sub

Private Sub cmdhapuspilih_Click()
    ListView1.ListItems.Remove ListView1.SelectedItem.Index
End Sub

Private Sub cmdsimpan_Click()
    Set lst = LV.ListItems.Add(, , NPM.Text)
    lst.SubItems(1) = Nama.Text
    lst.SubItems(2) = Jenjang.Text
    lst.SubItems(3) = Jurusan.Text
    lst.SubItems(4) = Tahun.Text
    Call cmdhapus_Click
End Sub

Private Sub Form_Activate()
    cmdhapus_Click
End Sub

Sub BuatTabel()
    With LV
        .ColumnHeaders.Add , , "NPM", 1000
        .ColumnHeaders.Add , , "Nama", 2500
        .ColumnHeaders.Add , , "Jenjang", 900
        .ColumnHeaders.Add , , "Jurusan", 1700
        .ColumnHeaders.Add , , "Tahun", 1000
        .GridLines = True
        .FullRowSelect = True
        .View = lvwReport
    End With
End Sub

Private Sub Form_Load()
    NPM.AddItem "1211030"
    NPM.AddItem "1111010"
    NPM.AddItem "1102111"
    NPM.AddItem "1211101"
    
    Call BuatTabel
    For i = 2005 To 2013
        Tahun.AddItem i
    Next i
    
    Jenjang.AddItem "S1"
    Jenjang.AddItem "D3"
    Jurusan.AddItem "Teknik Informatika"
    Jurusan.AddItem "Manajemen Informatika"
End Sub

Private Sub NPM_Click()
    Select Case NPM
    Case "1211030": Nama.Text = "Dian Sostro"
    Case "1111010": Nama.Text = "Susi Andriyani"
    Case "1102111": Nama.Text = "Arista Triani"
    Case "1211101": Nama.Text = "Aldyan"
    End Select
End Sub

Berikut hasil program dengan menggunakan listview pada pemrograman visual basic.

Sumber : http://mesran.net/berita-625-penggunaan-listview-pada-pemrograman-visual-basic.html

Akan Terbit, Jurnal Ilmiah Pornografi Pertama

Posted by Unknown

Topik tentang seks dan produk budaya yang merujuk kepadanya biasanya selalu dianggap tabu untuk dibicarakan. Namun, Routledge akan memicu perbincangan serius tentangnya dengan menerbitkan jurnal khusus pornografi pertama di dunia, Porn Studies.

Porn Studies akan dipublikasikan mulai tahun 2014. Routledge mendeskripsikan jurnal ini sebagai "jurnal peer review internasional pertama yang didedikasikan untuk secara kritis menggali produk budaya dan pelayanan yang dianggap pornografi serta konteks budaya, ekonomi, sejarah, legal, institusional, dan sosial yang dimiliki."

Diberitakan New York Times, Selasa (30/4/2013), jurnal terutama akan menaruh perhatian khusus pada masalah seksualitas, jender, ras, kelas, usia, dan kemampuan seksual.

Meski masih akan terbit setahun lagi, jurnal yang akan diedit oleh dua akademisi Inggris, Feona Attwood dan Clarisaa Smith, ini sudah menarik perhatian banyak ilmuwan dunia.

Julie Peakman, sejarawan University of London dan penulis buku "Mighty Lewd Books: The Development of Pornography in the Eighteenth-Century England" itu mengatakan, "kita telah menunggu lama kehadiran jurnal akademik yang menaruh perhatian pada representasi seksualitas manusia secara serius seperti seharusnya didapatkan."

"Saya menantikan perdebatan yang hidup dan serius lintas bidang kajian lewat jurnal ini," sambung Peakman.

Ilmuwan dari belahan dunia mana pun berhak memasukkan artikel atau hasil kajiannya ke jurnal ini. Salah satu syaratnya adalah panjang artikel sekitar 5000-8000 kata untuk tiap makalah, 500-1500 kata untuk forum, dan 800 - 1500 kata untuk resensi buku.

Topik tentang seksualitas mendapat perhatian setelah beberapa universitas ternama, seperti Harvard dan Yale, mengadakan beragam acara yang membahas seputar seks. Di antaranya adalah Sex Weekyang menawarkan pameran dan workshop dengan sex toys, serta kuliah dari para bintang porno.

MUHAMMAD SYAHRIL

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

SOAL 1 : Buatlah program untuk menampilkan hasil ke listview untuk kasus latihan listview perhitungan penjualan barang

SOAL 2 : Buatlah program vb net untuk menampilkan output seperti dibawah ini :

Olahraga Yang Cocok Dilakukan di Kantor

Tugas Pemrograman Visual Basic.Net

Pengurutan Bubble Sort Dengan Visual Basic 6.0

Penggunaan Listview Pada Pemrograman Visual Basic

Akan Terbit, Jurnal Ilmiah Pornografi Pertama

Mengenai Saya

Total Tayangan Halaman

Archives

Blogger news

Popular Posts