jawaban quiz no 2 hal 33

Public Class Form1

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

buattabel()

k_brg.Items.Add(“TS001”)

k_brg.Items.Add(“TS002”)

k_brg.Items.Add(“VG001”)

k_brg.Items.Add(“VG002”)

End Sub

Sub cekharga()

If k_brg.Text = “TS001” Then

harga.Text = 105000

ElseIf k_brg.Text = “TS002” Then

harga.Text = 75000

ElseIf k_brg.Text = “VG001” Then

harga.Text = 90000

ElseIf k_brg.Text = “VG002” Then

harga.Text = 60000

End If

End Sub

Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles k_brg.SelectedIndexChanged

Dim x As String

Microsoft.VisualBasic.Left(k_brg.Text, 2)

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

If x = “TS” Then

merk.Text = “Thosiba”

ElseIf x = “VG” Then

merk.Text = “V-Gen”

End If

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

If x = “001” Then

n_brg.Text = “Flashdisk 4GB”

ElseIf x = “002” Then

n_brg.Text = “Flasdisk 2Gb”

End If

Call cekharga()

End Sub

Sub cari()

ttl_harga.Text = jlh_beli.Text * harga.Text

End Sub

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

Dim tombol As Integer = Asc(e.KeyChar)

If tombol = 13 Then

cari()

End If

End Sub

Sub buattabel()

LV.Columns.Add(“No Pembelian”, 80, HorizontalAlignment.Center)

LV.Columns.Add(“kode Barang”, 70, HorizontalAlignment.Center)

LV.Columns.Add(“Nama Barang”, 100, HorizontalAlignment.Center)

LV.Columns.Add(“merk”, 50, HorizontalAlignment.Center)

LV.Columns.Add(“harga”, 100, HorizontalAlignment.Center)

LV.Columns.Add(“Jumlah”, 50, HorizontalAlignment.Center)

LV.Columns.Add(“Total Harga”, 100, HorizontalAlignment.Center)

LV.View = View.Details

LV.GridLines = True

LV.FullRowSelect = True

End Sub

Sub isitabel()

Dim lst As New ListViewItem

lst.Text = n_beli.Text

lst.SubItems.Add(k_brg.Text)

lst.SubItems.Add(n_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 total_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ttl_harga.TextChanged

End Sub

Private Sub btn_simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_simpan.Click

isitabel()

n_beli.Text = “”

k_brg.Text = “”

n_brg.Text = “”

merk.Text = “”

harga.Text = “”

jlh_beli.Text = “”

ttl_harga.Text = “”

End Sub

Private Sub btn_bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_bersih.Click

LV.Items.Clear()

End Sub

Private Sub btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_data.Click

LV.Items.Clear()

End Sub

Private Sub btn_pilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_pilih.Click

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

End Sub

End Class

hasil :

jawaban quis no 3

Public Class Form1

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

BuatTabel()

jbtan.Items.Add(“Mandor”)

jbtan.Items.Add(“Kabag”)

jbtan.Items.Add(“Staff”)

status.Items.Add(“Menikah”)

status.Items.Add(“Tidak Menikah”)

End Sub

Sub BuatTabel()

LV.Columns.Add(“Nama”, 100, HorizontalAlignment.Center)

LV.Columns.Add(“Jabatan”, 100, HorizontalAlignment.Left)

LV.Columns.Add(“Gaji”, 80, HorizontalAlignment.Left)

LV.Columns.Add(“Status”, 80, HorizontalAlignment.Left)

LV.Columns.Add(“Jumlah anak”, 80, HorizontalAlignment.Left)

LV.Columns.Add(“Tunjangan anak”, 80, HorizontalAlignment.Left)

LV.Columns.Add(“Tunjangan istri”, 80, HorizontalAlignment.Left)

LV.Columns.Add(“Lembur”, 50, HorizontalAlignment.Left)

LV.Columns.Add(“Upah lembur”, 90, HorizontalAlignment.Left)

LV.Columns.Add(“Pajak”, 80, HorizontalAlignment.Left)

LV.Columns.Add(“Total gaji”, 80, HorizontalAlignment.Left)

LV.GridLines = True

LV.FullRowSelect = True

LV.View = View.Details

End Sub

Sub IsiTabel()

Dim Lst As New ListViewItem

Lst.Text = nma.Text

Lst.SubItems.Add(jbtan.Text)

Lst.SubItems.Add(gji.Text)

Lst.SubItems.Add(status.Text)

Lst.SubItems.Add(jlhanak.Text)

Lst.SubItems.Add(tnjganak.Text)

Lst.SubItems.Add(tnjgistri.Text)

Lst.SubItems.Add(lembur.Text)

Lst.SubItems.Add(upahlembur.Text)

Lst.SubItems.Add(pajak.Text)

Lst.SubItems.Add(total_gaji.Text)

LV.Items.Add(Lst)

End Sub

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

If jbtan.Text = “Mandor” Then

gji.Text = 175000

ElseIf jbtan.Text = “Kabag” Then

gji.Text = 2500000

ElseIf jbtan.Text = “Staff” Then

gji.Text = 1250000

Else

gji.Text = ” ”

End If

End Sub

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

If status.Text = “Menikah” Then

tnjgistri.Text = 9 * gji.Text / 100

pajak.Text = 1.5 * gji.Text / 100

ElseIf status.Text = “Tidak Menikah” Then

tnjganak.Text = 0

tnjgistri.Text = 0

pajak.Text = 1.5 * gji.Text / 100

Else

status.Text = ” ”

End If

total_gaji.Text = Val(gji.Text) + Val(tnjgistri.Text) + Val(tnjganak.Text) + Val(lembur.Text) – Val(pajak.Text)

End Sub

Private Sub j_anak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jlhanak.TextChanged

If Val(jlhanak.Text) = 1 Then

tnjganak.Text = 3 * gji.Text / 100

ElseIf Val(jlhanak.Text) >= 2 Then

tnjganak.Text = 7 * gji.Text / 100

End If

End Sub

Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click

IsiTabel()

nma.Text = “”

jbtan.Text = “”

status.Text = “”

gji.Text = “”

jlhanak.Text = “”

tnjganak.Text = “”

tnjgistri.Text = “”

lembur.Text = “”

upahlembur.Text = “”

pajak.Text = “”

total_gaji.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 BtnHapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusdata.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

LV.Items.Clear()

End Sub

Private Sub lembur_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lembur.TextChanged

If jbtan.Text = “Mandor” Then

upahlembur.Text = Val(lembur.Text) * 7500

ElseIf jbtan.Text = “Kabag” Then

upahlembur.Text = Val(lembur.Text) * 10000

ElseIf jbtan.Text = “Staff” Then

upahlembur.Text = Val(lembur.Text) * 5000

End If

End Sub

hasil :

End Class

vb lv hal 32 tgl 12 jan 2012

 

 

Public Class Form1

 

Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

Dim x As String

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

If x = “10” Then

tahun.Text = “2010”

ElseIf x = “00” Then

tahun.Text = “2009”

End If

x = Microsoft.VisualBasic.Mid(npm.Text, 3, 1)

If x = “1” Then

jen.Text = “Diploma I”

ElseIf x = “2” Then

jen.Text = “Diploma III”

ElseIf x = “3” Then

jen.Text = “Strata I”

End If

x = Microsoft.VisualBasic.Mid(npm.Text, 4, 2)

If x = “01” Then

jur.Text = “Manajemen Informatika”

ElseIf x = “02” Then

jur.Text = “Sistem Informasi”

ElseIf x = “03” Then

jur.Text = “Akuntansi”

End If

End Sub

Sub proses()

If na.Text >= 80 Then

nh.Text = “A”

ElseIf na.Text >= 65 Then

nh.Text = “B”

ElseIf na.Text >= 55 Then

nh.Text = “C”

ElseIf na.Text >= 45 Then

nh.Text = “D”

Else

nh.Text = “E”

End If

End Sub

 

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

Dim tombol As Integer = Asc(e.KeyChar)

If tombol = 13 Then

proses()

End If

End Sub

Sub buat_Tabel()

With LV

.Columns.Add(“NPM”, 50, HorizontalAlignment.Left)

.Columns.Add(“Nama”, 120, HorizontalAlignment.Left)

.Columns.Add(“Jurusan”, 100, HorizontalAlignment.Left)

.Columns.Add(“Jenjang”, 100, HorizontalAlignment.Left)

.Columns.Add(“Tahun Masuk”, 80, HorizontalAlignment.Left)

.Columns.Add(“Nilai Angka”, 80, HorizontalAlignment.Left)

.Columns.Add(“Niai Huruf”, 80, HorizontalAlignment.Left)

.View = View.Details

.GridLines = True

.FullRowSelect = True

End With

End Sub

Sub isitabel()

Dim lst As New ListViewItem

lst.Text = npm.Text

lst.SubItems.Add(Nama.Text)

lst.SubItems.Add(jur.Text)

lst.SubItems.Add(jen.Text)

lst.SubItems.Add(tahun.Text)

lst.SubItems.Add(na.Text)

lst.SubItems.Add(nh.Text)

LV.Items.Add(lst)

End Sub

 

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

buat_Tabel()

End Sub

 

Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

isitabel()

npm.Text = “”

nm.Text = “”

jur.Text = “”

jen.Text = “”

tahun.Text = “”

na.Text = “”

nh.Text = “”

End Sub

 

Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click

LV.Items.Clear()

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 btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

End

End Sub

 

End Class

 

posting vb tgl 12 jan 12, hal 32

Public Class Form1

 

Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

Dim x As String

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

If x = “10” Then

tahun.Text = “2010”

ElseIf x = “00” Then

tahun.Text = “2009”

End If

x = Microsoft.VisualBasic.Mid(npm.Text, 3, 1)

If x = “1” Then

jen.Text = “Diploma I”

ElseIf x = “2” Then

jen.Text = “Diploma III”

ElseIf x = “3” Then

jen.Text = “Strata I”

End If

x = Microsoft.VisualBasic.Mid(npm.Text, 4, 2)

If x = “01” Then

jur.Text = “Manajemen Informatika”

ElseIf x = “02” Then

jur.Text = “Sistem Informasi”

ElseIf x = “03” Then

jur.Text = “Akuntansi”

End If

End Sub

Sub proses()

If na.Text >= 80 Then

nh.Text = “A”

ElseIf na.Text >= 65 Then

nh.Text = “B”

ElseIf na.Text >= 55 Then

nh.Text = “C”

ElseIf na.Text >= 45 Then

nh.Text = “D”

Else

nh.Text = “E”

End If

End Sub

 

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

Dim tombol As Integer = Asc(e.KeyChar)

If tombol = 13 Then

proses()

End If

End Sub

Sub buat_Tabel()

With LV

.Columns.Add(“NPM”, 50, HorizontalAlignment.Left)

.Columns.Add(“Nama”, 120, HorizontalAlignment.Left)

.Columns.Add(“Jurusan”, 100, HorizontalAlignment.Left)

.Columns.Add(“Jenjang”, 100, HorizontalAlignment.Left)

.Columns.Add(“Tahun Masuk”, 80, HorizontalAlignment.Left)

.Columns.Add(“Nilai Angka”, 80, HorizontalAlignment.Left)

.Columns.Add(“Niai Huruf”, 80, HorizontalAlignment.Left)

.View = View.Details

.GridLines = True

.FullRowSelect = True

End With

End Sub

Sub isitabel()

Dim lst As New ListViewItem

lst.Text = npm.Text

lst.SubItems.Add(Nama.Text)

lst.SubItems.Add(jur.Text)

lst.SubItems.Add(jen.Text)

lst.SubItems.Add(tahun.Text)

lst.SubItems.Add(na.Text)

lst.SubItems.Add(nh.Text)

LV.Items.Add(lst)

End Sub

 

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

buat_Tabel()

End Sub

 

Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

isitabel()

npm.Text = “”

nm.Text = “”

jur.Text = “”

jen.Text = “”

tahun.Text = “”

na.Text = “”

nh.Text = “”

End Sub

 

Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click

LV.Items.Clear()

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 btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

End

End Sub

 

End Class

SHOPING

Kegiatan yg terakhir saya adalah shoping, kegiatan terakhir saya ini cukup membuat kantong kering. Walaupun demikian saya tetap harus wajib melakukan hal itu, walaupun itu satu bulan sekali,saya merasa senang.

OLAHRAGA

Kegiatan ke empat saya adalah olahraga, setiap pagi saya menyempatkan untuk lari- lari pagi di sekitar rumah tidak hanya itu saya juga melakukan push up n sit up . Bagi saya dengan melakukan olahraga seperti itu tubuh saya menjadi lebih sehat.

IBADAH

Kegiatan ketiga saya adalah ibadah, setiap hari minggu saya selalu ke gereja untuk ibadah. Bagi saya ibadah adalah salah sati kebutuhan rohani untuk kita mendekatkan diri kita kepada tuhan kita, tidak hanya itu bagi saya degan ibadah hati saya menjadi damai.

PEKERJAAN

Kegiatan kedua saya adalah saya bekerja sebagai beby sister di rumah, bagi saya dari pada tidak ada kegiatan yang saya lakukan lebih baik saya bekerja sambil belajar di rumah. Pekerjaan beby sister bagi saya adalah pekerjaan yang halal, selagi saya bisa dan mampu kan tidak ada salahnya.

KULIAH/BELAJAR

Kegiatan pertama saya adalah saya kuliah di salah satu perguruaan swasta di kota medan. Kuliah atau bisa saya bilang belajar adalah agar saya mendapat ilmu yang lebih baik dan saya mendapatkan pelajaran yang belum pernah saya dapatkan di bangku SMA.

PENGERTIAN BASIC.NET

Microsoft Visual Basic .NET adalah sebuah alat untuk mengembangkan dan membangun aplikasi yang bergerak di atas sistem .NET Framework, dengan menggunakan bahasa BASIC. Dengan menggunakan alat ini, para programmer dapat membangun aplikasi Windows Forms, Aplikasi web berbasis ASP.NET, dan juga aplikasi command-line. Alat ini dapat diperoleh secara terpisah dari beberapa produk lainnya (seperti Microsoft Visual C++, Visual C#, atau Visual J#), atau juga dapat diperoleh secara terpadu dalam Microsoft Visual Studio .NET. Bahasa Visual Basic .NET sendiri menganut paradigma bahasa pemrograman berorientasi objek yang dapat dilihat sebagai evolusi dari Microsoft Visual Basic versi sebelumnya yang diimplementasikan di atas .NET Framework. Peluncurannya mengundang kontroversi, mengingat banyak sekali perubahan yang dilakukan oleh Microsoft, dan versi baru ini tidak kompatibel dengan versi terdahulu.