Monthly Archives: January 2012

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 … Continue reading →

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”, … Continue reading →

    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 … Continue reading →

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” … Continue reading →